diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/conegetready.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/conegetready.mp | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/conegetready.mp b/Master/texmf-dist/doc/metapost/featpost/example/conegetready.mp new file mode 100644 index 00000000000..f0669633318 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/conegetready.mp @@ -0,0 +1,36 @@ +% conegetready.mp +% L. Nobre G. +% 2004 + +input featpost3Dplus2D; + +beginfig(1); + numeric radiusin, fac, i, xcoor, ycoor, radc, numc, baz; + color refvec; + string rv, mrv, vgc, stra, strb, lrv; + + f := (5,0.3,1.5); + Spread := 70; + radiusin = 0.3; + baz = 0.08; + fac = 3; + numc = 9; + radc = (fac-1)*radiusin*sind(180/numc); + + i = 155; + xcoor := -radiusin*cosd(i); + ycoor := radiusin*sind(i); + refvec := (xcoor,-ycoor,baz); + rv := cstr( refvec ); + mrv := cstr( -refvec ); + lrv := cstr( (2*fac-1)*refvec ); + vgc :="verygoodcone(true,fac*"; + stra := vgc & rv & "," & mrv & "," & decimal(radc) & "," & rv & ")"; + getready( stra, 0.5*(fac+1)*refvec ); + strb := vgc & rv & "," & rv & "," & decimal(radc) & "," & lrv & ")"; + getready( strb, 0.5*(3*fac-1)*refvec ); + doitnow; + produce_vga_border; +endfig; + +end; |