%!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