!   TITLE:  radial_areas.mac (MANAGEMENT)
!
!
!   OBJECTIVE:
!
!   This sub-macro creates a group of radial areas eminating from the Z axis
!   of a specified coordinate system (CS) at various angular positions.
!
!
!   COMMAND SYNTAX:
!
!                     (1)   (2)    (3)    (4)   (5)    (6) . . . . .(19)
!       RADIAL_AREAS, acs, rad_i, rad_o, zlow, zhigh, ang#1, ... , ang#14
!
!
!   ARGUMENTS:
!
!       (1) acs = active CS.
!
!       (2) rad_i = the radius of the inside edge of the areas.
!
!       (3) rad_o = the radius of the outside edge of the areas.
!
!       (4) zlow = the Z position of the 1st (lowest) orthogonal edge.
!
!       (5) zhigh = the Z position of the 2nd (highest) orthogonal edge.
!
!       (6) ang#1 = radial angle of the 1st area.
!             .
!             .
!       (19) ang#14 = radial angle of the 14th area.
!
!
!   DESCRIPTION:
!
!   Up to 14 areas may be created. The areas area rectangular in shape, with
!   2 side parallel with the Z axis of the specified CS, each at the respective
!   radii given in arguments 2 and 3. The remaining sides, which are normal to
!   the Z axis, are positioned along the Z axis at locations as specified in
!   arguments 3 and 4.
!
!   Only ANG#1 (argument 6) may have the angular value of 0. The remaining
!   angle arguments must be real numbers.
!
!   If the number of desired angles is < 14, then simply use only the arguments
!   necessary. The remaining left blank will be ignored.
!
!   The newly created areas are automatically stored in a component group
!   designated:
!                               NEW_AS
!
!   These areas may be manipulated with boolean operations as desired.
!
!   EXAMPLES: (execute 'mod_assemb_prep' prior to running each):
!
!                   RADIAL_AREAS,0,1,3,-1,1,0,45
!
!                   RADIAL_AREAS,1,0,5,-3,2,0,50,90,145,180
!
!                   RADIAL_AREAS,2,0.25,4,0,2,0,50,90,145,190,250,320,340
!
!
!
*get,prkey_,active,0,prkey
/nopr
!
configuration,0
!
acs___=arg1
radi__=arg2
rado__=arg3
zlow__=arg4
zhigh__=arg5
ang1__=arg6
!
*do,ijk__,7,19,1
    *if,ijk__,le,9,then
        ang%(ijk__-5)%__=arg%ijk__%
    *else
        ang%(ijk__-5)%__=ar%ijk__%
    *endif
*enddo
!
csys,acs___
create_cs,0,,1,0,0,0,0,0,0
!
k,,radi__,ang1__,zlow__
k,,radi__,ang1__,zhigh__
k,,rado__,ang1__,zhigh__
k,,rado__,ang1__,zlow__
!
create_area
acnt___=1
!
*do,ijk__,2,14,1
    *if,ang%ijk__%__,ne,0,then
        k,,radi__,ang%ijk__%__,zlow__
        k,,radi__,ang%ijk__%__,zhigh__
        k,,rado__,ang%ijk__%__,zhigh__
        k,,rado__,ang%ijk__%__,zlow__
        !
        create_area
        acnt___=acnt___+1
    *endif
    !
    *set,ang%ijk__%__,
*enddo
!
configuration,1
init_entity_num
!
asel,s,area,,am-(acnt___-1),am
cm,new_as,area
!
init_entity_num
!
aplot
!
*set,acs___,
*set,radi__,
*set,rado__,
*set,zlow__,
*set,zhigh__,
*set,ang1__,
*set,ijk__,
*set,acnt___,
!
*if,prkey_,eq,1,then
    /go
*endif