home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / LengthStretch.scr < prev    next >
Encoding:
Text File  |  1998-03-18  |  5.3 KB  |  411 lines
  1. ;---------------------------------------------
  2. ;File name: LengthStretch.SCR
  3. ;Purpose: Demonstrate Length and Stretch commands  
  4. ;
  5. ;Last Modified: 3/18/98
  6. ;---------------------------------------------
  7. CMDECHO
  8. 0
  9. PICKBOX
  10. 3
  11. APERTURE
  12. 10
  13. ;
  14. grid
  15. aspect
  16. 10
  17. 10
  18. ;Turn blips off
  19. blipmode
  20. off
  21. ; Setting all the other necessary system variables:
  22. vpoint
  23. 0,0,1
  24. elev
  25. 0
  26. 0
  27. gridmode
  28. 0
  29. fillmode
  30. 1
  31. snapmode
  32. 0
  33. linetype
  34. s
  35. bylayer
  36.  
  37. layer
  38. s
  39. 0
  40.  
  41. color
  42. bylayer
  43. ;draw the table
  44. color
  45. red
  46. grid
  47. on
  48. snap
  49. on
  50. snap
  51. 2
  52. limits
  53. 0,0
  54. 200,200
  55. zoom
  56. window
  57. 0,0
  58. 200,200
  59. ;-------------------------------------------
  60. ; BEGIN
  61. ;-------------------------------------------
  62. ;Erase anything that's already there.
  63. erase
  64. all
  65.  
  66. line
  67. 0.0000,200.0000,0.0000
  68. 200.0000,200.0000,0.0000
  69. 200.0000,2.0000,0.0000
  70. 0.0000,2.0000,0.0000
  71. 0.0000,200.0000,0.0000
  72.  
  73. offset
  74. 34
  75. 0.0000,80.0000,0.0000
  76. 24.0000,82.0000,0.0000
  77. 34.0000,76.0000,0.0000
  78. 66.0000,78.0000,0.0000
  79. 68.0000,74.0000,0.0000
  80. 98.0000,78.0000,0.0000
  81. 102.0000,76.0000,0.0000
  82. 134.0000,78.0000,0.0000
  83. 136.0000,74.0000,0.0000
  84. 174.0000,78.0000,0.0000
  85. 28.0000,200.0000,0.0000
  86. 28.0000,184.0000,0.0000
  87. 30.0000,166.0000,0.0000
  88. 30.0000,110.0000,0.0000
  89. 28.0000,132.0000,0.0000
  90. 28.0000,104.0000,0.0000
  91. 28.0000,98.0000,0.0000
  92. 28.0000,70.0000,0.0000
  93. 30.0000,64.0000,0.0000
  94. 30.0000,26.0000,0.0000
  95.  
  96. ;draw entities to lengthen 
  97. line
  98. 4.0000,194.0000
  99. 26.0000,194.0000
  100.  
  101. line
  102. 4.0000,158.0000
  103. 16.0000,158.0000
  104.  
  105. color
  106. yellow
  107. line
  108. 4.0000,124.0000
  109. 24.0000,124.0000
  110.  
  111. pline
  112. 4.0000,186.0000
  113. w
  114. 2
  115.  
  116. 26.0000,186.0000
  117.  
  118. pline
  119. 4.0000,150.0000
  120. w
  121. 2
  122.  
  123. 26.0000,150.0000
  124.  
  125. pline
  126. 4.0000,116.0000
  127. w
  128. 2
  129.  
  130. 24.0000,116.0000
  131.  
  132. arc
  133. 72.0000,174.0000
  134. 78.0000,186.0000
  135. 94.0000,192.0000
  136. arc
  137. 70.0000,140.0000
  138. 78.0000,152.0000
  139. 92.0000,158.0000
  140. arc
  141. 76.0000,102.0000
  142. 76.0000,116.0000
  143. 88.0000,126.0000
  144. text
  145. 4.0000,202.0000
  146. 3
  147. 0
  148. length line and pline
  149. text
  150. 72.0000,202.0000
  151. 3
  152. 0
  153. length arc
  154. ;start lengthening
  155. lengthen
  156. dy
  157. 18.0000,194.0000
  158. @44.0000,194.0000
  159. 24.0000,186.0000
  160. @58.0000,180.0000
  161.  
  162. text
  163. 18.0000,168.0000
  164. 3
  165. 0
  166. dynamic
  167. lengthen
  168. dy
  169. 88.0000,192.0000
  170. @112.0000,172.0000
  171.  
  172. ;draw some plines
  173. pline
  174. 6.0000,174.0000
  175. w
  176. 0
  177. 0
  178. 26.0000,182.0000
  179. 44.0000,172.0000
  180. 52.0000,176.0000
  181.  
  182. pline
  183. 6.0000,138.0000
  184. 26.0000,142.0000
  185. 46.0000,136.0000
  186. 60.0000,146.0000
  187.  
  188. pline
  189. 8.0000,104.0000
  190. 28.0000,110.0000
  191. 46.0000,106.0000
  192. 58.0000,118.0000
  193.  
  194. lengthen
  195. dy
  196. 46.0000,174.0000
  197. @82.0000,192.0000
  198.  
  199. zoom
  200. extents
  201. ;copy to the right
  202. copy
  203. 38.0000,176.0000
  204. 40.0000,188.0000
  205. 40.0000,194.0000
  206. 78.0000,186.0000
  207.  
  208. 44.0000,180.0000
  209. 128.0000,180.0000
  210. lengthen
  211. dy
  212. 126.0000,194.0000
  213. @98.0000,194.0000
  214. 140.0000,184.0000
  215. @112.0000,186.0000
  216. 138.0000,186.0000
  217. @140.0000,184.0000
  218. 164.0000,188.0000
  219. @150.0000,184.0000
  220. 142.0000,184.0000
  221. @160.0000,190.0000
  222. 192.0000,184.0000
  223. @158.0000,190.0000
  224. 92.0000,172.0000
  225. @100.0000,180.0000
  226. 152.0000,184.0000
  227. @156.0000,186.0000
  228. ;142.0000,182.0000
  229.  
  230. lengthen
  231. p
  232. 50
  233. 22.0000,124.0000
  234. 24.0000,116.0000
  235. 54.0000,116.0000
  236. 78.0000,118.0000
  237.  
  238. ;-----------------------need
  239. copy
  240. 78.0000,84.0000
  241. 54.0000,80.0000
  242. 20.0000,84.0000
  243. 18.0000,90.0000
  244.  
  245. 44.0000,76.0000
  246. 148.0000,112.0000
  247. zoom
  248. e
  249. lengthen
  250. p
  251. 150
  252. 128.0000,126.0000
  253. 126.0000,118.0000
  254. 160.0000,116.0000
  255. 180.0000,110.0000
  256. 178.0000,110.0000
  257. ;----------------------------------
  258. lengthen
  259. p
  260. 150
  261. 180.0000,108.0000
  262. ;------------------
  263. text
  264. 40.0000,124.0000
  265. 3
  266.  
  267. percent 50
  268. text
  269. 132.0000,98.0000
  270. 3
  271. 0
  272. percent 150
  273. copy
  274. 84.0000,90.0000
  275. 52.0000,78.0000
  276. 18.0000,80.0000
  277. 16.0000,90.0000
  278.  
  279. 30.0000,86.0000
  280. 30.0000,52.0000
  281. lengthen
  282. total
  283. 4.0000,90.0000
  284. 50.0000,90.0000
  285. 24.0000,90.0000
  286. 22.0000,82.0000
  287. 56.0000,84.0000
  288. 76.0000,78.0000
  289.  
  290. lengthen
  291. total
  292. 25
  293. 54.0000,44.0000
  294. 16.0000,46.0000
  295. 18.0000,56.0000
  296. 74.0000,46.0000
  297.  
  298. lengthen
  299. total
  300.  
  301. 78.0000,50.0000
  302. text
  303. 58.0000,90.0000
  304. 3
  305. 0
  306. total 46
  307. text
  308. 40.0000,56.0000
  309. 3
  310. 0
  311. total 25
  312. redraw
  313. rectang
  314. 98.0000,98.0000
  315. 198.0000,0.0000
  316. circle
  317. 106.0000,90.0000
  318. 108.0000,88.0000
  319. circle
  320. 116.0000,88.0000
  321. 124.0000,80.0000
  322. line
  323. 144.0000,92.0000
  324. 144.0000,42.0000
  325.  
  326. line
  327. 148.0000,90.0000
  328. 160.0000,90.0000
  329.  
  330. line
  331. 148.0000,84.0000
  332. 168.0000,84.0000
  333.  
  334. pline
  335. 108.0000,72.0000
  336. 126.0000,72.0000
  337. 106.0000,54.0000
  338. 126.0000,56.0000
  339.  
  340. pline
  341. 178.0000,94.0000
  342. 190.0000,76.0000
  343. 178.0000,80.0000
  344. 190.0000,48.0000
  345.  
  346. polygon
  347. 6
  348. 118.0000,20.0000
  349. i
  350. 130.0000,20.0000
  351. ellipse
  352. 146.0000,22.0000
  353. 160.0000,22.0000
  354. 154.0000,38.0000
  355. stretch
  356. 136.0000,94.0000,0.0000
  357. 100.0000,44.0000,0.0000
  358. 118.0000,62.0000,0.0000
  359. 118.0000,10.0000,0.0000
  360.  
  361. 170.0000,94.0000,0.0000
  362. 138.0000,74.0000,0.0000
  363. ;156.0000,80.0000,0.0000
  364. ;156.0000,58.0000,0.0000
  365.  
  366. 194.0000,96.0000,0.0000
  367. 174.0000,66.0000,0.0000
  368. 182.0000,78.0000,0.0000
  369. 182.0000,64.0000,0.0000
  370.  
  371. 114.0000,44.0000,0.0000
  372. 102.0000,32.0000,0.0000
  373.  
  374. 106.0000,40.0000,0.0000
  375. 104.0000,70.0000,0.0000
  376.  
  377. 138.0000,26.0000,0.0000
  378. 104.0000,2.0000,0.0000
  379. 132.0000,12.0000,0.0000
  380. 156.0000,14.0000,0.0000
  381.  
  382. 156.0000,14.0000,0.0000
  383. 160.0000,20.0000,0.0000
  384. stretch
  385. 130,46
  386. 164,22
  387.  
  388. 146,28
  389. 146,84
  390.  
  391. 156.0000,14.0000,0.0000
  392. 160.0000,20.0000,0.0000
  393. text
  394. 110,36
  395. 3
  396. 0
  397. stretch
  398. ;----------------------------------------------------------------------
  399. ;Now for the grand finale
  400. color green
  401. text
  402. 178,10,0
  403. 5
  404. 0
  405. Done!
  406. ;-----------------------------------------
  407. setvar
  408. cmdecho
  409. 0
  410. ;-----------------------------------------
  411.