!   TITLE:  equilat_poly_draw.mac (SM_TOOL)
!
!
clear_start_new
mod_assemb_prep
!
/title,Equilateral Polygon Legend of Parameters (equilat_poly.mac)
!
csys,0
!
!       METHOD = 's':
!                           (1)     (2)       (3)       (4)     (5)      (6)
!            EQUILAT_POLY, mthd, side_leng, num_side, a_or_l, strt_ang, z_pos
!
!
!       METHOD = 'o':
!                           (1)   (2)     (3)       (4)     (5)      (6)
!            EQUILAT_POLY, mthd, r_out, num_side, a_or_l, strt_ang, z_pos
!
!
!       METHOD = 'i':
!                           (1)   (2)     (3)       (4)     (5)      (6)
!            EQUILAT_POLY, mthd, r_in, num_side, a_or_l, strt_ang, z_pos
!
EQUILAT_POLY,'i',1,8,1,0,0
!
front_view
!
lplot
!
/ANUM ,0,     3, 0.69704    ,-0.25032
/LINE , 1.241,-0.010, 1.240,-0.253
/LINE , 0.330,-0.007, 0.329,-0.249
/LINE , 0.922,-0.226, 1.230,-0.227
/LINE , 0.647,-0.225, 0.339,-0.224
/LSYM , 1.230,-0.227, 359,4, 1.000
/LSYM , 0.339,-0.224, 179,4, 1.000
/TSPEC, 15, 1.000,   1, 359,   0
/TLAB , 0.697,-0.250,ROUT_
!
/ANUM ,0,     3, 0.57341    , 0.33434
/LINE , 0.326, 0.016, 0.232, 0.250
/LINE , 1.102, 0.331, 1.007, 0.564
/LINE , 0.518, 0.339, 0.250, 0.230
/LINE , 0.740, 0.429, 1.008, 0.537
/LSYM , 0.250, 0.230, 202,4, 1.000
/LSYM , 1.008, 0.537,  22,4, 1.000
/TSPEC, 15, 1.000,   1,  22,   0
/TLAB , 0.573, 0.334,RIN_
/rep
!
/ANUM ,0,     3,-0.36340    , 0.26465
/LINE ,-0.294, 0.636,-0.055, 0.539
/LINE ,-0.554,-0.004,-0.315,-0.101
/LINE ,-0.189, 0.275,-0.082, 0.540
/LINE ,-0.227, 0.182,-0.334,-0.082
/LSYM ,-0.082, 0.540,  67,4, 1.000
/LSYM ,-0.334,-0.082, 247,4, 1.000
/TSPEC, 15, 1.000,   1, 337,   0
/TLAB ,-0.363, 0.265,SLENG_
!
lplot