<<Graphics`Arrow`

Dashed = 15 ; notDashed = 35 ; δ = 1 ; <br /> thickness1 = 0.004 ;    &nbs ... ing[dashing1], Thickness[thickness2], Line[vertices3]}] ;  {l1, l2, l3} ]

R = 160 ; <br />(* model source for Gaussian beams *) source = Graphics[Disk[{0, 0}, R ... 62371;AspectRatioAutomatic, PlotRange {{-1.1 R, 1.1 R}, {-0.3 R, 1.1 R}}]

[Graphics:HTMLFiles/wavefront_4.gif]

⁃Graphics⁃

R = 80 ; (* model source for Gaussian beams *) source = Graphics[Disk[{0, 0}, ... atic] (* PlotRange {{-1.1 R, 1.1 R}, {-0.7 R, (-0.7 + 2.2) R}} *)

[Graphics:HTMLFiles/wavefront_7.gif]

⁃Graphics⁃

Show[GraphicsArray[{good, bad}]]

[Graphics:HTMLFiles/wavefront_10.gif]

⁃GraphicsArray⁃

Export["goodbad.eps", %]

goodbad.eps

Created by Mathematica  (March 10, 2006)