&device  -oecho n  -g_default device
&dimen -dimen meters tonnes
inmodel
&instat -loc 0 0 0 0 0 0
$
$****************************************
$
medit
$
  &set gbs_hor     = 1e10
  &set gbs_hor_py  =  0.0     0.000  \
                      625     0.250  \
                     2500     0.500  \
                     4900     0.700  \
                    10000     1.000  \
                    22500     1.500
  &set gbs_ver_py  =  0.0     0.000  \
                     1000     0.200  \
                     2070     0.400  \
                     2700     0.500  \
                     3400     0.600  \
                    83400     1.600
  ~n_sym   gspr comp 1000 1000 0 x 1e9 y %gbs_hor z %gbs_hor \
                         -x_py   %gbs_ver_py          \
                         -y_py   %gbs_hor_py          \
                         -z_py   %gbs_hor_py   
  ~sym     gspr comp 1000 1000 0 x 1e9 y %gbs_hor            \
                         -x_py   %gbs_ver_py          \
                         -y_py   %gbs_hor_py   -symm
$
  connector n_sym ~n_sym -euler -z  *1
  connector sym ~sym -euler -z  *1
end
&instat -loc 1  0 0
&stat f_c
&instat -loc .707  .707 0
&stat f_c
&instat -loc 0  1 0
&stat f_c
c
&fini