&device  -oecho n  -g_default device
&dimen -dimen meters tonnes
inmodel
&instat -loc 0 0 0 0 0 0
medit
  &set gbs_hor     = 15e3
  &set gbs_ver_py  =  0.0     0.000  \
                     1000     0.200  \
                     2070     0.400  \
                     2700     0.500  \
                     3400     0.600  \
                    83400     1.600
  ~lmu   lmu  1000 1000 0 x 1e9 y %gbs_hor z %gbs_hor \
                         -x_py %gbs_ver_py
  connector lmu ~lmu -euler -z  *1
end
&loop x ( 0 .25 .5  .75 1. )
   &loop z ( 0 -.2  -.4 -.5 -.6 -1. -1.6 )
      &set l = x = %x z = %z
      &type %l
      &subtitle %l
      &instat -loc %x 0 %z
      &pict side 
      &stat f_c
   &endloop
&endloop
&instat -loc 1  0 0
&stat f_c
&instat -loc 1  1 0
&stat f_c
c
&fini