home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 493 / cg234pro.inp < prev    next >
Text File  |  1987-08-01  |  1KB  |  41 lines
  1. **   COGO project to create "North" and "South" figures.
  2. *
  3. *    Store the origin in point #1.
  4. *
  5. STORE 1 10000 10000
  6. *
  7. *    Create perimeter points.
  8. *
  9. *  COMMAND       BS AP FS  DIRECTION/ANGLE  DISTANCE
  10. *~~~~~~~~~~~~~~  ~~ ~~ ~~  ~~~~~~~~~~~~~~~  ~~~~~~~~
  11. LOCATE BEARING    1     2    N 23 25 26 E   326.247
  12. LOCATE BEARING    2     3    N 23 25 26 E   121.163
  13. LOCATE ANGLE      2  3  4     -90.          110
  14. LOCATE ANGLE      3  4  5      90.          110
  15. LOCATE ANGLE      4  5  6     -90.          110
  16. LOCATE BEARING    6     7    S 24 13 42 W   562.875
  17. *
  18. *    Inverse from point #1 to point #7.
  19. *
  20. INVERSE BEARING 1 7
  21. *
  22. *    Intersect line 6-7 with a perpendicular from point 2.
  23. *
  24. BEARING INTERSECT 8 2 (A 1 2 - 90.) 6 (A 6 7)
  25. *
  26. *    Store the "North" parcel in figure #1.
  27. *    Store the "South" parcel in figure #2.
  28. *
  29. STORE FIGURE 1 (2 3 C4R 5 6 8 2)
  30. STORE FIGURE 2 (1 2 8 7 1)
  31. *
  32. *    Inverse bearings/distances & compute area of figure #1.
  33. *    Inverse bearings/distances & compute area of figure #2.
  34. *
  35. AREA BEARINGS 1
  36. AREA BEARINGS 2
  37. *
  38. *    End Of Job of file #234.
  39. *
  40. END OF JOB
  41.