$
$
$****************************************          Set Dimensions
$
&dimen -save -dimen Meters   M-Tons
&LOCAL xfac = 1 yfac = 1 zfac = 1
$
$****************************************          Defaults                                
$
&model_def -save
&model_def -fyield 248.04 -alpha 3.6111E-6 -spgravit 7.8492 -emodulus \ 
       1.9981E5 -poi_ratio 0.3 -kfac 1 1 -cmfac 0.85 0.85 -flood no -use @
$
$
$****************************************          Set body to buoy
$
&describe body buoy
$
$****************************************          Define Points                             
*f1  8.22   0 0
*f2  0      0 0
*f3 -8.22   0 0
*f4  0  -8.22 0 
*f5  0   8.22 0
*bcg 0    0 7.354
#weight *bcg 500 27.4 27.4 5.5  -cat Buoy
$
$****************************************          Define Buoy Shape 
$
$
pgen buoy -loc 0  0  0  0 -90
   plane 0  10 -circ  0 0 8.22 0 10 18
end_pgen
&dimen -rem