home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / FILLER2.ARJ / fraktale / UNKNOWN.GFA (.txt) < prev   
GFA-BASIC Atari  |  1990-01-01  |  1KB  |  52 lines
  1. FOR a#=0 TO 15
  2.   VSETCOLOR a#,a#,a#,a#
  3. NEXT a#
  4. zoom#=50
  5. poczx#=-200
  6. poczy#=-100
  7. konx#=poczx#+320
  8. kony#=poczy#+200
  9. OUT 4,&H12
  10. rc#=0.6
  11. ic#=1.1
  12. FOR y#=poczy# TO kony#
  13.   FOR x#=poczx# TO konx#
  14.     rz#=x#/zoom#
  15.     iz#=y#/zoom#
  16.     exit#=FALSE
  17.     k#=16
  18.     FOR u#=1 TO 16
  19.       IF rz#>=0
  20.         wr#=rz#
  21.         wi#=iz#
  22.         rz#=rz#-1
  23.         iz#=iz#-1
  24.         rz#=rz#*rc#-ic#*iz#
  25.         iz#=wr#*ic#+wi#*rc#
  26.       ELSE
  27.         wr#=rz#
  28.         wi#=iz#
  29.         rz#=rz#+1
  30.         iz#=iz#+1
  31.         rz#=rz#*rc#-ic#*iz#
  32.         iz#=wr#*ic#+wi#*rc#
  33.       ENDIF
  34.       IF SQR((rz#^2)+(iz#^2))>6
  35.         exit#=TRUE
  36.         k#=u#
  37.       ENDIF
  38.       EXIT IF exit#=TRUE
  39.     NEXT u#
  40.     COLOR k#-1
  41.     PLOT x#-poczx#,y#-poczy#
  42.   NEXT x#
  43.   '  GET 0,y-poczy,319,y-poczy,a$
  44.   '  PUT 0,199-(y-poczy),a$
  45. NEXT y#
  46. ~INP(2)
  47. EDIT
  48. PROCEDURE kwadrat(a#,b#,VAR c#,d#)
  49.   c#=a#^2-b#^2
  50.   d#=2*a#*b#
  51. RETURN
  52.