home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / FILLER2.ARJ / fraktale / FRAKTAL.GFA (.txt) next >
GFA-BASIC Atari  |  1990-01-01  |  776b  |  31 lines
  1. ' zmienic promien kola
  2. OUT 4,&H12
  3. FOR y#=-2 TO 2 STEP 0.01
  4.   PRINT AT(1,1);y#*100
  5.   FOR x#=-3.2 TO 3.2 STEP 0.01
  6.     rc#=x#
  7.     ic#=y#
  8.     rz#=0
  9.     iz#=0
  10.     exit#=FALSE
  11.     FOR u#=1 TO 100
  12.       kwadrat(rz#,iz#,rz#,iz#)
  13.       rz#=rz#+rc#
  14.       iz#=iz#+ic#
  15.       IF SQR((rz#^2)+(iz#^2))>6
  16.         exit#=TRUE
  17.       ENDIF
  18.       EXIT IF exit#=TRUE
  19.     NEXT u#
  20.     IF exit#=FALSE
  21.       PLOT (x#*100)+320,(y#*100)+200
  22.     ENDIF
  23.   NEXT x#
  24. NEXT y#
  25. PRINT "Ok"
  26. ~INP(2)
  27. PROCEDURE kwadrat(a#,b#,VAR c#,d#)
  28.   c#=a#^2-b#^2
  29.   d#=2*a#*b#
  30. RETURN
  31.