partno a square profile

machin/dxf
machin/pmill

clprnt
print/on
$$print/off

d1=5 $$overall length
d2=5 $$overall width
d3=.75 $$width of beam
d4=2.5 $$cl of cross beam



$$ mat1=matrix/xyrot,45

$$ next line was commented in original source
$$mat1=matrix/transl,0,2,0
remark These are the construction lines
l1=line/xaxis
l2=line/parlel,l1,ysmall,d1
l3=line/yaxis
l4=line/parlel,l3,xlarge,d2
l5=line/parlel,l1,ysmall,(d4-d3/2)
l6=line/parlel,l1,ysmall,(d4+d3/2)
l7=line/parlel,l3,xlarge,(d2/2-d3/2)
l8=line/parlel,l3,xlarge,(d2/2+d3/2)

pl1=plane/0,0,1,-.03

spt=point/-1,0,.3

clrsrf/(plane/0,0,1,.1)

cutter/0.5

index/1
$$tracut/mat1
$$ these are the driving instruction 
rapid
from/spt
go/to,l5,on,pl1
tllft,golft/l5,to,l7
golft/l7,past,l1
gorgt/l1,past,l8
gorgt/l8,to,l5
golft/l5,past,l4
gorgt/l4,past,l6
gorgt/l6,to,l8
golft/l8,past,l2
gorgt/l2,past,l7
gorgt/l7,to,l6
golft/l6,past,l3
gorgt/l3,past,l5
rapid
clrsrf/now
rapid,goto/spt
$$tracut/nomore
index/1,nomore

$$ next line creates copies of shape 1 using translation
$$ copy/1,transl,6,0,0,2



fini