$
$
$***************************************         macro
$
&macro look name
   &set title = %name
   &status curves %name -plot
      set_var nc -num_col
      vl
      view @ -hard
      &if %nc .gt. 2 &then
         plot 1 2 -rax 3  -n
      &else
         plot 1 2   -n
      &endif
      end
&endmacro
$
$***************************************         box
$
&describe body info
$
$***************************************         wind history
$
&data env
    w_history sf1 1
    &loop t 1 200
       history %t 1+&number(sin %t/20)  &number(real 90+(%t/200)*90)
    &endloop
    end
    w_history sf2 2
    &loop t 1 200
       history %t 1+&number(sin %t/20)  &number(real 90+(%t/200)*90)
    &endloop
    end
end
$
$*********************************************      connector length
$
&data curve ct_length hook 0 -0.5
$
$*********************************************      load Variations
$
&data curve lt_multiplier linear 0 0 100 100
&data curve lt_multiplier periodic 0 0 1e-5 10 20 10 20.001 -10 40 -10 -periodic
&set dur   = 10
&loop start ( 30 50 )
    &data curv lt_multiplier hump%start   0 0 %start            0   \
                                          %start+1e-5      10   \
                                          %start+%dur      10   \
                                          %start+%dur+1e-5  0
&endloop