home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 1998 November / Dppcpro1198.iso / Nov / Intelcad / Uncompressed / API / Scripts / RecPgonDonTrace.scr < prev    next >
Encoding:
Text File  |  1998-03-18  |  1.8 KB  |  175 lines
  1. ;---------------------------------------------
  2. ;File name: RecpgonDonTrace.SCR
  3. ;Purpose: Demonstrate 
  4. ;
  5. ;Last Modified: 3/18/98
  6. ;---------------------------------------------
  7. CMDECHO
  8. 0
  9. PICKBOX
  10. 3
  11. APERTURE
  12. 10
  13. ;----------------------------------------------------------------------
  14. ; This script file tests the Rectangle, polygon, 
  15. ; Last Modified on 3/18/98
  16. ;
  17. ; Erase anything that's there already.
  18. erase
  19. all
  20.  
  21. ; Turn blips off
  22. blipmode
  23. off
  24. ; Set the current layer to zero.
  25. layer
  26. s
  27. 0
  28.  
  29. color
  30. bylayer
  31. ; Setting all the other necessary system variables:
  32. vpoint
  33. 0,0,1
  34. ; Zoom to a window at least 100 x 100 (if it were square).
  35. zoom
  36. w
  37. -1,-1
  38. @150<45
  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. ;set grid and snap
  53. snap
  54. 5
  55. Grid
  56. snap
  57. Limits
  58. 0,0
  59. 100,100
  60. redraw
  61. linetype
  62. s
  63. continuous
  64.  
  65. ;two rectangles (section 1)
  66. rectang
  67. 10,100
  68. 40,70
  69. rectang
  70. 15,95
  71. 35,75
  72. color
  73. red
  74. ;normal polygon (section 2)
  75. polygon
  76. 5
  77. 25,85
  78. i
  79. 25,75
  80. ;
  81. ;polygon using side (section 3)
  82. polygon
  83. 8
  84. 25,85
  85. c
  86. 25,70
  87. ;
  88. color
  89. yellow
  90. ;
  91. ;polygons using edge and side (section 4)
  92. polygon
  93. 4
  94. edge
  95. 65,100
  96. 50,85
  97. ;
  98. polygon
  99. 16
  100. 65,85
  101. c
  102. 55,75
  103. ;
  104. polygon
  105. 3
  106. e
  107. 55,80
  108. 75,80
  109. ;
  110. color
  111. green
  112. ;
  113. ;donuts (section 5)
  114. donut
  115. 5
  116. 15
  117. 20,50
  118. 35,50
  119.  
  120. ;donuts w/outer diameter smaller than the inner. 
  121. donut
  122. 5
  123. 1
  124. 20,35
  125.  
  126. ;this donut should be solid
  127. donut
  128. 0
  129. 5
  130. 35,35
  131.  
  132. color
  133. magenta
  134. ;
  135. ;trace (section 6)
  136. trace
  137. .2
  138. 65,65
  139. 75,50
  140. 75,25
  141.  
  142. trace
  143. 3
  144. 65,65
  145. 65,25
  146.  
  147. ;solids (section 7)
  148. solid
  149. 85,35
  150. 100,35
  151. 100,5
  152. 85,0
  153.  
  154. ;80,10
  155. ;80,20
  156. color
  157. blue
  158. ;
  159. solid
  160. 85,35
  161. 100,35
  162. 85,60
  163. 100,60
  164.  
  165. grid
  166. off
  167. ;----------------------------------------------------------------------
  168. ;Now for the grand finale
  169. text
  170. 20,15,0
  171. 3
  172.  
  173. Done!
  174. ;----------------------------------------------------------------------
  175.