ZP=0 ?#|in}
XDEG=0.5 YDEG=0.2 NI2-*G_M
PI=3.14159 Z"d21D~h9`
POLARIZ Y 1 0 }_h2:^n
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS feT.d +Fd
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 E.4 X,
DISPLAY P] Xl
PICTURE 'laser dioed' '=(@3ggA:
RETURN L[. )!c8k
-"x25~k!?F
RAYS 0 Wo,fHY
POLARIZ X <]u]rZc$
DECOMPOSE DIRECTION .99 20 g)=-%n'RoE
POLARIZ Y 6G;t:[H G
DECOMPOSE DIRECTION .99 20 :Y[?@/m4
POLARIZ Z wmaj[e,h
DECOMPOSE DIRECTION .99 20