! TITLE:  cyl_area_test.mac  (VERIFICATION)
!
!---------------------------------------------------------------------------
!   Rev -     3/15/02   J. Judd
!---------------------------------------------------------------------------
!
! OBJECTIVE:
!   
!   Test [cyl_area.mac] revision B
!
! COMMAND SYNTAX:
!  
!   Cut and paste into command line
!
! ARGUMENTS:
!  
!   none
!    
! DESCRIPTION:
!
!   Test [cyl_area.mac] revision B
!   
! WARNING:
!
! EXAMPLES:
!
! TO BE DONE:
!
!---------------------------------------------------------------------------

mod_assemb_prep               !changes to iso view

cyl_area,1,1,2,0.5,0,360,3    !Creates full cylinder (area 3 and 4)
                              !Note: still in iso view
!Set view, line size, & selected entities to see if retain after next command.                             
lesize,all,0.2,,,4,1          !Size = 0.2; spacing ratio =4
lplo
/pnum,kp,1
/pnum,line,1
asel,s,area,,3                !unselect area 4 to see if stays unselected.
 aplo
lsel,s,line,,1                !select line 1, should stay selected
 lplo
ksel,s,kp,,1                  !select kp 2, should stay selected
 kplo
/view,1,1,0,0                 !change view to YZ plane to see if it retains 
 aplo

cyl_area,2,1,2,0.5,45,240,3   !Creates pie cylinder (area 7,8,9)
                              !Note: entities selected, line divisons show
                              !  and still in YZ plane view. GOOD.
/view,1,1,1,1
aplo
lplo
kplo