home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Install / Data.Z / View.scr < prev    next >
Encoding:
Text File  |  1998-03-18  |  2.6 KB  |  276 lines
  1. ;---------------------------------------------
  2. ;File name: View.SCR
  3. ;Purpose: Demonstrate Views, Zooming and Panning 
  4. ;
  5. ;Last Modified: 3/18/98
  6. ;---------------------------------------------
  7. CMDECHO
  8. 0
  9. PICKBOX
  10. 3
  11. APERTURE
  12. 10
  13. ;-------------------------------------------------------------------
  14. ; Erase anything that's there already.
  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. ; Set the viewpoint to just normal, before we mess it up.
  29. vpoint
  30. 0,0,0
  31. ; Zoom to a window bigger than 100 x 100 (if it were square).
  32. zoom
  33. w
  34. -20,-3
  35. @150<45
  36. ; Setting all the other necessary system variables:
  37. vpoint
  38. 0,0,1
  39. elev
  40. 0
  41. 0
  42. gridmode
  43. 0
  44. fillmode
  45. 1
  46. snapmode
  47. 0
  48. linetype
  49. s
  50. bylayer
  51.  
  52. linetype
  53. s
  54. continuous
  55.  
  56. ; Draw a grid of six 50 x 50 squares.
  57. line
  58. 0,0
  59. 0,100
  60. 150,100
  61. 150,0
  62. 0,0
  63.  
  64. line
  65. 0,50
  66. 150,50
  67.  
  68. line
  69. 50,0
  70. 50,100
  71.  
  72. line
  73. 100,0
  74. 100,100
  75.  
  76. layer
  77. m
  78. redview
  79. c
  80. red
  81.  
  82.  
  83. ; After drawing the grid, draw a number 1 right in the middle.
  84. text
  85. 75,50
  86. 10
  87. 0
  88. 1
  89. ; Save this view as "test1"
  90. view
  91. s
  92. test1
  93. ; Wait, so people can see what's happening.
  94. delay
  95. 1000
  96. ; Move 100 units to the right, draw a number 2, save as "test2", wait.
  97. pan
  98. 100,50
  99. 0,50
  100. text
  101. 175,50
  102. 10
  103. 0
  104. 2
  105. view
  106. s
  107. test2
  108. delay
  109. 1000
  110. ; Zoom to the lower-left corner, draw a 3, save the view, wait.
  111. zoom
  112. window
  113. -1,-1,0
  114. 9,9
  115. text
  116. 4,4
  117. 1
  118. 0
  119. 3
  120. view
  121. save
  122. test3
  123. delay
  124. 1000
  125. ; Specify a view by Windowing, go to it, draw a 4, wait, return.
  126. view
  127. w
  128. test4
  129. 45,45
  130. 55,55
  131. view
  132. r
  133. test4
  134. text
  135. 50,50
  136. 1
  137. 0
  138. 4
  139. delay
  140. 1000
  141. ; Go back to the previous views, in reverse order.
  142. view
  143. r
  144. test3
  145. delay
  146. 100
  147. view
  148. r
  149. test2
  150. delay
  151. 100
  152. view
  153. r
  154. test1
  155. delay
  156. 100
  157. ; Delete some of the views saved so far, first one, then a bunch at one time.
  158. view
  159. delete
  160. test2
  161. view
  162. delete
  163. test3
  164. view
  165. delete
  166. test4
  167. ; Change the viewpoints in 3D, and save some of them.
  168. vpoint
  169. -1,-1,1
  170. view
  171. s
  172. 3dview1
  173. delay
  174. 1000
  175. zoom
  176. .5x
  177. view
  178. s
  179. 3dview2
  180. delay
  181. 1000
  182. view
  183. restore
  184. 3dview1
  185. delay
  186. 100
  187. vpoint
  188. 1,1,1
  189. delay
  190. 100
  191. vpoint
  192. 1,5,1
  193. delay
  194. 100
  195. vpoint
  196. 1,10,1
  197. delay
  198. 100
  199. view
  200. restore
  201. test1
  202. delay
  203. 1000
  204. ; Change the viewpoint by rotating.
  205. vpoint
  206. rotate
  207. 30
  208. 10
  209. view
  210. save
  211. rotate1
  212. vpoint
  213. rotate
  214. 40
  215. 20
  216. view
  217. save
  218. rotate2
  219. vpoint
  220. rotate
  221. 50
  222. 30
  223. view
  224. save
  225. rotate3
  226. vpoint
  227. rotate
  228. 60
  229. 40
  230. view
  231. save
  232. rotate4
  233. vpoint
  234. rotate
  235. 70
  236. 50
  237. view
  238. save
  239. rotate5
  240. vpoint
  241. rotate
  242. 80
  243. 60
  244. view
  245. save
  246. rotate6
  247. delay
  248. 1000
  249. view
  250. restore
  251. rotate1
  252. view
  253. restore
  254. rotate2
  255. view
  256. restore
  257. rotate3
  258. view
  259. restore
  260. rotate4
  261. view
  262. restore
  263. rotate5
  264. view
  265. restore
  266. rotate6
  267. ; finish script with text
  268. text
  269. 165,-3
  270. 15
  271. 180
  272. Done!
  273. setvar
  274. cmdecho
  275. 0
  276.