!   test_profile_lines.mac
!
mod_assemb_prep
/COM,ANSYS RELEASE  5.6.1  UP20000209       11:27:47    07/31/2001
/VIEW, 1 ,,,1
/ANG, 1
/REP,FAST
FLST,3,2,8
FITEM,3,-0.35,0.45,0
FITEM,3,-0.25,0,0
K, ,P51X
kplot,,,,,,,,,1
!
create_lines,0,1
!
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/USER, 1
/FOC,  1, -0.596911382005E-01,  0.123707020462    ,   0.00000000000
/REPLO
lplot
FLST,3,2,8
FITEM,3,-0.3,0.1,0
FITEM,3,0.3,0,0
K, ,P51X
kplot,,,,,,,,,1
!
create_lines,0,1
!
FLST,3,2,8
FITEM,3,0.2,0.1,0
FITEM,3,0.25,-0.25,0
K, ,P51X
kplot,,,,,,,,,1
!
create_lines,0,1
!
lplot
entity_numbers
numbers_toggle,1
numbers_toggle,2
!
/FOC,  1,  0.173631994691    ,  0.650269511120E-01,   0.00000000000
/REPLO
FLST,3,2,8
FITEM,3,0.15,-0.15,0
FITEM,3,0.65,-0.25,0
K, ,P51X
create_lines,,1
FLST,3,2,8
FITEM,3,0.55,-0.3,0
FITEM,3,0.7,0.15,0
K, ,P51X
create_lines,,1
!
/COM,ANSYS RELEASE  5.6.1  UP20000209       17:57:40    07/31/2001
FLST,3,2,8
FITEM,3,0.7,0,0
FITEM,3,0.4,0.15,0
K, ,P51X
create_lines,,1
FLST,3,2,8
FITEM,3,0.5,0.15,0
FITEM,3,0.3,0.1,0
K, ,P51X
create_lines,,1
FLST,3,2,8
FITEM,3,0.35,0.1,0
FITEM,3,0.1,0.35,0
K, ,P51X
create_lines,,1
FLST,3,2,8
FITEM,3,0.2,0.35,0
FITEM,3,-0.15,0.25,0
K, ,P51X
create_lines,,1
FLST,3,2,8
FITEM,3,-0.5E-01,0.2,0
FITEM,3,-0.25,0.45,0
K, ,P51X
create_lines,,1
!
toolbar
lplot