ZP=0 $cpQ7
XDEG=0.5 YDEG=0.2 0B:{4Lsn&
PI=3.14159 A_*Lo6uII
POLARIZ Y 1 0 h
_7;UQH
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS
M=abJ4
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 ez:o9)N4
DISPLAY <l
s/3!
PICTURE 'laser dioed' OZ0%;Y0
RETURN KXbYv62
Dt'e<d Is
RAYS 0 #2'&=?J1r
POLARIZ X =ZIFS
DECOMPOSE DIRECTION .99 20 dv}R]f'
POLARIZ Y 1Kf
t?g
DECOMPOSE DIRECTION .99 20 @.@#WHde
POLARIZ Z G`lhvpifG
DECOMPOSE DIRECTION .99 20