diff options
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/radiativeforcing.mp | 243 |
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 |