This is a set of small programs in Basic-256, related to various topics.
Just copy,paste and run.
Note : Sometimes programs do not run in recent BASIC 256 versions.
Thursday, April 14, 2016
Parametric Spirograph
r=90 centerx=150 centery=150 rm=30 for n = 1 to 6 color rgb(int (rand*3)*127, int(rand*3)*127, int(rand*3)*127) for t = 0 to 6.28 step .002 x=r*sin(t)+centerx y=r*cos(t)+centery xm=rm*sin(-t*3*n)+x ym=rm*cos(-t*3*n)+y circle xm,ym,1 next t next n
No comments:
Post a Comment