/p@choir {
smoveto
n polygonepath
} def
%% syntaxe~: x1 y1 ... xn yn n pochoir
%% %% syntaxe~: x1 y1 ... xn yn n pochoir
/pochoir {
/n exch def
2 copy % x1 y1 ... xn yn xn yn
n 1 add 2 mul copy
n 1 add 2 mul copy
gsave
3.75 -3.75 translate
newpath
p@choir
fill
grestore
gsave
newpath
p@choir
1 setgray
fill
grestore
gsave
newpath
p@choir
stroke
grestore
} def
|