iilogo.eps

%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 82 25
%
% logotipo do Instituto de Informatica da UFRGS
% $Id: iilogo.eps,v 4.1 2002/12/07 17:20:09 utug Exp $
%
% UFRGS TeX Users Group
% Institute of Informatics --- UFRGS
% Porto Alegre, Brazil
% http://gppd.inf.ufrgs.br/~avila/utug
% Discussion list: utug-l@inf.ufrgs.br
%
% Copyright (C) 2001 UFRGS TeX Users Group
% This is free software, distributed under the GNU GPL; please take
% a look in `iiufrgs.cls' to see complete information on using, copying
% and redistributing these files
%

%
% tamanho da fonte
%
/tamfonte 10 def

%
% dados para definicao da esfera
% o raio e' definido em funcao do tamanho da fonte
%
/r tamfonte 1.25 mul def
/x -0.5 def
/y 0.5 def
/steps 32 def

%
% desenha a esfera
%
/desenhar_esfera {
	gsave
		currentpoint translate
		0 0 r 0 360 arc clip
		1 1 steps div neg 0 {
			dup neg 1 add setgray
			r x mul exch
			r y mul exch
			r y mul r add mul
			0 360 arc fill
		} for
	grestore
} def

%
% escreve "Inform‡tica"
%
/escrever_informatica {
	(Inform) show
	gsave (\302) show grestore
	(atica) show
} def

%
% escreve o texto alinhado `a direita
% parm: o texto
%
/escrever_texto_alinhado_a_direita {
	dup stringwidth pop neg 0 rmoveto
	show
} def

%
% main
%
% descomente a seguinte linha para verificar o BoudingBox:
%0 0 moveto 0 25 rlineto 82 0 rlineto 0 -25 rlineto closepath stroke
r r moveto desenhar_esfera
r 2 mul 1.1 mul r moveto
/Helvetica-BoldOblique findfont tamfonte scalefont setfont
escrever_informatica
0 tamfonte neg rmoveto
/Helvetica-Narrow-Oblique findfont tamfonte scalefont setfont
(UFRGS) escrever_texto_alinhado_a_direita