summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp')
-rw-r--r--Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp243
1 files changed, 243 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp b/Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp
new file mode 100644
index 00000000000..8fd32ca3b0c
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp
@@ -0,0 +1,243 @@
+%
+% fig2dev (version 3.2.5-alpha7) -L (m)mp version 0.05 --- Preamble
+%
+
+%
+% mp output driver options:
+% -L mp
+%
+
+% +MP-ADDITIONAL-HEADER
+verbatimtex
+%&latex
+\documentclass{article}
+\begin{document}
+etex
+% -MP-ADDITIONAL-HEADER
+
+
+%SetFigFont macros for latex
+verbatimtex
+%
+\begingroup\makeatletter\ifx\SetFigFontNFSS\undefined%
+\gdef\SetFigFontNFSS#1#2#3#4#5{%
+ \reset@font\fontsize{#1}{#2pt}%
+ \fontfamily{#3}\fontseries{#4}\fontshape{#5}%
+ \selectfont}%
+\fi\endgroup%
+\ifx\SetFigFontSize\undefined%
+\gdef\SetFigFontSize#1#2{%
+ \fontsize{#1}{#2pt}%
+ \selectfont}%
+\fi%
+etex
+
+% Now draw the figure
+beginfig(0)
+% Some reasonable defaults
+ labeloffset:=0;
+ truecorners:=1;
+ bboxmargin:=0;
+% Begin ellipse object
+ pickup pencircle scaled 0.94;
+ path c;
+ c = fullcircle scaled 1638.80 yscaled 1.00
+ rotated 0.00 shifted (428.03,-242.65);
+ fill c withcolor ((0.53,0.81,1.00) + 0.00white);
+ draw c withcolor (0.53,0.81,1.00);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.94;
+ path c;
+ c = fullcircle scaled 1126.68 yscaled 1.00
+ rotated 0.00 shifted (428.03,-242.65);
+ fill c withcolor ((0.00,0.69,0.00) + 0.00white);
+ draw c withcolor (0.00,0.69,0.00);
+% End ellipse object
+% Begin ellipse object
+ pickup pencircle scaled 0.94;
+ path c;
+ c = fullcircle scaled 141.73 yscaled 1.00
+ rotated 0.00 shifted (147.40,650.27);
+ fill c withcolor ((1.00,1.00,0.00) + 0.00white);
+ draw c withcolor (1.00,1.00,0.00);
+% End ellipse object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (155.91, 568.06)
+ --(238.11, 301.61);
+ draw p withcolor (1.00,1.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (231.94, 311.87)
+ --(237.17, 304.57)
+ --(237.35, 313.57)
+ --(231.94, 311.87) -- cycle;
+ fill arr withcolor (1.00,1.00,0.00);
+ draw arr withcolor (1.00,1.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (184.25, 573.73)
+ --(260.79, 315.78);
+ draw p withcolor (1.00,1.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (254.74, 326.17)
+ --(259.91, 318.80)
+ --(260.16, 327.81)
+ --(254.74, 326.17) -- cycle;
+ fill arr withcolor (1.00,1.00,0.00);
+ draw arr withcolor (1.00,1.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (212.60, 596.41)
+ --(286.30, 321.45);
+ draw p withcolor (1.00,1.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (280.50, 331.97)
+ --(285.48, 324.47)
+ --(285.98, 333.48)
+ --(280.50, 331.97) -- cycle;
+ fill arr withcolor (1.00,1.00,0.00);
+ draw arr withcolor (1.00,1.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (121.89, 562.39)
+ --(204.09, 293.10);
+ draw p withcolor (1.00,1.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (197.98, 303.37)
+ --(203.21, 296.06)
+ --(203.40, 305.07)
+ --(197.98, 303.37) -- cycle;
+ fill arr withcolor (1.00,1.00,0.00);
+ draw arr withcolor (1.00,1.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (351.50, 344.13)
+ --(606.61, 774.99);
+ draw p withcolor (1.00,0.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (603.09, 763.53)
+ --(605.04, 772.28)
+ --(598.24, 766.43)
+ --(603.09, 763.53) -- cycle;
+ fill arr withcolor (1.00,0.00,0.00);
+ draw arr withcolor (1.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (311.81, 332.79)
+ --(572.60, 766.49);
+ draw p withcolor (1.00,0.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (568.94, 755.15)
+ --(570.96, 763.84)
+ --(564.09, 758.05)
+ --(568.94, 755.15) -- cycle;
+ fill arr withcolor (1.00,0.00,0.00);
+ draw arr withcolor (1.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (391.18, 346.96)
+ --(513.07, 545.39)
+ --(632.13, 352.63);
+ draw p withcolor (1.00,0.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (623.56, 361.07)
+ --(630.49, 355.28)
+ --(628.41, 364.03)
+ --(623.56, 361.07) -- cycle;
+ fill arr withcolor (1.00,0.00,0.00);
+ draw arr withcolor (1.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (428.03, 349.80)
+ --(549.92, 536.88)
+ --(615.12, 434.83);
+ draw p withcolor (1.00,0.00,0.00);
+% Draw arrowhead type 1
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path arr;
+ arr = (606.43, 443.15)
+ --(613.42, 437.48)
+ --(611.21, 446.17)
+ --(606.43, 443.15) -- cycle;
+ fill arr withcolor (1.00,0.00,0.00);
+ draw arr withcolor (1.00,0.00,0.00);
+% End polyline object
+% Begin polyline object
+ linecap:=0;
+ linejoin:=0;
+ pickup pencircle scaled 2.83;
+ path p;
+ p = (2.83, 789.17)
+ --(839.06, 789.17)
+ --(839.06, 202.39)
+ --(2.83, 202.39)--cycle;
+ picture tmppic;
+ tmppic = currentpicture;
+ currentpicture := nullpicture;
+ clip tmppic to p;
+ draw tmppic;
+% End polyline object
+endfig;
+end