Generates amazing images, then applies a series of effects that dramatically alter the image before restoring to original.
Appears on
Capital Area Timex Sinclair User Groupโs Library Tape.
Gallery
Source Code
5 REM CLOVER 500 REM 542 BRIGHT 1: LET L=6 545 CLS : OVER 1: RANDOMIZE 0 546 LET A1=INT (RND*8) 547 IF A1=3 OR A1=4 OR A1=5 THEN GO TO 546 548 PAPER A1 550 INK 9: BORDER RND*7 551 LET U=INT (RND*3)+1 552 REM SET U = 1 OR 2 OR 3 553 LET R=INT (RND*35)+5 555 CLS : LET B=2 560 LET G=100: LET V=42 565 LET W=0 566 LET F=INT (RND*6)+1 567 DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW -255,0 570 REM MAIN ROUTINE 580 FOR T=1 TO L 585 LET V=42 590 LET A=T/(L/2)*PI 595 LET X=127+42*COS A 600 LET Y=87+42*SIN A 605 FOR V=R TO 42 STEP F 606 IF U<3 THEN GO TO 610 607 FOR V=42 TO 42 610 PLOT X,Y+V: DRAW V,-V,W: DRAW -V,-V,W: DRAW -V,V,W: DRAW V,V,W 615 IF U=2 THEN PLOT X,Y+V: DRAW V,0: DRAW 0,-2*V: DRAW 2*-V,0: DRAW 0,2*V: DRAW V,0 616 LET V=V+1: PLOT X,Y+V: DRAW V,-V,W: DRAW -V,-V,W: DRAW -V,V,W: DRAW V,V,W 617 IF U=2 THEN PLOT X,Y+V: DRAW V,0: DRAW 0,-2*V: DRAW 2*-V,0: DRAW 0,2*V: DRAW V,0 620 NEXT V 625 NEXT T: PAUSE G: 630 LET L=L+2 635 REM FILL LINES 640 INK 9: FOR J=1 TO 255 STEP B: PLOT J,0: DRAW 0,175: NEXT J 645 PAUSE G 650 FOR J=175 TO 1 STEP -B: PLOT 0,J: DRAW 255,0: NEXT J 655 PAUSE G 660 FOR J=255 TO 1 STEP -B: PLOT J,0: DRAW 0,175: NEXT J 665 PAUSE G 670 FOR J=0 TO 175 STEP B: PLOT 0,J: DRAW 255,0: NEXT J 680 PAUSE 150: GO TO 545 999 SAVE "clover" LINE 1