home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / grdlagen / frak.bas < prev    next >
Encoding:
BASIC Source File  |  1994-04-11  |  1.2 KB  |  51 lines
  1. 10 REM **************************************
  2. 20 REM              Frak.bas
  3. 30 REM    (C) H.Kleiner & toolbox 1990
  4. 40 REM **************************************
  5. 1000 SCREEN 0, 0, 0, 0: CLS
  6. 1010 INPUT "Bildname: ", bild$
  7. 1020 INPUT "Anzahl: ", N%
  8. 1025 INPUT "TEILER: ", T%
  9. 1030 BB% = 320 / T%: BH% = 200 / T%
  10. 1040 SCR = 1: FA% = 4
  11. 1050 SCREEN SCR, 0, 0, 0: CLS : KEY OFF
  12. 1060 '
  13. 1070 RA = -2
  14. 1080 RE = 1
  15. 1090 IA = 1.5
  16. 1100 IE = -1.5
  17. 1110 N% = N%
  18. 1120 '
  19. 1130 PS = (RE - RA) / BB%
  20. 1140 QS = (IE - IA) / BH%
  21. 1150 '
  22. 1160 FOR SR% = BH% - 1 TO 0 STEP -1
  23. 1170  FOR WR% = 0 TO BB% - 1
  24. 1180   P = RA + WR% * PS
  25. 1190   Q = IA + SR% * QS
  26. 1200   IA% = 0: R2 = 0
  27. 1210   X = 0: Y = 0
  28. 1220   X2 = 0: Y2 = 0
  29. 1230 ' ---------------------------
  30. 1240   WHILE NOT (R2 > 4 OR IA% = N%)
  31. 1250    IA% = IA% + 1
  32. 1260    Y = 2 * X * Y + Q
  33. 1270    X = X2 - Y2 + P
  34. 1280    X2 = X * X
  35. 1290    Y2 = Y * Y
  36. 1300    R2 = X2 + Y2
  37. 1310   WEND
  38. 1320 ' ---------------------------
  39. 1330   IF IA% = N% THEN IA% = 0
  40. 1340   FRB% = IA% MOD FA%
  41. 1350   PSET (WR% * .833, BH% - SR%), FRB%
  42. 1360  NEXT WR%
  43. 1370  IF INKEY$ <> "" THEN GOTO 1410
  44. 1380 NEXT SR%
  45. 1390 IF INKEY$ = "" THEN 1390
  46. 1400 DEF SEG = &HB800
  47. 1405 BSAVE bild$, 0, &H4000: DEF SEG
  48. 1410 SCREEN 0: WIDTH 80
  49. 1420 END
  50.  
  51.