Moire

Source Code

   10 CLS : INK 0: PAPER 7: BORDER 7: OVER 1
   20 FOR t=0 TO 100 STEP .753
   30 PLOT t+50,0: DRAW 50-t,175
   40 PLOT t+50,175: DRAW 50-t,-175
   50 NEXT t
   60 PAUSE 500: CLS 
   70 FOR t=-50 TO 150 STEP .753
   80 PLOT t+50,0: DRAW 50-t,175
   90 PLOT t+50,175: DRAW 50-t,-175
  100 NEXT t
  200 PAPER 7: BORDER 7: INK 0: CLS 
  210 LET e=RND*10-2
  220 LET m=RND*10-2
  230 LET x=RND*255
  240 LET y=RND*175
  250 PLOT x+10,y
  260 DRAW x+10-PEEK 23677,y-PEEK 23678
  270 DRAW (255-y)-PEEK 23677,(175-x)-PEEK 23678
  280 DRAW (y+10)-PEEK 23677,x-PEEK 23678
  290 DRAW (255-x)-PEEK 23677,(175-y)-PEEK 23678
  300 LET y=y+m
  310 LET x=x+e
  320 IF x<0 THEN LET x=0
  330 IF y<0 THEN LET y=0
  340 IF x>175 THEN LET x=175
  350 IF y>175 THEN LET y=175
  360 IF x=0 OR x=175 THEN LET e=-e
  370 IF y=0 OR y=190 THEN LET m=-m
  380 GO TO 260
  400 PAPER 7: BORDER 7: INK 0: CLS 
  410 LET count=0
  420 DIM x(6): DIM y(6)
  430 LET x(1)=0: LET x(2)=255: LET x(3)=x(1): LET x(4)=x(2): LET x(5)=x(1): LET x(6)=x(2)
  440 LET y(1)=0: LET y(2)=88: LET y(3)=175: LET y(4)=y(1): LET y(5)=y(2): LET y(6)=y(3)
  450 INVERSE RND*1
  460 PLOT x(1),y(1): DRAW x(2)-x(1),y(2)-y(1): DRAW x(3)-x(2),y(3)-y(2): DRAW x(1)-x(3),y(1)-y(3)
  470 PLOT x(4),y(4): DRAW x(5)-x(4),y(5)-y(4): DRAW x(6)-x(5),y(6)-y(5): DRAW x(4)-x(6),y(4)-y(6)
  480 LET y(1)=y(1)+1: LET x(1)=x(1)+1: LET y(3)=y(3)-1: LET x(5)=x(5)+1: LET y(4)=y(4)+1: LET x(4)=x(4)-1: LET x(2)=x(2)-1: LET x(3)=x(3)+1: LET x(6)=x(6)-1: LET y(6)=y(6)-1
  490 LET count=count+1
  500 IF x(6)>=128 THEN GO TO 450
  600 INK 0: PAPER 7: BORDER 7: INVERSE 0: CLS 
  610 LET a=0
  620 LET i=120: LET j=-.75: LET l=75
  630 FOR k=112 TO 40 STEP -8
  640 LET j=j+7.5
  650 PLOT i,j: DRAW k-i,l-j: NEXT k
  660 LET i=32: LET j=75: LET k=120
  670 FOR l=82.5 TO 150 STEP 7.5
  680 LET i=i+8
  690 PLOT i,j: DRAW k-i,l-j: NEXT l
  700 LET i=120: LET j=157: LET l=75
  710 FOR k=128 TO 200 STEP 8
  720 LET j=j-7.5
  730 PLOT i,j: DRAW k-i,l-j: NEXT k
  740 LET i=208: LET j=75: LET k=120
  750 FOR l=67.5 TO 0 STEP -7.5
  760 LET i=i-8
  770 PLOT i,j: DRAW k-i,l-j: NEXT l
  780 LET a=NOT a
  790 INVERSE a
  800 GO TO 620
  810 LET a=RND*10+1: LET b=RND*10+1
  820 FOR w=0 TO 255 STEP b
  830 PLOT 128,175: DRAW 127-w,-175
  840 PLOT 128,0: DRAW 127-w,175: NEXT w
  850 FOR w=0 TO 175 STEP a
  860 PLOT 255,88: DRAW -255,87-w
  870 PLOT 0,88: DRAW 255,87-w: NEXT W
  880 PAUSE 100: CLS : GO TO 810