\begin{Remap}
\begin{ingrid}

/win_geom [ 800 900] def

/INPUT_FORMAT  0 def    % 0 -Ingrid/dflt/; 1 -Dir.Acc.; 2 -MCPG ascii;
/OUTPUT_FORMAT 0 def    % 0 -Ingrid; 1 -Dir.Acc./dflt/; 2 -MCPG ascii;

/in_file  (pole.map) def
/out_file (pol2.map) def

\end{ingrid}
\end{Remap}

%----------------------------- this is only for "Ingrid" type INPUT_FORMAT:
\begin{INPUT}
\begin{ingrid}

/Pole_shift 1 def
/Pole_alpha 0. def
/Pole_beta  -90. def
/Pole_gamma 0. def

/Pole_X [ -30 30 .5 ] def
/Pole_Y [ -30 30 .5 ] def

/INPUT
   SOURCES >WORLDBATH >bath
def

\end{ingrid}
\end{INPUT}

\begin{OUTPUT}
\begin{ingrid}
PS 
/XOVY 1 def out_file setplotname
/PLOTGRID -1 def

OUTPUT -1. mul sqrt 0 mul /missing_value NaN def /fullname (Mask) def

X Y CONTOUR

\end{ingrid}
\end{OUTPUT}