kumpulan pos(x,y)
senarai objek@pos dari k=1 ke 10 tambah objek objek.x=rawak(800) objek.y=rawak(480) lagi untuk setiap objek bulat objek.x,objek.y,10,1 lagi |
kumpulan pos(x,y,saiz#,wmerah)
senarai objek@pos dari k=1 ke 300 tambah objek objek.x=rawak(800) objek.y=rawak(480) objek.saiz=1 objek.wmerah=0 lagi alfa 0.2 untuk m=setiap objek untuk n=setiap objek jika mutlak(m.x-n.x)<50 dan mutlak(m.y-n.y)<50 maka n.saiz=n.saiz*1.2 n.wmerah=n.wmerah+12 jika n.wmerah>255 maka n.wmerah=255 dah lagi warna m.wmerah,100,255 bulat m.x,m.y,m.saiz,1 lagi |