/quadrilleXYZ { %% x_min x_max y_min y_max z_min z_max
9 dict begin
/z1 exch def
/z0 exch def
/y1 exch def
/y0 exch def
/x1 exch def
/x0 exch def
x0 1 x1 {
/i exch def
y0 1 y1 {
/j exch def
[i j z0 i j z1] (-) ligne3d
} for
} for
x0 1 x1 {
/i exch def
z0 1 z1 {
/k exch def
[i y0 k i y1 k] (-) ligne3d
} for
} for
y0 1 y1 {
/j exch def
z0 1 z1 {
/k exch def
[x0 j k x1 j k] (-) ligne3d
} for
} for
end
} def
|