[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Rising Sun Postscript Code
- To: [email protected]
- Subject: Rising Sun Postscript Code
- From: [email protected]
- Date: Mon, 23 Oct 1995 12:35:22 -0700
- Comments: This message is NOT from the person listed in the Fromline. It is from an automated software remailing service operating atthat address.THE PORTAL SYSTEM DOES NOT CONDONE OR APPROVE OF THE CONTENTS OF THISPOSTING. Please report problem mail to <[email protected]>.
- Sender: [email protected]
I thought that with all of the talk about Postscript, I might demonstrate
what the language can do. Here is a Postscript program which will run
automatically on any machine. I call it "Rising Sun".
Just attach your headers.
Domo Arigato,
Hara De Kangaeru
%--------------Prologue-------------
/inch
{ 72 mul }
def
/rays
{ 0 5 180
{ gsave
rotate
0 0 moveto
5 inch 0 rlineto
stroke
grestore }
for }
def
/sunRays
%called as: x y sunRays
{ newpath
translate
.5 setlinewidth
rays
0 0 25 0 180 arc
gsave
1 setgray
fill
grestore
2 setlinewidth
stroke }
def
%-----------Script-----------
%first set font and show letters
/Helvetica-BoldOblique findfont
3 inch scalefont setfont
1 inch 5 inch translate
0 0 moveto
(SUN) false charpath
gsave
stroke
grestore
%now set clipping path from restored text path
clip
gsave
(SUN) stringwidth pop 2 div
-10 sunRays
grestore
showpage