partno Example 4.2
REMARK From Irvin H Krals' Numerical Control Programming in APT.
REMARK Page 100
clprnt
print / on
machin / dxf
setpt = point / 0, 0, 2
orig = point / 0, 0, 0
lx = line / xaxis
theta = 60
lp = line / orig, atangl, theta
ln = line / orig, atangl, -theta
d = 1
h = 5 * d
lu = line / parlel, lx, ylarge, h
ll = line / parlel, lx, ysmall, h
w = .75 * d
lpr = line / parlel, lp, ysmall, w
lpl = line / parlel, lp, ylarge, w
lnr = line / parlel, ln, ylarge, w
lnl = line / parlel, ln, ysmall, w
cutter / d
from / setpt
go / to, lpr
tllft, golft / lpr, to, lu
golft / lu, to, lpl
golft / lpl, to, ll
golft / ll, to, lpr
golft / lpr, to, lnr
golft / lnr, to, lu
golft / lu, to, lnl
golft / lnl, to, ll
golft / ll, to, lnr
golft / lnr, to, lpl
goto / setpt
fini