home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 34 / Tiger_Disk_034_1997-01_Tiger-Crew-Disk_de_Side_A.d64 / fractal-gen_s.b. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  458b  |  14 lines
  1. 1 ifa=0thena=1:load"simon-save*",8,1
  2. 2 sys32512:rem 'save' initialisieren
  3. 5 D1,0:D6,6:D7,10,0:xm=105:ym=105
  4. 6 xc=1:yc=0:t=20:s=60
  5. 7 xl=-.15:xr=.26:yo=.47:yu=.9
  6. 8 dx=(xr-xl)/xm:dy=(yu-yo)/ym
  7. 9 forn=0toym:y1=yo+n*dy:form=0toxm:x=xl+m*dx:y=y1:k=0
  8. 10 x2=x*x:y2=y*y:y=2*x*y-yc:x=x2-y2-xc:k=k+1:if(k<t)and(x2+y2<s)then10
  9. 11 u=m+53-n/2:u1=u+1:v=n+80:v1=v-3*(k-1)
  10. 12 D u,v,u,v1,3:D u1,v,u1,v1,2:D u,v1,u1,v1,1
  11. 13 next:next
  12. 14 sys32521:rem  grafik speichern
  13. 15 wait198,255
  14.