Mais um blog inútil.

Agosto 11, 2010

Arvorezinha – POSTSCRIPT

Filed under: Arvorezinha — jsaramago @ 17:42

Boas,
depois de ver estas novas arvorezinhas, deu-me uma vontade de fazer uma. O postscript é muito marado, é uma maquina de stack, e ainda por cima, a origem das coordenadas é no canto inferior esquerdo. Aqui vai...

%!PS

/cm {28.34645669 mul} def %definir centrimetros
/size{2 cm}def %definir uma constante
/w{595}def %width da folha em pontos
/h{842}def %height da folha em pontos
/PageSize [ w h ]
/movetoTop{
	/yy exch def
	/xx exch def

	h yy sub
	/aux2 exch def

	xx aux2 moveto
}def % O (0,0) é no canto inferior esquerdo, então esta função transforma o (0,0) no canto superior esquerdo com as coordenadas positivas para baixo

/Courier             % Nome do tipo de letra
size selectfont      % Definir o tamanho da letra

0 1 4{
	/i exch def
	i size mul
	size add
	/yy exch def
	0 1 i{
		/j exch def
		j size mul
		size add
		/xx exch def
		xx yy movetoTop
		(*) show
		clear
	}for %colunas
}for %linhas

showpage             % imprimir página

O resultado final é este:

3 comentários a “Arvorezinha – POSTSCRIPT”

  1. gatuno diz:

    que fixe!! a de latex fica pra mim, mas só amanhã pq ainda tou a sacar o texlive... xD

  2. mirage diz:

    A minha alma está parva, por esta não esperava. Parabéns!

  3. dongs diz:

    Estou boquiaberto! Granda cena elite!

Leave a Reply for gatuno

widgeon
widgeon
widgeon
widgeon