diff options
author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:47:39 +0000 |
commit | 97e4684a37e4899e8cdd42ab670b6e25dd319d1a (patch) | |
tree | bc263a56d75c177b79ae13c6e6ec7a3c30278dbf /Master/texmf-dist/doc/metapost/featpost/example/saturn.mp | |
parent | a2c8654f8955a0d35c8b0c2d1752a506a426681b (diff) |
featpost (17nov11)
git-svn-id: svn://tug.org/texlive/trunk@24738 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/saturn.mp')
-rw-r--r-- | Master/texmf-dist/doc/metapost/featpost/example/saturn.mp | 130 |
1 files changed, 130 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/saturn.mp b/Master/texmf-dist/doc/metapost/featpost/example/saturn.mp new file mode 100644 index 00000000000..372866401ff --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/saturn.mp @@ -0,0 +1,130 @@ +% saturn.mp +% L. Nobre G. +% 2007 + +input featpost3Dplus2D; + +verbatimtex +\documentclass{article} +\usepackage{newcent} +\pagestyle{empty} +\begin{document} +etex + +f := 2.5*(5,0,-1); +Spread := 100; + +beginfig(1); + path planet, twilight, darkness, ringins, ringout, shadein, shadout; + path fullplanet, fullring, backdark, sunplanet, backring; + path nearringout, nearringins, hdtv, darkplanet; + numeric planetray, ringinsray, ringoutray, cutmargin, athmosray; + color sunposition, axedirection, labelpos, darknesstart, darknessend; + numeric inclinangle, labelray, begintime, endtime, colorfactor; + color planetcolor, ringcolor, toptextcolor, deepskycolor, bottextcolor; + picture storepicture; + planetray = 1; + ringinsray = 1.6; + ringoutray = 2.3; + labelray = 2.1; + cutmargin = 0.01; + inclinangle = 15; + sunposition = (-7,15,4); + colorfactor = 1.3; + bboxmargin := 10mm; + planetcolor = colorfactor*(255,152,55)/255; + ringcolor = colorfactor*(221,57,199)/255; + toptextcolor = colorfactor*(187,164,109)/255; + deepskycolor = colorfactor*(11,18,84)/255; + bottextcolor = colorfactor*(15,103,23)/255; + viewcentr := (0,0.5[planetray,ringinsray],0); + labelpos = (0,labelray,0); + athmosray = planetray+cutmargin; + axedirection = (0,-sind(inclinangle),cosd(inclinangle)); + planet = rigorousfearpath( black, planetray ); + twilight = spatialhalfcircle( black, sunposition, athmosray, true ); + darknesstart = athmosray*ncrossprod( sunposition, axedirection ); + darknessend = darknesstart - labelray*N( sunposition ); + darkness = pathofstraightline( darknesstart, darknessend ); + darknesstart := -darknesstart; + darknessend := darknesstart - labelray*N( sunposition ); + backdark = pathofstraightline( darknesstart, darknessend ); + ringins = goodcirclepath( black, axedirection, ringinsray ); + ringout = goodcirclepath( black, axedirection, ringoutray ); + endtime = xpart ( planet intersectiontimes twilight ); + begintime = xpart ( reverse planet intersectiontimes twilight ); + sunplanet = subpath (-begintime-cutmargin,endtime+cutmargin) of planet; + darkplanet = planet cutbefore twilight cutafter twilight; + fullplanet = buildcycle( sunplanet, reverse twilight ); + fill fullplanet withcolor planetcolor; + endtime := xpart ( ringins intersectiontimes darkness ); + begintime := xpart ( reverse ringins intersectiontimes sunplanet ); + nearringins = subpath (-begintime-cutmargin,endtime+cutmargin) of ringins; + endtime := xpart ( ringout intersectiontimes darkness ); + begintime := xpart ( reverse ringout intersectiontimes sunplanet ); + nearringout = subpath (-begintime-cutmargin,endtime+cutmargin) of ringout; + backring = buildcycle( backdark, ringout, reverse darkplanet, reverse ringins ); + fullring = buildcycle( nearringout, reverse darkness, reverse nearringins, sunplanet ); + fill backring withcolor ringcolor; + fill fullring withcolor ringcolor; + picture thestatement; + thestatement = thelabel( + btex + \begin{tabular}{c} + \textbf{\textsf{{\Large T}$\!$ecnumbria}} \\ + \textsf{\scriptsize a sombra da tecnologia} + \end{tabular} + etex, + origin); + pickup pencircle scaled 1pt; + draw thestatement scaled 2 shifted rp(labelpos) withcolor toptextcolor; + storepicture = currentpicture; + z1 = lrcorner currentpicture; + z2 = urcorner currentpicture; + z3 = ulcorner currentpicture; + z4 = llcorner currentpicture; + z5 = z1+down*bboxmargin; + z6 = z1+right*bboxmargin; + z7 = z2+right*bboxmargin; + z8 = z2+up*bboxmargin; + z9 = z3+up*bboxmargin; + z10= z3+left*bboxmargin; + z11= z4+left*bboxmargin; + z12= z4+down*bboxmargin; + z13= 0.5[z5,z12]+down*3*bboxmargin; + hdtv = z5..z6---z7..z8---z9..z10---z11..z12---cycle; + message "Aspect ratio: " & decimal( (xpart (z7-z10))/(ypart (z8-z5)) ); + numeric wid; + wid = (xpart (z7-z10))/(1mm); + message "Width: " & decimal( wid ) & "mm"; + message "Resolution for MooMiniCard: " & decimal(1.9083*222/wid) & "*100dpi"; + %% I don't know why there is need for the 1.9083 factor... + fill hdtv withcolor deepskycolor; + draw storepicture; +% label(btex \texttt{\LARGE http://tecnumbria.com} etex, z13 ); +endfig; + +% beginfig(2); +% prologues := 1; +% pickup pencircle scaled 9pt; +% fill hdtv; +% unfill fullplanet; +% draw fullplanet; +% unfill fullring; +% draw fullring; +% unfill backring; +% draw backring; +% endfig; + +% beginfig(3); +% prologues := 1; +% pickup pencircle scaled 0pt; +% draw fullplanet withcolor red; +% draw fullring withcolor green; +% draw backring withcolor blue; +% endfig; + +verbatimtex \end{document} etex + +end; + |