home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / amoner01.dms / in.adf / Frac.AMOS / Frac.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1988-01-20  |  861 b   |  24 lines
  1. Screen Open 0,320,200,32,LORES
  2. Cls 0
  3. STIMER=Timer : Flash Off 
  4. Rem xp = The X Starting coordinate of the screen 
  5. Rem yp = The Y Starting coordinate of the screen 
  6. Rem Num_of_color = How meny colours are on the screen. 
  7. Rem Width = Width of the drawing area. 
  8. Rem Height = Hight of the drawing area.      
  9. Rem Xmin#, Xmax# = X limits of Fractel.
  10. Rem Ymin#, Ymax# = Y limits of Fractal.
  11. XP=10 : YP=10 : NUM_OF_COLOR=32 : WIDTH=88 : HEIGHT=162
  12. XMIN#=-2 : XMAX#=0.5 : YMIN#=-1.25 : YMAX#=1.25
  13. For X#=XMIN# To XMAX# Step((XMAX#-XMIN#)/WIDTH)
  14.   For Y#=YMIN# To YMAX# Step((YMAX#-YMIN#)/HEIGHT)
  15.     REP=0 : ZX#=0 : ZY#=0
  16. CALC:
  17.     TEMP#=ZX# : ZX#=ZX#^2-ZY#^2+X# : ZY#=2*TEMP#*ZY#+Y#
  18.     Inc REP
  19.     If((REP<50) and((ZX#^2+ZY#^2)<4)) Then Goto CALC
  20.     CT=Int((REP*NUM_OF_COLOR)/50) : Plot XP,YP,CT : Inc YP
  21.   Next Y#
  22.   YP=51 : Inc XP
  23. Next X#
  24. ' Print(Timer-STIMER)/3000