diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/globe.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/globe.mp | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/globe.mp b/Master/texmf-dist/doc/metapost/featpost/example/globe.mp new file mode 100644 index 00000000000..81aa3440fce --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/globe.mp @@ -0,0 +1,32 @@ +% globe.mp +% L. Nobre G. +% 2003 + +input featpost3Dplus2D; + +beginfig(1); + color gammacnt; + numeric newradius, radius, aux, i, numc, foc, lc; + path conepath, latpath; + pen thickp; + + f := (2,3,4); + viewcentr := 1.5*(1,1,1); + Spread := 200; + Shifts := 300; + radius = 1; + numc = 9; + thickp = pencircle scaled 1mm; + + pickup thickp; + tropicalglobe( numc, black, radius, blue ); + for i=1 upto numc: % longitudes + aux := (i-1)*180/numc; + gammacnt := (cosd(aux),sind(aux),0); + draw spatialhalfcircle(black,gammacnt,radius,true); + endfor; +endfig; + +end; + + |