This file is part of Miscellaneous Programs
. Download the collection to get this file.
Draws gem-like shapes and applies artistic effects to them.
Content
Image Gallery
Source Code
10 BRIGHT 1: LET L=6: OVER 1: RANDOMIZE 0
20 LET A1=INT (RND*8): IF A1>=3 AND A1<=5 THEN GO TO 20
30 PAPER A1: INK 9: BORDER RND*7: LET U=INT (RND*3)+1: LET R=INT (RND*35)+5
40 CLS : LET B=2: LET G=200: LET V=42: LET W=0: LET F=INT (RND*6)+1
50 DRAW 0,175: DRAW 255,0: DRAW 0,-175: DRAW -255,0
60 FOR T=1 TO L: LET V=42: LET A=T/(L/2)*PI: LET X=127+62*COS A: LET Y=87+42*SIN A
70 FOR V=R TO 42 STEP F: IF U<3 THEN GO TO 90
80 FOR V=42 TO 42
90 PLOT X,Y+V: DRAW V,-V,W: DRAW -V,-V,W: DRAW -V,V,W: DRAW V,V,W
100 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
110 LET V=V+1: PLOT X,Y+V: DRAW V,-V,W: DRAW -V,-V,W: DRAW -V,V,W: DRAW V,V,W
120 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
130 NEXT V: NEXT T: PAUSE G: LET L=L+2
140 INK 9: FOR J=1 TO 255 STEP B: PLOT J,0: DRAW 0,175: NEXT J: PAUSE G
150 FOR J=175 TO 1 STEP -B: PLOT 0,J: DRAW 255,0: NEXT J: PAUSE G
160 FOR J=255 TO 1 STEP -B: PLOT J,0: DRAW 0,175: NEXT J: PAUSE G
170 FOR J=0 TO 175 STEP B: PLOT 0,J: DRAW 255,0: NEXT J: PAUSE G: RUN
200 SAVE "GEM PAT" LINE PINote: Type-in program listings on this website use ZMAKEBAS notation for graphics characters.