summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp36
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp b/Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp
new file mode 100644
index 00000000000..8ee9f9ccfd2
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp
@@ -0,0 +1,36 @@
+% rigorouscone.mp
+% L. Nobre G.
+% 2003
+
+input featpost3Dplus2D;
+
+beginfig(1);
+ color nalfa, gammacnt, vertex;
+ path gamma, cone;
+ numeric altura, grids, radius, aux, i, numc, slope;
+
+ f := (5,4,2);
+ Spread := 60;
+ ShiftV := (200,200);
+ altura = 1;
+ radius = 0.3;
+ grids = 1;
+ numc = 9;
+ slope = 3;
+ nalfa = (0,0,1);
+
+ for i=1 upto numc:
+ aux := (i-0.5*(numc+1))*grids;
+ gammacnt := (0,aux,0);
+ vertex := (aux/slope,aux,altura);
+ gamma := rigorouscircle( gammacnt, nalfa, radius );
+ cone := rigorouscone(true, gammacnt, nalfa, radius, vertex );
+ unfill cone;
+ draw gamma dashed evenly;
+ draw cone;
+ endfor;
+endfig;
+
+end;
+
+