!   fil_geom_test.mac
!
mod_assemb_prep
!
init_entity_num
!
r=2
phi1=90
phi2=145
!
h=r/sin((abs(phi2-phi1)/2)*rconv)
x=h*cos((abs(phi2-phi1)/2)*rconv)
y=h*sin((abs(phi2-phi1)/2)*rconv)
!
clocal,csn,1,10,10
!
k,,0,0
k,,x,phi1
k,,x,phi2
!
create_area
!
view,'f'
lplot
!
cskp,csn+5,0,km-2,km-1,km
!
clocal,csn+6,0,x,y,0
clocal,csn+6,1,0,0,0,abs(phi2-phi1)/2
!
create_circle,r
create_area-lines
!
asba,am-1,am,,delete,delete
!
init_entity_num
!
asel,s,area,,am
lsla,s
lsel,r,loc,x,r
lcomb,all
!
init_entity_num
!
lplot