%% syntaxe : plantype bool bprojscene ... eprojscene
/bprojscene {
10 dict begin
gsave
dup isbool {
/mybool exch def
} {
/mybool true def
} ifelse
/l@pl@n exch def
/savestroke {jpsdic /stroke get exec} def
/stroke {l@pl@n mybool projpath savestroke} def
/savefill {jpsdic /fill get exec} def
/fill {l@pl@n mybool projpath savefill} def
/masque {} def
l@pl@n plangetrange aload pop
setyrange setxrange
} def
/eprojscene {
grestore
end
} def
%% %% syntaxe : plantype bprojscene ... eprojscene
%% /bprojscene {
%% 10 dict begin
%% gsave
%% /l@pl@n exch def
%% /savestroke {jpsdic /stroke get exec} def
%% /stroke {l@pl@n projpath savestroke} def
%% /savefill {jpsdic /fill get exec} def
%% /fill {l@pl@n projpath savefill} def
%% } def
%% /eprojscene {
%% grestore
%% end
%% } def
|