home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8712a.d64 / demo6.fraktale (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  70 lines
  1. 5 PRINT"[147]":INIT:OBJ 260,800
  2. 10 INPUT"[147]WIE OFT TEILEN (1-4)";TE: K=270:IFTE<1ORTE>4THEN10
  3. 15 DEF FNR(X)=(RND(1)-.5)*K/(T+1)/4
  4. 20 DIM M(2^TE,2^TE),Q(TE)
  5. 30 SP=0
  6. 40 FORI=0TOTE
  7. 50 :Q(I)=2^I
  8. 60 NEXT
  9. 65 PRINT" ICH ERZEUGE DEN BERG."
  10. 80 GOSUB2000
  11. 95 PRINT" ICH SETZE DIE PUNKTE."
  12. 99 P=0
  13. 100 S=SIN(60*(null)/180)
  14. 110 FORY=0TO2^TE
  15. 120 :FORX=0TOQ(TE)-Y
  16. 130 : KX=(X+Y/2)*K/Q(TE)-K/2
  17. 140 : KY=M(X,Y)
  18. 145 :REM IFKY<0THENKY=0
  19. 150 : KZ=Y*K/Q(TE)*S-K/3
  20. 160 : PSET P,KX,KY,KZ
  21. 165 : P=P+1
  22. 170 :NEXT
  23. 180 NEXT
  24. 190 PRINT" ICH ZIEHE DIE LINIEN."
  25. 195 P=0
  26. 196 GOSUB4000
  27. 200 FORH=2^TETO1STEP-1
  28. 210 :FORX=1TOH
  29. 220 : LSET L,P+X-1,P+X
  30. 225 : L=L+1
  31. 230 :NEXT
  32. 240 :P=P+H+1
  33. 250 NEXT:\
  34. 260 T=2^TE
  35. 270 FORX=0TOT-1
  36. 280 :FORY=1TOT-X
  37. 290 : LSET L,Y*(T+1-(Y-1)/2)+X,(Y-1)*(T+1-(Y-2)/2)+X
  38. 295 : L=L+1
  39. 300 :NEXT
  40. 310 NEXT:\
  41. 400 FORH=TTO1STEP-1
  42. 410 :FORY=HTO1STEP-1
  43. 420 : P=Y*(T+1-(Y-1)/2)+H-Y
  44. 430 : P1=(Y-1)*(T+1-(Y-2)/2)+H-Y+1
  45. 440 : LSET L,P,P1
  46. 445 : L=L+1
  47. 460 :NEXT
  48. 470 NEXT
  49. 1900 \:GOTO1900
  50. 1990 REM  ***************
  51. 2000 FORT=0TOTE-1
  52. 2010 V=Q(TE-T):H=Q(TE-T-1)
  53. 2020 FORX=0TOQ(T)-1
  54. 2030 FORY=0TOQ(T)-X-1
  55. 2040 M(X*V+H,Y*V)=(M(X*V,Y*V)+M((X+1)*V,Y*V))/2+FNR(T)
  56. 2050 M(X*V,Y*V+H)=(M(X*V,Y*V)+M(X*V,(Y+1)*V))/2+FNR(T)
  57. 2090 M(X*V+H,Y*V+H)=(M((X+1)*V,Y*V)+M(X*V,(Y+1)*V))/2+FNR(T)
  58. 2100 NEXTY,X,T
  59. 2110 RETURN
  60. 2600 REM ***********
  61. 4000 REM
  62. 4010 ANFSET 0,-100,0,0,0
  63. 4020 DWSET 20,0
  64. 4030 DELSET 0,0,0
  65. 4040 VIDEO 1,0,0
  66. 4060 PERSPSET-K*1,-K/2 :REM ENTFERNUNG
  67. 4070 MODSET1,1,1     :REM PERSP
  68. 4090 DREH
  69. 4100 RETURN
  70.