Path: utzoo!mnetor!uunet!lll-winken!lll-lcc!ames!pasteur!ucbvax!denali.UUCP!bill
From: bill@denali.UUCP (Bill Meine [Sun Rocky Mtn TSE])
Newsgroups: comp.windows.news
Subject: Re:  Sun logo in PostScript?
Message-ID: <8804210104.AA04072@denali.sunpeaks.uucp>
Date: 21 Apr 88 08:03:37 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 35

Here's the one I use.  Some of the transformations are fairly ugly
(it was derived from someone elses code).  It acts as a primitive
that requires a newpath before and adds a sun logo to the currentpath
to use for whatever (even a canvas boundary).

/Sunlogo { % xcenter ycenter s = -
 3 1 roll               	% s xcenter ycenter
 matrix currentmatrix 4 1 roll	% matrix s xcenter ycenter
 translate        		% matrix s
 16 dup mul 2 div sqrt div	% s will now represent total height
 dup scale			% matrix
 0 3 dup mul 2 mul sqrt neg translate	% new starting point from center
 45 rotate
        /Uchar {
                 -.1 0 moveto
                 0 0 .1 180 360 arc
                 0 2.9 rlineto
                 .8 0 rlineto
                 0 -2.9 rlineto
                 0 0 .9 0 180 arcn
                 0 2.9 rlineto
                 .8 0 rlineto
                closepath
                } def
        /2Uchar { Uchar matrix currentmatrix
		  4 4 translate Uchar setmatrix
                } def
 4 { 2Uchar 6 0 translate 90 rotate } repeat
 setmatrix		% restore original CTM
 } def

Try (from psh):

newpath 100 100 150 Sunlogo gsave 1 setgray fill grestore stroke

-Bill