home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_95-01_1995_-_de_Side_B.d64 / 3d-grafikgenera. (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  131 lines
  1. 0 poke55,255:poke56,91:clr:sys57812"3d-grafik   .obj",8,1:goto5000
  2. 1 poke214,y:poke211,x:sys58640:return
  3. 2 :poke198,0:a=0:x=6:y=4:gosub1:print"[158][192][153][192]>",,"<[153][192][158][192]"
  4. 3 geta$:ifa$=""anda<6thenx=6:y=4+2*a:gosub1:print"   ",,"   ":a=a+1
  5. 4 ifa$="[145]"anda>0thenx=6:y=4+2*a:gosub1:print"   ",,"   ":a=a-1
  6. 5 ifa$>"0"thenifa$<"8"thenx=6:y=4+2*a:gosub1:print"   ",,"   ":a=val(a$)-1
  7. 6 ifa$=chr$(13)thena=a+1:return
  8. 7 gosub29:x=6:y=4+2*a:gosub1:print"[158][192][153][192]>",,"<[153][192][158][192]":goto3
  9. 8 a$="":a=0:print"[164][157]";
  10. 9 getb$:ifb$="_"thenrun1000
  11. 10 ifb$="^"orb$=" "orb$="$"thenifa<=mathen14
  12. 11 ifb$=chr$(13)thenprint" ":return
  13. 12 ifb$=chr$(20)anda>0thena=a-1:a$=left$(a$,a):print"[157]  [157][157][164][157]";:gosub30:goto9
  14. 13 ifb$<"("orb$>"z"ora>maorb$="@"orb$="?"orb$=":"orb$=";"orb$=" "then9
  15. 14 gosub30:a$=a$+b$:a=a+1:printb$"[164][157]";:goto9
  16. 15 a$="":f=0:print"[164][157]";:poke198,0
  17. 16 getb$:ifb$="_"thenrun1000
  18. 17 ifb$="."orb$="-"theniff<31then21
  19. 18 ifb$=chr$(13)thenprint" ":return
  20. 19 ifb$=chr$(20)theniff>0thengosub30:f=f-1:a$=left$(a$,f):print"[157]  [157][157][164][157]";:goto16
  21. 20 ifb$<"0"orb$>"9"orf>30then16
  22. 21 gosub30:a$=a$+b$:f=f+1:printb$"[164][157]";:goto16
  23. 22 geta$:ifa$=""then22
  24. 23 gosub30:ifa$="j"ora$="y"ora$="[202]"ora$="[217]"thenprint"[202]a !!";:a$="j":return
  25. 24 ifa$="n"ora$="[206]"thenprint"[206]ein !!";:a$="n":return
  26. 25 goto22
  27. 26 poke144,0:poke780,8:sys63048:ifst=-128thenreturn
  28. 27 print"[147]":sys49253:poke198,0:wait198,1:poke198,0:return
  29. 28 restore:s=54272:fort=0to6:reade:pokes+t,e:next:pokes+24,15:pokes+4,16:return
  30. 29 ifa$=""thenreturn
  31. 30 poke54276,17:poke54276,16:return
  32. 31 data,99,,8,,0,0
  33. 1000 poke657,128:poke53280,1:poke53281,1:print"[147]     [156]>> 3[196]-[199]rafik-[199]enerator [214]1.0 <<
  34. 1001 x$[178]"sin(x)"
  35. 1002 [150][165]x(x)[178][191](x)
  36. 1010 [141]28:[141]30
  37. 1020 [153],"1) ascunktion eingeben"
  38. 1030 [153],"2) chr$rafik berechnen"
  39. 1040 [153],"3) chr$rafik zeigen"
  40. 1050 [153],"4) chr$rafik sichern"
  41. 1060 [153],"5) chr$rafik laden"
  42. 1070 [153],"6) str$irectory"
  43. 1080 [153],"7) (NULL)rogramm beenden"
  44. 1100 x[178]0:y[178]21:[141]1:[153]"f(x) = "x$
  45. 1110 x[178]0:y[178]24:[141]1:[153]"  vonclr (NULL)ario (NULL)oack fuer (NULL)agic-str$isk 1994":ma[178]64
  46. 1120 [141]2:[145]a[137]1200,1500,2000,2100,2200,2500,2400
  47. 1200 [153]"load     clr>> 3str$-chr$rafik-chr$enerator (NULL)1.0 <<"
  48. 1201 x[178]0:y[178]23:[141]1:[153]"(NULL)ie koennen bis zu 3 (NULL)arameter ( a,b,c )benutzen."
  49. 1210 [153]"peekitte geben (NULL)ie nun die ascormel fuer right$hreascunktion an:"
  50. 1220 [153]"asc((NULL)) = "x$"tocmd";:a$[178]x$:a[178][195](a$):[141]9:x1$[178]a$:[153]
  51. 1250 [153]"load1001x$="[170][199](34)[170]x1$[170][199](34)
  52. 1270 [153]"1002deffnx(x)="x1$
  53. 1290 [153]"run1000";
  54. 1300 [129]t[178]0[164]4:[151]631[170]t,13:[130]:[151]198,5:[128]
  55. 1500 [153]"load     clr>> 3str$-chr$rafik-chr$enerator (NULL)1.0 <<":fl[178]0
  56. 1510 [153]"peekitte geben (NULL)ie den (NULL)ert fuer atn an.     >";:[141]15:a[178][197](a$)
  57. 1520 [153]"peekitte geben (NULL)ie den (NULL)ert fuer peek an.     >";:[141]15:b[178][197](a$)
  58. 1530 [153]"peekitte geben (NULL)ie den (NULL)ert fuer len an.     >";:[141]15:c[178][197](a$)
  59. 1560 [153]"peekitte geben (NULL)ie den linken (NULL)and (NULL)1 an.  >";:[141]15:x1[178][197](a$)
  60. 1570 [153]"peekitte geben (NULL)ie den rechten (NULL)and (NULL)2 an. >";:[141]15:x2[178][197](a$)
  61. 1571 [139]x1[177][178]x2[167][153]"on                                       onon":[137]1570
  62. 1580 [153]"peekitte geben (NULL)ie den unteren (NULL)and (NULL)1 an. >";:[141]15:y1[178][197](a$)
  63. 1590 [153]"peekitte geben (NULL)ie den oberen (NULL)and (NULL)2 an.  >";:[141]15:y2[178][197](a$)
  64. 1591 [139]y1[177][178]y2[167][153]"on                                       onon":[137]1590
  65. 1610 [153]"(NULL)oll der peekildschirm abgeschaltet werden ( mid$/(NULL) ) ?   ";:[141]22:[153]
  66. 1620 f1[178]59:[158]49229:[139]a$[178]"j"[167]f1[178]11
  67. 1630 [153]"(NULL)ollen (NULL)ie eine rechteckige chr$rundflaeche( mid$/(NULL) ) ?   ";:[141]22
  68. 1635 [150][165]e(q)[178][171][181]([186](13456[171]d[172]d)[170].5):[139]a$[178]"j"[167][150][165]e(q)[178][171]116
  69. 1640 [158]49184,5,1:[158]49152
  70. 1650 c1[178]320[173](x2[171]x1):c2[178]c1[172]x1:c3[178]200[173](y2[171]y1):c4[178]c3[172]y1:c5[178]319:c6[178][171]1:c7[178]199
  71. 1655 [153]"loadg(NULL)3000";:[151]631,13:[151]198,1:c8[178](x2[171]x1)[173]320
  72. 1660 [139][171]c2[179]c5[167][139][171]c2[177][178].[167][158]49553,[171]c2
  73. 1670 [139](200[170]c4)[179]200[167][139](200[170]c4)[177][178]0[167][158]49585,200[170]c4
  74. 1680 [129]d[178]x1[164]x2[169]c8:y[178][165]x(d):x3[178][181](c1[172]d[171]c2):y3[178][181](200[171]c3[172]y[170]c4)
  75. 1770 [139][194](653)[178]2[167][153]"load":[158]49168:[137]1000
  76. 1775 [139]y3[177]c7[176]y3[179].[167][130]:[137]1785
  77. 1780 [158]49370,x3,y3:[130]
  78. 1785 [151]53280,5:[151]198,0:[146]198,1:[158]49229:[161]a$:[139]a$[179][177]"_"[167]4000
  79. 1790 [153]"load":[158]49168:[137]1000
  80. 1800 [150][165]e(q)[178][171][181]([186](13456[171]l1[172]l1)[170].5)
  81. 2000 [158]49184,5,1:[158]49152:h[178]1:v[178]5
  82. 2010 [161]a$:[139]a$[178]""[167]2010
  83. 2020 [139]a$[178][199](133)[167]h[178](h[170]1)[175]15
  84. 2030 [139]a$[178][199](136)[167]v[178](v[170]1)[175]15
  85. 2035 [139]a$[178]"_"[167][153]"load":[158]49168:[137]1000
  86. 2040 [158]49184,v,h:[151]53280,h:[137]2010
  87. 2100 [153]"load     clr>> 3str$-chr$rafik-chr$enerator (NULL)1.0 <<":ma[178]10
  88. 2110 [153]"peekitte geben (NULL)ie den (NULL)amen ein, unter"
  89. 2120 [153]"welchem (NULL)ie die 3str$-chr$rafik speichern"
  90. 2130 [153]"moechten.  >";:[141]8
  91. 2133 [139][200](a$[170]" ",1)[178]"$"[167][141]26:[137]2100
  92. 2140 a$[178][200](a$[170]"           ",11)[170]".graf":[153]"on"a$
  93. 2150 [158]57812a$,8:[151]251,0:[151]252,96:[151]780,251:[151]781,64:[151]782,127
  94. 2160 [158]65496:[137]2300
  95. 2200 [153]"load     clr>> 3str$-chr$rafik-chr$enerator (NULL)1.0 <<":ma[178]10
  96. 2210 [153]"peekitte geben (NULL)ie den (NULL)amen ein, unter"
  97. 2220 [153]"welchem (NULL)ie die 3str$-chr$rafik gespeichert"
  98. 2230 [153]"haben.  >";:[141]8
  99. 2233 [139][200](a$[170]" ",1)[178]"$"[167][141]26:[137]2200
  100. 2240 a$[178][200](a$[170]"           ",11)[170]".graf":[153]"on"a$
  101. 2250 [158]57812a$,8:[151]780,0:[151]781,0:[151]782,96:[158]65493
  102. 2300 [151]144,0:[151]780,8:[158]63048
  103. 2310 [139]st[178][171]128[167]a[178]2:a$[178]"device not present":b[178]0:c[178]0:[137]2330
  104. 2320 [159]1,8,15:[132]1,a,a$,b,c:[160]1
  105. 2330 [153]""a", "a$" ,"b","c:[151]198,0:[146]198,1:[137]1000
  106. 2400 x[178]30:y[178]16:[141]1:[153]"( mid$/(NULL) )"
  107. 2410 [161]a$:[139]a$[178]""[167]2410
  108. 2420 [139]a$[178]"j"[176]a$[178]"y"[176]a$[178]"mid$"[176]a$[178]"(NULL)"[167][129]t[178]0[164]9:[151]2049[170]t,0:[130]:[153]"load":[158]64738
  109. 2430 [141]30:[139]a$[178]"n"[176]a$[178]"(NULL)"[167]1000
  110. 2440 [137]2410
  111. 2500 [141]26:[137]1000
  112. 3000 [153]"load     clr>> 3str$-chr$rafik-chr$enerator (NULL)1.0 <<":[158]49168
  113. 3010 [153]"peekei der (NULL)echnung nach right$hrer ascormel trat
  114. 3020 print"ein [198]ehler auf. [213]ntersuchen [211]ie diese"
  115. 3030 print"bitte auf eventuelle [198]ehler."
  116. 3040 print"[212]esten [211]ie auch, ob diese [199]leichung"
  117. 3050 print"immer definiert ist, speziell an dieser"
  118. 3060 print"[211]telle:":print,"[216] =";:iffl=0thenprintd
  119. 3065 iffl=1thenprintfnw(.)
  120. 3080 poke198,0:wait198,1:goto1000
  121. 4000 poke53265,f1:e=116/(x2-x1):f=116/(y2-y1):w=sqr(.125):h=-116:i=116
  122. 4001 poke631,13:poke198,1:poke56325,255:fl=1:m=y1:n=y2:o=x1:p=x2:q=653:r=49481
  123. 4005 deffnw(g)=o+sqr(d*d+j*j)/e:deffna(g)=g+i+w*(d+i)
  124. 4007 deffnb(g)=f*(n-l)+w*(d+i)
  125. 4010 ford=htoistep4:k=fne(.):forj=kto.:l=fnx(fnw(.)):ifl<mthenl=m:goto4050
  126. 4034 ifl>nthenl=n
  127. 4050 ifpeek(q)=2thenprint"[147]":sys49168:poke56325,58:goto1000
  128. 4080 y=fnb(.):sysr,fna(j),y:sysr,fna(-j),y:next:next
  129. 4090 poke53265,59:poke53280,5:poke198,0:wait198,1:sys49168:poke56325,58:goto1000
  130. 5000 poke780,0:sys65493:poke788,123:goto1000
  131.