summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp32
1 files changed, 32 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/globe.mp
new file mode 100644
index 00000000000..22d0cf2bee1
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/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;
+
+