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