%% parametre
/dotstyle {point} def
%% syntaxe : [A B C D] (type) plot, mais le (type) est optionnel
/plot {
dup xcheck %% y a-t-il un type de representation ?
{
1 dict begin
/type exch def %% oui : type de representation
aload length 2 idiv
{type} repeat
end
}
{ %% non : on prend dotstyle
aload length 2 idiv
{dotstyle} repeat
}
ifelse
} def
|