From 5dc602d16c5be2fd035b254ca23484a90aebd6dc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 9 Jan 2006 00:45:48 +0000 Subject: doc 5 git-svn-id: svn://tug.org/texlive/trunk@81 c570f23f-e606-0410-a88d-b1316a301751 --- .../featpost/example/standard/tangencypoint.mp | 38 ++++++++++++++++++++++ 1 file changed, 38 insertions(+) create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/standard/tangencypoint.mp (limited to 'Master/texmf-dist/doc/metapost/featpost/example/standard/tangencypoint.mp') diff --git a/Master/texmf-dist/doc/metapost/featpost/example/standard/tangencypoint.mp b/Master/texmf-dist/doc/metapost/featpost/example/standard/tangencypoint.mp new file mode 100644 index 00000000000..7c6d8f79601 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/standard/tangencypoint.mp @@ -0,0 +1,38 @@ +% tangencypoint.mp +% L. Nobre G. +% IYP (2005) + +%input featpost3Dplus2D; + +beginfig(1); + numeric u, i; + u = 5mm; + pen a, b, c; + a = pencircle scaled 3pt; + b = pencircle scaled 5pt; + c = pencircle scaled 1pt; + z1 = (1u,1u); + z2 = (4u,4u); + z3 = (4u,5u); + z4 = (3u,5u); + z5 = (3u,6u); + z6 = (4u,7u); + z7 = (6u,1u); + path cp; + cp = z1{up}..z2..z3..z4..z5..{up}z6; + draw cp withpen c; + for i=1 upto 6: + draw z[i] withpen a withcolor 0.5*(red+green); + endfor; + z8 = firsttangencypoint( cp, z7, 5 ); + draw z7 withpen b withcolor green; + draw z7--z8 withpen c withcolor blue; +endfig; + +end. + + + + + + -- cgit v1.2.3