@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 slits, one of them tilted
rem note  the number of points and the size of the grid 
	begin 0.0026 0.55e-6 100 > beam
rem Two slits one tilted, the slits are as high as the grid:
       rect_ap 0.0001 0.0025  -0.0005 < beam > beam1
       rect_ap 0.0001 0.0025  0.0005 0 15 < beam > beam2
rem Mixing two beams, rewriting the initial beam:
       b_mix beam1 < beam2  > beam
rem writing  postscript file of the screen with slits
	file_ps slit2.ps 128 < beam > null
rem propagation 0.75 m into different grid, writing  second file slit1.ps
	forward 0.75 0.005 64 < beam  | file_ps slit3.ps 64 > null
rem removing all beam files
	del beam
	del beam1
	del beam2

