Path: utzoo!utgpu!water!watmath!clyde!rutgers!mit-eddie!bloom-beacon!athena.mit.edu!mar From: mar@athena.mit.edu (Mark A. Rosenstein) Newsgroups: comp.lang.postscript Subject: example: no smoking Message-ID: <2663@bloom-beacon.MIT.EDU> Date: 30 Jan 88 00:17:34 GMT Sender: daemon@bloom-beacon.MIT.EDU Reply-To: mar@athena.mit.edu (Mark A. Rosenstein) Organization: Massachusetts Institute of Technology Lines: 38 There've been two requests for this recently, so I made one up. This is nothing fancy, but it will print a simple no smoking sign on an 8.5x11 inch piece of paper. -Mark mit-eddie!athena.mit.edu!mar mar@athena.mit.edu Variables won't and constants aren't. ---------------------------------------------------------------- %! Handwritten postscript by % Mark Rosenstein, % 29 Jan 1988 % first the cigarette, with a gray end 30 setlinewidth 160 400 moveto 200 400 lineto .5 setgray stroke 0 setgray 200 400 moveto 440 400 lineto stroke % now some curling smoke 10 setlinewidth 170 420 moveto 170 540 300 400 300 500 curveto stroke 190 420 moveto 190 500 320 375 320 500 curveto stroke % and the circle-slash % we'll white out a little of the cigarette on either side % of the slash first 50 setlinewidth 170 270 moveto 440 520 lineto gsave 1 setgray stroke grestore % and append the circle to the slash path 30 setlinewidth 305 395 184 45 405 arc stroke % Now put some text underneath it /Helvetica findfont 52 scalefont setfont 140 100 moveto (NO SMOKING) show showpage