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

rem model of a screen with two round holes
	begin 0.005 0.55e-6 512 > beam

rem Two circular apertures:
       rect_ap 0.0001 0.0025  -0.0005 < beam > beam1
       rect_ap 0.0001 0.0025  0.0005 0 15 < beam > beam2
rem Mixing three beams, rewriting the initial beam:
       b_mix beam1 < beam2  > beam

rem writing  Postscript Picture in0r.ps
file_ps slit0.ps 128 < beam  > null

rem propagation 0.75 m and second file in1r.ps
	forvard 0.75 < beam  | file_ps slit1.ps 128  > null

rem removing all beam files
	del beam 
	del beam1 
	del beam2 


