home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / SPIRL.CCC < prev    next >
Encoding:
Text File  |  1993-04-27  |  3.0 KB  |  179 lines
  1. %spirl.ccc
  2. :J
  3. if x8 eq 123123123 :b
  4. ascii c100 r13
  5. if r13 eq 32 :I
  6. mess illegal command, use \GEOM first !
  7. getwe
  8. goto :J
  9. :I
  10. z41=14
  11. mess flight center point
  12. getp p2
  13. mess direction point of first step
  14. rubber line
  15. getp p1
  16. rubber off
  17. :9
  18. mess flight inner radius (greater than 0)
  19. getrd y6
  20. if y6 le 0 :9
  21. :a
  22. r4=0.6
  23. mess flight width (minimum: fl #r4 )
  24. getrd r4
  25. if r4 lt 0.6 :a
  26. :b
  27. r7=0
  28. mess 1st prm.: 1-Rise,2-Tread,3-Ht.,4-Tot.A°,5-End pt.,6-No.,7-St.A°
  29. :P
  30. getr r10
  31. if r10 eq 1 :[
  32. if r10 eq 2 :A
  33. if r10 eq 3 :B
  34. if r10 eq 4 :C
  35. if r10 eq 5 :D
  36. if r10 eq 6 :E
  37. if r10 eq 7 :F
  38. goto :b
  39. :[
  40. c209='r'
  41. mess rise of stair (R)
  42. getrd r1;c209=' '
  43. if r10 ne 1 :z
  44. :1
  45. mess second parameter: 3-Height, 4-Total Angle, 5-End pt., 6-No.
  46. getr r9
  47. if r9 eq 3 :B
  48. if r9 eq 4 :C
  49. if r9 eq 5 :D
  50. if r9 eq 6 :E
  51. goto :1
  52. :A
  53. c209='t'
  54. mess tread of stair (T)
  55. getrd r2;c209=' '
  56. if r10 ne 2 :z
  57. goto :1
  58. :B
  59. mess flight total height (H)
  60. getrd r3
  61. if r10 ne 3 :z
  62. :3
  63. mess second parameter: 1-Rise, 2-Tread, 6-No., 7-Stair Angle
  64. getr r9
  65. if r9 eq 1 :[
  66. if r9 eq 2 :A
  67. if r9 eq 6 :E
  68. if r9 eq 7 :F
  69. goto :3
  70. :C
  71. mess flight total angle (greater than 0)
  72. getr r8
  73. if r8 lt 0 :C
  74. if r10 ne 4 :z
  75. goto :3
  76. :D
  77. mess flight end pt.
  78. getp p3
  79. if r10 ne 5 :z
  80. goto :3
  81. :E
  82. c209='n'
  83. mess total number of stairs (N) (greater than 3)
  84. getr r5;c209=' '
  85. if r5 lt 4 :E
  86. if r10 ne 6 :z
  87. :4
  88. mess second parameter:1-Rise,2-Tread,3-Ht.,4-Tot.A°,5-End pt.,7-St.A°
  89. getr r9
  90. if r9 eq 1 :[
  91. if r9 eq 2 :A
  92. if r9 eq 3 :B
  93. if r9 eq 4 :C
  94. if r9 eq 5 :D
  95. if r9 eq 7 :F
  96. goto :4
  97. :F
  98. mess single stair angle
  99. getr x6
  100. if x6 le 0 :F
  101. if x6 gt 90 :F
  102. if r10 ne 7 :z
  103. goto :1
  104. :z
  105. i50=1
  106. ovl sprlpr
  107. i50=0
  108. x41=r1;y41=9999
  109. ovl ermes
  110. y41=0;r1=x41
  111. if r7 gt 0 :Y
  112. if r12 eq 1 :G
  113. :H
  114. mess R- fl #x9 T- fl #y9 H- fl #z9 A°- #x6 Tot.A°- #r8 N- #r5 , confirm?
  115. goto :]
  116. :G
  117. mess ~ R- fl #x9 T- fl #y9 H- fl #z9 A°- #x6 Tot.A°- #r8 N- #r5 , confirm?
  118. :]
  119. getyn r8
  120. if r8 eq 0 :b
  121. :U
  122. mess thickness of step, <ENTER>-max. thickness
  123. getrd r7
  124. if r7 lt 0 :U
  125. :V
  126. mess handrail: 1-internal, 2-external, 3-both, 4-none <3>
  127. z6=3;def z6
  128. getr z6
  129. if z6 lt 1 :V
  130. if z6 gt 4 :V
  131. if z6 eq 4 :W
  132. mess balusters: 1-middle of step, 2-step end, 3-none <1>
  133. x7=1;def x7
  134. getr x7
  135. :W
  136. mess wish to add center column ?
  137. getyn z7
  138. mess climbing direction: y-clockwise, n-counter clockwise
  139. getyn r13
  140. mess draw option: y-3d, n-2d
  141. getyn r35
  142. if r35 eq 0 :5
  143. r35=0
  144. goto :6
  145. :5
  146. r35=1
  147. :6
  148. ovl spiral
  149. *if r1 eq 0 :0
  150. *mess entities file not found, use \REGEN
  151. *getw
  152. :0
  153. if r35 eq 1 :7
  154. if z7 eq 0 :Z
  155. goto :8
  156. :7
  157. if z7 eq 0 :Z
  158. y7=99999
  159. :8
  160. p1=p2;p15=p1;c1='1';c2=' ';ovl bsurf;i49=1;c1='2';r8=y6;x1=x15+r8;ovl bsurf
  161. setj p1;y2=y15+r8;p2=x15 y2 z15;x3=x15-r8;p3=x3 y15 z15;c1='8';ovl bsurf
  162. setj p1;y2=y15-r8;p2=x15 y2 z15;x3=x15+r8;p3=x3 y15 z15;c1='8';ovl bsurf
  163. if y7 eq 99999 :r
  164. if y7 ne 0 :M
  165. y7=r3+1
  166. goto :R
  167. :M
  168. y7=y7-z15
  169. goto :R
  170. :r
  171. y7=0
  172. :R
  173. p1= 0 0 0;p2= 0 0 y7;r90=1;c1='5';i1=i18;ovl bsurf;setj p15
  174. :Z
  175. macro strcs
  176. :Y
  177. x8=123123123
  178. macro strer
  179.