!   TITLE:  bspring.mac (G200)
!
!-----------------------------------------------------------------------
!       Rev -   02/01/2006      D. Edwards
!-----------------------------------------------------------------------
!
!   Electroid Brake Spring
!
!
!   CSspX0:     Cartesian spring center Coordinate System (X is the spring #)
!   CSspX1:     Cylindrical spring center Coordinate System
!   CSspX2:     Spherical spring center Coordinate System
!
!
!************************** TABLE OF CONTENTS **************************
!
!       Model Assembly Preparation
!
!   1.  Parameter List
!   2.  Model Coordinate System
!   3.  Solid Model
!
!********************* Model Assembly Preparation **********************
!
mod_assemb_prep,arg1,arg2,arg3      ! prepare database for assembly
!
!<<<<<<<<<<<<<<<<<<<<<<<< 1.  Parameter List >>>>>>>>>>>>>>>>>>>>>>>>>>
!
!bspring2.parm
arg4
!
!<<<<<<<<<<<<<<<<<<<< 2.  Model Coordinate System >>>>>>>>>>>>>>>>>>>>>
!
mod_coord_system,acs,xc,yc,zc,rotxyc,rotyzc,rotzxc
!
!<<<<<<<<<<<<<<<<<<<<<<<<<<< 3.  Solid Model >>>>>>>>>>>>>>>>>>>>>>>>>>
!

!csys,ct_name
wpcsys,-1


cyl4,0.0,0.0,ID/2,starta,OD/2,stopa

cyl4, rholes,0.0,d_rivet/2
cyl4, 0.0,rholes,d_rivet/2
cyl4, -rholes,0.0,d_head/2
cyl4, 0.0,-rholes,d_rivet/2

!ASBA, NA1, NA2, SEPO, KEEP1, KEEP2
asba,am+1,all,,delete,delete

init_entity_num


!lsel,s,loc,x,-rholes+d_head/2,-rholes-d_head/2
!lsel,r,loc,y,-d_head/2,d_head/2
!lesize,all,.007
!alls

view,'f'

!                  (1)     (2)     (3)   (4)    (5)    (6)    (7)  (8)   (9)
!       MSH_AREA, mstyp, mshdens, etpa, elmnl, elmxl, lszmsh, mat, real, ecs
!msh_area,,0,1,0.015,0.015,-1,C304A
efactor=1
msh_area,,0,1,0.015*efactor,0.015*efactor,-1,C304A,realnum

! Turn on KP and line numbers & switch to front view.
/pnum,kp,1
/pnum,line,1
eplot