home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p034 / 2.ddi / ARCA / USERDEF / ELIPS.CCC < prev    next >
Encoding:
Text File  |  1993-05-24  |  1.4 KB  |  91 lines
  1. %elips.ccc
  2. *NEW* 12/93-Boris
  3. * 3 options to create ellipse
  4. :j
  5. ascii c100 r13
  6. if r13 eq 32 :I
  7. mess illegal command, use \GEOM first !
  8. getwe
  9. goto :j
  10. :I
  11. *setp p2 ;*current work plane
  12. *if z2 eq 3 :i
  13. *mess invalid work plane, change to XY plane and press <ENTER> !
  14. *getwe
  15. *goto :I
  16. :i
  17. mess 1-cnt+2 pts, 2-2 pts of ax+pt, 3-cnt+pt on ax+pt, <Ent>-pop
  18. getr+ r1
  19. if r93 eq 0 :W
  20. mess user3elipsp select option:
  21. getrp r1
  22. :W
  23. p4 = 0 0 0 ;*attributes
  24. i4=1 ;*entity no.
  25. r5=r1
  26. if r1 eq 1 :a
  27. if r1 eq 2 :b
  28. if r1 eq 3 :c
  29. goto :i
  30. :a
  31. mess center of ellipse
  32. getp p1
  33. putm p1 i4 p4
  34. mess end point of main ellipse axis
  35. rubber line
  36. getp p2
  37. putm p2 i4 p4
  38. rubber off
  39. mess end point of secondary ellipse axis
  40. setj p1
  41. rubber line
  42. getp p3
  43. putm p3 i4 p4
  44. rubber off
  45. goto :e
  46. :b
  47. mess first end point of main ellipse axis
  48. getp p1
  49. putm p1 i4 p4
  50. mess second end point of main ellipse axis
  51. rubber line
  52. getp p2
  53. putm p2 i4 p4
  54. rubber off
  55. mess point on ellipse
  56. p6 = p1 + p2 /2
  57. putm p6 i4 p4
  58. setj p6
  59. rubber line
  60. getp p3
  61. putm p3 i4 p4
  62. goto :e
  63. :c
  64. mess center of ellipse
  65. getp p1
  66. putm p1 i4 p4
  67. mess end point of main ellipse axis
  68. rubber line
  69. getp p2
  70. putm p2 i4 p4
  71. rubber off
  72. mess point on ellipse
  73. setj p1
  74. rubber line
  75. getp p3
  76. putm p3 i4 p4
  77. rubber off
  78. :e
  79. ovl initc
  80. c1 8 = 'ellips  '
  81. c11 8= '        '
  82. ovl exec1
  83. ovl termc
  84. if r2 eq 0 :z
  85. mess Error, illegal parameters
  86. getwe
  87. :z
  88. r1=r5
  89. *mess i4= #i4 ;*getw
  90. goto :W
  91.