/com, com_wind.mac
/com,   builds winding using parameter input-not prompts
!
!    parameters required:
!     
!   Winding file name                     w_file
!   Winding axial clearance               ax_clear
!   Width of a single coil                coil_w
!   Height of single coil                 coil_h
!   Maximum outer radius of slot          maxslotr
!
!   this macro assumes
!     the stator iron is 'S_IRON'
!     the first slot is nearest +X axis in CCW direction
!
 *set,_in_wnd
  *dim,_in_wnd,,12
  _in_wnd(1)=ax_clear,coil_w,coil_h,180/nsp,maxslotr,nsp
  *set,_in_wndc
  *dim,_in_wndc,char,2
  _in_wndc(1)=w_file,'s_iron'
  !b_wndsc,w_file,'s_iron',ax_clear,coil_w,coil_h,180/nsp,maxslotr,nsp !  builds the winding
  _n_prom=1
  b_wndsc
  _n_prom=0