Region of a Maple Leaf

Example from the PscFunctions package

With the help of routines of the PscFunctions package it is possible to obtain parametric equations of plain regions with boundaries .
Here is an example of the equation of the plane region in the shape of a maple leaf. For that we use the
DPolarPolygon  routine that generates  a parametric equation of the plane region bounded outside by a contour of a closed polyline.

>    restart;
with(PscFunctions):
lstMpl:=[[0,1],[-12,4],[-9,6],[-15,14],[-6,12],[-15/2,18],[-3,16],[0,22],[3,16],[15/2,18],[6,12],[15,14],[9,6],[12,4]]:
Mpl:=DPolarPolygon(lstMpl,pole=[0,6]):
plot3d([Mpl(u,v),0],u=0..14,v=0..1,grid=[43,11],axes=BOXED,style=PATCHNOGRID,orientation=[-60,15]);
print('x'=Mpl[1](u,v));
print('y'=Mpl[2](u,v));

[Maple Plot]

x = (1/2+1/2*abs(v)-1/2*abs(v-1))*(-15/2*abs(u-13)+6*abs(u-14)+15/2*abs(u-1)-9/2*abs(u-2)+15/2*abs(u-3)-3*abs(u-9)+3*abs(u-5)-3/4*abs(u-6)-15/2*abs(u-11)+21/4*abs(u-10)+9/2*abs(u-12)-6*abs(u)-21/4*abs(...
x = (1/2+1/2*abs(v)-1/2*abs(v-1))*(-15/2*abs(u-13)+6*abs(u-14)+15/2*abs(u-1)-9/2*abs(u-2)+15/2*abs(u-3)-3*abs(u-9)+3*abs(u-5)-3/4*abs(u-6)-15/2*abs(u-11)+21/4*abs(u-10)+9/2*abs(u-12)-6*abs(u)-21/4*abs(...

y = 6+(1/2+1/2*abs(v)-1/2*abs(v-1))*(-5-1/2*abs(u-13)+3/2*abs(u-14)-1/2*abs(u-1)+3*abs(u-2)-5*abs(u-3)-4*abs(u-9)-4*abs(u-5)+4*abs(u-6)-5*abs(u-11)+4*abs(u-10)+3*abs(u-12)+3/2*abs(u)+4*abs(u-4)-6*abs(u...
y = 6+(1/2+1/2*abs(v)-1/2*abs(v-1))*(-5-1/2*abs(u-13)+3/2*abs(u-14)-1/2*abs(u-1)+3*abs(u-2)-5*abs(u-3)-4*abs(u-9)-4*abs(u-5)+4*abs(u-6)-5*abs(u-11)+4*abs(u-10)+3*abs(u-12)+3/2*abs(u)+4*abs(u-4)-6*abs(u...