home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / FRACTAL.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  601b  |  26 lines
  1. 100 REM VEELHOEKEN-FRACTAL - GRAFISCH
  2. 110 CLS:KEY OFF:SCREEN 2
  3. 120 INPUT "Deelfactor (b.v. 0.5)";DF
  4. 130 IF DF=0 THEN DF=.5
  5. 140 INPUT "Aantal hoekpunten (b.v. 3)";N%
  6. 150 IF N%=0 THEN N%=3
  7. 160 Y=RND(-TIMER)
  8. 170 WINDOW (-500,-500)-(500,500)
  9. 180 DIM X%(N%),Y%(N%)
  10. 190 STAP = 2 * 3.141593/N%
  11. 200 FOR I%=0 TO N%
  12. 210   X%(I%)=500*COS(I%*STAP)
  13. 220   Y%(I%)=500*SIN(I%*STAP)
  14. 230 NEXT I%
  15. 240 XX%=STARTX%
  16. 250 YY%=STARTY%
  17. 260 PSET (XX%,YY%),0
  18. 270 WHILE INKEY$=""
  19. 280   I%=INT(RND * N%)+1
  20. 290   XX%=XX%-(XX%-X%(I%))*DF
  21. 300   YY%=YY%-(YY%-Y%(I%))*DF
  22. 310   PSET (XX%,YY%)
  23. 320 WEND
  24. 330 END
  25.  
  26.