Page 1 of 1
[Gag] Ball Bucket
Posted: Tue Oct 02, 2007 4:01 pm
by newdep
Posted: Tue Oct 02, 2007 6:30 pm
by newdep
Lutz,
I cant figure out the problem but it seems there is a memory-leak somewhere
in GS / newlisp or Java... (or a very very full IO buffer that needs to be emptied :-)
When running "bucket.lsp" after 30 minutes the memory consumption
raised to 31.0% that 312 MB..thats a little too much..(and increasing !)
5677 31.0 312m 0 312m 140 312m 984 259 77k R 16 0 21.3 newlisp
Now i cant say its a mistake in the script, because the script does not
add valeus to its variables...but where does it come from?
Norman.
Posted: Tue Oct 02, 2007 9:49 pm
by cormullion
great script!
Posted: Wed Oct 03, 2007 1:03 am
by rickyboy
Awesome! Now rename the app:
Posted: Wed Oct 03, 2007 12:42 pm
by newdep
hehehe...
So here for the fans even more buckets ->
newlisp code in a bucket -> (save to disk first)
(load "
http://www.nodep.nl/downloads/newlisp/bucket2.lsp")
Fish in a bucket ->
(load "
http://www.nodep.nl/downloads/newlisp/bucket3.lsp")
Donuts in a bucket ->
(load "
http://www.nodep.nl/downloads/newlisp/bucket4.lsp")
Posted: Wed Oct 03, 2007 1:37 pm
by cormullion
Where are the collisions? :-) Hard to do I think.
This takes up 101% of my CPU... :)
Posted: Wed Oct 03, 2007 1:42 pm
by newdep
Well the collisions are possible but you get indeed an overload on cpu ;-)
If you have i.e. 200 objects then they have to scan all 199 objects * border of the object + 4 walls in every move per object.. (this can be tuned or done differently, but is a little tricky because we dont use 'sprite' but canvas in GS.. I think this will work
fine with the i.e. SDL lib..
Increase the 120 balls to 200.. you will see you CPU is bussy ;-)..
This is basicly a GS issue regarding "update" ..
But indeed collisions would eb nice ;-) Perhpas ill add it...
Posted: Thu Oct 04, 2007 11:10 am
by Lutz
A multiple 'set' with indexed lists in bucket.lsp causes a cell-memory leak. This will be fixed in the next development version. As a workaround split up the multiple set:
Code: Select all
; change
(set 'tx (L 1) 'ty (L 2) 'X (L 3) 'Y (L 4))
;to
(set 'tx (L 1))
(set 'ty (L 2))
(set 'X (L 3))
(set 'Y (L 4))
now bucket.lsp will run without eating memory.
Lutz
Posted: Thu Oct 04, 2007 12:15 pm
by newdep
HA you found it !!..thats great ;-)
Posted: Thu Oct 04, 2007 3:23 pm
by rickyboy
Hey Norman!
You helped Lutz improve newlisp by way of writing a fun graphics program. Way cool!
If I ever happen to help Lutz, it will be by some fuddy-duddy program. Ha, ha, ha!
--Rick