20 lines
415 B
Text
20 lines
415 B
Text
include ..\Utilitys.tlhy
|
|
|
|
:bearing sub 360 mod 540 add 360 mod 180 sub ;
|
|
|
|
20 45 bearing
|
|
-45 45 bearing
|
|
-85 90 bearing
|
|
-95 90 bearing
|
|
-45 125 bearing
|
|
-45 145 bearing
|
|
29.4803 -88.6381 bearing
|
|
-78.3251 -159.036 bearing
|
|
-70099.74233810938 29840.67437876723 bearing
|
|
-165313.6666297357 33693.9894517456 bearing
|
|
1174.8380510598456 -154146.66490124757 bearing
|
|
60175.77306795546 42213.07192354373 bearing
|
|
|
|
pstack
|
|
|
|
" " input
|