A bucket of balls...
(load "//http://www.nodep.nl/downloads/newlisp/bucket.lsp")
Norman.
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.
great script!
Awesome! Now rename the app:

(//%3C/s%3E%3CURL%20url=%22http://images.rottentomatoes.com/images/movie/gallery/1170268/photo_28.jpg%22%3E%3CLINK_TEXT%20text=%22http://images.rottentomatoes.com/images%20...%20oto_28.jpg%22%3Ehttp://images.rottentomatoes.com/images/movie/gallery/1170268/photo_28.jpg%3C/LINK_TEXT%3E%3C/URL%3E%3Ce%3E)
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")
Where are the collisions? :-) Hard to do I think.
This takes up 101% of my CPU... :)
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...
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:
; 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
HA you found it !!..thats great ;-)
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