$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$       --------------------   generate a spar  ----------------------
$
$  This comi file will generate a "SPAR".  All one needs to do is fill
$  out the "basic data" below. Here:
$
$  1.) sodia - is the outside diameter of the spar
$
$  2.) sdep - is the depth of the spar,
$
$  3.) nps - is the number of points used to define the circular
$            sections,
$
$  4.) sidia - is the inside diameter of the spar, and
$
$  5.) hdis  - is the distance above the bottom that the hollow
$              section occupies.
$
$  The file SPAR.PPOUT contains a mesh suitable for use.
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*********************************************      basic parameters
$
&dimen -dimen feet kips
&device -g_default devi
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
$      -------------    define basic parameters    ----------------
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
&set sodia  = 63
&set sdep   = 300
&set nps    = 9
&set sidia  = 58
&set hdis   = 100
&set plot = .true.
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
$      -------------    define macros   ----------------
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
$
$*********************************************      macro for plots
$
&macro suplot nams
   &if %plot &then
      &selec :n -sel %nams
      &picture top  -parent :n
      &picture side -parent :n
      &picture iso  -parent :n
   &endif
&endmacro
$
$*********************************************      macro for columns
$
&macro column CN X Y -npoint poi np = 9 \
       -height hei height bot = 0 \
       -diameter di dia
   block %cn -location %x %y 00 0 -90
      &set angi = &number( real 180/(%np%-1) )
      plane %bot  %height% -circ 0 0 %dia%/2 0 %angi% %np
      end
&endmacro
&m_act column block
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
$              -------------    generate ----------------
$
$**********************************************************************
$**********************************************************************
$**********************************************************************
$
$
$*********************************************      enter surface menu
$
&surface
$
$*********************************************      generate exterior
$
column so 0 0 -height %sdep -npoin %nps -dia %sodia
$
$*********************************************      generate hole
$
column si 0 0 -height %hdis -100 -npoin %nps -dia %sidia
$
$*********************************************      join
$
suplot
difference so si spar
suplot spar
$
$*********************************************      rename
$
rename spar
$
$*********************************************      emit
$
emit spar -body
emit spar  -piece "-diftype 3ddif -desc 'Spar Exterior' \
                   -cs_wind 1 1 1 -cs_curr 1 1 1"
$
$*********************************************      all done
$
end
&fini