jiang@hbar.rice.edu (Jun Jiang) (07/05/90)
Several days ago, Glen and Henry (hwt@bwdlh490.bnr.ca (Henry Troup))
posted a sign for recycling. It is OK when printed in small size, but
doest not look very nice at very large sizes. So I used xfig to build
another one, it has the same basic structures but looks much nicer.
Enjoy.
----------------- Cut Here -----------------------------
%!PS-Adobe-1.0
%
%---------------- recycle-jj.ps -------------------------
% PostScript code to draw a recycling sign
%
%CreationDate: Wed Jul 4 11:47:30 1990
%CeadtedBy: jiang@dirac.rice.edu (Jun Jiang)
%
%---------------- variables -------------------------
%
/x0 290 def
/y0 415 def
%
%---------------- procedures -------------------------
%
/Spline {
/y3 exch y0 sub def
/x3 exch x0 sub def
/y2 exch y0 sub def
/x2 exch x0 sub def
/y1 exch y0 sub def
/x1 exch x0 sub def
/xa x1 x2 x1 sub 0.666667 mul add def
/ya y1 y2 y1 sub 0.666667 mul add def
/xb x3 x2 x3 sub 0.666667 mul add def
/yb y3 y2 y3 sub 0.666667 mul add def
x1 y1 lineto
xa ya xb yb x3 y3 curveto
} bind def
/ML {
/y2 exch y0 sub def
/x2 exch x0 sub def
/y1 exch y0 sub def
/x1 exch x0 sub def
x1 y1 moveto
x2 y2 lineto
} bind def
/L {
/y1 exch y0 sub def
/x1 exch x0 sub def
x1 y1 lineto
} bind def
/CurveArrow {
newpath 259.000 499.000 256.500 514.000 ML
256.500 514.000 254.000 529.000 251.500 539.000 Spline
251.500 539.000 249.000 549.000 251.500 561.500 Spline
251.500 561.500 254.000 574.000 256.500 584.000 Spline
259.000 594.000 L stroke
newpath 149.000 499.000 259.000 499.000 ML stroke
newpath 99.000 399.000 91.500 411.500 ML
91.500 411.500 84.000 424.000 76.500 436.500 Spline
76.500 436.500 69.000 449.000 66.500 461.500 Spline
66.500 461.500 64.000 474.000 79.000 501.500 Spline
79.000 501.500 94.000 529.000 106.500 544.000 Spline
106.500 544.000 119.000 559.000 134.000 574.000 Spline
134.000 574.000 149.000 589.000 159.000 591.500 Spline
159.000 591.500 169.000 594.000 196.500 594.000 Spline
196.500 594.000 224.000 594.000 241.500 594.000 Spline
259.000 594.000 L stroke
newpath 179.000 429.000 209.000 444.000 ML
239.000 459.000 L stroke
newpath 174.000 339.000 186.500 369.000 ML
186.500 369.000 199.000 399.000 219.000 429.000 Spline
239.000 459.000 L stroke
newpath 179.000 429.000 171.500 444.000 ML
171.500 444.000 164.000 459.000 151.500 489.000 Spline
151.500 489.000 139.000 519.000 136.500 529.000 Spline
136.500 529.000 134.000 539.000 134.000 549.000 Spline
134.000 549.000 134.000 559.000 139.000 569.000 Spline
139.000 569.000 144.000 579.000 149.000 584.500 Spline
154.000 589.000 L stroke
newpath 34.000 384.000 54.000 389.000 ML
54.000 389.000 74.000 394.000 86.500 396.500 Spline
99.000 399.000 L stroke
newpath 174.000 339.000 141.500 351.500 ML
141.500 351.500 109.000 364.000 71.500 374.000 Spline
34.000 384.000 L stroke
} bind def
%
%----------------- Main Program ---------------------
%
300 400 translate
0.9 -0.9 scale
1 setlinecap 1 setlinejoin
10.00 setlinewidth
CurveArrow
120 rotate
CurveArrow
120 rotate
CurveArrow
showpage