1 files changed, 33 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/repeated/doitnow.mp b/Master/texmf-dist/doc/metapost/featpost/example/repeated/doitnow.mp
new file mode 100644
index 00000000000..7cfec23a39d
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/repeated/doitnow.mp
@@ -0,0 +1,33 @@
+% doitnow.mp
+% L. Nobre G. 
+% 2004
+
+%input featpost3Dplus2D;
+
+f := 1.5*(1.5,0,1);
+Spread := 100;
+
+beginfig(1);
+  numeric stagelevel, holediam, outerdiam, stagemargin;
+  numeric numberofstagesidesquares, stagesidesize;
+  numeric centercoord;
+  color centerposdisc, centerpostorus, centerstage;
+  pickup pencircle scaled 3pt;
+  stagelevel = 0.2;
+  holediam = 0.6;
+  stagemargin = 0.2;
+  numberofstagesidesquares = 10;
+  centerstage = (-X(f),-Y(f),-stagelevel);
+  outerdiam = holediam+4*stagelevel;
+  stagesidesize = 2*( outerdiam + stagemargin );
+  centercoord = 0.3535*outerdiam;
+  HoriZon := -stagelevel;
+  centerpostorus = ( centercoord, -centercoord, 0 );
+  centerposdisc = ( -centercoord, centercoord, HoriZon );
+  getready("setthestage( numberofstagesidesquares, stagesidesize );",
+    centerstage);
+  getready("smoothtorus( centerpostorus, blue,0.5*holediam+stagelevel, stagelevel );",centerpostorus);
+  getready("rigorousdisc( 0.5*holediam, true, centerposdisc,0.5*outerdiam, 1.5*stagelevel*blue );",centerposdisc);
+  doitnow;
+endfig;
+end.