ZP=0 KDLrt
XDEG=0.5 YDEG=0.2 ]+T$D
PI=3.14159 b-YmS=*
POLARIZ Y 1 0 }[SYWJIc
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS ;.3
{}.Y
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 R#HX}[Hb
DISPLAY * 5(%'3
PICTURE 'laser dioed' 7
/XfPF
RETURN -b=Aj8h
t/h,-x
RAYS 0 Sn[/'V^$a
POLARIZ X 96<0=
DECOMPOSE DIRECTION .99 20 a.fdCI]%
POLARIZ Y (9v%66y
DECOMPOSE DIRECTION .99 20 Xx ou1l!
POLARIZ Z Qn)AS1pL+
DECOMPOSE DIRECTION .99 20