diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/standard/verygoodcone.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/standard/verygoodcone.mp | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/verygoodcone.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/verygoodcone.mp new file mode 100644 index 00000000000..8ce59552a21 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/verygoodcone.mp @@ -0,0 +1,28 @@ +% verygoodcone.mp +% L. Nobre G. +% 2003 + +%input featpost3Dplus2D; + +beginfig(1); + numeric radiusin, fac, i, numc, stepang, xcoor, ycoor, radc; + + f := (5,0.3,1.5); + Spread := 70; + radiusin = 0.3; + numc = 9; + fac = 3; + stepang = 360/numc; + radc = (fac-1)*radiusin*sind(0.5*stepang); + + for i=0 step stepang until 180: + xcoor := -radiusin*cosd(i); + ycoor := radiusin*sind(i); +verygoodcone(true,fac*(xcoor,-ycoor,0),(-xcoor,ycoor,0),radc,(xcoor,-ycoor,0)); +verygoodcone(true,fac*(xcoor,ycoor,0),-(xcoor,ycoor,0),radc,(xcoor,ycoor,0)); + endfor; +endfig; + +end; + + |