ZP=0 ]!Oue_-;
XDEG=0.5 YDEG=0.2 T/l1qcf`wT
PI=3.14159 [k$efwJ
POLARIZ Y 1 0 */(I[p
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS -R0/o7
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 s9O2k}]
DISPLAY xzm@
v(
PICTURE 'laser dioed' OX\$ nQ\o
RETURN (?>cn_m
BtsdeLj|
RAYS 0 jnJZ#=)
POLARIZ X -:<lkq&/
DECOMPOSE DIRECTION .99 20 ;JT(3yK4>p
POLARIZ Y 7C7>y/uS
DECOMPOSE DIRECTION .99 20 Y/fJQ6DY
POLARIZ Z +&5'uAe
DECOMPOSE DIRECTION .99 20