mod_assemb_prep
!
stang=0
!
csys,1
!
k,,7,stang,0
k,,7,stang,5
k,,8,stang,5
k,,8,stang,0
!
create_area
!
k,,0,0,0
k,,0,0,1
!
init_entity_num
!
axp1=km-1
axp2=km
!
! REVOLVE_ASET, axp1, axp2, revang, numseg
!
REVOLVE_ASET,axp1,axp2,360,12
!
!asel,s,loc,z,5
!
!extrude_aset,-10
!
!nummrg,all
!
!init_entity_num



!vsel,s,volu,,1,4,1
!
et,1,shell93
et,2,solid95
!
!                    (1)    (2)    (3)     (4)      (5)     (6)   (7)
! ROTATE_VOLM_MSH, acylcs, stang, mstyp, mshdens, elmszovr, etpa, etpv,
!
!                  elmnl, elmxl, mtrl, rl, ecs, sprat, radrot, varcang
!                   (8)    (9)   (10) (11) (12) (13)    (14)    (15)
!
ROTATE_VOLM_MSH,1,stang,1,0,5,1,2,.35,,,,,,,,