home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 November / 64er_Magazin_85-11_1985_Markt__Technik_de.d64 / 3d-programm (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  121 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *   3d-grafik mittels hires-3   *
  4. 4 rem *                               *
  5. 5 rem *  heimo ponnath  hamburg 1985  *
  6. 6 rem *                               *
  7. 7 rem * hires-3 muss im speicher sein *
  8. 8 rem *********************************
  9. 9 rem
  10. 10 rem ++ initialisieren der grafik ++
  11. 15 rem
  12. 20 poke52,112:poke56,112:sys37498:goto60
  13. 25 rem
  14. 30 rem ++ up  cursor setzen ++++++++++
  15. 35 rem
  16. 40 poke211,sp:poke214,zl:sys58640:return
  17. 45 rem
  18. 50 rem +++ eingabe der 3d-funktion ++++
  19. 55 rem
  20. 60 printchr$(147):sys34647:poke646,14:zl=5:sp=5:gosub40
  21. 65 print"funktion im programm:"
  22. 70 k=1:gosub180:k=0
  23. 75 print:printtab(3)"y="f$:print
  24. 80 printtab(5)chr$(18)"a"chr$(146)"lte oder "chr$(18)"n"chr$(146)"eue funktion?
  25. 85 [161]a$:[139]a$[179][177]"a"[175]a$[179][177]"n"[167]85
  26. 90 [139]a$[178]"a"[167]140
  27. 95 [153][199](147):sp[178]3:zl[178]12:[141]40:[133]"y=";f$:[151]646,6
  28. 100 [153][199](147)[199](17)[199](17)"180f$="[199](34)f$[199](34)
  29. 105 [153]"190deffna(x)="f$
  30. 110 [153]"run140":[153][199](19);
  31. 115 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
  32. 120 [143]
  33. 125 [143] +++ neubeginn des programmes ++
  34. 130 [143] +++    falls neue funktion   ++
  35. 135 [143]
  36. 140 [153][199](147):[151]646,14
  37. 145 [143]
  38. 150 [143] +++ funktionen und variable +++
  39. 155 [143]
  40. 160 x[178]0:z[178]0:sp[178]0:zl[178]0:xu[178]0:xo[178]0:yu[178]0:yo[178]0:z3[178]0:z4[178]0:z5[178]0:z6[178]0:zu[178]0:zo[178]0
  41. 165 z1[178]0:z2[178]0:f1[178]1:f2[178]6:a[178]1:xa[178]0:xe[178]0:za[178]0:ze[178]0:dz[178]1:xt[178]0:xh[178]0:yt[178]0:yh[178]0:zz[178]1
  42. 170 [143]
  43. 175 a$[178]""
  44. 180 f$[178]"sin(x)*sin(z)"
  45. 185 [143]
  46. 190 [150][165]a(x)[178][191](x)[172][191](z)
  47. 195 [150][165]z(z)[178]z[173](2[172][186](2))
  48. 200 [139]k[178]1[167][142]
  49. 205 [143]
  50. 210 [143] ++ eingabe koordinatensystem ++
  51. 215 [143]
  52. 220 sp[178]1:zl[178]3:[141]40
  53. 225 [153][199](18)"unser system    :"[199](146):sp[178]7:zl[178]5:[141]40
  54. 230 [133]"xu,xo=";xu,xo:zl[178]6:[141]40:[133]"yu,yo=";yu,yo:sp[178]9:zl[178]8:[141]40
  55. 235 z3[178]2[172]xo[172][186](2):z4[178]2[172]yo[172][186](2):[139]z3[179]z4[167][153]"zo maximal="z3:[137]245
  56. 240 [153]"zo maximal="z4
  57. 245 sp[178]9:zl[178]10:[141]40
  58. 250 z5[178]2[172]xu[172][186](2):z6[178]2[172]yu[172][186](2):[139]z5[177]z6[167][153]"zu minimal="z5:[137]260
  59. 255 [153]"zu minimal="z6
  60. 260 sp[178]7:zl[178]12:[141]40:[133]"zu,zo=";zu,zo:z1[178][165]z(zo):z2[178][165]z(zu)
  61. 265 [139]z1[177]xo[176]z1[177]yo[167]235
  62. 270 [139]z2[179]xu[176]z2[179]yu[167]235
  63. 275 [143]
  64. 280 [143] +++ eingabe zeichenparameter ++
  65. 285 [143]
  66. 290 zl[178]14:sp[178]1:[141]40:[153][199](18)"unsere zeichnung:"[199](146)
  67. 295 zl[178]16:sp[178]3:[141]40:[133]"zeichen- und hintergrundfarbe=";f1,f2
  68. 300 zl[178]18:sp[178]7:[141]40:[133]"schrittweite von z=";a
  69. 305 zl[178]20:[141]40:[133]"x-bereich xa,xe=";xa,xe
  70. 310 zl[178]21:[141]40:[133]"z-bereich za,ze=";za,ze
  71. 315 [143]
  72. 320 [143] +++       zeichnen        +++
  73. 325 [143]
  74. 330 dz[178]a[173]2:xt[178]xu:xh[178]xo:yt[178]yu:yh[178]yo
  75. 335 hfl,f1,f2:trs,xu,xo,yu,yo
  76. 340 [143]
  77. 345 [143] ----- koordinatenkreuz ------
  78. 350 [143]
  79. 355 tln,xu,0,xo,0:tln,0,yu,0,yo:tln,z2,z2,z1,z1
  80. 360 [143]
  81. 365 [143] -----    z-schleife    ------
  82. 370 [143]
  83. 375 [129]z[178]za[164]ze[169]dz:zz[178][165]z(dz):xt[178]xt[171]zz:xh[178]xh[171]zz:yt[178]yt[171]zz:yh[178]yh[171]zz
  84. 380 trs,xt,xh,yt,yh
  85. 385 funkt,a,xa,xe
  86. 390 [130]z
  87. 395 tex,"y="[170]f$,0,3
  88. 400 [143]
  89. 405 [143] ----- zeichnung fertig ------
  90. 410 [143]
  91. 415 [161]a$:[139]a$[178]""[167]415
  92. 420 hof
  93. 425 [143]
  94. 430 [143] +++++     menue        ++++++
  95. 435 [143]
  96. 440 zl[178]23:sp[178]1:[141]40
  97. 445 [153][199](18)"e"[199](146)"nde    "[199](18)"g"[199](146)"rafik"
  98. 450 zl[178]23:sp[178]18:[141]40
  99. 455 [153][199](18)"n"[199](146)"eu     "[199](18)"d"[199](146)"rucken"
  100. 460 [161]a$:[139]a$[179][177]"e"[175]a$[179][177]"g"[175]a$[179][177]"n"[175]a$[179][177]"d"[167]460
  101. 465 [143]
  102. 470 [143] -------- option grafik -------
  103. 475 [143]
  104. 480 [139]a$[178]"g"[167]:han:[151]198,0:[146]198,1:hof:[137]460
  105. 485 [143]
  106. 490 [143] -------- option drucken ------
  107. 495 [143]
  108. 500 [139]a$[178]"d"[167]:han:[159]1,4,10:[152]1:[160]1:[158]34865:hof
  109. 505 [139]a$[178]"d"[167][159]1,4:[152]1:[152]1,"xu="xu,"xo="xo,"yu="yu,"yo="yo
  110. 510 [139]a$[178]"d"[167][152]1,"zu="zu,"zo="zo,"a="a
  111. 515 [139]a$[178]"d"[167][152]1,"xa="xa,"xe="xe,"za="za,"ze="ze:[152]1:[160]1:[137]460
  112. 520 [143]
  113. 525 [143] --- option neue zeichnung ----
  114. 530 [143]
  115. 535 [139]a$[178]"n"[167][138]
  116. 540 [143]
  117. 545 [143] ---  option programmende  ----
  118. 550 [143]
  119. 555 [128]
  120. 560 [143] ********* das wars ! **********
  121.