ZP=0 PWmz7*/
XDEG=0.5 YDEG=0.2 a2 SQ:d
PI=3.14159 a(7ryl~c=
POLARIZ Y 1 0 R#`itIYh
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS 6+FON$8
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 t#q>U%!
DISPLAY w*
I+~o-
PICTURE 'laser dioed' s6D-?G*u%8
RETURN p3S c4
cDx^}N!
RAYS 0 % n{W
POLARIZ X IBqY$K+l
DECOMPOSE DIRECTION .99 20 gctaarB&
POLARIZ Y A1q^E(}O
DECOMPOSE DIRECTION .99 20 R\}YD*
POLARIZ Z caP
DECOMPOSE DIRECTION .99 20