home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 June B / Pcwk6b98.iso / DESIGCAD / DESCAD7P / BASICCAD / BEARING.BS_ / BEARING.bin
Encoding:
Text File  |  1994-07-28  |  1.1 KB  |  56 lines
  1. 'BEARING.BSC
  2. 'This basicCAD file measures bearings in DesignCAD for Windows
  3.  
  4. 'User sets two points to be measured; this program calculates the
  5. 'distance and bearing and places them in a text string at the same angle
  6. 'which the user can place as he wishes
  7.  
  8. txa=sys(13)
  9.  
  10. ns$="N"
  11. ew$="E"
  12. a=0
  13. a2=0
  14. a3=0
  15. a4=0
  16.  
  17. >Presetpoint 2
  18. Setpoint "mark ends of bearing line:" 2
  19. pointval x1 y1 1
  20. Pointval x2 y2 2
  21. sys(1)=0
  22.  
  23. dist = sqrt(sqr(x2-x1) + sqr(y2-y1))
  24.  
  25. a=angle(x2-x1, y2-y1)
  26.  
  27. if (a > 180) then ns$="S"
  28. if ((a > 90) and (a < 270)) then ew$="W"
  29. if ((a >= 0) and (a <= 90)) then a2 = 90 - a
  30. if ((a > 90) and (a <= 180)) then a2 = a - 90
  31. if ((a > 180) and (a < 270)) then a2 = 270 - a
  32. if ((a >= 270) and (a <= 360)) then a2 = a - 270
  33. a3=60*(a2-int(a2))
  34. a4=60*(a3-int(a3))
  35.  
  36. precision 0
  37. a2$=int(a2)
  38. a3$=int(a3)
  39. precision 1
  40. a4$=a4
  41. ang$=ns$+a2$+chr$(176)+a3$+chr$(39)+a4$+chr$(34)+ew$
  42. precision 3
  43. dist$=dist
  44. t$=ang$," ",dist$
  45. if ((a < 270) and (a > 90)) then
  46.      sys(13) = a-180
  47.  else
  48.  sys(13)=a
  49. end if
  50. >text 0,[t$]
  51.  
  52. sys(13) = txa
  53. t$=""
  54. end
  55.  
  56.