1 files changed, 57 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/bugtrack/bughunt.mp b/Master/texmf-dist/doc/metapost/featpost/example/bugtrack/bughunt.mp
new file mode 100644
index 00000000000..2afa2bcd62d
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/bugtrack/bughunt.mp
@@ -0,0 +1,57 @@
+% bughunt.mp
+% L. Nobre G. 
+% 2003
+
+%input featpost3Dplus2D;
+
+%SphericalDistortion := true;
+%f 		    := 0.3*(5,4,2);
+%Spread		    := 40;
+%ShiftV		    := (200,200);
+
+SphericalDistortion := false;
+f 		    := 3.3*(5,4,2);
+Spread		    := 70;
+ShiftV		    := (250,250);
+
+beginfig(1);
+    color nalfa, gammacnt, vertex;
+    numeric altura, grids, radius, aux, i, numc, slope;
+    
+    altura 		= 1;
+    radius		= 0.3;
+    grids		= 1;
+    numc		= 8;
+    slope		= 15;
+
+    for i=1 upto numc:
+        aux		:= (i-1-0.5*(numc-1))*grids;
+        gammacnt 	:= (0,aux,0);
+        vertex		:= gammacnt+0.1*(f-gammacnt)+(0,0,aux/slope);
+	nalfa           := vertex - gammacnt;
+        rigorousdisc( 0, true, gammacnt, radius, nalfa );
+    endfor;
+endfig;
+
+beginfig(2);
+  path cpath;
+  color vert;
+  numeric i;
+  f := (4,0,0.5);
+  vert = 0.5*(0,1,1);
+  cpath = rigorouscone(true, black, blue, 1, vert);
+%   draw rp(vert);
+  draw cpath; show length cpath;
+  for i=0 upto length cpath:
+    dotlabel.top( decimal(i),point i of cpath);
+  endfor;
+%   cpath := rigorouscircle( black, blue, 1);
+%   draw cpath;
+%   for i=0 upto length cpath:
+%     dotlabel.bot( decimal(i),point i of cpath);
+%   endfor;
+endfig;
+
+end;
+
+