home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / XmasTree.scr < prev   
Encoding:
Text File  |  1998-03-18  |  2.1 KB  |  278 lines
  1. ;---------------------------------------------
  2. ;File name: XmasTree.SCR
  3. ;Purpose: Demonstrate 3D Entities 
  4. ;
  5. ;Last Modified: 3/18/98
  6. ;---------------------------------------------
  7. CMDECHO
  8. 0
  9. PICKBOX
  10. 3
  11. APERTURE
  12. 10
  13. ; Erase anything that's there already.
  14. ;
  15. erase
  16. all
  17.  
  18. ; Turn blips off
  19. blipmode
  20. off
  21. ; Set the current layer to zero.
  22. layer
  23. s
  24. 0
  25.  
  26. color
  27. bylayer
  28. ; Setting all the other necessary system variables:
  29. vpoint
  30. 0,0,1
  31. ; Zoom to a big window.
  32. zoom
  33. w
  34. -5,-5
  35. @150<45
  36. elev
  37. 0
  38. 0
  39. gridmode
  40. 0
  41. fillmode
  42. 1
  43. snapmode
  44. 0
  45. linetype
  46. s
  47. bylayer
  48.  
  49. ; Look at the whole scene from just below the SouthWest Isometric Viewpoint.
  50. vpoint
  51. -1,-1,.7
  52. ; Draw everything in continuous lines.
  53. linetype
  54. s
  55. continuous
  56.  
  57. layer
  58. m
  59. floor
  60. c
  61. blue
  62.  
  63.  
  64. pface
  65. 0,0
  66. 0,100
  67. 100,100
  68. 100,0
  69.  
  70. 1
  71. 2
  72. 3
  73. 4
  74.  
  75.  
  76. layer
  77. m
  78. skirt
  79. c
  80. white
  81.  
  82.  
  83. circle
  84. 50,50,.5
  85. 20
  86. line
  87. ;----------reverse line points (dc)
  88. 75,50,.5
  89. 70,50,.5
  90.  
  91. ;-------------------------------------
  92. zoom
  93. e
  94. 3darray
  95. 75,50,.5
  96.  
  97. p
  98. 100
  99. 360
  100. y
  101. 50,50,.5
  102. 50,50,0
  103. layer
  104. m
  105. tree
  106. c
  107. green
  108.  
  109.  
  110. 3d
  111. cone
  112. 50,50,0
  113. 3
  114. 3
  115. 15
  116. 16
  117. 3d
  118. cone
  119. 50,50,15
  120. 20
  121. 12
  122. 5
  123. 64
  124. 3d
  125. cone
  126. 50,50,20
  127. 18
  128. 10
  129. 7
  130. 64
  131. 3d
  132. cone
  133. 50,50,27
  134. 15
  135. 8
  136. 10
  137. 32
  138. 3d
  139. cone
  140. 50,50,37
  141. 12
  142. 6
  143. 10
  144. 32
  145. 3d
  146. cone
  147. 50,50,47
  148. 10
  149. 0
  150. 15
  151. 64
  152. layer
  153. m
  154. ornaments
  155. c
  156. yellow
  157.  
  158. off
  159. tree,floor
  160.  
  161. ZOOM
  162. E
  163. 3d
  164. sphere
  165. 50,50,65
  166. 3
  167. 16
  168. 16
  169. 3d
  170. sphere
  171. 50,30,13
  172. 2
  173. 8
  174. 8
  175. 3darray
  176. 50,30,11
  177.  
  178. p
  179. 10
  180. 360
  181. n
  182. 50,50,13
  183. 50,50,0
  184. 3d
  185. sphere
  186. 50,32,19
  187. 1
  188. 6
  189. 6
  190. 3darray
  191. 50,32,18
  192.  
  193. p
  194. 12
  195. 360
  196. n
  197. 50,50,19
  198. 50,50,0
  199. 3d
  200. sphere
  201. 50,35,25
  202. 2
  203. 8
  204. 8
  205. 3darray
  206. 50,35,23
  207.  
  208. p
  209. 8
  210. 360
  211. n
  212. 50,50,25
  213. 50,50,0
  214. 3d
  215. sphere
  216. 50,38,36
  217. 1
  218. 6
  219. 6
  220. 3darray
  221. 50,38,35
  222.  
  223. p
  224. 10
  225. 360
  226. n
  227. 50,50,36
  228. 50,50,0
  229. 3d
  230. sphere
  231. 50,40,46
  232. .7
  233. 4
  234. 4
  235. ZOOM
  236. 0.5X
  237. 3darray
  238. 50,40,45
  239.  
  240. p
  241. 12
  242. 360
  243. n
  244. 50,50,46
  245. 50,50,0
  246. layer
  247. m
  248. presents
  249. c
  250. red
  251.  
  252.  
  253. box
  254. 40,40,1
  255. 35,32,0
  256.  
  257. 50,40,1
  258. 65,45,7
  259.  
  260. 30,58,1
  261. 60,75,5
  262. ; Show what we have.
  263. layer
  264. on
  265. *
  266.  
  267. hide
  268. zoom
  269. e
  270. ;----------------------------------------------------------------------
  271. ;Now for the grand finale
  272. text
  273. 75,29,0
  274. 5
  275.  
  276. Done!
  277. ;----------------------------------------------------------------------
  278.