mod_assemb_prep
!
pi=acos(-1)
rconv=pi/180
dconv=180/pi
rtangle=(pi/2)*dconv
!       
k,,0,0
k,,10,0
k,,10,10
k,,0,10
!
get_max_entity
!
a,km-3,km-2,km-1,km
!
get_max_entity
!
voffst,am,10
!
/PNUM,KP,1
/PNUM,LINE,1
/PNUM,AREA,1
!
/view,1,1,1,1
/auto,1
!
vsymm,x,all,,,,1,0
vsymm,y,all,,,,1,0
!vadd,all
init_entity_num
lplot
!
selv='s'
csn=10
!
!FIL_REC_BORE,4,5,6,8,15,10,3.5,45,1.0
REC_BORE,4,5,6,8,15,10,4,30,1


l11=0.800
l12=1.200
h8=0.625
h9=3.220
h2=3.800/2

!rec_bore,7,0,0,0,0,0,180,l12,l11,(h2-h9),(h2-h8),dcut,60