diff --git a/demos/splines.geo b/demos/splines.geo
index 811043ae0a83e4d8fcdaad9d5b1f6ec91a827f44..0baa00122a05dfa78e03d13bbd8a922ea9cefb43 100644
--- a/demos/splines.geo
+++ b/demos/splines.geo
@@ -47,3 +47,13 @@ s = newreg;
 Line Loop(s) = {-l,-(l+1)};
 Plane Surface(s+1) = s;
 
+
+// Duplicate the surfaces, and use uniform mesh
+p1=newp;
+Translate {0,-1.5,0} {
+  Duplicata { Surface{6,10,14}; }
+}
+p2=newp;
+Printf("p1 p2 = %g %g", p1, p2);
+
+Characteristic Length {p1:p2-1} = lc/5 ;