1995-10-23 - Rising Sun Postscript Code

Header Data

From: anonymous-remailer@shell.portal.com
To: cypherpunks@toad.com
Message Hash: 7c61ac8d4c6f15c5f3c210d11fb8c5f8dc95d2d749a15510d24041f9d80315fd
Message ID: <199510231935.MAA09475@jobe.shell.portal.com>
Reply To: N/A
UTC Datetime: 1995-10-23 19:36:39 UTC
Raw Date: Mon, 23 Oct 95 12:36:39 PDT

Raw message

From: anonymous-remailer@shell.portal.com
Date: Mon, 23 Oct 95 12:36:39 PDT
To: cypherpunks@toad.com
Subject: Rising Sun Postscript Code
Message-ID: <199510231935.MAA09475@jobe.shell.portal.com>
MIME-Version: 1.0
Content-Type: text/plain


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





Thread