@ECHO OFF
REM ====================================================================
REM Model L7:
REM ~~~~~~~~~
REM Simple MS-DOS batch file to generate PostScript files with the
REM sections across the model, displaying the velocities.
REM --------------------------------------------------------------------
REM Grid dimensions, initial position, and plotting parameters:
REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ECHO N1=400    N2=1      N3=151    >grd.tmp
ECHO D1=0.020  D2=0.020  D3=0.020 >>grd.tmp
ECHO O1=3.130  O2=1.301  O3=0.000 >>grd.tmp
ECHO VCIRC=-4.5   VREF=1.5        >>grd.tmp
ECHO VSIZE=-6.04                  >>grd.tmp
REM ....................................................................
ECHO 'l7-mod.dat' 'grd.tmp' ' ' 'l7-vel1.out' ' ' / >grid.tmp
ECHO /                                             >>grid.tmp
ECHO 'grid.tmp' /|grid
ECHO 'grd.tmp' ' ' 'l7-vel1.out' 'l7-vel1.ps' /|grdps
REM --------------------------------------------------------------------
REM Shifting the grid:
REM ~~~~~~~~~~~~~~~~~~
ECHO           O2=3.651           >>grd.tmp
REM ....................................................................
ECHO 'l7-mod.dat' 'grd.tmp' ' ' 'l7-vel2.out' ' ' / >grid.tmp
ECHO /                                             >>grid.tmp
ECHO 'grid.tmp' /|grid
ECHO 'grd.tmp' ' ' 'l7-vel2.out' 'l7-vel2.ps' /|grdps
REM --------------------------------------------------------------------
REM Shifting the grid:
REM ~~~~~~~~~~~~~~~~~~
ECHO           O2=6.001           >>grd.tmp
REM ....................................................................
ECHO 'l7-mod.dat' 'grd.tmp' ' ' 'l7-vel3.out' ' ' / >grid.tmp
ECHO /                                             >>grid.tmp
ECHO 'grid.tmp' /|grid
ECHO 'grd.tmp' ' ' 'l7-vel3.out' 'l7-vel3.ps' /|grdps
REM --------------------------------------------------------------------
REM Shifting the grid:
REM ~~~~~~~~~~~~~~~~~~
ECHO           O2=8.351           >>grd.tmp
REM ....................................................................
ECHO 'l7-mod.dat' 'grd.tmp' ' ' 'l7-vel4.out' ' ' / >grid.tmp
ECHO /                                             >>grid.tmp
ECHO 'grid.tmp' /|grid
ECHO 'grd.tmp' ' ' 'l7-vel4.out' 'l7-vel4.ps' /|grdps
REM --------------------------------------------------------------------
REM Shifting the grid:
REM ~~~~~~~~~~~~~~~~~~
ECHO           O2=10.701          >>grd.tmp
REM ....................................................................
ECHO 'l7-mod.dat' 'grd.tmp' ' ' 'l7-vel5.out' ' ' / >grid.tmp
ECHO /                                             >>grid.tmp
ECHO 'grid.tmp' /|grid
ECHO 'grd.tmp' ' ' 'l7-vel5.out' 'l7-vel5.ps' /|grdps
REM --------------------------------------------------------------------
REM Composing a single figure of the 5 grids:
REM ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
REM (Percent sign must be doubled in MS-DOS)
REM
ECHO %%!                            >l7-vel.ps
ECHO %%%%BoundingBox: 14 61 581 799 >>l7-vel.ps
ECHO /cm {2.54 div 72 mul} def    >>l7-vel.ps
ECHO /gsave                       >>l7-vel.ps
ECHO /showpage {} def             >>l7-vel.ps
ECHO  2 cm  1 cm translate        >>l7-vel.ps
COPY l7-vel.ps+l7-vel1.ps           l7-vel.ps
ECHO -1 cm -5 cm translate        >>l7-vel.ps
COPY l7-vel.ps+l7-vel2.ps           l7-vel.ps
ECHO -1 cm -5 cm translate        >>l7-vel.ps
COPY l7-vel.ps+l7-vel3.ps           l7-vel.ps
ECHO -1 cm -5 cm translate        >>l7-vel.ps
COPY l7-vel.ps+l7-vel4.ps           l7-vel.ps
ECHO -1 cm -5 cm translate        >>l7-vel.ps
COPY l7-vel.ps+l7-vel5.ps           l7-vel.ps
ECHO /grestore                    >>l7-vel.ps
ECHO /showpage                    >>l7-vel.ps
REM ====================================================================