home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / FILLER2.ARJ / fraktale / SPIDER.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1990-01-01  |  896b  |  40 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#=rc#
  15.     iz#=ic#
  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.       rc#=rc#/2+rz#
  23.       ic#=ic#/2+iz#
  24.       IF SQR((rz#^2)+(iz#^2))>6
  25.         exit#=TRUE
  26.         k#=u#
  27.       ENDIF
  28.       EXIT IF exit#=TRUE
  29.     NEXT u#
  30.     COLOR k#-1
  31.     PLOT x#-poczx#,y#-poczy#
  32.   NEXT x#
  33. NEXT y#
  34. ~INP(2)
  35. EDIT
  36. PROCEDURE kwadrat(a#,b#,VAR c#,d#)
  37.   c#=a#^2-b#^2
  38.   d#=2*a#*b#
  39. RETURN
  40.