%% 0 setlinejoin
%% 0 setlinecap
%% 0.0 setgray
%% [] 0 setdash
%%
%% %% SCALE
%% 1 1 scale
%%
%% newpath
%% border dup moveto
%% width 0 rlineto
%% 0 height rlineto
%% width neg 0 rlineto
%% closepath
%% clip
%%
%% %%%%%%%%%%% parametres de base %%%%%%%%%%%%%%
%% /verythin .25 def
%% /thin .75 def
%% /medium 1.75 def
%% /thick 4 def
%%
%% /curvelinewidth thin def
%% /borderline true def
%%
%% verythin setlinewidth
%%
%% /fontsize 12.5 def %% taille des fontes
%% /ch 15 string def
%%
%% %% les parametres pour le dessin des points
%% /dotstyle {point} def
%% /dotscale {1 1} def
%% /dotangle 0 def
%% /dotsize 4 def
%%
%% %% les parametres pour le remplissage des domaines
%% /fillstyle {} def
%% /startest {false} def
%%
%% %% la procedure pour les objets "star"
%% %% si c'est "star" on fait le fillstyle, sinon non
%% /starfill {
%% startest
%% {
%% gsave
%% clip
%% fillstyle
%% grestore
%% }
%% if
%% } def
%%
%% /autocrop {} def
%%
%%
%%
|