diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/rigorouscone.mp | 36 |
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; + + |