home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 December / 64er_Magazin_87-12_1987_Markt__Technik_de_Side_A.d64 / demo1.zimmer (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  1.8 KB  |  93 lines
  1. 1 init
  2. 2 obj 33,36
  3. 3 m=150
  4. 5 rem          zimmer
  5. 50 data 0,0,0,  4,0,0,  4,2.5,0
  6. 60 data 0,2.5,0,0,0,5,  4,0,5
  7. 70 data 4,2.5,5,0,2.5,5
  8. 110 data 0,1,  1,2,  2,3,  3,0
  9. 120 data 0,4,  1,5,  2,6,  3,7
  10. 130 data 4,5,  5,6,  6,7,  7,4
  11. 190 rem        fenster
  12. 240 data 0,0,0,   1.5,0,0,    3,0,0
  13. 250 data 3,1.25,0,1.5,1.25,0, 0,1.25,0
  14. 290 data 0,2,  2,3,  3,5
  15. 300 data 5,0,  1,4
  16. 350 rem        sitzgruppe
  17. 440 data 0,0,0,     0,0,1
  18. 450 data 0,.75,0,   0,.75,1
  19. 460 data 2,.75,0,   1,0,1,    1,0,2.5
  20. 470 data 2,0,2.5,   2,.75,2.5,1,.75,2.5
  21. 480 data 1,.75,1,   0,1.5,0,  2,1.5,0
  22. 490 data 2,1.5,2.5
  23. 530 data 0,1,  1,5,  0,11, 1,3,  8,9
  24. 540 data 2,4,  4,8,  2,3,  3,10, 11,12
  25. 550 data 5,10, 5,6,  6,7,  6,9,  7,13
  26. 560 data 12,13,9,10
  27. 570 rem         tuer
  28. 620 data 0,0,0,  0,0,1,  0,2,1,  0,2,0
  29. 660 data 0,3, 2,3, 1,2
  30. 2010 rem zimmer
  31. 2020 fori=0to7:reada,b,c
  32. 2030 pset i,a*m,b*m,c*m
  33. 2040 next
  34. 2050 fori=0to11 :readg,h
  35. 2060 lset i,g,h
  36. 2070 next
  37. 2080 rem fenster
  38. 2090 p=8       :l=12
  39. 2100 x=.5*m :y=1*m :z=5*m
  40. 2110 fori=0to5:reada,b,c
  41. 2130 pset i+p,a*m+x,b*m+y,c*m+z
  42. 2140 next
  43. 2150 fori=0to4:readg,h
  44. 2160 lset i+l,g+p,h+p
  45. 2170 next
  46. 2180 rem sitzgruppe
  47. 2190 p=8+6      :l=12+5
  48. 2200 x=2*m :y=0 :z=0
  49. 2210 fori=0to13:read a,b,c
  50. 2230 pset i+p,a*m+x,b*m,c*m
  51. 2240 next
  52. 2250 dim sl(16,1)
  53. 2260 fori=0to16
  54. 2270 read sl(i,0),sl(i,1)
  55. 2280 next
  56. 2290 dim t(3,2),tl(2,1)
  57. 2300 fori=0to3
  58. 2310 read t(i,0),t(i,1),t(i,2)
  59. 2320 next
  60. 2330 fori=0to2
  61. 2340 read tl(i,0),tl(i,1)
  62. 2350 next
  63. 3080 rem tuer
  64. 3090 p=28:l=34
  65. 3100 x=0 :y=0 :z=.5*m
  66. 3110 fori=0to3
  67. 3130 pset i+p,t(i,0)*m,t(i,1)*m,t(i,2)*m+z
  68. 3140 next
  69. 3150 fori=0to2
  70. 3160 lset i+l,tl(i,0)+p,tl(i,1)+p
  71. 3170 next
  72. 3180 modset 1,1,1
  73. 3190 perspset 0,1*m
  74. 3200 anfset 256,-1,5*m,-1.5*m,-m
  75. 3210 dwset 0,0
  76. 3220 delset -8/30*m,0,0
  77. 3230 dreh
  78. 3240 p=8+6      :l=12+5
  79. 3250 x=2*m :y=0 :z=0
  80. 3255 fori=1to16:\:next
  81. 3260 fori=0to16
  82. 3270 lset i+l,sl(i,0)+p,sl(i,1)+p
  83. 3280 next:\
  84. 3285 dwset -20,0
  85. 3290 fori=1to13:\:next
  86. 3295 dwset -25,0
  87. 3300 delset 0,0,-.2*m
  88. 3330 fori=1to20:\:next
  89. 3400 dwset -6,-2
  90. 3410 delset .34*m,-.06*m,-.22*m
  91. 3420 fori=1to30:\:next
  92. 4000 run
  93.