home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / TSYMB.CCC < prev   
Encoding:
Text File  |  1993-07-25  |  2.5 KB  |  130 lines
  1. %tsymb.ccc
  2. * drag & place symbol adding text
  3. * 2.1.92 - DORIT
  4. :a
  5. * check geometric mode activity (c100=' ')
  6. ascii c100 r13
  7. if r13 eq 32 :A
  8. mess illegal command, use \GEOM first !
  9. getwe
  10. goto :a
  11. :A
  12. r7=0
  13. goto :c
  14. :C
  15. c1='f'
  16. ovl rndim
  17. :c
  18. c10='l'
  19. c3='l'
  20. r3 = 30.
  21. c1='0'
  22. ovl rndim
  23. if r1 ne 0 :L
  24. c1='r'
  25. mess place(Alt+1-Y sym,2-X sym,3-ang,4-def,5-big,6-small)<Ent>-set
  26. trac+ rndim p1
  27. if r93 ne 0 :O
  28. c1='1'
  29. c3='l'
  30. ovl rndim
  31. if r1 ne 0 :z
  32. if r7 ne 0 :Q
  33. mess text (up to 40 chars.), <ENTER> for ü}0.00
  34. * getc+ c211 40
  35. :b
  36. r37=0
  37. r38=-40
  38. r39=211
  39. r1=0
  40. ovl getc
  41. if r1 ne 0 :b
  42. if r93 eq 0 :R
  43. c211 10 = 'ü}éOüDéOéO'
  44. goto :R
  45. :Q
  46. mess text (up to 40 chars.), <ENTER> for ' #c211 40 '
  47. * getc+ c211 40
  48. r37=1
  49. r38=-40
  50. r39=211
  51. ovl getc
  52. if r1 ne 0 :Q
  53. if r93 eq 0 :R
  54. c211=c141;c212=c142;c213=c143;c214=c144;c215=c145;c216=c146;c217=c147;c218=c148
  55. c219=c149;c220=c150;c221=c151;c222=c152;c223=c153;c224=c154;c225=c155;c226=c156
  56. c227=c157;c228=c158;c229=c159;c230=c160;c231=c161;c232=c162;c233=c163;c234=c164
  57. c235=c165;c236=c166;c237=c167;c238=c168;c239=c169;c240=c170;c241=c50;c242=c51
  58. c243=c52;c244=c53;c245=c54;c246=c55;c247=c56;c248=c57;c249=c58;c250=c18
  59. :R
  60. c141=c211;c142=c212;c143=c213;c144=c214;c145=c215;c146=c216;c147=c217;c148=c218
  61. c149=c219;c150=c220;c151=c221;c152=c222;c153=c223;c154=c224;c155=c225;c156=c226
  62. c157=c227;c158=c228;c159=c229;c160=c230;c161=c231;c162=c232;c163=c233;c164=c234
  63. c165=c235;c166=c236;c167=c237;c168=c238;c169=c239;c170=c240;c50=c241;c51=c242
  64. c52=c243;c53=c244;c54=c245;c55=c246;c56=c247;c57=c248;c58=c249;c18=c250
  65. r7=7
  66. c1='l'
  67. ovl rndim
  68. goto :c
  69. :O
  70. mess option: y-new symbol, n-new factors, <ENTER> new direction
  71. getyn+ r5
  72. if r93 ne 0 :D
  73. if r5 eq 0 :G
  74. :L
  75. mess symbol name (1-8 char.), <ENTER> - graphic library
  76. getc+ c2 8
  77. if r93 ne 0 :I
  78. c1 = 'n'
  79. ovl rndim
  80. if r1 ne 0 :z
  81. goto :d
  82. :D
  83. mess first direction point
  84. getp p5
  85. mess second direction point
  86. rubber line
  87. getp p6
  88. rubber off
  89. c1='d'
  90. ovl rndim
  91. goto :d
  92. :I
  93. r81=0
  94. mess user3@-l$tsymb
  95. ovl popmnu
  96. if r81 eq 0 :L
  97. * Selected dim symbol is in c221-c228
  98. c2=c221;c3=c222;c4=c223;c5=c224
  99. c6=c225;c7=c226;c8=c227;c9=c228
  100. * dim symbol is in c2:c9
  101. c1 = 's'
  102. ovl rndim
  103. :d
  104. r3 = 95.
  105. c1='0'
  106. ovl rndim
  107. r7=0
  108. goto :c
  109. :G
  110. x6=r2
  111. y6=r4
  112. mess NEW size factor (current: #r2 ) <ENTER> for no change
  113. getr+ r2
  114. if r93 eq 0 :q
  115. r2=x6
  116. :q
  117. c1='f'
  118. ovl rndim
  119. mess NEW angle increment (current: #r4 ) <ENTER> for no change
  120. getr+ r4
  121. if r93 eq 0 :C
  122. r4=y6
  123. r6=123123
  124. goto :c
  125. :z
  126. mess Error, symbol " #c2 8 ", is not defined
  127. getwe
  128. goto :L
  129. :Z
  130.