! ln_fillet_test.mac
!
mod_assemb_prep
!
x=1.0
!
l1=0
l2=4
l3=2
l4=1
!
h1=0
h2=1
h3=3
!
rfil=x*(h3-h2)
!
csys,0
!
k,,l1,h1,0
k,,l2,h1,0
k,,l2,h2,0
k,,l3,h2,0
k,,l4,h3,0
!
k,,l1,h3,0
!
create_lines
!
!ln_fillet,km-2,rfil,3
ln_fillet,,rfil,2
!