Logo Print E-mail
Autor: Nemanja Đorđević   
Subota, 08 Maj 2010 23:03

ZA LJUBITELJE POSTSCRIPT-A

%!PS
matrix currentmatrix /originmat exch def %Transormaciona matrica
/umatrix {originmat matrix concatmatrix setmatrix} def
[1 .32 .22 1 185 450] umatrix

/a {30} def % Jedinica grida
newpath % Okvir je kvadrat podeljen na 36 manjih kvadrata
a 0 moveto
a 6 mul 0 lineto
0 a 5 mul rlineto
a neg a rlineto
a neg 5 mul 0 rlineto
0 a neg 5 mul rlineto
a 0 lineto
%2 setlinewidth %Opcionalno linearno
%1 setlinecap
.75 0 0 setrgbcolor fill
a 6 mul 0 translate

newpath % Slovo N, koje se ne preklapa
0 0 moveto
a neg 4 mul a 4 mul lineto
0 a neg 2 mul rlineto
a neg 0 rlineto
0 a 4 mul rlineto
a 4 mul a neg 4 mul rlineto
0 a 4 mul rlineto
a a neg rlineto
%2 setlinewidth %Opcionalno linearno
%1 setlinecap
1 0 0 setrgbcolor fill
a neg 2 mul a 3 mul translate

newpath %Gornji "prosceni" trougao
0 0 moveto
0 a lineto
a neg 0 rlineto
a a neg rlineto
%2 setlinewidth %Opcionalno linearno
%1 setlinecap
1 setgray fill

a neg 2 mul a neg translate

newpath %Donji "prosceni" trougao
0 0 moveto
a 0 lineto
a neg a rlineto
0 a neg rlineto
%2 setlinewidth %Opcionalno linearno
%1 setlinecap
1 setgray fill
showpage
%EOF