PostScript SGI Logo
Bruno Pape
root at sgzh.uucp
Thu May 3 17:47:23 AEST 1990
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--------------------------------------------
More information about the Comp.sys.sgi
mailing list