!   TITLE:  magnet.mac (PART_LIB)
!
!
!   This macro creates a motor magnet cross-section.  The active C.S. must
!   be a cartesian C.S. The position and orientation of the C.S. orients the
!   position of the magnet within the assembly.
!
!
! MAGNET, width, height, chamfer
!
!
!
wdth_=arg1
hgth_=arg2
chmf_=arg3
!
!
*get,mag_cs,active,,csys
!
csys,mag_cs
!
k,,wdth_/2,0,0
k,,wdth_/2,hgth_,0
k,,-wdth_/2,hgth_,0
k,,-wdth_/2,0,0
!
create_lines
!
chamfer_area,1,lm-3,lm-2,chmf_
chamfer_area,1,lm,lm-6,chmf_
chamfer_area,1,lm-2,lm-10,chmf_
chamfer_area,1,lm-3,lm-13,chmf_
!
csys,mag_cs
!
lplot
!
*set,wdth_,
*set,hgth_,
*set,chmf_,