ZP=0 %ET+iIhK
XDEG=0.5 YDEG=0.2 [(lW^-
PI=3.14159 z0 3K=aZ
POLARIZ Y 1 0 })%{AfDRF
GAUSSIAN Z 0 2@(ZP) 2@1 2@0 (XDEG/2) (YDEG/2) RADIANS ]f_p8?j"
FIELD ENERGY (ZP) YX -2@0.0026356 -2@0.0009484 PIXELS 101 yWSGi#)1
DISPLAY @yYkti;4-
PICTURE 'laser dioed' ~"!fP3"e
RETURN [/r(__.
*.[.
{qG(
RAYS 0 yG{TH0tq
POLARIZ X Pq$n5fZC!
DECOMPOSE DIRECTION .99 20 ~n_HP_Kf?
POLARIZ Y 8s@3hXD&
DECOMPOSE DIRECTION .99 20 :ws<-Qy
POLARIZ Z ?@x/E&
DECOMPOSE DIRECTION .99 20