Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 1 REM MANDELBROT
- 2 REM Written by:
- 3 REM Johan Tibbelin
- 4 REM johan.roos@tibbelin.com
- 5 TRAP 110
- 10 GRAPHICS 11
- 20 FOR Y=0 TO 191
- 25 Y0=((2/192)*Y)-1
- 30 FOR X=0 TO 79
- 40 X0=(3.5/80)*X-2.5
- 50 X1=0:Y1=0:I=0:B=0
- 55 IF X1*X1+Y1*Y1>=2*2 AND I>40 THEN 110
- 56 IF I>40 THEN B=1:GOTO 110
- 60 XTEMP=X1*X1-Y1*Y1+X0
- 70 Y1=2*X1*Y1+Y0
- 80 X1=XTEMP
- 90 I=I+1
- 100 GOTO 55
- 110 C1=INT(I/15):C=I-C1*15+1
- 115 IF B=1 THEN C=0
- 120 COLOR C:PLOT X,Y
- 125 TRAP 110
- 130 NEXT X:NEXT Y
- 140 GOTO 140
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement