!   TITLE:  draw_jucas_motor_hous.mac (J-UCAS)
!
!---------------------------------------------------------------------------
!   Rev -   06/13/2005      J. Rinaldi
!---------------------------------------------------------------------------
!
!   This macro creates the motor housing drawing, P/N 428842-1.
!
!   CSmh0:  Cartesian Motor Housing Coordinate System
!   CSmh1:  Cylindrical Motor Housing Coordinate System
!   CSmh2:  Spherical Motor Housing Coordinate System
!
!********************* Model Assembly Preparation *********************
!
mod_assemb_prep
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
jucas_motor_hous_pres.parm
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!
drw=arg1
!
!
!---------------------- 3.1  Cross-Sectional Area ---------------------
!
csys,CSmh1
!
k,,r07,0,0
k,,r20,0,0
k,,r20,0,l18
k,,r21,0,l18
k,,r21,0,l07                    ! 1 thru 5
!
k,,r25,0,l07
k,,r25,0,l07+l05
k,,r20,0,l07+l05
k,,r20,0,l07+l05+l06
k,,r25,0,l07+l05+l06            ! 6 thru 10
!
k,,r25,0,l07+l05+l06+l08
k,,r23,0,l07+l05+l06+l08
k,,r23,0,l01
k,,r18,0,l01
k,,r18,0,l01-l10                ! 11 thru 15
!
k,,r17,0,l01-l10
k,,r17,0,l11
k,,r16,0,l11
k,,r16,0,l12
k,,r14,0,l12                    ! 16 thru 20
!
k,,r14,0,l13
k,,r12,0,l13
k,,r12,0,l14
k,,r10,0,l14
k,,r10,0,l15                    ! 21 thru 25
!
k,,r26,0,l15
k,,r26,0,l16
k,,r27,0,l16
k,,r27,0,l17
k,,r09,0,l17                    ! 26 thru 30
!
k,,r09,0,l03+l04
k,,r08,0,l03+l04
k,,r08,0,l03
k,,r09,0,l03
k,,r09,0,l02                    ! 31 thru 35
!
k,,r07,0,l02
!
create_lines
!
ln_fillet_group,km-26,r01,km-25,r01,km-30,r01,km-29,r01,km-31,r01
ln_fillet_group,km-29,rfil1,km-27,rfil2,km-25,rfil3,km-23,r28,km-19,r29
ln_fillet_group,km-26,r03,km-27,r05,km-24,r30,km-23,r30,km-20,r31
!
chamfer_area,1,lm-27,lm-26,chmf1
chamfer_area,1,lm-30,lm,chmf2
chamfer_area,1,lm-38,lm-8,chmf3
chamfer_area,1,lm-53,lm-52,(r19-r18),l09
chamfer_area,1,lm-50,lm-49,(r13-r12),l09
!
chamfer_area,1,lm-57,lm-56,(r15-r14),chmf1
chamfer_area,1,lm-47,lm-46,chmf4
chamfer_area,1,lm-53,lm-3,chmf5
chamfer_area,1,lm-61,lm-60,chmf5
chamfer_area,1,lm-69,lm-68,chmf2
!
csys,CSmh0
create_cs,0,'filcs1',1,r20-r24,0,l20,0,90,0
!
create_arcs,r01,0,,1,150,300
!
csys,CSmh0
create_cs,0,'filcs2',1,r22,0,l21,0,90,0
!
create_arcs,r01,0,,1,170,330
!
lsel,s,line,,lm-1,lm
profile_lines,km-2,km-1
ln_fillet,km,r32
!
lovlap,all
init_entity_num
!
ldele,lm-6,lm-5
ldele,lm-3,lm-2
!
init_entity_num
!
csys,CSmh0
create_cs,0,'filcs3',1,r18-r02,0,l01-l10+l22,0,90,0
!
create_arcs,r02,0,,1,30,270
!
lovlap,all
init_entity_num
!
ldele,lm-4,lm-3
ldele,lm-106
ldele,lm
!
init_entity_num
!
create_area-lines
!
view,'f'
!
lplot
!
*if,drw,ne,4,then
    !---------------------- 3.2  Remove Excess Areas ---------------------
    !
    csys,CSmh0
    create_cs,0,'plane0',0,0,0,0,0,90,0
    !
    ara_create_part,plane0,90,r06
    ara_create_part,plane0,90,r33
    !
    csys,plane0
    asel,s,loc,x,r33,r20
    asel,r,loc,y,0,l18
    adele,all,,,1
    init_entity_num
    !
    asel,s,loc,x,r06,r20
    asel,r,loc,y,l05+l07,l01
    adele,all,,,1
    init_entity_num
    !
    aadd,all
    ln_seg
    init_entity_num
    !
    lplot
    !
    !-------------------------- 3.3  Motor End Cap ------------------------
    !
    csys,plane0
    !
    k,,0,l01-(t_tot-t_flng),0
    k,,r18-rtol,l01-(t_tot-t_flng),0
    k,,r18-rtol,l01,0
    k,,r06,l01,0
    k,,r06,l01+t_flng,0
    !
    k,,0,l01+t_flng,0
    !
    create_area
    !
    aglue,all
    init_entity_num
*endif
!
csys,plane0
!
numcmp,all
arsym,x,all
!
init_entity_num
!
lplot
!
!-------------------------- 3.3  Dimensions ------------------------
!
asel,u,area,,am-2,am,2
lsla,s
lplot
!
*if,drw,eq,1,then
    /ANUM ,0,     3, 0.27991    ,-0.87450
    /LINE ,-0.403,-0.754,-0.403,-0.899
    /LINE , 1.068,-0.750, 1.068,-0.899
    /LINE , 0.245,-0.849,-0.393,-0.849
    /LINE , 0.420,-0.849, 1.058,-0.849
    /LSYM ,-0.393,-0.849, 180,4, 1.000
    /LSYM , 1.058,-0.849,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.280,-0.874,r07
    !
    /ANUM ,0,     3, 0.27991    ,-0.54033
    /LINE ,-0.343,-0.518,-0.343,-0.565
    /LINE , 1.008,-0.522, 1.008,-0.565
    /LINE , 0.245,-0.515,-0.333,-0.515
    /LINE , 0.420,-0.515, 0.998,-0.515
    /LSYM ,-0.333,-0.515, 180,4, 1.000
    /LSYM , 0.998,-0.515,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.280,-0.540,r09
    !
    /ANUM ,0,     3, 0.27639    , 0.63807
    /LINE ,-0.090, 0.681,-0.090, 0.613
    /LINE , 0.747, 0.657, 0.747, 0.613
    /LINE , 0.241, 0.663,-0.080, 0.663
    /LINE , 0.416, 0.663, 0.737, 0.663
    /LSYM ,-0.080, 0.663, 180,4, 1.000
    /LSYM , 0.737, 0.663,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.276, 0.638,r18
    !
    /ANUM ,0,     3, 0.27815    , 0.10339
    /LINE ,-0.083, 0.129,-0.083, 0.078
    /LINE , 0.744, 0.131, 0.744, 0.178
    /LINE , 0.243, 0.128,-0.073, 0.128
    /LINE , 0.418, 0.128, 0.734, 0.128
    /LSYM ,-0.073, 0.128, 180,4, 1.000
    /LSYM , 0.734, 0.128,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.278, 0.103,r17
    !
    /ANUM ,0,     3, 0.27991    ,-0.40829E-01
    /LINE ,-0.051,-0.045,-0.051, 0.034
    /LINE , 0.716,-0.048, 0.716, 0.034
    /LINE , 0.245,-0.016,-0.041,-0.016
    /LINE , 0.420,-0.016, 0.706,-0.016
    /LSYM ,-0.041,-0.016, 180,4, 1.000
    /LSYM , 0.706,-0.016,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.280,-0.041,r16
    !
    /ANUM ,0,     3, 0.28167    ,-0.15339
    /LINE , 0.033,-0.118, 0.033,-0.078
    /LINE , 0.635,-0.122, 0.635,-0.078
    /LINE , 0.247,-0.128, 0.043,-0.128
    /LINE , 0.422,-0.128, 0.625,-0.128
    /LSYM , 0.043,-0.128, 180,4, 1.000
    /LSYM , 0.625,-0.128,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.282,-0.153,r14
    !
    /ANUM ,0,     3, 0.27991    , 0.82802
    /LINE ,-0.192, 0.694,-0.192, 0.903
    /LINE , 0.857, 0.680, 0.857, 0.903
    /LINE , 0.245, 0.853,-0.182, 0.853
    /LINE , 0.420, 0.853, 0.847, 0.853
    /LSYM ,-0.182, 0.853, 180,4, 1.000
    /LSYM , 0.847, 0.853,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.280, 0.828,r06
    !
    /ANUM ,0,     1,-0.57003    , 0.52940
    /TLAB,-0.955, 0.529,Radius values are used
    /ANUM ,0,     1,-0.48253    , 0.47940
    /TLAB,-0.955, 0.479,for the diameter dimensions
    /ANUM ,0,     1,-0.85003    , 0.42940
    /TLAB,-0.955, 0.429,shown.
    !
    /ANUM ,0,     1,  1.1095    , 0.33221
    /TLAB, 1.057, 0.332,r01
    /ANUM ,0,    12, 0.95950    , 0.45597
    /LINE, 1.069, 0.382, 0.850, 0.530
    /LSYM, 0.850, 0.530, 145,   1, 1.000,
    /ANUM ,0,    12, 0.95177    , 0.38635
    /LINE, 1.054, 0.360, 0.850, 0.413
    /LSYM, 0.850, 0.413, 165,   1, 1.000,
    /ANUM ,0,    12, 0.95177    , 0.29663
    /LINE, 1.057, 0.335, 0.847, 0.258
    /LSYM, 0.847, 0.258, 200,   1, 1.000,
    /ANUM ,0,    12, 0.97033    , 0.11099
    /LINE, 1.076, 0.320, 0.865,-0.098
    /LSYM, 0.865,-0.098, 243,   1, 1.000,
    /ANUM ,0,    12,  1.0647    , 0.89337E-01
    /LINE, 1.106, 0.320, 1.023,-0.141
    /LSYM, 1.023,-0.141, 259,   1, 1.000,
    !
    /ANUM ,0,     3,  1.3139    ,-0.20746E-01
    /LINE , 1.135,-0.751, 1.416,-0.751
    /LINE , 0.878, 0.759, 1.416, 0.759
    /LINE , 1.366,-0.046, 1.366,-0.741
    /LINE , 1.366, 0.054, 1.366, 0.749
    /LSYM , 1.366,-0.741, 270,4, 1.000
    /LSYM , 1.366, 0.749,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.314,-0.021,l01
    !
    /ANUM ,0,     1, 0.60622E-01, 0.30436
    /TLAB, 0.008, 0.304,r02
    /ANUM ,0,    12,-0.38287E-01, 0.24713
    /LINE, 0.005, 0.298,-0.082, 0.196
    /LSYM,-0.082, 0.196, 229,   1, 1.000,
    !
    /ANUM ,0,     3, 0.28203    , 0.75273
    /LINE ,-0.091, 0.775,-0.091, 0.828
    /LINE , 0.760, 0.775, 0.760, 0.828
    /LINE , 0.247, 0.778,-0.081, 0.778
    /LINE , 0.422, 0.778, 0.750, 0.778
    /LSYM ,-0.081, 0.778, 180,4, 1.000
    /LSYM , 0.750, 0.778,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.282, 0.753,r19
    !
    aplot
*endif
!
*if,drw,eq,2,then
    /ZOOM,1,RECT,-0.205779,0.047487,0.800251,-0.423869
    /FOC,   1,  0.190256866588E-01,   1.98838187276    ,   0.00000000000
    !
    /ANNO,REFR
    /ANUM ,0,     3, 0.26501    , 0.30102
    /LINE ,-0.481, 0.271,-0.481, 0.376
    /LINE , 1.116, 0.271, 1.116, 0.376
    /LINE , 0.230, 0.326,-0.471, 0.326
    /LINE , 0.405, 0.326, 1.106, 0.326
    /LSYM ,-0.471, 0.326, 180,4, 1.000
    /LSYM , 1.106, 0.326,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.265, 0.301,r15
    !
    /ANUM ,0,     3, 0.26192    , 0.11229
    /LINE ,-0.475, 0.141,-0.475, 0.187
    /LINE , 1.103, 0.137, 1.103, 0.087
    /LINE , 0.227, 0.137,-0.465, 0.137
    /LINE , 0.402, 0.137, 1.093, 0.137
    /LSYM ,-0.465, 0.137, 180,4, 1.000
    /LSYM , 1.093, 0.137,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.262, 0.112,r14
    !
    /ANUM ,0,     3, 0.26501    ,-0.57873E-01
    /LINE ,-0.026,-0.069,-0.026, 0.017
    /LINE , 0.661,-0.069, 0.661, 0.017
    /LINE , 0.230,-0.033,-0.016,-0.033
    /LINE , 0.405,-0.033, 0.651,-0.033
    /LSYM ,-0.016,-0.033, 180,4, 1.000
    /LSYM , 0.651,-0.033,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.265,-0.058,r13
    !
    /ANUM ,0,     3, 0.26037    ,-0.20948
    /LINE ,-0.023,-0.196,-0.023,-0.134
    /LINE , 0.649,-0.193, 0.649,-0.134
    /LINE , 0.225,-0.184,-0.013,-0.184
    /LINE , 0.400,-0.184, 0.639,-0.184
    /LSYM ,-0.013,-0.184, 180,4, 1.000
    /LSYM , 0.639,-0.184,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.260,-0.209,r12
    !
    /ANUM ,0,     3, 0.26347    , 0.51450
    /LINE ,-0.697, 0.361,-0.697, 0.590
    /LINE , 1.329, 0.364, 1.329, 0.590
    /LINE , 0.228, 0.540,-0.687, 0.540
    /LINE , 0.403, 0.540, 1.319, 0.540
    /LSYM ,-0.687, 0.540, 180,4, 1.000
    /LSYM , 1.319, 0.540,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.263, 0.515,r16
    !
    /ANUM ,0,     3, 0.26347    ,-0.50030
    /LINE , 0.076,-0.377, 0.076,-0.525
    /LINE , 0.556,-0.377, 0.556,-0.525
    /LINE , 0.228,-0.475, 0.086,-0.475
    /LINE , 0.403,-0.475, 0.546,-0.475
    /LSYM , 0.086,-0.475, 180,4, 1.000
    /LSYM , 0.546,-0.475,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.263,-0.500,r10
    !
    /ANUM ,0,     3, 0.26501    ,-0.65500
    /LINE , 0.055,-0.396, 0.055,-0.680
    /LINE , 0.580,-0.396, 0.580,-0.680
    /LINE , 0.230,-0.630, 0.065,-0.630
    /LINE , 0.405,-0.630, 0.570,-0.630
    /LSYM , 0.065,-0.630, 180,4, 1.000
    /LSYM , 0.570,-0.630,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.265,-0.655,r11
    !
    /ANUM ,0,     1,  1.4684    , 0.10326
    /TLAB, 1.416, 0.103,rfil2
    /ANUM ,0,    12,  1.3710    , 0.19608
    /LINE, 1.416, 0.147, 1.326, 0.246
    /LSYM, 1.326, 0.246, 132,   1, 1.000,
    /ANUM ,0,     1,-0.85731    , 0.18370
    /TLAB,-0.945, 0.184,rfil1
    /ANUM ,0,    12,-0.80867    , 0.29663
    /LINE,-0.858, 0.236,-0.759, 0.357
    /LSYM,-0.759, 0.357,  50,   1, 1.000,
    /REPLOT
    /ANUM ,0,     1,-0.57885    ,-0.23707
    /TLAB,-0.666,-0.237,rfil3
    /ANUM ,0,    12,-0.51785    ,-0.13188
    /LINE,-0.577,-0.184,-0.459,-0.079
    /LSYM,-0.459,-0.079,  41,   1, 1.000,
    !
    /ANUM ,0,     3, 0.26501    ,-0.81279
    /LINE ,-0.824,-0.324,-0.824,-0.838
    /LINE , 1.459,-0.324, 1.459,-0.838
    /LINE , 0.230,-0.788,-0.814,-0.788
    /LINE , 0.405,-0.788, 1.449,-0.788
    /LSYM ,-0.814,-0.788, 180,4, 1.000
    /LSYM , 1.449,-0.788,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.265,-0.813,r27
    !
    /ANUM ,0,     3, 0.26501    ,-0.74782
    /LINE ,-0.273,-0.396,-0.273,-0.773
    /LINE , 0.908,-0.389, 0.908,-0.773
    /LINE , 0.230,-0.723,-0.263,-0.723
    /LINE , 0.405,-0.723, 0.898,-0.723
    /LSYM ,-0.263,-0.723, 180,4, 1.000
    /LSYM , 0.898,-0.723,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.265,-0.748,r26
    !
    lplot
*endif
!
*if,drw,eq,3,then
    /ZOOM,1,RECT,-0.205779,0.047487,0.800251,-0.423869
    /FOC,   1,  0.190256866588E-01,   1.98838187276    ,   0.00000000000
    /ZOOM,1,RECT,-0.347680,0.131105,1.001271,-0.555746
    !
    /ANUM ,0,     1,-0.10142    , 0.47144
    /TLAB,-0.224, 0.471,r13-r12
    /ANUM ,0,     1,-0.58108E-01,-0.64856
    /TLAB,-0.181,-0.649,chmf1
    /ANUM ,0,    12,-0.26569    , 0.32138
    /LINE,-0.174, 0.450,-0.357, 0.193
    /LSYM,-0.357, 0.193, 234,   1, 1.000,
    /ANUM ,0,    12,-0.13884    ,-0.45210
    /LINE,-0.094,-0.593,-0.184,-0.311
    /LSYM,-0.184,-0.311, 107,   1, 1.000,
    !
    /ANUM ,0,     1, 0.98715E-01, 0.19724E-01
    /TLAB, 0.011, 0.020,chmf3
    /ANUM ,0,    12,-0.76961E-01,-0.62265E-01
    /LINE, 0.008, 0.007,-0.162,-0.132
    /LSYM,-0.162,-0.132, 219,   1, 1.000,
    /ANUM ,0,     1, 0.80316    , 0.29006E-01
    /TLAB, 0.751, 0.029,r28
    !
    /ANUM ,0,    12, 0.90381    ,-0.48343E-01
    /LINE, 0.837, 0.020, 0.970,-0.116
    /LSYM, 0.970,-0.116, 314,   1, 1.000,
    /ANUM ,0,     3, 0.26347    ,-0.79732
    /LINE ,-0.855,-0.340,-0.855,-0.822
    /LINE , 1.487,-0.340, 1.487,-0.822
    /LINE , 0.228,-0.772,-0.845,-0.772
    /LINE , 0.403,-0.772, 1.477,-0.772
    /LSYM ,-0.845,-0.772, 180,4, 1.000
    /LSYM , 1.477,-0.772,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.263,-0.797,r26
    !
    /ANUM ,0,     1,  1.3384    ,-0.45249E-01
    /TLAB, 1.286,-0.045,r29
    /ANUM ,0,    12,  1.4329    ,-0.13652
    /LINE, 1.366,-0.061, 1.499,-0.212
    /LSYM, 1.499,-0.212, 311,   1, 1.000,
    /ANUM ,0,     1,-0.59123    ,-0.20923
    /TLAB,-0.679,-0.209,chmf2
    /ANUM ,0,    12,-0.76536    ,-0.26492
    /LINE,-0.688,-0.206,-0.843,-0.324
    /LSYM,-0.843,-0.324, 217,   1, 1.000,
    !
    lplot
*endif
!
*if,drw,eq,4,then
    /USER,  1
    /FOC,   1,   2.78952755315    ,   2.52270227225    ,   0.00000000000
    /FOC,   1,   2.78106503412    ,   2.49423037187    , -0.144328993201E-14
    /DIST,  1,   3.96448017937
    /ANG,   1, -0.300000000001
    /VIEW, 1 ,,,1
    /ANG, 1
    /REP,FAST
    /FOC,   1,   4.02987629062    ,   2.43476316918    , -0.144328993201E-14
    !
    /ANUM ,0,     3, 0.95870    ,-0.57301
    /LINE , 0.844,-0.611, 0.934,-0.611
    /LINE , 0.844,-0.485, 0.934,-0.485
    /LINE , 0.884,-0.711, 0.884,-0.621
    /LINE , 0.884,-0.385, 0.884,-0.475
    /LSYM , 0.884,-0.621,  90,4, 1.000
    /LSYM , 0.884,-0.475, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.959,-0.573,l18
    !
    /ANUM ,0,     3,  1.1035    ,-0.36572
    /LINE ,-0.084,-0.073, 1.206,-0.073
    /LINE , 0.943,-0.608, 1.206,-0.608
    /LINE , 1.156,-0.291, 1.156,-0.083
    /LINE , 1.156,-0.391, 1.156,-0.598
    /LSYM , 1.156,-0.083,  90,4, 1.000
    /LSYM , 1.156,-0.598, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.103,-0.366,l07
    !
    /ANUM ,0,     3,  1.1004    , 0.90635E-01
    /LINE ,-0.075,-0.073, 1.203,-0.073
    /LINE , 0.844, 0.304, 1.203, 0.304
    /LINE , 1.153, 0.066, 1.153,-0.063
    /LINE , 1.153, 0.166, 1.153, 0.294
    /LSYM , 1.153,-0.063, 270,4, 1.000
    /LSYM , 1.153, 0.294,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.100, 0.091,l05
    !
    /ANUM ,0,     3, 0.97727    , 0.30721
    /LINE , 0.850, 0.307, 0.952, 0.307
    /LINE , 0.844, 0.357, 0.952, 0.357
    /LINE , 0.902, 0.207, 0.902, 0.297
    /LINE , 0.902, 0.457, 0.902, 0.367
    /LSYM , 0.902, 0.297,  90,4, 1.000
    /LSYM , 0.902, 0.367, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.977, 0.307,l06
    !
    /ANUM ,0,     3,  1.3362    , 0.42633
    /LINE , 0.847, 0.357, 1.311, 0.357
    /LINE , 0.092, 0.546, 1.311, 0.546
    /LINE , 1.261, 0.257, 1.261, 0.347
    /LINE , 1.261, 0.646, 1.261, 0.556
    /LSYM , 1.261, 0.347,  90,4, 1.000
    /LSYM , 1.261, 0.556, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.336, 0.426,l08
    !
    /ANUM ,0,     3,  1.4747    , 0.19475E-01
    /LINE , 0.850,-0.608, 1.577,-0.608
    /LINE , 0.099, 0.697, 1.577, 0.697
    /LINE , 1.527,-0.006, 1.527,-0.598
    /LINE , 1.527, 0.094, 1.527, 0.687
    /LSYM , 1.527,-0.598, 270,4, 1.000
    /LSYM , 1.527, 0.687,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.475, 0.019,l01
    !
    /ANUM ,0,     3, 0.19047E-01,-0.83754
    /LINE ,-0.685,-0.634,-0.685,-0.863
    /LINE , 0.828,-0.637, 0.828,-0.863
    /LINE ,-0.016,-0.813,-0.675,-0.813
    /LINE , 0.159,-0.813, 0.818,-0.813
    /LSYM ,-0.675,-0.813, 180,4, 1.000
    /LSYM , 0.818,-0.813,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.019,-0.838,r20
    !
    /ANUM ,0,     3, 0.38568    ,-0.41677
    /LINE , 0.825,-0.465, 0.825,-0.342
    /LINE , 0.051,-0.456, 0.051,-0.342
    /LINE , 0.526,-0.392, 0.815,-0.392
    /LINE , 0.351,-0.392, 0.061,-0.392
    /LSYM , 0.815,-0.392,   0,4, 1.000
    /LSYM , 0.061,-0.392, 180,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.386,-0.417,r24
    !
    /ANUM ,0,     3,-0.40173    ,-0.70450
    /LINE ,-0.014,-0.457,-0.014,-0.730
    /LINE ,-0.685,-0.634,-0.685,-0.730
    /LINE ,-0.262,-0.680,-0.024,-0.680
    /LINE ,-0.437,-0.680,-0.675,-0.680
    /LSYM ,-0.024,-0.680,   0,4, 1.000
    /LSYM ,-0.675,-0.680, 180,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.402,-0.705,r22
    !
    /ANUM ,0,     3,-0.35532    , 0.79605
    /LINE ,-0.682,-0.434,-0.682, 0.871
    /LINE , 0.076, 0.726, 0.076, 0.871
    /LINE ,-0.390, 0.821,-0.672, 0.821
    /LINE ,-0.215, 0.821, 0.066, 0.821
    /LSYM ,-0.672, 0.821, 180,4, 1.000
    /LSYM , 0.066, 0.821,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.355, 0.796,r23
    !
    /ANUM ,0,     3,-0.42957    ,-0.33633
    /LINE ,-0.685,-0.425,-0.685,-0.261
    /LINE ,-0.069,-0.304,-0.069,-0.261
    /LINE ,-0.465,-0.311,-0.675,-0.311
    /LINE ,-0.290,-0.311,-0.079,-0.311
    /LSYM ,-0.675,-0.311, 180,4, 1.000
    /LSYM ,-0.079,-0.311,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.430,-0.336,r21
    !
    /ANUM ,0,     3,-0.51775    , 0.26699
    /LINE ,-0.688,-0.422,-0.688, 0.342
    /LINE ,-0.242, 0.119,-0.242, 0.342
    /LINE ,-0.553, 0.292,-0.678, 0.292
    /LINE ,-0.378, 0.292,-0.252, 0.292
    /LSYM ,-0.678, 0.292, 180,4, 1.000
    /LSYM ,-0.252, 0.292,   0,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.518, 0.267,r25
    !
    /ANUM ,0,     3,-0.43845    ,-0.55135
    /LINE ,-0.076,-0.611,-0.258,-0.611
    /LINE ,-0.033,-0.441,-0.258,-0.441
    /LINE ,-0.208,-0.711,-0.208,-0.621
    /LINE ,-0.208,-0.341,-0.208,-0.431
    /LSYM ,-0.208,-0.621,  90,4, 1.000
    /LSYM ,-0.208,-0.431, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.438,-0.551,l19
    !
    lplot
*endif
!
*if,drw,eq,5,then
    /ZOOM,1,RECT,0.280387,-0.385580,1.174530,-0.831105
    /ANUM ,0,     1,  1.0321    ,-0.14309E-01
    /TLAB, 0.980,-0.014,r30
    !
    /ANUM ,0,    12,  1.1714    , 0.42928E-01
    /LINE, 1.079, 0.010, 1.264, 0.075
    /LSYM, 1.264, 0.075,  19,   1, 1.000,
    /ANUM ,0,    12,  1.1730    ,-0.34420E-01
    /LINE, 1.079, 0.001, 1.267,-0.070
    /LSYM, 1.267,-0.070, 339,   1, 1.000,
    /ANUM ,0,     1,  1.2054    ,-0.47840
    /TLAB, 1.153,-0.478,r31
    ! 
    /ANUM ,0,    12,  1.2906    ,-0.37475
    /LINE, 1.240,-0.432, 1.342,-0.318
    /LSYM, 1.342,-0.318,  48,   1, 1.000,
    /ANUM ,0,     3, 0.19540    ,-0.60550
    /LINE , 1.345,-0.464, 1.345,-0.630
    /LINE ,-0.849,-0.464,-0.849,-0.630
    /LINE , 0.335,-0.580, 1.335,-0.580
    /LINE , 0.160,-0.580,-0.839,-0.580
    /LSYM , 1.335,-0.580,   0,4, 1.000
    /LSYM ,-0.839,-0.580, 180,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.195,-0.605,r07
    !
    /ANUM ,0,     3, 0.15982    , 0.19583
    /LINE , 1.270, 0.126, 1.270, 0.271
    /LINE ,-0.846,-0.079,-0.846, 0.271
    /LINE , 0.300, 0.221, 1.260, 0.221
    /LINE , 0.125, 0.221,-0.836, 0.221
    /LSYM , 1.260, 0.221,   0,4, 1.000
    /LSYM ,-0.836, 0.221, 180,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.160, 0.196,r08
    !
    /ANUM ,0,     3, 0.78983    ,-0.39975
    /LINE , 1.313,-0.438, 0.970,-0.438
    /LINE , 1.140,-0.311, 0.970,-0.311
    /LINE , 1.020,-0.538, 1.020,-0.448
    /LINE , 1.020,-0.211, 1.020,-0.301
    /LSYM , 1.020,-0.448,  90,4, 1.000
    /LSYM , 1.020,-0.301, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.790,-0.400,l02
    !
    /ANUM ,0,     3, 0.62391    ,-0.28064
    /LINE , 0.963,-0.435, 0.626,-0.435
    /LINE , 1.143,-0.076, 0.626,-0.076
    /LINE , 0.676,-0.306, 0.676,-0.425
    /LINE , 0.676,-0.206, 0.676,-0.086
    /LSYM , 0.676,-0.425, 270,4, 1.000
    /LSYM , 0.676,-0.086,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.624,-0.281,l03
    !
    /ANUM ,0,     3, 0.44641    ,-0.17652E-01
    /LINE , 1.134,-0.073, 0.626,-0.073
    /LINE , 1.146, 0.088, 0.626, 0.088
    /LINE , 0.676,-0.173, 0.676,-0.083
    /LINE , 0.676, 0.188, 0.676, 0.098
    /LSYM , 0.676,-0.083,  90,4, 1.000
    /LSYM , 0.676, 0.098, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.446,-0.018,l04
    !
    /ANUM ,0,     1,  1.5436    , 0.27343
    /TLAB, 1.456, 0.273,chmf5
    /ANUM ,0,    12,  1.3076    , 0.17906
    /LINE, 1.441, 0.264, 1.175, 0.094
    /LSYM, 1.175, 0.094, 212,   1, 1.000,
    /ANUM ,0,    12,  1.2751    ,-0.12724
    /LINE, 1.379,-0.166, 1.171,-0.089
    /LSYM, 1.171,-0.089, 159,   1, 1.000,
    /ANUM ,0,     4,  1.4576    , 0.46022E-01
    /LINE, 1.382,-0.166, 1.533, 0.258
    !
    /ANUM ,0,     1,  1.3548    ,-0.24635
    /TLAB, 1.267,-0.246,chmf4
    /ANUM ,0,    12,  1.2178    ,-0.27265
    /LINE, 1.258,-0.243, 1.178,-0.302
    /LSYM, 1.178,-0.302, 216,   1, 1.000,
    !
    lplot
*endif
!
*if,drw,eq,6,then
    /ZOOM,1,RECT,0.246354,0.186796,1.261160,-0.843481
    /FOC,   1,   1.90372312137    ,   1.36654227752    ,   0.00000000000
    !
    /ANUM ,0,     3,-0.68173    ,-0.37500
    /LINE , 0.651,-0.772,-0.679,-0.772
    /LINE ,-0.577, 0.072,-0.679, 0.072
    /LINE ,-0.629,-0.400,-0.629,-0.762
    /LINE ,-0.629,-0.300,-0.629, 0.062
    /LSYM ,-0.629,-0.762, 270,4, 1.000
    /LSYM ,-0.629, 0.062,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.682,-0.375,l15
    !
    /ANUM ,0,     3,-0.43731    ,-0.34870
    /LINE , 0.642,-0.769,-0.435,-0.769
    /LINE ,-0.333, 0.122,-0.435, 0.122
    /LINE ,-0.385,-0.374,-0.385,-0.759
    /LINE ,-0.385,-0.274,-0.385, 0.112
    /LSYM ,-0.385,-0.759, 270,4, 1.000
    /LSYM ,-0.385, 0.112,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.437,-0.349,l16
    !
    /ANUM ,0,     3, 0.13198    ,-0.28992
    /LINE , 0.639,-0.769, 0.134,-0.769
    /LINE , 0.170, 0.239, 0.234, 0.239
    /LINE , 0.184,-0.315, 0.184,-0.759
    /LINE , 0.184,-0.215, 0.184, 0.229
    /LSYM , 0.184,-0.759, 270,4, 1.000
    /LSYM , 0.184, 0.229,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.132,-0.290,l17
    !
    /ANUM ,0,     3,-0.87046    ,-0.33169
    /LINE , 0.635,-0.769,-0.868,-0.769
    /LINE ,-0.587, 0.156,-0.868, 0.156
    /LINE ,-0.818,-0.357,-0.818,-0.759
    /LINE ,-0.818,-0.257,-0.818, 0.146
    /LSYM ,-0.818,-0.759, 270,4, 1.000
    /LSYM ,-0.818, 0.146,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.870,-0.332,l14
    !
    /ANUM ,0,     3,-0.15267    ,-0.26826
    /LINE , 0.639,-0.769,-0.150,-0.769
    /LINE ,-0.164, 0.283,-0.050, 0.283
    /LINE ,-0.100,-0.293,-0.100,-0.759
    /LINE ,-0.100,-0.193,-0.100, 0.273
    /LSYM ,-0.100,-0.759, 270,4, 1.000
    /LSYM ,-0.100, 0.273,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB ,-0.153,-0.268,l13
    !
    /ANUM ,0,     3, 0.88070    ,-0.14760
    /LINE , 0.798,-0.772, 0.983,-0.772
    /LINE , 0.012, 0.527, 0.983, 0.527
    /LINE , 0.933,-0.173, 0.933,-0.762
    /LINE , 0.933,-0.073, 0.933, 0.517
    /LSYM , 0.933,-0.762, 270,4, 1.000
    /LSYM , 0.933, 0.517,  90,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 0.881,-0.148,l12
    !
    /ANUM ,0,     3,  1.0942    ,-0.11047
    /LINE , 0.037, 0.601, 1.197, 0.601
    /LINE , 0.993,-0.772, 1.197,-0.772
    /LINE , 1.147,-0.035, 1.147, 0.591
    /LINE , 1.147,-0.135, 1.147,-0.762
    /LSYM , 1.147, 0.591,  90,4, 1.000
    /LSYM , 1.147,-0.762, 270,4, 1.000
    /TSPEC, 15, 1.000,   1,   0,   0
    /TLAB , 1.094,-0.110,l11
    !
    /ANUM ,0,     1, 0.40095    , 0.69227E-01
    /TLAB, 0.348, 0.069,r03
    ! 
    /ANUM ,0,    12, 0.48923    , 0.16514
    /LINE, 0.438, 0.109, 0.540, 0.221
    /LSYM, 0.540, 0.221,  47,   1, 1.000,
    !
    lplot
*endif