diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:45:48 +0000 |
commit | 5dc602d16c5be2fd035b254ca23484a90aebd6dc (patch) | |
tree | 72efb15fba318cc2096a8cc6999ed3fa0bff317d /Master/texmf-dist/doc/metapost/featpost/example/tug04 | |
parent | b4fc5f639874db951177ec539299d20908adb654 (diff) |
doc 5
git-svn-id: svn://tug.org/texlive/trunk@81 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/metapost/featpost/example/tug04')
9 files changed, 686 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/cone.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/cone.mp new file mode 100644 index 00000000000..883f01ff625 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/cone.mp @@ -0,0 +1,37 @@ +% cone.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + f := (5,3,4); + numeric labscal; + picture labr, labc, laba, labv; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + labc = btex $\vec{c}$ etex scaled labscal; + laba = btex $\vec{A}$ etex scaled labscal; + labr = btex $R$ etex scaled labscal; + labv = btex $\vec{v}$ etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + verygoodcone(true,black,blue,0.8,blue+green); + drawoptions( withpen pencircle scaled 1.3pt ); + draw rp(black)--rp(green)--rp(blue+green) dashed evenly; + drawdblarrow rp(black)--rp(0.8green); + label.urt( labr, rp(0.4green) ); + drawarrow rp(black)--rp(0.45*blue); + label.rt( laba, rp((0,0,0.25)) ); + dotlabel.llft( labc, rp(black) ); + dotlabel.rt( labv, rp(blue+green) ); + +endfig; + +verbatimtex +\end{document} +etex + +end. + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/ellipticprism.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/ellipticprism.mp new file mode 100644 index 00000000000..6106c980adf --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/ellipticprism.mp @@ -0,0 +1,39 @@ +% ellipticprism.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + f := (5,3,4); + numeric labscal; + picture labsa, labba, labsb, labd, labc; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + labc = btex $\vec{c}$ etex scaled labscal; + labsa = btex $\vec{S}_1$ etex scaled labscal; + labsb = btex $\vec{S}_2$ etex scaled labscal; + labba = btex $\vec{B}_1$ etex scaled labscal; + labd= btex $D$ etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + whatisthis( black, 0.5red, green, 0.85, 0.8 ); + drawoptions( withpen pencircle scaled 1.3pt ); + drawdblarrow rp(black)--rp(0.85blue); + label.rt( labd, rp(0.4blue) ); + drawarrow rp(black)--rp(0.5red); + label.ulft( labsa, rp(0.25red) ); + drawarrow rp(black)--rp(green); + label.top( labba, rp((0,0.5,0)) ); + drawarrow rp(0.85blue)--rp(0.8*0.5*red+0.85blue); + label.ulft( labsb, rp(0.2red+0.85blue) ); + dotlabel.bot( labc, rp(black) ); +endfig; + +verbatimtex +\end{document} +etex + +end. + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/intersection2D.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/intersection2D.mp new file mode 100644 index 00000000000..d482fde6ed0 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/intersection2D.mp @@ -0,0 +1,46 @@ +% intersection2D.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + numeric u; + pair Aa, Ab, Ba, Bb, Un, Kn, Or; + pen dotpen, penpen; + color knowncolour, notknowncol; + picture kn, un; + u = 4mm; + Aa = (0,8u); + Ab = (15u,0); + Ba = (12u,0.5u); + Bb = (13u,6u); + Kn = (0,1u); + Or = (1.5u,1.5u); + dotpen = pencircle scaled 0.5u; + penpen = pencircle scaled 0.2u; + knowncolour = blue; + notknowncol = red; + kn = btex given etex; + un = btex unknown etex; + draw Aa--Ab; + draw Ba--Bb; + drawoptions( withpen dotpen withcolor knowncolour ); + draw Aa; + draw Ab; + draw Ba; + draw Bb; + draw Kn+Or; + drawoptions( withpen dotpen withcolor notknowncol ); + Un = whatever[Aa,Ab]; + Un = whatever[Ba,Bb]; + draw Un; + draw Or; + drawoptions(); + label.rt( kn, Kn+Or ); + label.rt( un, Or ); +endfig; + +verbatimtex }\end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/kindofcube.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/kindofcube.mp new file mode 100644 index 00000000000..c29d727bd61 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/kindofcube.mp @@ -0,0 +1,57 @@ +% kindofcube.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + f := (4,1.2,0.5); + Spread := 120; + numeric lena, lenb, lenc, aa, ab, ac, angray, micr, labscal; + pair zeror; + color axa, axb, axc, returnedcorner, dummyc, auxx, auxy; + lena=0.3; + lenb=0.6; + lenc=0.9; + aa=130; + ab=32; + ac=67; + labscal=1.6; + angray=0.85; + micr=0.01; + zeror=rp(black); + cartaxes(1.2,1,1.15); + axa = ( cosd(aa), sind(aa), 0 ); + axb = axa*cosd(ab)+blue*sind(ab); + auxx= ( cosd(aa+90), sind(aa+90), 0); + auxy = ncrossprod( axb, auxx ); + axc = auxx*cosd(ac)+auxy*sind(ac); + draw zeror--rp(axa); + draw zeror--rp(axb); + draw zeror--rp(-0.6*axa); + draw zeror--rp(axc); + draw zeror--rp(auxx); + label.rt( btex $a$ etex scaled labscal, rp(axa) ); + label.rt( btex $b$ etex scaled labscal, rp(axb) ); + label.lft( btex $c$ etex scaled labscal, rp(auxx) ); + label.lft( btex $d$ etex scaled labscal, rp(axc) ); + angline( axa,red,black,angray,btex $\alpha_1$ etex scaled labscal,bot ); + angline( axb,axa,black,angray,btex $\alpha_2$ etex scaled labscal,rt ); + angline( axc,auxx,black,angray,btex $\alpha_3$ etex scaled labscal,lft ); + squareangline( -axa,auxx,black,0.2); + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + kindofcube( false, true, black, aa, ab, ac, lena, lenb, lenc ); + drawoptions(); + dotlabel.bot( btex $\vec{o}$ etex scaled labscal, zeror ); + label.bot( btex $l_1$ etex scaled labscal, rp(lena*axb) ); + label.bot( btex $l_2$ etex scaled labscal, rp(0.5*lenb*axc) ); + label.ulft( btex $l_3$ etex scaled labscal,rp(0.5*lenc*ncrossprod(axb,axc))); +endfig; + +verbatimtex +\end{document} +etex + +end. + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/newexperimental.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/newexperimental.mp new file mode 100644 index 00000000000..bfacd32ae1f --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/newexperimental.mp @@ -0,0 +1,157 @@ +% newexperimental.mp +% L. Nobre G. +% 2004 + +%input featpost3D; +%input featpost2D; + +%verbatimtex +%\documentclass{article} +%\usepackage{beton} +%\usepackage{concmath} +%\usepackage{ccfonts} +%\begin{document} +%etex + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +f := (4.5,-6,5); +%f := (-4.5,-6,5); + +beginfig(1); + numeric len[], ray[]; + color axe[], pos[], fix[], lab[]; + color reflabpos, reflabpoi, lincolor; + picture txt[], dashpatt; + numeric inclang, aberang, sampang, stepang; + numeric squside, sqlevel, ul, outermagpos; + numeric innerray, polesep, fracone, fracsam; + numeric labelscale; + path tmpath, aupath, copath; + + pickup pencircle scaled 1.2pt; + dashpatt = evenly scaled 3; + inclang = 150; + aberang = 17; + sampang = 30; + stepang = 20; + ul = 0.1; + labelscale = 5; + outermagpos = 30ul; + squside = outermagpos; + sqlevel = -20ul; + polesep = 15ul; + fracone = 0.33; + fracsam = 0.86; + ray1 = 10ul; + ray2 = 6ul; + ray3 = 8ul; + ray4 = 1.5ul; + ray5 = 4ul; + ray6 = 3ul; + ray7 = 3.5ul; + ray8 = 2ul; + len3 = 7ul; + len4 = 20ul; + len5 = 3ul; + len7 = 3.5ul; + len8 = 7ul; + lincolor = 0.5background; + + reflabpos = ( -squside, 0, -sqlevel ); + reflabpoi = ( -squside, squside, -sqlevel ); + V1 := (squside,squside,-sqlevel); + V2 := (-squside,squside,-sqlevel); + V3 := (-squside,-squside,-sqlevel); + V4 := (squside,-squside,-sqlevel); +% makeface1(1,2,3,4); +% draw_all_test( false ); + + len1 = (1-fracone)*(outermagpos-ray5-polesep); + pos1 = (-outermagpos,0,0); + len2 = fracone*(outermagpos-ray5-polesep); + pos2 = (len1-outermagpos,0,0); + lab2 = reflabpos; + txt2 = thelabel.top( btex magnet etex scaled labelscale, rp( lab2 ) ); + fix2 = (-outermagpos+0.5len1,0,ray1); + axe3 = ( 0, cosd( inclang ), sind( inclang ) ); + pos3 = -( len3 + len4 + len5 )*axe3; + lab3 = (1-fracone)*reflabpoi+fracone*V1; + txt3 = thelabel.rt( btex rotor etex scaled labelscale, rp( lab3 ) ); + axe4 = axe3; + pos4 = -( len4 + len5 )*axe4; + fix3 = pos4+fracsam*ray3*(0,cosd( inclang -90 ),sind( inclang -90 )); + axe5 = axe3; + pos5 = -( len5 )*axe5; + lab5 = (1-fracone)*reflabpoi+fracone*V2; + txt5 = thelabel.rt( btex sample etex scaled labelscale, rp(lab5) ); + fix5 = fracsam*ray5*(0,cosd( inclang -90 ),sind( inclang -90 )); + + V5 := fracsam*ray5*( sind( sampang ), + cosd( sampang )*cosd( inclang -90 ), + cosd( sampang )*sind( inclang -90 ) ); + V6 := fracsam*ray5*( -sind( sampang ), + cosd( sampang )*cosd( inclang -90 ), + cosd( sampang )*sind( inclang -90 ) ); + V8 := fracsam*ray5*( sind( sampang ), + -cosd( sampang )*cosd( inclang -90 ), + -cosd( sampang )*sind( inclang -90 ) ); + V7 := fracsam*ray5*( -sind( sampang ), + -cosd( sampang )*cosd( inclang -90 ), + -cosd( sampang )*sind( inclang -90 ) ); + axe6 = ( 0, cosd( inclang+aberang ), sind( inclang+aberang ) ); + pos6 = ray1*axe6; + len6 = len4; + axe7 = ( 0, cosd( inclang-aberang ), sind( inclang-aberang ) ); + pos7 = ( ray1 + 0.5len6 )*axe7; + lab6 = fracone*reflabpos+(1-fracone)*V3; + txt6=thelabel.lft(btex camera etex scaled labelscale,rp(lab6)); + fix6 = pos6+len6*axe6; + pos8 = pos7+len7*axe7; + axe8 = axe7; + lab8 = (1-fracone)*reflabpos+fracone*V3; + txt8 = thelabel.lft( btex lamp etex scaled labelscale, rp( lab8 ) ); + fix8 = pos8+len8*axe8; + len9 = len2; + pos9 = (ray5+polesep,0,0); + ray9 = ray2; + ray10 = ray1; + pos10 = pos9+len9*(1,0,0); + len10 = len1; + + getready( "rigorousdisc( 0, true, pos1, ray1, len1*(1,0,0) )", pos1 ); + getready( "whatisthis(pos2,ray1*green,ray1*blue,conorm((-ray5-polesep,0,0)-pos2),ray2/ray1)", pos2 ); + getready( "rigorousdisc( 0, true, pos3, ray3, len3*axe3 )", pos3 ); + getready( "rigorousdisc( 0, true, pos4, ray4, len4*axe4 )", pos4 ); + getready( "rigorousdisc( 0, true, pos5, ray5, len5*axe5 )", pos5 ); + getready( "draw rp(V5)--rp(V6)--rp(V7)--rp(V8)--cycle", black ); + getready( "draw rp(pos6)--rp((0,0,0))--rp(pos7) dashed dashpatt",0.5*pos6); + getready( "rigorousdisc( 0, true, pos6, ray6, len6*axe6 )", pos6 ); + getready( "whatisthis(pos7,ray7*red,-ray7*ncrossprod(red,axe7),conorm(pos8-pos7),ray8/ray7)", pos7 ); + getready( "rigorousdisc( 0, true, pos8, ray8, len8*axe8 );", pos8 ); + getready( "whatisthis(pos9,ray9*green,ray9*blue,conorm(pos10-pos9),ray10/ray9)", pos9 ); + getready( "rigorousdisc( 0, true, pos10, ray10, len10*(1,0,0) )", pos10 ); + doitnow; + draw llcorner txt2--lrcorner txt2--rp(fix2) withcolor lincolor; + draw lrcorner txt3--llcorner txt3--rp(fix3) withcolor lincolor; + draw lrcorner txt5--llcorner txt5--rp(fix5) withcolor lincolor; + draw llcorner txt6--lrcorner txt6--rp(fix6) withcolor lincolor; + draw llcorner txt8--lrcorner txt8--rp(fix8) withcolor lincolor; + draw txt2; + draw txt3; + draw txt5; + draw txt6; + draw txt8; + + produce_auto_scale; +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/perspec.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/perspec.mp new file mode 100644 index 00000000000..09efea9ab2f --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/perspec.mp @@ -0,0 +1,77 @@ +% perspec.mp +% L. Nobre G. +% 2004 + +%input featpost3D; +%input featpost2D; + +% bash: export TEX=latex +% tcsh: setenv TEX latex + +f := (4,2,2.5); +Spread := 45; + +verbatimtex \documentclass{article} \begin{document} etex + +color psdf, psdu, psdv, rll, rlr, rur, rul, pll, plr, pur, pul; +color pc; +numeric projecplanesize, sizefraction, positfraction, aspectratio, rectsize; +pen realpen, lightpen, projpen, dotpen; +path projecplanepath, realpath; +psdf = 3.1*(0,1,0.37); +projecplanesize = 1.7; +sizefraction = 0.19; +positfraction = 0.65; +aspectratio = 1.0; +rectsize = 0.15; +realpen = pencircle scaled 2.6pt; +lightpen = pencircle scaled 0.55pt; +projpen = pencircle scaled 1.8pt; +dotpen = pencircle scaled 3.8pt; +psdv = N( (-Y(psdf), X(psdf), 0) ); +psdu = ncrossprod( psdf, psdv ); +pll = projecplanesize*(-aspectratio*psdv-psdu); +plr = projecplanesize*(+aspectratio*psdv-psdu); +pur = projecplanesize*(+aspectratio*psdv+psdu); +pul = projecplanesize*(-aspectratio*psdv+psdu); +projecplanepath = rp(pll)--rp(plr)--rp(pur)--rp(pul)--cycle; +pc = positfraction*psdf; +rll = pc+sizefraction*projecplanesize*(-psdv-psdu); +rlr = pc+sizefraction*projecplanesize*(+psdv-psdu); +rur = pc+sizefraction*projecplanesize*(+psdv+psdu); +rul = pc+sizefraction*projecplanesize*(-psdv+psdu); +realpath = rp(rll)--rp(rlr)--rp(rur)--rp(rul)--cycle; + +beginfig(1); + draw projecplanepath withpen realpen; + draw realpath withpen realpen; + draw rp(psdf) withpen lightpen; + drawoptions( withpen lightpen ); + squareangline( psdf, psdv, black, rectsize ); + squareangline( psdf, psdu, black, rectsize ); + drawoptions(); + pair prll, prlr, prur, prul; + LightSource:=psdf; + prll = rp(projectpoint(black,rll)); + prlr = rp(projectpoint(black,rlr)); + prur = rp(projectpoint(black,rur)); + prul = rp(projectpoint(black,rul)); + path projpath; + projpath = prll--prlr--prur--prul--cycle; + draw projpath withpen projpen; + draw prll--rp(psdf) withpen lightpen; + draw prlr--rp(psdf) withpen lightpen; + draw prur--rp(psdf) withpen lightpen; + draw prul--rp(psdf) withpen lightpen; + draw rp(black)--rp(psdf) withpen lightpen; + draw rp(black) withpen dotpen; + draw rp(psdf) withpen dotpen; + label.rt( btex \texttt{f} etex, rp(psdf) ); + label.bot( btex \texttt{viewcentr} etex, rp(black) ); +endfig; + +verbatimtex +\end{document} +etex + +end;
\ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/planintersection.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/planintersection.mp new file mode 100644 index 00000000000..a3ab18237c4 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/planintersection.mp @@ -0,0 +1,105 @@ +% planintersection.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + f := 0.5*(10,14,5.5); + color a, x, b, c, D, y, w, g, h; + color auxa, auxb, auxc, auxd, auxe, auxf; + pair appear; + numeric wid, hei, alfa, beta, forw, back, labscal; + pen thedotpen, borderpen, normalpen; + picture dasha, dashb, labx, laba, labb, labc, labD; + path outerb, innerb, apath, bpath; + wid = 1.5; + hei = 1; + forw = 1.5; + back = 1.5; + alfa = -10; + beta = -30; + labscal = 2.8; + labeloffset := 8pt; + ahangle := 30; + ahlength := 10pt; + a = ( 0.7*forw, 0.15*wid, 0.3*hei ); + b = ( -0.7*back, 0.5*wid, 0.8*hei ); + c = ( 0, 0.7*wid, 0.5*hei ); + D = ( cosd( alfa )*cosd( beta ), sind( alfa )*cosd( beta ), sind( beta ) ); + labx = btex $\vec{x}$ etex scaled labscal; + laba = btex $\vec{a}$ etex scaled labscal; + labb = btex $\vec{b}$ etex scaled labscal; + labc = btex $\vec{c}$ etex scaled labscal; + labD = btex $\vec{D}$ etex scaled labscal; + thedotpen = pencircle scaled 4pt; + borderpen = pencircle scaled 2pt; + normalpen = pencircle scaled 1.5pt; + dasha = evenly scaled 2; +% dashb = dashpattern( on 7pt off 5pt on 7pt ); + dashb = withdots; + apath = rp((X(a),Y(a),0))--rp(a)--rp((X(a),0,Z(a))); + bpath = rp((X(b),Y(b),0))--rp(b)--rp((X(b),0,Z(b))); + auxa = ( forw, 0, 0 ); + auxb = ( forw, 0, hei ); + auxc = ( -back, 0, hei ); + auxd = ( -back, 0, 0 ); + auxe = ( -back, wid, 0 ); + auxf = ( forw, wid, 0 ); + outerb = rp(auxa)--rp(auxb)--rp(auxc)--rp(auxd)--rp(auxe)--rp(auxf)--cycle; + draw outerb withpen borderpen; + draw rp(auxa)--rp(auxd) withpen borderpen; + + draw bpath dashed dasha withpen normalpen; + draw rp(b) withpen thedotpen; + label.top( labb, rp(b) ); + + draw rp(a)--rp(b) withpen normalpen; + + cdotprod( y-c, D ) = 0; + cdotprod( y-black, green ) = 0; + cdotprod( y-black, blue ) = 0; + + cdotprod( w-c, D ) = 0; + cdotprod( w-black, green ) = 0; + cdotprod( w-hei*blue, blue ) = 0; + + cdotprod( g-c, D ) = 0; + cdotprod( g-wid*green, green ) = 0; + cdotprod( g-hei*blue, blue ) = 0; + + cdotprod( h-c, D ) = 0; + cdotprod( h-wid*green, green ) = 0; + cdotprod( h-black, blue ) = 0; + + innerb = rp(y)--rp(w)--rp(g)--rp(h)--cycle; + unfill innerb; + draw innerb withpen borderpen; + + draw apath dashed dasha withpen normalpen; + draw rp(a) withpen thedotpen; + label.top( laba, rp(a) ); + + x = whatever[a,b]; + cdotprod( x-c, D ) = 0; + draw rp(x) withpen thedotpen; + label.top( labx, rp(x) ); + + draw rp(a)--rp(x) withpen normalpen; + draw rp(x)--rp(b) withpen normalpen dashed dashb; + + draw rp(c) withpen thedotpen; + drawarrow rp(c)--rp(c+0.7*D) withpen borderpen; + label.top( labc, rp(c) ); + + label.bot( labD, rp(c+0.5*D) ); + + draw rp(x)--rp(c) dashed dasha withpen normalpen; + drawoptions( withpen normalpen ); + squareangline( x, c+D, c, 0.08*wid ); + +endfig; + +verbatimtex }\end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/revolvers.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/revolvers.mp new file mode 100644 index 00000000000..41fd7a9c4e2 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/revolvers.mp @@ -0,0 +1,112 @@ +% revolvers.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +def posang( expr Angul ) = + rp( green*cosd( Angul ) + blue*sind( Angul ) ) +enddef; + +beginfig(1); + f := (3,5,4); + numeric labscal; + picture labr, labc, laba, labum, labdo, labtr, labqu, labci; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + labc = btex $\vec{c}$ etex scaled labscal; + laba = btex $\vec{A}$ etex scaled labscal; + labr = btex $R$ etex scaled labscal; + labum= btex 1 etex scaled labscal; + labdo= btex 2 etex scaled labscal; + labtr= btex 3 etex scaled labscal; + labqu= btex 4 etex scaled labscal; + labci= btex 5 etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + tropicalglobe( 5, black, 1, blue ); + drawoptions( withpen pencircle scaled 1.3pt ); + drawdblarrow rp(black)--rp(red); + label.top( labr, rp((0.5,0,0)) ); + drawarrow rp(black)--rp(blue); + label.rt( laba, rp((0,0,0.5)) ); + dotlabel.lrt( labc, rp(black) ); + dotlabel.rt( labum, posang(-72) ); + dotlabel.top( labdo, posang(-36) ); + dotlabel.top( labtr, posang(0) ); + dotlabel.top( labqu, posang(36) ); + dotlabel.top( labci, posang(72) ); +endfig; + +beginfig(2); + f := (3,5,5.7); + numeric labscal; + picture labri, labc, laba, labro; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + labc = btex $\vec{c}$ etex scaled labscal; + laba = btex $\vec{A}$ etex scaled labscal; + labri= btex $R_i$ etex scaled labscal; + labro= btex $R_o$ etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + rigorousdisc( 0.5, true, black, 1, 0.85*blue ); + drawoptions( withpen pencircle scaled 1.3pt ); + drawdblarrow rp(black)--rp(red); + label.lrt( labro, rp(0.5*red) ); + drawdblarrow rp(black+0.85*blue)--rp(0.5*green+0.85*blue); + label.urt( labri, rp(0.25*green+0.85*blue) ); + drawarrow rp(black)--rp(0.85*blue); + label.ulft( laba, rp((0,0,0.5)) ); + dotlabel.rt( labc, rp(black) ); +endfig; + +beginfig(3); + f := (3,2.05,2.65); + numeric labscal, bray, sray; + picture labrb, labc, laba, labrs; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + bray = 0.7; + sray = 0.4; + labc = btex $\vec{c}$ etex scaled labscal; + laba = btex $\vec{A}$ etex scaled labscal; + labrb= btex $R_b$ etex scaled labscal; + labrs= btex $R_s$ etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + smoothtorus( black, blue, bray, sray ); + drawoptions( withpen pencircle scaled 1.3pt ); + draw goodcirclepath( bray*red, green, sray ) dashed evenly; + drawdblarrow rp(black)--rp(bray*red); + label.ulft( labrb, rp(0.5*bray*red) ); + drawdblarrow rp(bray*red+sray*blue)--rp(bray*red); + label.llft( labrs, rp(bray*red+0.5*sray*blue) ); + drawarrow rp(black)--rp(sray*blue); + label.rt( laba, rp((0,0,0.5*sray)) ); + dotlabel.lrt( labc, rp(black) ); +endfig; + +beginfig(4); + f := (3,5,4); + numeric labscal; + picture labr, labc, laba; + labscal = 2; + ahlength := 8pt; + ahangle := 30; + labc = btex $\vec{c}$ etex scaled labscal; + laba = btex $\vec{A}$ etex scaled labscal; + labr = btex $R$ etex scaled labscal; + drawoptions( withpen pencircle scaled 1.7pt withcolor 0.65blue ); + spatialhalfsfear( black, blue, 1 ); + drawoptions( withpen pencircle scaled 1.3pt ); + drawdblarrow rp(black)--rp(red); + label.ulft( labr, rp(0.5*red) ); + drawarrow rp(black)--rp(0.4*blue); + label.rt( laba, rp((0,0,0.2)) ); + dotlabel.lrt( labc, rp(black) ); +endfig; + +verbatimtex }\end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tug04/tangency2D.mp b/Master/texmf-dist/doc/metapost/featpost/example/tug04/tangency2D.mp new file mode 100644 index 00000000000..8682c43bc0d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tug04/tangency2D.mp @@ -0,0 +1,56 @@ +% intersection2D.mp +% L. Nobre G. +% 2004 + +verbatimtex \documentclass{article}\begin{document}{\sffamily etex + +beginfig(1); + numeric u, r, d; + pair Aa, Ab, Ba, Bb, Ca, Cb, Da, Db, Ea, Eb, Or, Kn; + pen dotpen, penpen; + color knowncolour, notknowncol; + picture kn, un, rl; + u = 4mm; + Aa = (5u,4u); + Ab = (3u,2u); + Ba = (13u,5u); + Bb = 0.5[Aa,Ab]; + r = abs( Aa - Ab ); + d = abs( Aa - Ba ) +-+ r; + Ea = radialcross( Aa, r, Ba, d, true ); + Eb = radialcross( Aa, r, Ba, d, false ); + Ca = 1.4[Ba,Ea]; + Cb = 1.15[Ea,Ba]; + Da = 1.5[Ba,Eb]; + Db = 1.1[Eb,Ba]; + Kn = (0,1u); + Or = (10u,1u); + dotpen = pencircle scaled 0.5u; + penpen = pencircle scaled 0.2u; + knowncolour = blue; + notknowncol = red; + kn = btex given etex; + un = btex unknown etex; + rl = btex $R$ etex; + draw fullcircle scaled 2r shifted Aa; + draw Ca--Cb; + draw Da--Db dashed evenly; + drawarrow Aa--Ab; + drawoptions( withpen dotpen withcolor knowncolour ); + draw Aa; + draw Ba; + draw Kn+Or; + drawoptions( withcolor knowncolour ); + label.ulft( rl, Bb ); + drawoptions( withpen dotpen withcolor notknowncol ); + draw Ea; + draw Eb; + draw Or; + drawoptions(); + label.rt( kn, Kn+Or ); + label.rt( un, Or ); +endfig; + +verbatimtex }\end{document} etex + +end; |