!   test_tangent_area.mac
!
mod_assemb_prep
mod_coord_system,0,5,4,0,0,0,0
!
r1=1200
r2=4
!
a=1.3
b=-15
!
csys,0
!
create_circle,r1
create_area-lines
!
!create_cs,0,,0,r1+r2,0,0,0,0,0
create_cs,0,,0,a*r1,b,0,0,0,0
create_circle,r2
create_area-lines
!
view,'f'
!
TANGENT_AREA,1,2
!
lplot