home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / sourcecode / general / mandel.amos / mandel.amosSourceCode
Encoding:
AMOS Source Code  |  1993-02-25  |  669 b   |  22 lines
  1. Screen Open 1,320,256,16,Lowres
  2. Curs Off : Flash Off : Hide : Ink 0
  3. Bar 0,0 To 320,256
  4. Palette $0,$B90,$AA0,$9B0,$8C0,$7D0,$6E0,$5F0,$F0,$E0,$D0,$C0,$B0,$A0,$90,$0
  5. SCRY#=200.0 : SCRX#=320.0 : K=15 : XMIN#=2.01 : YMIN#=-0.55
  6. XMAX#=0.55 : YMAX#=0.55 : H#=(XMAX#-XMIN#)/SCRX#
  7. V#=(YMAX#-YMIN#)/SCRY#
  8. For Q#=0.0 To SCRY#
  9.    For P#=0.0 To SCRX#
  10.       M#=XMIN#+P#*H#
  11.       N#=YMIN#+Q#*V#
  12.       I=0 : X#=0 : Y#=0
  13. LABEL:
  14.       W#=X#*X# : Z#=Y#*Y# : R#=W#+Z# : Y#=2*X#*Y#+N# : X#=W#-Z#+M#
  15.       Inc I
  16.       If R#<4 and I<K : Goto LABEL : End If 
  17.       XU=P# : YU=Q# : Ink 3 : Plot XU+1,YU
  18.       Ink I : Plot XU,YU
  19.       If Mouse Key=2 : Edit : End If 
  20.    Next P#
  21. Next Q#
  22. Wait Key