Path: utzoo!mnetor!uunet!lll-winken!lll-tis!ames!pasteur!ucbvax!ucbarpa.Berkeley.EDU!leres
From: leres@ucbarpa.Berkeley.EDU (Craig Leres)
Newsgroups: comp.windows.news
Subject: Re: Sun logo in PostScript?
Message-ID: <23689@ucbvax.BERKELEY.EDU>
Date: 21 Apr 88 20:43:04 GMT
References: <8804201953.AA12056@brillig.umd.edu>
Sender: usenet@ucbvax.BERKELEY.EDU
Reply-To: leres@ucbarpa.Berkeley.EDU (Craig Leres)
Lines: 92

Here's my Sun logo. I wrote it for Postscript not NeWS, but in fact
used NeWS to preview it. To display it, I use something like:

    gsave
	4 inch dup translate
	sun
    grestore

Enjoy.

		Craig
------
% @(#) $Header: sun.ps,v 1.2 87/08/23 19:36:33 leres Exp $ (LBL)
%
% Draw the Sun logo, scaled for one inch by one inch
%
/sundict 21 dict def
/sun {
    sundict begin gsave

    % Defines
    /inch { 72 mul } bind def
    /mm { 2.834 mul } bind def

    /thick 42 mm def
    /width 400 mm def
    /realwidth 2 width mul 2 sqrt div def
    /rb 46.5 mm def
    /ra rb thick sub def
    /x1 0 mm def
    /x4 195 mm def
    /x2 x4 rb sub def
    /x3 x2 ra add def
    /y1 0 mm def
    /y2 thick def
    /y3 thick ra add def
    /y5 rb dup add def
    /y4 y5 thick sub def

    % Scale to one inch, position, and rotate.
    1 inch realwidth div dup scale
    realwidth 2 div 0 translate
    45 rotate

    % One Sun segment.
    /fnord {
	newpath
	0 setlinewidth
	0 0 moveto
	x4 y1 x4 y3 rb arcto 4 {pop} repeat
	x4 y5 x3 y5 rb arcto 4 {pop} repeat
	x1 y5 lineto
	x1 y4 lineto
	x3 y4 x3 y3 ra arcto 4 {pop} repeat
	x3 y2 x2 y2 ra arcto 4 {pop} repeat
	x1 y2 lineto
	closepath
	fill
    } def

    % Two Sun segment.
    /gronk {
	fnord
	gsave
	    x4 dup translate
	    180 rotate
	    fnord
	grestore
    } def

    gsave
	x4 0 translate
	90 rotate
	gronk
    grestore

    gsave
	width x4 sub 0 translate
	gronk
    grestore

    gsave
	0 width x4 sub translate
	gronk
    grestore

    gsave
	width width x4 sub translate
	90 rotate
	gronk
    grestore
    grestore end
} def