home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / CADKEY_C.ZIP / CADKEY14.ZIP / CDL / ARCFLIP.CDL < prev    next >
Encoding:
Text File  |  1987-12-29  |  987 b   |  46 lines
  1. rem     name:     arcflip.cdl
  2.  
  3. rem     date:     102887 simon izraelevitz
  4.  
  5. rem     task:     revers start and end points of an arc
  6.  
  7. rem     -----------------------------------------------
  8.  
  9. clear
  10. pi     = 3.14159
  11. array  vm[9]
  12. array  cw[3]
  13.  
  14. :start
  15. rem     *** get arc
  16. set mask,3
  17. getent  "Indicate arc or circle", etype
  18.         on (@key + 3) goto exit,exit,start,
  19. cw[0]   =@fltdat[0]
  20. cw[1]   =@fltdat[1]
  21. cw[2]   =@fltdat[2]
  22. rad     =@fltdat[3]
  23. stang   =@fltdat[4] * 180 / pi
  24. endang  =stang + @fltdat[5] * 180 / pi
  25. viewnum =@intdat[8]
  26.  
  27. rem     *** define arc view 
  28. getview viewnum
  29. vm[0]   = @fltdat[0]
  30. vm[1]   =-@fltdat[1]
  31. vm[2]   =-@fltdat[2]
  32. vm[3]   = @fltdat[3]
  33. vm[4]   =-@fltdat[4]
  34. vm[5]   =-@fltdat[5]
  35. vm[6]   = @fltdat[6]
  36. vm[7]   =-@fltdat[7]
  37. vm[8]   =-@fltdat[8]
  38.  
  39.         delent
  40.         view 1,vm[0],vm[1],vm[2],vm[3],vm[4],vm[5],vm[6],vm[7],vm[8]
  41.         arc cw[0],-cw[1],-cw[2],rad,endang,stang,1
  42.         goto start
  43. :exit
  44. set mask
  45. exit
  46.