@echo off
echo       (C) Gleb Vdovin 1993-1995
echo       This file is a part of LightPipes beta distribution
rem       

begin 0.03 5e-7 | circ_ap 0.005 | forvard 0.5 | b_split foo 0.3 > foo1
rem Propagation to mirror1, reflection,
rem propagation back and beamsplitter again

forvard 1 < foo | absorber  0.7 > foo2

rem Propagation to mirror2, reflection,
rem propagation back and beamsplitter again
forvard 0.4 < foo1 | Zernike 3 1 0.005 25 | forvard 0.4 | absorber  0.3 > foo3

rem mixing the two beams and propagation to the screen
b_mix foo2 < foo3 | forvard 1 | interpol 0.012 128 | file_ps tg.ps 128 > null

rem deleting the temp files
del foo 
del foo1 
del foo2 
del foo3

