home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p050 / 24.ddi / DRAW-REC.MAC < prev    next >
Encoding:
Text File  |  1986-07-21  |  5.3 KB  |  149 lines
  1. MACRO 0 0
  2. Opcode 192    Text wait  WAIT 1  DRAW-REC.MAC   6/28/86 SCOTT DIXON
  3. Opcode 192    Text wait  WAIT 1  draws rectangles on each of the 14 color
  4. Opcode 192    Text wait  WAIT 1  layers (in both SYMBOL and DETAIL modes)
  5. Opcode 192    Text wait  WAIT 1  created previously.
  6.  
  7. Command VWIN   B1 -800 0     B1 2900 2030
  8.  
  9. Command SYMB
  10. Command DRAW   Command TEXT  Opcode 107     Text 2 2
  11. Opcode 192     Text WAIT     WAIT 10 YOU SHOULD NOW BE ON THE GREEN LAYER WITH
  12. Opcode 192     Text WAIT     WAIT 10  "L B" JUSTIFICATION AND "F" ORIENTATION
  13. Opcode 192     Text WAIT     WAIT 10  AND 14 "COLOR" LAYERS [GREEN -> LGRAY].
  14. Opcode 192     Text WAIT     WAIT 20  HIT THE SPACE BAR SEVERAL TIMES TO STOP.
  15. Command DRAW   Command FREC
  16.                B1 -700 840   B1 -400 880
  17. Command LYRN   B1 -700 780   B1 -400 820
  18. Command LYRN   B1 -700 720   B1 -400 760
  19. Command LYRN   B1 -700 660   B1 -400 700
  20. Command LYRN   B1 -700 600   B1 -400 640
  21. Command LYRN   B1 -700 540   B1 -400 580
  22. Command LYRN   B1 -700 480   B1 -400 520
  23. Command LYRN   B1 -700 420   B1 -400 460
  24. Command LYRN   B1 -700 360   B1 -400 400
  25. Command LYRN   B1 -700 300   B1 -400 340
  26. Command LYRN   B1 -700 240   B1 -400 280
  27. Command LYRN   B1 -700 180   B1 -400 220
  28. Command LYRN   B1 -700 120   B1 -400 160
  29. Command LYRN   B1 -700 060   B1 -400 100
  30.  
  31. Command LYRN   B1 20  -24       B1  22  -26
  32. Command LYRN   B1 20  -24       B1  22  -26
  33. Command LYRN   B1 20  -24       B1  22  -26
  34. Command LYRN   B1 20  -24       B1  22  -26
  35. Command LYRN   B1 20  -24       B1  22  -26
  36. Command LYRN   B1 20  -24       B1  22  -26
  37. Command LYRN   B1 20  -24       B1  22  -26
  38. Command LYRN   B1 20  -24       B1  22  -26
  39. Command LYRN   B1 20  -24       B1  22  -26
  40. Command LYRN   B1 20  -24       B1  22  -26
  41. Command LYRN   B1 20  -24       B1  22  -26
  42. Command LYRN   B1 20  -24       B1  22  -26
  43. Command LYRN   B1 20  -24       B1  22  -26
  44. Command LYRN   B1 20  -24       B1  22  -26
  45.  
  46.  
  47. Command TEXT
  48. Opcode 146     Opcode 146
  49. Opcode 140     Text 60
  50.  
  51. Command LYRN   B1 -380 860     Text GREEN
  52. Command LYRN   B1 -380 800     Text RED
  53. Command LYRN   B1 -380 740     Text YELLOW
  54. Command LYRN   B1 -380 680     Text BLUE
  55. Command LYRN   B1 -380 620     Text CYAN
  56. Command LYRN   B1 -380 560     Text MAGENT
  57. Command LYRN   B1 -380 500     Text GRAY
  58. Command LYRN   B1 -380 440     Text LGREEN
  59. Command LYRN   B1 -380 380     Text LRED
  60. Command LYRN   B1 -380 320     Text LYELLW
  61. Command LYRN   B1 -380 260     Text LBLUE
  62. Command LYRN   B1 -380 200     Text LCYAN
  63. Command LYRN   B1 -380 140     Text LMAGEN
  64. Command LYRN   B1 -380 80      Text LGRAY
  65.  
  66.  
  67. Command DETL
  68.  
  69. Command DRAW   Command FREC
  70. Command LYRN   B1 -700 1960   B1 -400 2000
  71. Command LYRN   B1 -700 1900   B1 -400 1940
  72. Command LYRN   B1 -700 1840   B1 -400 1880
  73. Command LYRN   B1 -700 1780   B1 -400 1820
  74. Command LYRN   B1 -700 1720   B1 -400 1760
  75. Command LYRN   B1 -700 1660   B1 -400 1700
  76. Command LYRN   B1 -700 1600   B1 -400 1640
  77. Command LYRN   B1 -700 1540   B1 -400 1580
  78. Command LYRN   B1 -700 1480   B1 -400 1520
  79. Command LYRN   B1 -700 1420   B1 -400 1460
  80. Command LYRN   B1 -700 1360   B1 -400 1400
  81. Command LYRN   B1 -700 1300   B1 -400 1340
  82. Command LYRN   B1 -700 1240   B1 -400 1280
  83. Command LYRN   B1 -700 1180   B1 -400 1220
  84.  
  85. Command LYRN   B1 20  -20       B1  22  -22
  86. Command LYRN   B1 20  -20       B1  22  -22
  87. Command LYRN   B1 20  -20       B1  22  -22
  88. Command LYRN   B1 20  -20       B1  22  -22
  89. Command LYRN   B1 20  -20       B1  22  -22
  90. Command LYRN   B1 20  -20       B1  22  -22
  91. Command LYRN   B1 20  -20       B1  22  -22
  92. Command LYRN   B1 20  -20       B1  22  -22
  93. Command LYRN   B1 20  -20       B1  22  -22
  94. Command LYRN   B1 20  -20       B1  22  -22
  95. Command LYRN   B1 20  -20       B1  22  -22
  96. Command LYRN   B1 20  -20       B1  22  -22
  97. Command LYRN   B1 20  -20       B1  22  -22
  98. Command LYRN   B1 20  -20       B1  22  -22
  99.  
  100. Command DRAW   Command TEXT
  101. Command LYRN   B1 -380 1980    Text GREEN
  102. Command LYRN   B1 -380 1920    Text RED
  103. Command LYRN   B1 -380 1860    Text YELLOW
  104. Command LYRN   B1 -380 1800    Text BLUE
  105. Command LYRN   B1 -380 1740    Text CYAN
  106. Command LYRN   B1 -380 1680    Text MAGENT
  107. Command LYRN   B1 -380 1620    Text GRAY
  108. Command LYRN   B1 -380 1560    Text LGREEN
  109. Command LYRN   B1 -380 1500    Text LRED
  110. Command LYRN   B1 -380 1440    Text LYELLW
  111. Command LYRN   B1 -380 1380    Text LBLUE
  112. Command LYRN   B1 -380 1320    Text LCYAN
  113. Command LYRN   B1 -380 1260    Text LMAGEN
  114. Command LYRN   B1 -380 1200    Text LGRAY
  115.  
  116. Command LYRN
  117. Opcode 145     Opcode 145     Opcode 140     Text 100
  118. B1 -450 2090   Text DETAIL
  119.  
  120. Command SYMB
  121. Command DRAW   Command TEXT   Command LYRN
  122. B1 -450 960    Text SYMBOL
  123. Opcode 140     Text 200
  124. Command DRAW   Command RECT   Command LWID   Text 0
  125. B1 0 0         B1 2834 2036
  126. Command LYRN
  127. B1 106 -122    B1 2728 2158 
  128. Command LYRN   Command LYRN   Command LYRN   Command LYRN   Command LYRN
  129. Command LYRN   Command LYRN   Command LYRN   Command LYRN   Command LYRN
  130. Command LYRN   Command LYRN   Command LYRN
  131.  
  132. Command DETL
  133. Command STO    B1 9 0
  134. Command DRAW   Command RECT   Command LWID   Text 0
  135. B1 0 0         B1 2834 2036
  136. Command LYRN
  137. B1 106 -122    B1 2728 2158 
  138.  
  139.  
  140. Command SYMB
  141. Command VWIN   B1 0 0         B1 2834 2036
  142. Command STO    B1 8 0
  143. Command RCL    B1 9 0
  144.  
  145. Opcode 192
  146. Text mend
  147. END_MACRO
  148. 
  149.