[comp.sys.sgi] PostScript SGI Logo

root@sgzh.uucp (Bruno Pape) (05/03/90)

I was going to ask if anyone had already written a non-bitmap PostScript
implimentation of the SGI logo but I kept forgetting to so I wrote one
myself.  Here it is, it runs on an IRIS using psh or on a QMS PS-810,
maybe even a LaserWriter if you are lucky.  

If anyone has a better implimentation of it I would be glad to have it,
or if anyone knows the official dimensions for it I would also be interested.

Have Fun,
Bruno

--------------------------start here--------------------------------------------
%!PS-Adobe-1.0
%%Creator:	micky:bruno (gerard bruno pape)
%%Title:	SGI Logo
%%CreationDate:	yesterday
%%EndComments
%%Pages: 1
%%EndProlog
%%Page: 1 1

/SGIlogodict 10 dict def

/logo {
	gsave
	SGIlogodict begin

	/g exch def	%  gap between what ever it is and the other thing
	/w exch def	%  width of what ever it is
	/o exch def	%  offset from center
	/l exch def	%  length of side
	/y exch def	%  y center
	/x exch def	%  x center

	/h l 2 div def
	/cos30 { 30 cos mul } def
	/sin30 { 30 sin mul } def

	1 setlinejoin
	w setlinewidth

	newpath
	x o cos30 add			y o sin30 add		moveto

	x o cos30 add			y l add o sin30 sub	lineto
	x l o sub cos30 add		y h add o sin30 add	lineto
	x				y o add			lineto

	x l o sub cos30 sub		y h add o sin30 add	lineto
	x o cos30 sub			y l add o sin30 sub	lineto
	x o cos30 sub			y o sin30 add		lineto

	x l cos30 sub			y h sub o add		lineto
	x l cos30 sub			y h add o sub		lineto
	x o cos30 sub			y o sin30 sub		lineto

	x o cos30 sub			y l sub o sin30 add	lineto
	x l o sub cos30 sub		y h sub o sin30 sub	lineto
	x				y o sub			lineto

	x l o sub cos30 add 		y h sub o sin30 sub	lineto
	x o cos30 add			y l sub o sin30 add	lineto
	x o cos30 add			y o sin30 sub		lineto

	x l cos30 add			y h add o sub		lineto
	x l cos30 add			y h sub o add		lineto
	x o cos30 add			y o sin30 add		lineto

	closepath stroke

	1 setgray
	w g add setlinewidth

	x l o sub w sub cos30 add	y h add o w sub sin30 add	moveto
	x				y o add				lineto
	x l o sub w sub cos30 sub	y h add o w sub sin30 add	lineto
	stroke
	x l w sub cos30 sub		y h w 2 div sub add o sub	moveto
	x o cos30 sub			y o sin30 sub			lineto
	x o cos30 sub			y l w sub sub o sin30 add	lineto
	stroke
	x o cos30 add			y l w sub sub o sin30 add	moveto
	x o cos30 add			y o sin30 sub			lineto
	x l w sub cos30 add		y h w 2 div sub add o sub	lineto
	stroke

	0 setgray
	w setlinewidth

	x l o sub cos30 add		y h add o sin30 add	moveto
	x				y o add			lineto
	x l o sub cos30 sub		y h add o sin30 add	lineto
	stroke
	x l cos30 sub			y h add o sub		moveto
	x o cos30 sub			y o sin30 sub		lineto
	x o cos30 sub			y l sub o sin30 add	lineto
	stroke
	x o cos30 add			y l sub o sin30 add	moveto
	x o cos30 add			y o sin30 sub		lineto
	x l cos30 add			y h add o sub		lineto
	stroke

	grestore
	end
} def

/white_rect {
	gsave
	1 setgray
	newpath
	0   0   moveto
	0   600 lineto
	500 600 lineto
	500 0   lineto
	0   0   lineto
	closepath
	fill
	grestore
} def

white_rect  % only needed for display on the sgi screen

250 250 200 30 40 8 logo	% x y size offset width gap
 50 500 20 4 4.0 2 logo		% x y size offset width gap
150 500 20 4 5.0 1 logo		% x y size offset width gap
250 500 20 4 4.5 1.5 logo	% x y size offset width gap
350 500 20 4 4.0 1.5 logo	% x y size offset width gap

showpage
%%Trailer
----------------------------end here--------------------------------------------

msc@ramoth.esd.sgi.com (Mark Callow) (05/05/90)

In article <1990May3.074723.4874@sgzh.uucp>, root@sgzh.uucp (Bruno Pape)
writes:
|> I was going to ask if anyone had already written a non-bitmap PostScript
|> implimentation of the SGI logo but I kept forgetting to so I wrote one
|> myself.  Here it is, it runs on an IRIS using psh or on a QMS PS-810,
|> maybe even a LaserWriter if you are lucky.  
|> 
|> If anyone has a better implimentation of it I would be glad to have it,
|> or if anyone knows the official dimensions for it I would also be
interested.

You should have asked.  There is a PostScript SGI logo created by Dave
Ciemiewicz in /usr/NeWS/lib/NeWS/sgilogo.ps.  This is used in the "SGI root"
and in a few of the NeWS demos.  It is on all 4D machines running 3.0 or
later.
--
From the TARDIS of Mark Callow
msc@ramoth.sgi.com, ...{ames,decwrl}!sgi!msc
"There is much virtue in a window.  It is to a human being as a frame is to
a painting, as a proscenium to a play.  It strongly defines its content."

ciemo@bananapc.wpd.sgi.com (Dave Ciemiewicz) (05/05/90)

In article <1990May3.074723.4874@sgzh.uucp>, root@sgzh.uucp (Bruno Pape)
writes:
> I was going to ask if anyone had already written a non-bitmap PostScript
> implimentation of the SGI logo but I kept forgetting to so I wrote one
> myself.  Here it is, it runs on an IRIS using psh or on a QMS PS-810,
> maybe even a LaserWriter if you are lucky.  
> 
> If anyone has a better implimentation of it I would be glad to have it,
> or if anyone knows the official dimensions for it I would also be interested.
> 
> Have Fun,
> Bruno
> 

There has been one in the SGI 4Sight release since day 1.  It's located in
/usr/NeWS/lib/NeWS/sgilogo.ps.  It has a few hacks in it which rely on NeWS
extensions to PostScript but these are easily eliminated by a PostScript
hack like yourself.

					--- Ciemo

P.S. Now have fun with it using the SGI logo as a clipping path.

root@sgzh.uucp (Bruno Pape) (05/07/90)

In article <7298@odin.corp.sgi.com> msc@sgi.com writes:
>
>In article <1990May3.074723.4874@sgzh.uucp>, root@sgzh.uucp (Bruno Pape)
>writes:
>|> I was going to ask if anyone had already written a non-bitmap PostScript
>|> implimentation of the SGI logo but I kept forgetting to so I wrote one
>|> myself.  Here it is, it runs on an IRIS using psh or on a QMS PS-810,
>|> maybe even a LaserWriter if you are lucky.  
>|> 
>|> If anyone has a better implimentation of it I would be glad to have it,
>|> or if anyone knows the official dimensions for it I would also be
>interested.
>
>You should have asked.  There is a PostScript SGI logo created by Dave
>Ciemiewicz in /usr/NeWS/lib/NeWS/sgilogo.ps.  This is used in the "SGI root"
>and in a few of the NeWS demos.  It is on all 4D machines running 3.0 or
>later.
>--
>From the TARDIS of Mark Callow
>msc@ramoth.sgi.com, ...{ames,decwrl}!sgi!msc
>"There is much virtue in a window.  It is to a human being as a frame is to
>a painting, as a proscenium to a play.  It strongly defines its content."

Yea, the first time I was told about /usr/NeWS/lib/NeWS/sgilogo.ps I felt
real stupid.  But it sometimes does not draw the logo correctly using psh,
it needs a little reprogramming for PostScript implementations that do not
support "dictbegin" such as the QMS and probably the LaserWriter, and it 
does not seem to draw small logos very well.  It is there though.

How about something non-bitmap for the text portion of the logo that will
run on a LaserWriter?

Thanks
Bruno

root@sgzh.uucp (Bruno Pape) (05/08/90)

In article <7307@odin.corp.sgi.com> ciemo@sgi.com (Dave Ciemiewicz) writes:
>
>P.S. Now have fun with it using the SGI logo as a clipping path.
>

Oh, if you can use it as a clipping path that explains the painfull gyrations
it goes through.  It's not as bad as I made it sound earlier.  Mine does not
work correctly in psh all the time either and small logos might look better if
I used scale.

Bruno