/out,pl_coil,out
/com, pl_coil.mac
!  plots coil cross sections
!
!
*if,arg2,le,0,then
  arg2=_n_slot
*endif

nsel,all
*if,arg1,eq,0,then
/sho,pl_coil,f33
*else
/sho,term
*endif
*do,_i1,1,arg2  !_n_slot
 /eras
 esel,,mat,,6
 nsle
 nplo
 /noeras
 /title, Coil: %_i1%
 cmsel,,%cwnd_(_i1,1)%
 cmsel,a,%cwnd_(_i1,2)%
 eplo
*enddo
/erase
/sho,xxx
/sho,term