Re: Résoudre un bug

Le mardi 16 novembre 2021 à 23:05:40 UTC+1, LaLibreParole a écrit :

Bonjour,
 
Il y a un bug dans ce code, mais je n'arrive pas à le trouver.
Pouvez-vous m'aider ?
 
% draw a grid of 20 x 10 lines
save
0.1 setlinewidth
20 20 translate
0 10 200 { %for
dup 0 moveto 0 100 rlineto
} for
stroke
0 10 100 { %for
0 1 index moveto 200 0 rlineto
} for
stroke
restore

bonsoir,

comme ceci peut-être :

%PS

% draw a grid of 20 x 10 lines
save
0.1 setlinewidth
20 20 translate

0 10 200 { %for
   dup 0 moveto
   100 lineto
} for
stroke

0 10 100 { %for
   dup 0 exch moveto
   200 exch lineto
} for
stroke
restore