|
Post by tsh73 on Feb 18, 2020 15:39:38 GMT -5
Using last Carl code - we don't need 4-columns array - using single-letter array names pays - 307
n=300:dim s(n),t(n):open "" for graphics_fs_nsb as #s [l] #s "discard;fill black" for i=0 to n:scan:s(i)=s(i)*1.2+.01:t(i)=t(i)*1.2 if abs(s(i))>1000 then s(i)=(rnd(0)-.5)*3:t(i)=(rnd(0)-.5)*3 #s "home;posxy x y;down;trapclose [q];size 2;color white;set ";x+s(i);" ";y+t(i) next:goto [l] [q]close #s
|
|
|
Post by tsh73 on Feb 18, 2020 15:42:06 GMT -5
Gaaah. Carl beat me with 301
|
|
|
Post by Carl Gundel on Feb 18, 2020 15:45:45 GMT -5
Gaaah. Carl beat me with 301 Well if we are getting rid of the size 2, how about 299 bytes? n=300:dim s(n),t(n):open "" for graphics_fs_nsb as #s [l] #s "discard;fill black" for i=0 to n:scan:s(i)=s(i)*1.2+.01:t(i)=t(i)*1.2 if abs(s(i))>999 then s(i)=(rnd(0)-.5)*3:t(i)=(rnd(0)-.5)*3 #s "home;posxy x y;down;trapclose [q];color white;set ";x+s(i);" ";y+t(i) next:goto [l] [q]close #s
|
|
|
Post by tsh73 on Feb 18, 2020 15:48:31 GMT -5
299? We went over 300 000 km/sec light speed! My eyes! I see colored stars instead of white...
|
|
|
Post by Carl Gundel on Feb 18, 2020 15:55:24 GMT -5
299? We went over 300 000 km/sec light speed! My eyes! I see colored stars instead of white... "My God! It's full of stars!"
|
|
|
Post by meerkat on Feb 25, 2020 10:41:27 GMT -5
|
|
Tasp
Full Member
Posts: 215
|
Post by Tasp on Feb 27, 2020 15:51:33 GMT -5
297?
I know this adds nothing but I wanted to feel included! Just removed some cheeky spaces!
dim x(99),y(99):open""for graphics_fs as #s:#s "home;posxy x y;down;fill black;trapclose [q];rule xor" [l]scan:#s "set ";x+x(i);" ";y+y(i):x(i)=x(i)*1.2+.01:y(i)=y(i)*1.2:if abs(x(i))>999 then x(i)=(rnd(0)-.5)*3:y(i)=(rnd(0)-.5)*3 #s "set ";x+x(i);" ";y+y(i):i=(i+1)mod 100:goto[l] [q]close #s
And if we don't need an end, do we really need the trapclose? Or is this going to far! (no one said it had to close gracefully!).
dim x(99),y(99):open""for graphics_fs as #s:#s "home;posxy x y;down;fill black;rule xor" [l]scan:#s "set ";x+x(i);" ";y+y(i):x(i)=x(i)*1.2+.01:y(i)=y(i)*1.2:if abs(x(i))>999 then x(i)=(rnd(0)-.5)*3:y(i)=(rnd(0)-.5)*3 #s "set ";x+x(i);" ";y+y(i):i=(i+1)mod 100:goto[l]
EDIT: Should have looked at page 2!!
Was wasted spaces in this one too! C'mon guys!
n=300:dim s(n),t(n):open""for graphics_fs_nsb as #s [l] #s "discard;fill black" for i=0 to n:scan:s(i)=s(i)*1.2+.01:t(i)=t(i)*1.2 if abs(s(i))>999 then s(i)=(rnd(0)-.5)*3:t(i)=(rnd(0)-.5)*3 #s "home;posxy x y;down;trapclose [q];color white;set ";x+s(i);" ";y+t(i) next:goto [l] [q]close #s
|
|