!   TITLE:  draw_weld_profile.mac (PART_LIB)
!
!
!   OBJECTIVE:
!
!   This sub-macro creates the cross-sectional profile of the weld
!   cross-section.
!
!
!
clear_start_new
mod_assemb_prep
/title, Weld Profile
!
csys,0
!
weld_profile,1,6,4,3+6,0,0,0,0
!
view,'f'
!
aplot
!
!
/DIST, 1 ,1.371742,1
/REP,FAST
/DIST, 1 ,1.371742,1
/REP,FAST
/FOC, 1 ,,-0.300000,,1
/REP,FAST
/FOC, 1 ,,0.100000,,1
/REP,FAST
!
/ANUM ,0,     3, 0.19536    , 0.82494
/LINE , 0.257, 0.705, 0.257, 0.800
/LINE , 0.414, 0.690, 0.414, 0.800
/LINE , 0.157, 0.750, 0.247, 0.750
/LINE , 0.514, 0.750, 0.424, 0.750
/LSYM , 0.247, 0.750,   0,4, 1.000
/LSYM , 0.424, 0.750, 180,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.195, 0.825,wld_wdth
!
/ANUM ,0,     3, 0.64007    , 0.16143
/LINE , 0.435,-0.289, 0.830,-0.289
/LINE , 0.439, 0.662, 0.830, 0.662
/LINE , 0.780, 0.136, 0.780,-0.279
/LINE , 0.780, 0.236, 0.780, 0.652
/LSYM , 0.780,-0.279, 270,4, 1.000
/LSYM , 0.780, 0.652,  90,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.640, 0.161,wld_dpth
!
/ANUM ,0,    12, 0.35000    , 0.61638
/LSYM, 0.366, 0.677,  74,   4, 1.000
/LINE, 0.366, 0.677, 0.334, 0.556
/ANUM ,0,    12, 0.23837    , 0.55601
/LINE, 0.334, 0.556, 0.143, 0.556
/ANUM ,0,     1,-0.36807    , 0.49746
/TLAB,-0.823, 0.497,beadrad=bdraf*wld_wdth
!
/ANUM ,0,     3, 0.60621E-01,-0.88877
/LINE ,-0.219,-0.782,-0.219,-0.914
/LINE , 0.410,-0.314, 0.410,-0.914
/LINE , 0.026,-0.864,-0.209,-0.864
/LINE , 0.166,-0.864, 0.400,-0.864
/LSYM ,-0.209,-0.864, 180,4, 1.000
/LSYM , 0.400,-0.864,   0,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 0.061,-0.889,xc
!
/ANUM,     0,     1,-0.15564    , 0.52661
/TLAB,-0.611, 0.526,beadrad=bdraf*wld_wdth
/ANUM,     5,DELE
!
/ANUM ,0,    12,-0.53758    , 0.29986
/LSPEC,    10,     0, 1.000
/LSYM,-0.538, 0.373,  90,   4, 1.000
/LINE,-0.538, 0.373,-0.538, 0.227
/ANUM ,0,    12,-0.48634    , 0.15349
/LSYM,-0.567, 0.153, 180,   4, 1.000
/LINE,-0.567, 0.153,-0.406, 0.153
/ANUM ,0,    12,-0.31431    , 0.24131
/LSYM,-0.237, 0.241,   0,   4, 1.000
/LINE,-0.237, 0.241,-0.391, 0.241
/ANUM,     0,    12, 0.41406    , 0.73889
/LSYM, 0.414, 0.812,  90,   4, 1.000
/LINE, 0.414, 0.812, 0.414, 0.666
/ANUM,     5,DELE
/ANUM,     0,    12, 0.48730    , 0.66565
/LSYM, 0.565, 0.665,   0,   4, 1.000
/LINE, 0.565, 0.665, 0.411, 0.665
/ANUM,    10,DELE
/ANUM,     9,DELE
!
/ANUM ,0,     1,-0.73969    , 0.76092
/TSPEC, 10, 1.000,   1,   0,   0
/TLAB,-0.757, 0.761,X
/ANUM ,0,     1,-0.65185    , 0.19740
/TLAB,-0.669, 0.197,Y
/ANUM ,0,     1,-0.42366    , 0.28522
/TLAB,-0.494, 0.285,wpcs
/ANUM,     0,     1, 0.54504    , 0.58154
/TLAB, 0.528, 0.582,X
/ANUM,     9,DELE
/ANUM,     0,     1, 0.37671    , 0.75720
/TLAB, 0.359, 0.757,Y
/ANUM,    10,DELE
/ANUM,     0,     1, 0.59387    , 0.68762
/TLAB, 0.524, 0.687,wpcs
/ANUM,    12,DELE
!
/ANUM ,0,     1,-0.57109    , 0.88534
/TLAB,-0.904, 0.885,(weld profile C.S.)
/ANUM,     0,     1, 0.99915    , 0.69128
/TLAB, 0.666, 0.691,(weld profile C.S.)
/ANUM,    12,DELE
!
/ANUM,    11,DELE
/ANUM,     8,DELE
/ANUM ,0,    12,-0.65837    , 0.23582
/LSYM,-0.658, 0.304,  90,   4, 1.000
/LINE,-0.658, 0.304,-0.658, 0.168
/ANUM ,0,     1,-0.48714    , 0.12422
/TLAB,-0.505, 0.124,X
/ANUM,     0,    12, 0.40674    , 0.72961
/LSYM, 0.407, 0.798,  90,   4, 1.000
/LINE, 0.407, 0.798, 0.407, 0.662
/ANUM,     8,DELE
/ANUM,     0,     1, 0.51208    , 0.58875
/TLAB, 0.494, 0.589,X
/ANUM,    11,DELE
!
/ANUM ,0,     3,  1.0452    ,-0.72765E-01
/LSPEC,    15,     0, 1.000
/LINE ,-0.074,-0.758, 1.130,-0.758
/LINE , 0.834, 0.662, 1.130, 0.662
/LINE , 1.080,-0.098, 1.080,-0.748
/LINE , 1.080, 0.002, 1.080, 0.652
/LSYM , 1.080,-0.748, 270,4, 1.000
/LSYM , 1.080, 0.652,  90,4, 1.000
/TSPEC, 15, 1.000,   1,   0,   0
/TLAB , 1.045,-0.073,yc
!
/replot