PLaSM

DEF Surface = Hermitesurface: <

<<0,0,0>, <2,0,1>, <3,1,1>, <4,1,1>>,
<<1,3,-1>,<3,2,0>, <4,2,0>, <4,2,0>>,
<<0,4,0>, <2,4,1>, <3,3,2>, <5,3,2>>,
<<0,6,0>, <2,5,1>, <3,4,1>, <4,4,0>> >;

DEF Intervals (a::IsReal) (n::IsIntPos) = QUOTE:(#:n:(a/n));

DEF domain  =
(Intervals:1:10) * (Intervals:1:10);

MAP:Surface:domain;