$
$****************************************         begin
$
&dimen -dimen feet kips
$
$****************************************         read model
$
inmodel
$
$****************************************         setup
$
&instat -con 10
&weight -compute temp 0
&env sea -sea regular 180 10 10 -time 20 1 -ramp -1
&describe interest -assoc *01
$
$****************************************         do hydro
$
hydro
   g_press  -heading 180 -period 10 
end
$
$****************************************         add connectors
$
medit
   ~pin fix x y 
   connec ~pin *01
end
$
$****************************************         change process
$
&describe process real
$
$****************************************         time domain
$
&title Real Time Domain
tdom
struct
   lcase -process 01 02 03 04 05 06 07 08 09 10 \
                  11 12 13 14 15 16 17 18 19 20
   ssolve
end
&status s_case -hard
strpost
   rest load
   joint displ
   joint displ -for_ani
   joint code  -detail
   joint code  -for_ani
   beam code   -detail 
   beam code   -for_ani
end
$
$****************************************         make tdom movies
$
&pict side -defl 200   -movie -render gl
&pict side -defl none -type str -color ratio -poin *04 -movie -render gl
$
$****************************************         change process
$
&title Psuduo Time Domain
&describe process pseduo
$
$****************************************         do frequency domain
$
freq
   rao
   fr_2time
end
prcpost
      point *01
         report
         end
      confor
         report
         end
end
struct -init
   lcase -time sea 01 02 03 04 05 06 07 08 09 10 \
                   11 12 13 14 15 16 17 18 19 20
   ssolve
end
&status s_case -hard
strpost
   rest load  
   joint displ
   joint displ -for_ani
   joint code  -detail
   joint code  -for_ani
   beam code   -detail 
   beam code   -for_ani
end
$
$****************************************         make fdom movies
$
&pict side -defl 200   -movie -render gl
&pict side -defl none -type str -color ratio -poin *04 -movie -render gl
$
$****************************************         all done
$
&fini