PostScript SGI Logo

[Bruno Pape]

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--------------------------------------------