variilogo.eps

%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 0 0 118 25
%
% variacao do logotipo do II/UFRGS
% $Id: variilogo.eps,v 4.1 2002/12/07 17:20:10 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

%
% main
%
% descomente a seguinte linha para verificar o BoudingBox:
%0 0 moveto 0 25 rlineto 118 0 rlineto 0 -25 rlineto closepath stroke
0 r tamfonte .25 mul neg add moveto
/Helvetica-BoldOblique findfont tamfonte scalefont setfont
escrever_informatica
r tamfonte .5 mul add tamfonte .25 mul rmoveto
desenhar_esfera
/Helvetica-Narrow-Oblique findfont tamfonte scalefont setfont
r tamfonte .5 mul add tamfonte .35 mul neg rmoveto
(UFRGS) show