/surfaceparam3d { %% x_min pas_x x_max y_min pas_x y_max {Proc}
9 dict begin
/z@xy exch def
/y1 exch def
/yp exch def
/y0 exch def
/x1 exch def
/xp exch def
/x0 exch def
x0 xp x1 {
/x exch def
y0 y1 {x exch 2 copy z@xy CamView pop} {x exch 2 copy z@xy CamView exch pop} Courbeparam
} for
y0 yp y1 {
/y exch def
x0 x1 {y 2 copy z@xy CamView pop} {y 2 copy z@xy CamView exch pop} Courbeparam
} for
end
} def
|