%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% XY PLANE PICTURES
\begin{TIOS}

(/home/senya/work/model/MC_PG/senq/Inew.rc) run

/to_Z { 
 L /Z /m ordered 
[10 30 50 80 120 180 220 380 620 2380]
 NewGRID replaceGRID Z last first RANGE
} def

/to_ZZ { 
 L /Z /m ordered 
[10 30 50 80 120 180 220]
 NewGRID replaceGRID Z last first RANGE
} def

\end{TIOS}	

\begin{STREAMS} 

/XOVY 2. def

MASK
DEPTH T last VALUE L first VALUE X Y CONTOUR
DEPTH T last VALUE Y 0 VALUE L 1 8 RANGE  X L LINE
DEPTH T last VALUE X 240 VALUE L 1 8 RANGE  Y L LINE

STR_XY
TEMP  T last VALUE L first VALUE X Y CONTOUR
TEMP  T last VALUE Y 0 VALUE to_ZZ X Z CONTOUR
TEMP T last VALUE X 240 VALUE to_ZZ Y Z CONTOUR

\end{STREAMS}