EPS files for w5_4.tex

To generate the eps files for w5_4.tex

\(\(\( (*\ 
      Just\ highlight\ the\ bracket\ on\ the\ far\ right
	\ \ and\ shift - \(\(return\)\(.\)\)\ *) \)\(\ \)\(
\)\( (*\ And\ YES, \ 
      you\ want\ to\ initialize, \ if\ \(\(asked\)\(.\)\)\ *) \)\)\)

<< Graphics`Colors`
Clear[aline, bline, cline, dline, eline, fline, dots, words, road1, 
        road2, wavy, sandlist, sand];
aline  =  
        Graphics[{Thickness[0.005], Dashing[{ .02,  .01}], 
            Line[{{0, 0}, {0, 500}}]}];
bline =  
        Graphics[{Thickness[0.005], Dashing[{ .02,  .01}], 
            Line[{{0, 0}, {1500, 0}}]}];
cline = Graphics[Line[{{400, 0}, {1500, 0}}]];
dline = Graphics[Line[{{0, 500}, {400, 0}}]];
eline = 
        Graphics[{Thickness[ .001], Line[{{20, 30}, {140, 30}}], 
            Line[{{185, 30}, {350, 30}}], Line[{{410, 30}, {980, 30}}], 
            Line[{{1015, 30}, {1480, 30}}], 
            Line[{{0, -50}, {675, -50}}], 
            Line[{{825, -50}, {1500, -50}}]}];
dots = 
        Graphics[{PointSize[ .015], Point[{0, 500}], 
            Point[{1500, 0}]}];
words = 
        Graphics[{Text["House", {0, 550}], Text["Store", {1500, 70}], 
            Text["500", {-80, 250}], Text["B", {250, 280}], 
            Text["O", {30, 400}], Text["-", {30, 400}], 
            Text["x", {170, 20}], Text["Ocean", {1000, 650}], 
            Text["R", {1000, 20}], Text["Road", {-200, -50}], 
            Text["Sand", {750, 300}], 
            Text["1500", {750, -70}]}];
road1 = 
        Graphics[{Thickness[ .05], GrayLevel[ .9], 
            Line[{{-200, -30}, {1700, -30}}]}];
road2  =  
        Graphics[{Thickness[ .001], GrayLevel[ .95], 
            Line[{{-200, 15}, {1600, 15}}], 
            Line[{{-200, -100}, {1600, -100}}]}];
wavy  =  
        Plot[600 + 10*Cos[x/100], {x, -200, 1600}, 
          DisplayFunction -> Identity];
sandlist = 
        Table[{Random[Real, {-100, 1600}], Random[Real, {20, 600}]}, {i, 
            0, 300}];
sand = 
        ListPlot[sandlist, DisplayFunction -> Identity, 
          PlotStyle -> {PointSize[ .002]}];
Display["beach.eps", 
        Show[road1, wavy, sand, aline, bline, cline, dline, eline, dots, 
          words, AspectRatio -> Automatic, 
          PlotRange -> All], "EPS"];

To save space, do NOT save when quitting.

\(Executing\ this\ notebook\ creates\ the\ following\ \(file : 

        beach . eps\)\)