!   TITLE: test_mach_op.mac
!
mod_assemb_prep
!
r=3
l=8
!
csys,0
!
create_circle,r
create_vol-lines,l
!
!create_cs,0,'sfcut',2,0,r,l/2,0,-90,0
!create_cs,0,'sfcut',0,0,0,l/2,0,-90,0
!
!                     (1)      (2)       (3)     (4)      (5)   (6)   (7)
!           MACH_OP, op_typ, tool_typ, d_tool, r_or_ang, depth, rcs, rsurf
!
!                     (8)    (9)    (10)
!                    stang, finang, zpos
!
!MACH_OP,'d','c',2,120,4.1,sfcut
!MACH_OP,'t','b',1,,1,1,r,0,150,3,0
!MACH_OP,'t','f',1,0.1,1,1,r,0,130,3,0
MACH_OP,'t','c',1,120,1,1,r,0,130,3,0
!
!MACH_OP,,'b',1,0.1,0,sfcut
!MACH_OP,,'b',2,120,4.1,sfcut
!
lplot


*go,:skip

!csys,0
!k,,
!init_entity_num
!lstr,km,1
!vdele,all
lplot

!                       (1)   (2)    (3)   (4)   (5)     (6)    (7)
!       DRILL_PATTERN, csnum, rpat, zpos, numh, anginc, stang, patang,
!
!                       (8)   (9)    (10)    (11)
!                      dhole, tool, depth, r_or_ang
!
csys,0
create_cs,0,,0,0,0,0,0,0,180
DRILL_PATTERN,12,2,0,9,,30,360,0.8,'c',4,120

:skip