/unites {
%% calcul du facteur de reduction
%% mini = .6
xmax xmin sub
ymax ymin sub
min
1 exch div
10 mul
.6 min
dup
%% unite sur Ox
gsave
1 Ox add Oy stranslate
dup scale
arrow
grestore
gsave
Ox 1 Oy add stranslate
angle_repere rotate
dup scale
arrow
grestore
} def
|