prettypatterns.bas

5 DEF FNA(Z) = 30 * EXP(-Z*Z/100)
100 CLS
105 PRINT:PRINT:PRINT
110 FOR X = -30 TO 30 STEP 1.5
120 L = 0
130 Y1 = 5 * INT(SQR(900-X*X)/5)
140 FOR Y = Y1 TO -Y1 STEP -5
150 Z = INT(25 + FNA(SQR(X*X+Y*Y))-.7*Y)
160 IF Z<=L THEN 190
170 L = Z
180 PRINT TAB(Z);"*";
190 NEXT Y
200 PRINT
210 NEXT X
250 FOR I = 1 TO 7000
260 NEXT I
500 J = INT(RND(1)*6+1)
510 ON J GOTO 600,610,620,630,640,650
600 DEF FNA(Z) = 30 * EXP(-Z*Z/100)
605 GOTO 100
610 DEF FNA(Z) = SQR(900.01-Z*Z)*.9-2
615 GOTO 100
620 DEF FNA(Z) = 30*(COS(Z/16))^2
625 GOTO 100
630 DEF FNA(Z) = 30 - 30*SIN(Z/18)
635 GOTO 100
640 DEF FNA(Z) = 30 * EXP(-COS(Z/16))-30
645 GOTO 100
650 DEF FNA(Z) = 30 * SIN(Z/10)
655 GOTO 100
1000 REM Original program written by Mark Bramhall