Day 8 – Boxrain

starfield.mp4

96kB

Today a bit earlier ( the 24h rule still apply to the last task!):
Your task is to create a pseudo-3D star flight. You must use 6
different characters that become larger the further they move
outward (6 different characters, even if they don’t get larger,
would be just as fine). A maximum of 10 stars should be visible at
any given time, and the entire animation runs until 100 stars have
appeared on the screen. The direction of the stars must be generated
randomly, in which they fly.

Winner Fast - Sven Bastrop

0 sys 65499:dim q(39),e:y=40:t=32:z=160:dim q:x=1024:f=24:for e=. to 39:q(e)=f:next
1 for w=. to 999:q=rnd(.)*y:if q(q)<. then w=w-1:next
2 e=x+q:for e=e to e+y*q(q) step y:poke e-y,t:poke e,z:next:q(q)=q(q)-1:next:print ti

168 Bytes - 7994 Jiffies

2nd Fast - Eyvind Ebsen

1 t=ti:e=160:f=32:d=1024:c=40:h=c:dim s(h),n(h):for r=.to h:n(r)=r:next
2 r=int(rnd(.)*h):w=n(r):a=d+n(r):b=a+(24-s(w))*c
3 for q=a to b step c:poke q,e:poke q-c,f:next:s(w)=s(w)+1:if s(w)<25 then 2
4 if r<39 then for q=r t oh-1:n(q)=n(q+1):next
5 h=h-1:if h>0 then 2
6 print ti-t

225 Bytes - 9371 Jiffies

Winner Short - Sven Bastrop

0 t=ti:a=40:dim q(a):for w=.to 999:q=rnd(.)*a:if q(q)>24 then w=w-1:next
2 e=1024+q:for e=e to e+a*(24-q(q)) step a:poke e-a,32:poke e,160:next:q(q)=q(q)+1:next:print ti-t

130 Bytes - 11765 Jiffies

2nd Short - Jader Monari

1 t=ti:dim c(40):for i=0 to 39:c(i)=25:next
2 for n=0 to 999:a=int(40*rnd(.))
3 c(a)=c(a)-1
4 if c(a)=0 then poke(1024+a),160:goto 7
5 if c(a)<0 then a=(a+1)-40*int((a+1)/40):goto 3
6 for i=1 to c(a):poke (1024+a+40*(i-1)),32:poke(1024+a+40*i),160:next
7 next:print ti-t

216 Bytes - 26334 Jiffies

Out of competition my code:

0 t=ti:dim p,i:a=160:d=32:dim c,e:q=1024:dim h(39):for b= . to 999
1 c=rnd(.)*40:e=h(c):if e=25 goto 1
2 p=q+c:for i= . to 24-e:if i then poke p-40,d
3 poke p,a:p=p+40:next:h(c)=e+1:next:print ti-t

152 Bytes - 12465 Jiffies