Post by zxdunny on Sept 26, 2023 6:25:35 GMT -5
From way back in the paleolithic times, the Amiga had BOBs (Blitter OBjects). This was a neat way to draw as many as you liked!
10 REM Unlimited Bobs!
20 sw=scrw/2-32,sh=scrh/2-32: ink 15:
dim path(2048,2):
for i=1 to 512:
rad=(i-1)*0.01227178125,
path(i,1)=sin rad*sw+sw,
path(i,2)=cos rad*sh+sh:
path(i+512,1)=sin(rad*2)*sw+sw,
path(i+512,2)=path(i,2),
path(i+1024,1)=path(i,1),
path(i+1024,2)=cos(rad*2)*sh+sh,
path(i+1536,1)=sin(rad*2)*sw+sw,
path(i+1536,2)=cos(rad*2)*sw+sw:
next i
30 graphic new ball load "demos:toys/boing_small.png" trans 0:
palette copy ball,0,255 to 0:
p=rgbn $808080
40 ns=9: dim scr(ns):
for i=1 to ns:
window new scr(i),0,0,scrw,scrh:
window hide scr(i):
cls p:
next i:
window 0
50 si=0,i=0
60 do:
i=iif(i>2047,1,i+1),si=iif(si>ns-1,1,si+1):
window put graphic ball,scr(si),path(i,1),path(i,2) rotate i/33:
window copy scr(si),0,0,scrw,scrh to 0,0,0:
wait screen:
loop
