home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / PEllipse.scr < prev    next >
Encoding:
Text File  |  1998-03-18  |  8.3 KB  |  760 lines
  1. ;---------------------------------------------
  2. ;File name: PEllipse.SCR
  3. ;Purpose: Demonstrate Pellipses and options 
  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. ; Setting all the other necessary system variables:
  29. vpoint
  30. 0,0,1
  31. ; Zoom to a window at least 100 x 100 (if it were square).
  32. zoom
  33. c
  34. 100,100
  35. 220
  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. ; Draw a white grid for reference
  50. layer
  51. m
  52. redarcs
  53. c
  54. white
  55.  
  56.  
  57. line
  58. 0,0
  59. 0,200
  60. 200,200
  61. 200,0
  62. 0,0
  63.  
  64. line
  65. 0,50
  66. 200,50
  67.  
  68. line
  69. 0,100
  70. 200,100
  71.  
  72. line
  73. 0,150
  74. 200,150
  75.  
  76. line
  77. 50,0
  78. 50,200
  79.  
  80. line
  81. 100,0
  82. 100,200
  83.  
  84. line
  85. 150,0
  86. 150,200
  87.  
  88. ; this is where plus! grid starts
  89. line
  90. -0,-10
  91. 200,-10
  92.  
  93. line
  94. -0,-110
  95. 200,-110
  96.  
  97. line
  98. 50,-10
  99. 50,-110
  100.  
  101. line
  102. 100,-10
  103. 100,-110
  104.  
  105. line
  106. 150,-10
  107. 150,-110
  108.  
  109. line
  110. 0,-10
  111. 0,-110
  112.  
  113. line
  114. 200,-10
  115. 200,-110
  116.  
  117. line
  118. 0,-60
  119. 200,-60
  120.  
  121. layer
  122. s
  123. 0
  124.  
  125. ;1st ellipses start here
  126. ;command by picking points
  127. color
  128. white
  129. TEXT
  130. -39.8278,169.2913
  131. 3
  132. 0
  133. P-ELLIPSE
  134. color
  135. red
  136. text
  137. 3.4252,194.8425
  138. 2
  139.  
  140. 1) pellipse
  141. pellipse
  142. 1
  143. color
  144. red
  145. ellipse
  146. 17.3316,170.4136
  147. 32.6212,178.5081
  148. 38.5572,181.5660
  149. color
  150. cyan
  151. ellipse
  152. 9.4170,169.8739
  153. 44.8529,181.5660
  154. 27.0450,180.8465
  155. color
  156. green
  157. ellipse
  158. 24.7066,175.4502
  159. 27.5847,177.9684
  160. 25.0664,174.9105
  161. text
  162. 53.2283,194.4094
  163.  
  164.  
  165. 2) rotate pellipse
  166. color
  167. blue
  168. ellipse
  169. 66.9779,168.4349
  170. 83.7066,181.3861
  171. 72.5541,176.7093
  172. rotate
  173. 77.2310,172.5721
  174. 78.3102,172.9319
  175. 77.5907,172.9319
  176. 77.7706,172.9319
  177.  
  178. 66.4383,177.2489
  179. 70.3956,173.1117
  180. color
  181. white
  182. ellipse
  183. 82.6273,181.3861
  184. 76.1517,178.8678
  185. 81.0084,171.4928
  186. color
  187. green
  188. ellipse
  189. 84.6060,162.4989
  190. 77.5907,157.4624
  191. 85.5053,159.8008
  192. rotate
  193. 84.9657,160.8800
  194.  
  195. 85.6852,163.5782
  196. 81.9078,163.2185
  197. color
  198. red
  199. text
  200. 104.3307,194.4094
  201.  
  202.  
  203. 3) copy pellipse
  204. color
  205. red
  206. ellipse
  207. c
  208. 120.5366,185.7032
  209. 129.3506,185.7032
  210. 124.8536,186.4227
  211. copy
  212. 121.2561,181.3861
  213.  
  214. 111.7225,182.1056
  215. 111.7225,176.7093
  216. copy
  217. 124.3140,176.5294
  218.  
  219. mult
  220. 111.9024,175.6300
  221. 112.0823,170.2337
  222. 112.0823,165.1971
  223. 112.0823,160.7002
  224. 112.2622,154.5843
  225. 121.6158,177.9684
  226. 122.3353,158.1819
  227.  
  228. color
  229. magenta
  230. text
  231. 156.2932,195.2083
  232.  
  233. 0
  234. 4) offset pellipse
  235. pellipse
  236. 1
  237. color
  238. red
  239. ellipse
  240. 173.1890,173.3189
  241. 176.8701,175.9173
  242. 177.7362,177.8661
  243. offset
  244. 174.9213,174.8346
  245. 165.8268,170.9370
  246. 173.6220,173.1024
  247. 176.2205,164.6575
  248.  
  249. ; scale command
  250. text
  251. 3.4252,144.6063
  252.  
  253.  
  254. 5) scale pellipse
  255. color
  256. yellow
  257. ellipse
  258. c
  259. 23.0758,123.8622
  260. 24.3750,129.0591
  261. 22.4262,129.0591
  262. color
  263. green
  264. ellipse
  265. 12.4656,124.2953
  266. 34.1191,124.5118
  267. 31.9537,122.5630
  268. scale
  269. 27.8396,123.2126
  270. 33.9026,122.7795
  271.  
  272. 22.4262,137.7205
  273. 22.2096,139.2362
  274. color
  275. blue
  276. ; this is where I test the stretch command 
  277. text
  278. 53.2283,143.7402
  279.  
  280.  
  281. 6) stretch pellipse
  282. color
  283. red
  284. ellipse
  285. 62.2687,126.8937
  286. 63.1348,116.9331
  287. 62.9183,116.9331
  288. color
  289. white
  290. ellipse
  291. 68.7648,130.7913
  292. 69.1978,117.5827
  293. 68.5482,118.2323
  294. stretch
  295. 76.7766,117.3661
  296. 57.0719,127.5433
  297.  
  298. 62.7018,119.5315
  299. 82.6230,111.0866
  300.  
  301.  
  302. ; this is where mirror testing starts
  303. text
  304. 104.7638,143.7402
  305.  
  306.  
  307. 7) trim pellipse
  308. color
  309. yellow
  310. ellipse
  311. 110.7185,125.5945
  312. 122.1949,125.5945
  313. 123.4941,125.5945
  314.  
  315. 120.0295,125.3780
  316. 131.5059,125.3780
  317. 124.5768,132.3071
  318. color
  319. cyan
  320. ellipse
  321. 120.8957,123.8622
  322. 121.3287,111.5197
  323. 121.5453,111.7362
  324. color
  325. white
  326. text
  327. 154.9459,144.4331
  328.  
  329.  
  330. 8) pellipse array
  331. color
  332. yellow
  333. ellipse
  334. 177.4114,126.5906
  335. 189.7539,126.5906
  336. 192.7854,127.2402
  337. array
  338. 189.5374,125.7244
  339.  
  340. P
  341. 171.9980,126.5906
  342. 36
  343. 360
  344. n
  345. ; this is where I test the mirror cmd
  346. color
  347. yellow
  348. text
  349. 3.1004,94.9331
  350.  
  351.  
  352. 9) mirror pellipse
  353. color
  354. blue
  355. ellipse
  356. c
  357. 23.1841,73.4961
  358. 36.3927,78.0433
  359. 21.6683,82.3740
  360. MIRROR
  361. 25.1329,83.0236
  362.  
  363. 22.7510,92.7677
  364. 29.0305,57.0394
  365. n
  366. color
  367. magenta
  368. ellipse
  369. 19.2864,75.8780
  370. 17.9872,72.1969
  371. 18.4203,71.9803
  372. mirror
  373. 20.3691,73.2795
  374.  
  375. 21.6683,88.4370
  376. 29.2470,56.6063
  377. n
  378. ;this is where break starts
  379. color
  380. white
  381. text
  382. 54.2028,94.2835
  383.  
  384.  
  385. 10) pellipse break
  386. color
  387. red
  388. ellipse
  389. 56.7470,75.8780
  390. 93.9911,75.2283
  391. 90.9596,81.2913
  392. color
  393. green
  394. ellipse
  395. 58.9124,75.6614
  396. 91.6093,75.8780
  397. 84.6801,71.7638
  398. color blue
  399. ellipse
  400. 62.1604,75.2283
  401. 89.6604,75.4449
  402. 79.4833,78.6929
  403. break
  404. 75.5856,80.4252
  405. 85.7628,71.9803
  406. break
  407. 71.2549,65.9173
  408. 91.3927,78.2598
  409. break
  410. 69.5226,91.4685
  411. 58.9124,67.6496
  412. color
  413. yellow
  414. text
  415. 103.6270,94.2402
  416.  
  417.  
  418. 11) pedit
  419. pellipse
  420. 1
  421. color
  422. cyan
  423. ellipse
  424. 112.4568,72.9116
  425. 133.7250,87.7349
  426. 131.3618,85.5866
  427. pedit
  428. 132.6508,76.5637
  429. E
  430. i
  431. 116.9682,57.4438
  432. i
  433. 132.8656,68.1853
  434. i
  435. 141.2440,74.8451
  436. i
  437. 143.6072,86.8756
  438. i
  439. 134.5843,91.1722
  440. x
  441. s
  442. x
  443. color
  444. white
  445. text
  446. 152.5098,95.3198
  447.  
  448.  
  449. 12) pedit width
  450. color
  451. green
  452. ellipse
  453. c
  454. 175.6169,75.9192
  455. 188.9364,78.9268
  456. 178.6245,78.2823
  457. pedit
  458. 177.9800,80.6455
  459. width
  460. 4.6
  461. x
  462. color
  463. red
  464. ellipse
  465. 156.5157,54.8307
  466. 163.6614,59.1614
  467. 163.8780,58.0787
  468. pedit
  469. 163.2283,54.8307
  470. width
  471. 2.3
  472. e
  473. m
  474. 188.7795,55.4803
  475. x
  476.  
  477. text
  478. 5.7610,45.2083
  479.  
  480.  
  481. 13) pellipse trim close
  482. color
  483. green
  484. ellipse
  485. c
  486. 22.6969,24.8622
  487. 22.6969,39.3701
  488. 22.4803,30.7087
  489. color
  490. yellow
  491. ellipse
  492. c
  493. 22.4803,25.5118
  494. 22.4803,36.7717
  495. 22.6969,28.1102
  496. color
  497. red
  498. ellipse
  499. c
  500. 22.4803,25.9449
  501. 22.4803,42.6181
  502. 22.4803,34.6063
  503. ellipse
  504. 22.4803,45.0000
  505. 22.2638,6.8898
  506. 22.4803,14.2520
  507. color
  508. magenta
  509. line
  510. 6.4567,33.3071
  511. 39.5866,33.5236
  512.  
  513. line
  514. 6.2402,14.0354
  515. 39.3701,13.8189
  516.  
  517. line
  518. 6.4567,23.9961
  519. 39.3701,23.7795
  520.  
  521. line
  522. 6.4567,40.8858
  523. 39.3701,41.1024
  524.  
  525. trim
  526. 36.9882,40.8858
  527. 38.0709,33.5236
  528. 37.2047,23.7795
  529. 37.6378,13.6024
  530.  
  531. 24.6457,26.8110
  532. 17.7165,18.5827
  533. 30.4921,28.3268
  534. 15.7677,36.7717
  535. 13.6024,27.6772
  536.  
  537. ;this is where extend starts
  538. color
  539. yellow
  540. text
  541. 53.2283,45.4331
  542.  
  543.  
  544. 14) pellipse move
  545. color
  546. white
  547. ellipse
  548. c
  549. 75.5315,23.6063
  550. 90.6890,34.0000
  551. 61.6732,35.5157
  552. color
  553. red
  554. ellipse
  555. 60.8071,36.5984
  556. 62.9724,34.0000
  557. 63.4055,34.6496
  558. ellipse
  559. 86.7913,32.7008
  560. 88.7402,34.2165
  561. 88.9567,33.5669
  562.  
  563. 58.4252,9.5315
  564. 60.5906,10.8307
  565. 60.5906,10.6142
  566.  
  567. 87.6575,10.3976
  568. 89.1732,12.7795
  569. 88.5236,12.7795
  570.  
  571. 64.4882,14.0787
  572. 63.1890,15.8110
  573. 63.6220,16.0276
  574.  
  575. 66.0039,29.6693
  576. 67.9528,30.9685
  577. 67.9528,30.5354
  578.  
  579. 75.5315,42.0118
  580. 72.9331,41.5787
  581. 75.3150,41.1457
  582.  
  583. 74.8819,34.0000
  584. 77.2638,33.5669
  585. 77.2638,34.4331
  586.  
  587. 54.9606,42.6614
  588. 56.0433,37.8976
  589. 57.7756,39.6299
  590. move
  591. 55.3937,38.1142
  592.  
  593. 57.9921,37.6811
  594. 77.6969,20.5748
  595. move
  596. 76.8307,32.9173
  597.  
  598. 82.4606,23.8228
  599. 89.6063,6.5000
  600. move
  601. 75.0984,40.9291
  602.  
  603. 85.0591,42.0118
  604. 103.4646,37.0315
  605. text
  606. 102.8150,45.6496
  607.  
  608.  
  609. 15) pellipse extend
  610. color
  611. magenta
  612. ellipse
  613. c
  614. 124.6850,23.9961
  615. 124.4685,38.7205
  616. 124.6850,31.7913
  617. ellipse
  618. c
  619. 124.6850,24.2126
  620. 124.4685,34.3898
  621. 124.6850,28.7598
  622. color
  623. blue
  624. RECTANGLE
  625. 112.3425,39.1535
  626. 137.8937,7.9724
  627. color
  628. yellow
  629. RECTANGLE
  630. 110.1772,41.1024
  631. 140.4921,4.7244
  632. break
  633. 132.0472,20.0984
  634. 119.0551,14.0354
  635. break
  636. 128.7992,22.2638
  637. 127.5000,15.7677
  638. color
  639. white
  640. text
  641. 153.4843,45.0000
  642.  
  643.  
  644. 16) pellipse dim
  645. color
  646. yellow
  647. ellipse
  648. c
  649. 174.0010,30.7087
  650. 174.0010,15.3346
  651. 174.0010,19.6654
  652. color
  653. red
  654. line
  655. 159.7096,30.2756
  656. 189.5915,30.2756
  657.  
  658. trim
  659. 169.6703,30.2756
  660.  
  661. 163.3907,35.4724
  662.  
  663. mirror
  664. 163.8868,24.1682
  665. 184.3982,25.7970
  666.  
  667. 159.5401,26.7272
  668. 189.9675,26.6114
  669. n
  670. dimaligned
  671. 174.1329,38.1538
  672. 174.1329,15.1759
  673. 194.4700,20.4887
  674. hatch
  675. zigzag
  676. 4
  677. 0
  678. 182.4749,20.8621
  679. 166.0995,20.2900
  680.  
  681. ; this is where pellipse plus starts
  682. text
  683. -40,-35
  684. 3
  685. 0
  686. PLUS!
  687. color
  688. yellow
  689. text
  690. 3.4252,-15.1535
  691. 2
  692. 0
  693. 17) p-center/rotation
  694. color
  695. red
  696. ellipse
  697. c
  698. 24.9163,-39.1890
  699. 34.6604,-28.3622
  700. r
  701. 15.3888,-42.6535
  702. color
  703. yellow
  704. text
  705. 54.5817,-15.5866
  706.  
  707.  
  708. 18) p-axis/rotation
  709. color
  710. green
  711. ellipse
  712. 73.4203,-37.8898
  713. 65.4085,-30.7441
  714. r
  715. 76.4518,-46.1181
  716. color
  717. yellow
  718. text
  719. 104.9262,-16.0197
  720.  
  721.  
  722. 19) p-center/axes
  723. color
  724. cyan
  725. ellipse
  726. c
  727. 124.4144,-38.5394
  728. 133.7254,-30.7441
  729. 118.5679,-39.4055
  730. color
  731. yellow
  732. text
  733. 155.1083,-16.4528
  734.  
  735.  
  736. 20) p-axis/axis
  737. color
  738. magenta
  739. ellipse
  740. 166.8012,-41.5709
  741. 173.7303,-28.7953
  742. 172.6476,-22.9488
  743. color
  744. yellow
  745. text
  746. 22,-84
  747. 5.5
  748.  
  749. THESE BOXES INTENDED TO BE BLANK
  750. zoom
  751. e
  752. ;----------------------------------------------------------------------
  753. ;Now for the grand finale 
  754. TEXT
  755. -39.8278,152
  756. 3
  757. 0
  758. Done!
  759. ;----------------------------------------------------------------------
  760.