From 76e16dc8afcc19ccbb1cc66be529411dfe41ce6e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Mon, 16 Apr 2012 22:46:29 +0000 Subject: featpost (16apr12) git-svn-id: svn://tug.org/texlive/trunk@25991 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/metapost/featpost/COMPILE.sh | 33 +- Master/texmf-dist/doc/metapost/featpost/README | 16 +- .../doc/metapost/featpost/doc/Exemplifier.ps.bz2 | Bin 0 -> 11120567 bytes .../featpost/doc/FeatPostExemplifier.ps.bz2 | Bin 8566884 -> 0 bytes .../doc/metapost/featpost/doc/featpostbeamer.pdf | Bin 1348551 -> 1436331 bytes .../metapost/featpost/doc/featpostdocsource.tex | 81 +- .../doc/metapost/featpost/doc/featpostmanual.pdf | Bin 1201456 -> 1262649 bytes .../metapost/featpost/doc/metapostpropaganda.pdf | Bin 1121483 -> 1121482 bytes .../featpost/doc/metapostpropagandafiles.zip | Bin 928722 -> 0 bytes .../doc/metapostpropagandafiles/Diagram1.1 | 67 - .../doc/metapostpropagandafiles/fekslatexmp.1 | 156 -- .../doc/metapostpropagandafiles/intersection2D.1 | 44 - .../doc/metapostpropagandafiles/pifpafpropaganda.0 | 118 -- .../doc/metapostpropagandafiles/pifpafpropaganda.1 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.10 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.11 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.12 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.13 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.14 | 151 -- .../metapostpropagandafiles/pifpafpropaganda.15 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.2 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.3 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.4 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.5 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.6 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.7 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.8 | 151 -- .../doc/metapostpropagandafiles/pifpafpropaganda.9 | 151 -- .../doc/metapostpropagandafiles/recursives.2 | 1693 ------------------- .../workflow-from-mpman-charts.1 | 1707 -------------------- .../workflow-from-mpman-charts.2 | 1284 --------------- .../texmf-dist/doc/metapost/featpost/example/38.mp | 62 + .../doc/metapost/featpost/example/CAT.mp | 45 + .../featpost/example/DebianSwirlsmallEdited.mp | 55 + .../doc/metapost/featpost/example/EBcrossed.mp | 57 + .../doc/metapost/featpost/example/LED.mp | 76 + .../doc/metapost/featpost/example/acoplanv.mp | 81 + .../doc/metapost/featpost/example/allfigs.mp | 68 + .../doc/metapost/featpost/example/allgreatideas.mp | 166 ++ .../doc/metapost/featpost/example/avalzero.mp | 85 + .../metapost/featpost/example/badshreeyantra.mp | 73 + .../doc/metapost/featpost/example/balllauncher.mp | 76 + .../metapost/featpost/example/borderframetest.mp | 28 - .../doc/metapost/featpost/example/buildcyclebug.mp | 203 +++ .../doc/metapost/featpost/example/canschemes.mp | 159 ++ .../doc/metapost/featpost/example/cap29res.mp | 380 +++++ .../doc/metapost/featpost/example/caratk3edit.mp | 339 ++++ .../doc/metapost/featpost/example/casadopessoal.mp | 53 + .../doc/metapost/featpost/example/cellevolve.mp | 72 + .../doc/metapost/featpost/example/cinemwork.mp | 307 ++++ .../metapost/featpost/example/convergingspirals.mp | 361 +++++ .../doc/metapost/featpost/example/cruztuga.mp | 37 + .../metapost/featpost/example/decorstatement.mp | 29 + .../doc/metapost/featpost/example/defaultcmr.mp | 32 + .../metapost/featpost/example/derivondatriang.mp | 82 + .../doc/metapost/featpost/example/diameters.mp | 36 + .../doc/metapost/featpost/example/directfonts.mp | 20 + .../doc/metapost/featpost/example/durgayantra.mp | 174 ++ .../doc/metapost/featpost/example/electrospiral.mp | 50 + .../featpost/example/ellipticextrusionpress.mp | 31 + .../featpost/example/ellipticproperties.mp | 45 + .../doc/metapost/featpost/example/elliptictable.mp | 83 + .../doc/metapost/featpost/example/ellipticthing.mp | 47 + .../featpost/example/equilatrianglelines.mp | 40 + .../doc/metapost/featpost/example/esteveslogo.mp | 52 + .../featpost/example/experimental2Dsetup.mp | 175 ++ .../doc/metapost/featpost/example/f1aula03.mp | 104 ++ .../doc/metapost/featpost/example/f1aula05.mp | 98 ++ .../doc/metapost/featpost/example/fis3prex7.mp | 47 + .../doc/metapost/featpost/example/gnupost.mp | 110 ++ .../doc/metapost/featpost/example/goldenellipse.mp | 57 + .../doc/metapost/featpost/example/graphs.mp | 65 + .../doc/metapost/featpost/example/hap.mp | 137 ++ .../doc/metapost/featpost/example/heatfromroom.mp | 90 ++ .../doc/metapost/featpost/example/hexacylon.mp | 23 + .../doc/metapost/featpost/example/iamsorrykarl.mp | 94 ++ .../doc/metapost/featpost/example/jd44.mp | 172 ++ .../doc/metapost/featpost/example/kopptrammel.mp | 39 + .../doc/metapost/featpost/example/lamarquejaune.mp | 100 ++ .../doc/metapost/featpost/example/latexboxes.mp | 25 + .../doc/metapost/featpost/example/lawofcosines.mp | 167 ++ .../doc/metapost/featpost/example/ledlogo.mp | 202 +++ .../doc/metapost/featpost/example/loglogpaper.mp | 47 + .../doc/metapost/featpost/example/logofontest.mp | 35 + .../doc/metapost/featpost/example/manjusha.mp | 76 + .../doc/metapost/featpost/example/mce-lng.mp | 89 + .../doc/metapost/featpost/example/micromu.mp | 34 + .../metapost/featpost/example/milimetricpaper.mp | 43 + .../doc/metapost/featpost/example/mpfields.mp | 160 ++ .../doc/metapost/featpost/example/muslimpattern.mp | 73 + .../doc/metapost/featpost/example/naoestacionar.mp | 39 + .../doc/metapost/featpost/example/newcommunism.mp | 237 +++ .../doc/metapost/featpost/example/nosimples.mp | 61 + .../doc/metapost/featpost/example/nosuspension.mp | 131 ++ .../featpost/example/nulldefectanglexample.mp | 134 ++ .../doc/metapost/featpost/example/onebigword.mp | 17 + .../doc/metapost/featpost/example/optest.mp | 51 + .../doc/metapost/featpost/example/pifpaf.mp | 56 + .../doc/metapost/featpost/example/pixelgrid.mp | 45 + .../doc/metapost/featpost/example/plaintangency.mp | 106 ++ .../featpost/example/potenciadecicloeliptico.mp | 46 + .../doc/metapost/featpost/example/probtodooterr.mp | 75 + .../doc/metapost/featpost/example/profaux.mp | 70 + .../doc/metapost/featpost/example/project.mp | 75 + .../doc/metapost/featpost/example/qap.mp | 117 ++ .../featpost/example/reeditedgoodquestionmark.mp | 102 ++ .../doc/metapost/featpost/example/roadincline.mp | 67 + .../featpost/example/rodarolaremplaninc.mp | 52 + .../doc/metapost/featpost/example/rothexagrid.mp | 45 + .../doc/metapost/featpost/example/sap.mp | 179 ++ .../metapost/featpost/example/sincityredesigned.mp | 264 +++ .../doc/metapost/featpost/example/some2Dvecs.mp | 77 + .../doc/metapost/featpost/example/statement.mp | 51 + .../metapost/featpost/example/statethreelines.mp | 21 + .../metapost/featpost/example/strength1defect.mp | 85 + .../doc/metapost/featpost/example/symbol.mp | 97 ++ .../doc/metapost/featpost/example/telemira.mp | 22 + .../doc/metapost/featpost/example/tete.mp | 24 + .../doc/metapost/featpost/example/theHURD.mp | 102 ++ .../metapost/featpost/example/thunderproblem.mp | 37 + .../doc/metapost/featpost/example/tiposdetrans.mp | 71 + .../doc/metapost/featpost/example/tiposdetransb.mp | 57 + .../doc/metapost/featpost/example/tiposdetranst.mp | 43 + .../featpost/example/trianglecenterofmass.mp | 43 + .../doc/metapost/featpost/example/trigonometry.mp | 89 + .../doc/metapost/featpost/example/twoplustwo.mp | 59 + .../doc/metapost/featpost/example/ubhtransients.mp | 139 ++ .../doc/metapost/featpost/example/ultraeye.mp | 16 + .../metapost/featpost/example/ultraimprovertex.mp | 26 + .../doc/metapost/featpost/example/wwfpmp.mp | 154 ++ .../featpost/example/xcmplaca2buraquads.mp | 69 + 131 files changed, 9079 insertions(+), 7402 deletions(-) create mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/Exemplifier.ps.bz2 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/FeatPostExemplifier.ps.bz2 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles.zip delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/Diagram1.1 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/fekslatexmp.1 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/intersection2D.1 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.0 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.1 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.10 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.11 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.12 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.13 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.14 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.15 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.2 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.3 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.4 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.5 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.6 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.7 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.8 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/pifpafpropaganda.9 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/recursives.2 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/workflow-from-mpman-charts.1 delete mode 100644 Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/workflow-from-mpman-charts.2 create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/38.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/CAT.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/DebianSwirlsmallEdited.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/EBcrossed.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/LED.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/acoplanv.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/allfigs.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/allgreatideas.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/avalzero.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/badshreeyantra.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/balllauncher.mp delete mode 100644 Master/texmf-dist/doc/metapost/featpost/example/borderframetest.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/buildcyclebug.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/canschemes.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/cap29res.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/caratk3edit.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/casadopessoal.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/cellevolve.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/cinemwork.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/convergingspirals.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/cruztuga.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/decorstatement.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/defaultcmr.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/derivondatriang.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/diameters.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/directfonts.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/durgayantra.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/electrospiral.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ellipticextrusionpress.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ellipticproperties.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/elliptictable.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ellipticthing.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/equilatrianglelines.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/esteveslogo.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/experimental2Dsetup.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/f1aula03.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/f1aula05.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/fis3prex7.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/gnupost.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/goldenellipse.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/graphs.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/hap.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/heatfromroom.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/hexacylon.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/iamsorrykarl.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/jd44.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/kopptrammel.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/lamarquejaune.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/latexboxes.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/lawofcosines.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ledlogo.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/logofontest.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/manjusha.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/micromu.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/milimetricpaper.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/mpfields.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/muslimpattern.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/naoestacionar.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/newcommunism.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/nosimples.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/nosuspension.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/nulldefectanglexample.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/onebigword.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/optest.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/pifpaf.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/pixelgrid.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/plaintangency.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/profaux.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/project.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/qap.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/reeditedgoodquestionmark.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/roadincline.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/rodarolaremplaninc.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/rothexagrid.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/sap.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/sincityredesigned.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/statement.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/statethreelines.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/strength1defect.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/symbol.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/telemira.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/tete.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/theHURD.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/tiposdetrans.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/tiposdetransb.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/tiposdetranst.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/trianglecenterofmass.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/trigonometry.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/twoplustwo.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ubhtransients.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ultraeye.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/wwfpmp.mp create mode 100644 Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp (limited to 'Master/texmf-dist/doc/metapost') diff --git a/Master/texmf-dist/doc/metapost/featpost/COMPILE.sh b/Master/texmf-dist/doc/metapost/featpost/COMPILE.sh index 82b14fe633e..c853ac09cbf 100644 --- a/Master/texmf-dist/doc/metapost/featpost/COMPILE.sh +++ b/Master/texmf-dist/doc/metapost/featpost/COMPILE.sh @@ -1,35 +1,38 @@ #! /bin/bash -export TEX=latex +cd example +mpost --tex=latex graphs.mp +mv graphs.? graphs.??? ../ +cd .. echo \\documentclass[twocolumn]{article}\ \\usepackage[dvips]{epsfig}\ \\begin{document}\ - \\title{FeatPost Exemplifier}\ + \\title{Exemplifier}\ \\author{L. Nobre G.}\ \\date{\\today}\ \\maketitle\ \\begin{center}\ - > FeatPostExemplifier.tex -for a in example/*.mp + > Exemplifier.tex +for a in example/*.mp do b=`basename $a .mp` - mpost example/$b + mpost --tex=latex example/$b for c in $b.? do echo \\vfill\ \\begin\{tabular\}\{c\}\ \\epsfig\{file=$c\,width=0.9\\columnwidth\} \\\\\ \\texttt\{$c\}\ - \\end\{tabular\} \\\\ >> FeatPostExemplifier.tex + \\end\{tabular\} \\\\ >> Exemplifier.tex done done -echo \\end{center}\\end{document} >> FeatPostExemplifier.tex -latex FeatPostExemplifier.tex -dvips -o FeatPostExemplifier.ps FeatPostExemplifier.dvi -bzip2 FeatPostExemplifier.ps -rm FeatPostExemplifier.aux -rm FeatPostExemplifier.dvi -rm FeatPostExemplifier.tex -mv FeatPostExemplifier.ps.bz2 doc/ +echo \\end{center}\\end{document} >> Exemplifier.tex +latex Exemplifier.tex +dvips -o Exemplifier.ps Exemplifier.dvi +bzip2 Exemplifier.ps +rm Exemplifier.aux +rm Exemplifier.dvi +rm Exemplifier.tex +mv Exemplifier.ps.bz2 doc/ rm *.?.PS *.?.aux *.?.latex *.?.dvi *.log *.?.mgk *.?.orig rm example/*.mpx *.mpx mkdir allps @@ -41,5 +44,3 @@ pdflatex featpostbeamer.tex pdflatex featpostbeamer.tex pdflatex metapostpropaganda.tex pdflatex metapostpropaganda.tex - - diff --git a/Master/texmf-dist/doc/metapost/featpost/README b/Master/texmf-dist/doc/metapost/featpost/README index e2a0550c6c5..2002c5bfe84 100644 --- a/Master/texmf-dist/doc/metapost/featpost/README +++ b/Master/texmf-dist/doc/metapost/featpost/README @@ -1,8 +1,8 @@ -Learn FeatPost-0.8.5 from the following three files in the "doc" directory: - "featpostmanual.pdf" gathers all that I ever wrote about FeatPost; - "featpostbeamer.pdf" is a presentation version of the above manual; -"FeatPostExemplifier.ps.bz2" gathers all the example figures. - -Perhaps, it is better for you to start with plain MetaPost and (La)TeX: - "metapostpropaganda.pdf" is a wide-range tutorial. - L. Nobre G. +Learn FeatPost-0.8.6 from the following three files in the "doc" directory: + "featpostmanual.pdf" gathers all that I ever wrote about FeatPost; + "featpostbeamer.pdf" is a presentation version of the above manual; + "Exemplifier.ps.bz2" gathers a very big set of MetaPost figures. +Perhaps, it may be better for you to start with plain MetaPost and (La)TeX: + "metapostpropaganda.pdf" is a wide-range tutorial. + (the "metapostpropagandafiles" subdirectory contains additional examples) +2012/APR/14 L. Nobre G. diff --git a/Master/texmf-dist/doc/metapost/featpost/doc/Exemplifier.ps.bz2 b/Master/texmf-dist/doc/metapost/featpost/doc/Exemplifier.ps.bz2 new file mode 100644 index 00000000000..a7323fe232b Binary files /dev/null and b/Master/texmf-dist/doc/metapost/featpost/doc/Exemplifier.ps.bz2 differ diff --git a/Master/texmf-dist/doc/metapost/featpost/doc/FeatPostExemplifier.ps.bz2 b/Master/texmf-dist/doc/metapost/featpost/doc/FeatPostExemplifier.ps.bz2 deleted file mode 100644 index 493d37ab4a0..00000000000 Binary files a/Master/texmf-dist/doc/metapost/featpost/doc/FeatPostExemplifier.ps.bz2 and /dev/null differ diff --git a/Master/texmf-dist/doc/metapost/featpost/doc/featpostbeamer.pdf b/Master/texmf-dist/doc/metapost/featpost/doc/featpostbeamer.pdf index 652be0af42f..dd8fdb4edde 100644 Binary files a/Master/texmf-dist/doc/metapost/featpost/doc/featpostbeamer.pdf and b/Master/texmf-dist/doc/metapost/featpost/doc/featpostbeamer.pdf differ diff --git a/Master/texmf-dist/doc/metapost/featpost/doc/featpostdocsource.tex b/Master/texmf-dist/doc/metapost/featpost/doc/featpostdocsource.tex index 9201592e6ba..6098efcd2eb 100644 --- a/Master/texmf-dist/doc/metapost/featpost/doc/featpostdocsource.tex +++ b/Master/texmf-dist/doc/metapost/featpost/doc/featpostdocsource.tex @@ -9,7 +9,7 @@ \newcommand{\myem}[1]{\texttt{#1}} \title{\FP\ manual} \author{\href{mailto:lnobreg@gmail.com}{L. Nobre G.}} -\date{0.8.5} +\date{0.8.6} \begin{document} \mode
{\maketitle} \frame{\titlepage} @@ -435,15 +435,16 @@ in addition to cones, cylinders, cylindric holes, parts of cylindrical surfaces, spheres and spheroids, globes, hemispheres, torus, elliptical frusta, - polygons, polyhedra and their planifications, functional and + polygons, polyhedra, functional and parametric surfaces, direction fields, field lines and trajectories in vector fields (differential equations), schematic automobiles, schematic electric charges, automatic perspective tuning, 2D representation of ropes, reference horizontal surfaces, hexagonal plots, schematic 2D springs, zig--zag lines, irregular circles, selective intersection of two circles, detection - of tangency, paths for CNC machines, intersection of 2D areas, - intersection of three spheres. + of tangency, paths for CNC machines, minimization of scalar functions, + intersection of 2D areas, intersection of three spheres, + intersection of a plane, a cylinder and a spheroid. } \subsection{Perspectives}\label{perspectives} @@ -649,9 +650,9 @@ draw 3D matching schematic diagrams on the image. \frame{ \changeableframetitle{Coming back to 3D from 1D} -Using the same algorithm of \myem{photoreverse}, the +Using almost the same algorithm as \myem{photoreverse}, the macro \myem{improvertex} allows one to approximate a -point in 3D-space with given distances from three other +point in 3D-space with given distances $d$ from three other points (an initial guess $\vec{i}$ is required). \begin{center} \myem{point := improvertex}( $\vec{a}$, $d_a$, $\vec{b}$, $d_b$, @@ -659,6 +660,39 @@ points (an initial guess $\vec{i}$ is required). \end{center} } +\frame{ + \changeableframetitle{\myem{ultraimprovertex}} + Approximating a + point in 3D-space with given distances from three other + points is the same as calculating the intersection of three spheres. + And method to do that is the same as the method to calculate the + intersection of a plane, a cylinder and a spheroid (see figure + \ref{figultraimprove}). +} + +\frame{ + \begin{figure}[bpt] + \begin{center} + \includegraphics[width=0.45\columnwidth]{ultraimprovertex.1} + \end{center} + \caption{Example that uses \myem{ultrimprovertex}.} + \label{figultraimprove} + \end{figure} +} + +\subsection{Scalar function minimization} + +\frame{ + \changeableframetitle{Scalar function minimization} +Macro \myem{minimizestep} is a +minimization routine for scalar functions like $y=f(x)$ where an initial +triplet $(x_1,x_2,x_3)$ with $x_1), with Reserved Font Name CMR10. -% This Font Software is licensed under the SIL Open Font License, Version 1.1. -% This license is in the accompanying file OFL.txt, and is also -% available with a FAQ at: http://scripts.sil.org/OFL. -%%EndComments -FontDirectory/ORMKKB-CMR10 known{/ORMKKB-CMR10 findfont dup/UniqueID known{dup -/UniqueID get 5000793 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -11 dict begin -/FontType 1 def -/FontMatrix [0.001 0 0 0.001 0 0 ]readonly def -/FontName /KLFJOR-CMR10 def -/FontBBox {-40 -250 1009 750 }readonly def -/UniqueID 5000793 def -/PaintType 0 def -/FontInfo 9 dict dup begin -/version (003.002) readonly def -/Notice (Copyright \050c\051 1997, 2009 American Mathematical Society \050\051, with Reserved Font Name CMR10.) readonly def -/FullName (CMR10) readonly def -/FamilyName (Computer Modern) readonly def -/Weight (Medium) readonly def -/ItalicAngle 0 def -/isFixedPitch false def -/UnderlinePosition -100 def -/UnderlineThickness 50 def -end readonly def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 98 /b put -dup 100 /d put -dup 103 /g put -dup 105 /i put -dup 110 /n put -dup 111 /o put -dup 117 /u put -dup 120 /x put -readonly def -currentdict end -currentfile eexec -D9D66F633B846AB284BCF8B0411B772DE5CE3DD325E55798292D7BD972BD75FA -0E079529AF9C82DF72F64195C9C210DCE34528F540DA1FFD7BEBB9B40787BA93 -51BBFB7CFC5F9152D1E5BB0AD8D016C6CFA4EB41B3C51D091C2D5440E67CFD71 -7C56816B03B901BF4A25A07175380E50A213F877C44778B3C5AADBCC86D6E551 -E6AF364B0BFCAAD22D8D558C5C81A7D425A1629DD5182206742D1D082A12F078 -0FD4F5F6D3129FCFFF1F4A912B0A7DEC8D33A57B5AE0328EF9D57ADDAC543273 -C01924195A181D03F5054A93B71E5065F8D92FE23794D2DB9B8591E5F01442D8 -569672CF86B91C3F79C5DDC97C190EE0082814A5B5A2A5E77C790F087E729079 -24A5AC880DDED58334DD5E8DC6A0B2BD4F04B17334A74BF8FF5D88B7B678A04A -2255C050CB39A389106B0C672A1912AFA86A49EFD02E61E6509E50EE35E67944 -8FC63D91C3D2794B49A0C2993832BC4CDC8F7BD7575AD61BCDF42E2E421AA93E -3FF9E4FAD980256D8B377043A07FC75D6169338028692CCA8CD1FE92FD60AD26 -D57B7519B80A8F8DCE9CEE5CDF720AF268D3C14099498A843D76E3B6C0328F24 -D36EFE7F5C4E5B5C612786200C8DE3A41EE5F1FFAF4097653CFCDC8F4FD32E0B -03EDB3E413283B9EFB0AC33B055617005BC9B0057FD68C52D1B0E67F0C571685 -767F2AA85ADE4E0104A1C777733D5E318A22A9944336E5B98D965E50D31F357A -8B6EA5A0EA98E1B027CE68C2EDB149EDDD04ED74A1B3D206D471A0C11C11449B -DE190BBFEBC08C9E1B7513B43DA3134D6B11A2516E6E86B67F68C970A320D05E -94FEC57FB347606DF89989C33482BD09D011C55AA920319E7B26A205D3D0F004 -22466F09C0482A164CFB27EF6ED2B040ECCC3DCAF345B5A73676F193D43123B7 -72FD6CFC5E37930E61EBD5A6307E4DE70194E6384EC0D79DB6AD86D3B319A31C -8B0589D0FE28241D8ACE280D0530EE99C80723E560BB72AE9D53F4713181F491 -344B06D3027BA4E9E94D4305BE1D817197C54C8FF56CD6964165F6448ECC8A8A -64B48B4F0FD69299A137589E2491A283509B21A3A5772F75B7602A9F60AE559B -07A58436D04222C73EAEA72DE9A5A441F88D27C11F4F91255EFE280E91A4ACAC -1E98A4E5E6C57B9AE86FD218C3CD8F24A4104156A80F13821384E529783C52C8 -78B94AB3A0096090867ED32E8A30980E737922037F75F062BD83BF4F5929BC51 -CC22AEE2DBBAAA001CFFBFF41D258424FAD888FFF1BEAB796A44E3126159E120 -7E4025C676CF94888A1971AEF8B6764B3AF4A92D36FAF6FC56FD049710EE3782 -BC2CD84FE2473F133BE03C1346B875463F126DCAB15C7A9BCC9A727D23611462 -4E8D2BFD2466600285D79518712B8681ABCD69608E6AA9578F7BD771EC36E01A -5A17BC17E375020ECA59B43790ABEB9DF5F4FBBEF807E5699EFEAC563E1ACC5D -EFA336E75DE6D8248E9381BB110884FDC89C2F9A41EBBC9A8A1F98E6A41F68BE -EE30E25CA148C1EFF42DFF8C214A6537AB11F260B8C329A4947B5FC8DC9C5622 -4DF7BF4FBFB00380D47BABB03BC30627AA74103E553F55278F538EDD8C1E64CE -0F1398CA0AB5A86630139B4A7E8FC02804CAFF3830114640AE50D2FDA3B561B5 -C63AD7EE3347804CBB40FB1E77A6C89735DD870351C3A1811591AB493251B904 -314F65791963C0412377C1D02362C5E9655F1C3D4803CD379A8EF24C48218C2E -DF1165840462BF37DDE1B8D5FF09FA2C3B261E2F1A65ECFBE5D4EAD43B52C029 -EEB3948CB8A252CBAF545C8FA1C31E920E23A12DD7222CEF2D2A513BD758EA13 -DA33BF5FBF1D734653EB83DA2D374A5B9A0CE316F24EE375D6DF6BDA49954C2E -DB25A88821193636119D469BA66E5DAA9C92520FD4F84426A4E54273FA469084 -7517817A6EE3E21176D333825E88046F50B3CF6938AF9BA79A2F51398239EB91 -1A2D07F7FCD948427FF62F40FF95E39FE1A1AA8451411563FD5388472251C155 -69BDE9283B41900B21EB1190D06E6B13B7794FED020D2C1BDD205AE77B084BCE -EF628249398B496DE85B406FC2E1939EF00DFC84C07E26CF72EC401BAAE756E5 -7F6673216E7560D1C2A723CB405EE5CA474A07F61B81F8836482F73DC9516D67 -CE0CB770EAD755B6B356198B4B97EBB29C63456953270CCC8D5650C1D006E69D -38DE2DFEAB27DAD50A817F0D645D30AF5B75A7B53CBD3D2B8D87BD0A7E525AF3 -22F7ADDFCE31716914C2318260C2E2B4664893921B68C5A93334A361D94A759C -0D7B146D6FD94F0442D672BDA0F6432E18F3C5DFA37ADA378D95B75F413C9ED1 -BB5C606A3EC7DFB3F796F59B0478C13FD1900381EFE0BB5242D5B5D34D03AF1D -4BDC93EAF8020E26CA23C8B0E7DDEBBC6762A557067A4CE05A524188A8F02E2F -3625DA38DFCF381727887F5646A3995A8A38A5FB1E5D5EBB395FDD0B7C8E71AD -B48EEDB62AB2CE99D121435EFBBFCEEA69AE9ED8238B60CC7288DE33C766CDFE -15B767B4AE2E6CE0965E77272AC9F86023DA620548CFAC85BC751C44218A29C9 -849F1C2DCBDFAD895B54E51A569952ED50F82DC8A19F367E7E44643854EFD6B3 -FCAEB04E55E4661C82D31E2932611748480EF61FB2FBFB0CFB940BEA81AFCD84 -4C6A6332D7A600170E38A8EAFCD4F93DC153C43175434C86BC747348FAC61B76 -1FEC9027C1A193E55C80F1F20B5317AA0A05AAA36AE235F6E49F06E570FEE798 -84857D7552EA92EF3EFAD52DE39C2F8F43C59E3A957B7B926FC95FC4B60186DF -7F3523EE2AB74E294C8C4BCD8B4975E84849E0FBDA6C0B0F24A636DFA578B122 -CF97BC5089E21E9F5298D1C9F30CB8BAFF6A3A11BB4D9A0A5CF2B18D055C44CA -4FD4D8FE1AF3630907DE7E585AA811F9CD11FB2C8FC791851D651009FA5DF20B -3C33FD2FF848A9E3F5652BD294965A332DD3F246C91B0ADA34017FF2451D1394 -F9C3C95AAC6EC8062BE98E8914D51DA6A164AD13938693D446044859D03A949D -F9AC5DF4A000CDA98BB516D762CB9F6D44B5268FD0C26E88BC4A760C0F75A140 -DEBDECA4F511128B7D2805872160C55236F0A0FA7637FF0D4E94AC079CD3C8A7 -D03A5A56F26B0438B577C46011A10532FEBCAD14FBD6032E224F45691A726886 -56F305231EB2FCDF59C8BBFCB5DBD2D093A0E84D62AC93A2312CA69295E937C4 -8DBA1802B85F54B5E7E6D6216A918F911FF705D3B5CF055F1D873B96283A0B53 -59344D910CD396D883F6F7836BA65FAB4393A773A8F6BC298069E5BA38210EED -49C9D920F718E3FCE692527DC7CCE6963BF744F2C91BC5952564196D60574E86 -87A0FAB21F2DB2BD5A51D7FBD8FC19946D24E5A228462C4772F978E650ADCE3B -8D66B9C21279C531CA1C3A8ECE3420BB65837287A7222CC3673A2A5F8BBFDB60 -C719CD073EF9A23675198462C7C87B24CC92D6AEE5C25AC63855CC3281494342 -D28F3D2FDE0C183486769A4FD5B0143193D31FCB2C2A14E487BBD96D0BADBB64 -D1B56021C363A795BF10E2DB448261C363A54A4AC1182B470C457AA82DF3F5D1 -F4B329806141EBD53CAE309319B94133D7EBDC2D0453A905ADD207364371E178 -0A95C2686E3B34C4A978BFC0EE968C39ABA00889BC5149162C2B54483D44FD3B -5CFF41F611C7E03B94945F414560E874D7CF27FFD0630890D7D7EA66CBD15448 -229059E1C436BB33D69552B5367AB5D53591C4678D0C704DD3EA23F5D9E8A7AC -17D003C19E333E726FFFA2961F33C70F429085F7BFE3E2510F59B78F58B19CB4 -01B48E184BAD9020FECCE3AF52048A056981DAEA02AE78197E65855DDB170616 -F54278395D9EA50DC83761AE759F9CDEF9E1948E7002414FC05286ED793E6662 -3347F2A9AF8917493D7305B92CF93E8E9185F70015F5594084298A6C2F9FD3C0 -689F262AC9FEDC9B89577ECDE92F08D3142209FBCE7B5C0A840CC767BCA56C20 -4E4E545E2BE4D21C53855CEE4CD0AB35D1A604C0FFFF77DBAE4289752276559F -A05FEE65F45ECAF44E95E23FAB6052195C7948AF0B1126482D4E02D72BF8AB03 -DE0F1A632F7672AD9DDE70EDC82AA993678A82BEAD0BC2649C4707FD8509810D -364B5C6FE0E10772E95288C622C2F06C634F4DF8C7FD1432BC9310D5F24FEE3F -7AB324863D6DABAA1576E70643CA79EF4D7DF4105093D66CEE0F3B87D2164A7F -26EA05F5C4645B22D3E1BFD2219657712C168FD90DE801FB0F32759E80DEC1E1 -43CEEB19FED12D757205043FC98FEC62D6A8D8B97BC083B4A0E985AF7850D6FD -8716B9957C1C35A0675BC53DF672C425C79F43FDABAEE7D63F092CF271C9A9D7 -C41F40C4189510987887942E60A412B3EEC84C9A6E1AC7D54D528F5604B72C08 -94B7882621A5BF1F325B92FF96B80878CC550D1AE4D8196E41CB1251856609A5 -C4D3BD05A922D0D45E039D9450DEF8490A3E924E41434194910BF60BA1B08BE1 -B41824345627745541A4F1703E956328F6227D11C74946B38CFB096139979E56 -4E723B889B44C6D78673868C89912F8B4F0B4B485F1587A637B630F92E6072D5 -7F3B44EA6FD96BBD4FC28A6C1D90805E3BE3E42A7BC9C880762966C55BC04E01 -204D083AE976FAE6F37C94F27E68F8C0F28D52B17F6C0FD7C9150701FD78F8CE -B8E8DC9260E3974005EB5CA728171F482D765016C94D4ADFE4A42EF42212BC56 -7E4EEEE8B0D2A7856CD4E44F55C0BAB762F92CB8D64C17022D4BF3A47C12F5E6 -279FC23101FEE93753653CE8CEDC3B75C9CCB29BF1D4554C6120DE8EE750FCBB -E38B5D915206974962E320362E59B3F21B3AB1875703191043D03284D4467346 -CFF2F98CEB4845B73ED8E003E0DC94251B73E13A9B51A3F1430BCF6A21EB9B7A -65E17FA411F53BE6432F1506232B8159E008FA257F884A4A01AC53BE91754D78 -BF14A5B0FBFB9C31BF4908355F8A762052968DF526D118708CCB0B7CB5BEE285 -6DAB6CD2E3934178E60BECB11AAB5478623CF6C50C92F8BB5D1A583609028FA7 -B8A53B791BDC9EF76A124F3F7641857E4BEA0837CB36176EC9A522EA7F41B8D3 -63C37D1145367BD300F17B54522A834BBB74DE12BF9EB26ACE6F24A046D58F89 -4D4B7DF74875F1A0C1C9D97BE0849593D7B398EB4B00BEBC8C8D1497B6EF831A -A35380FFB7F1AFA4D888AA52C9482E8B1755CC209905F98F40D95B44D4DCBCB6 -67423D1BC2F3560FF0A8B4F0CAC352A4EE2C1D946E45AAEC8A6AD40303F3382C -DF0756BFA3B1ED64C169E56ED1C760F2FF0E24DC5C9F41306EF8D2628153D30A -5DCB0791126BEFD4947D7EF08301FE015F2B0008DFFCBF9F2D4D859FD43EC7D9 -C5BE237E9BF6665B7B1BEBB362F0C0C3A8D86010B9C97FA741C97C2E0513386C -9C26C235B14DD2A58BFDAC7B5F63DB4DA6D5D37D0098175A9071590E1DF66A3D -B8173A047C29D7D35557F06132CC920B5460B8AFC11D23D09A4E45D089F5EB51 -963FA1A6256E359D485107FD143B2BF21FDE9DA5744BC2615E86C31C89470CF0 -D06C6397D9FCCB316EA9989430240759D2C4945D941F159FC02327F34B042BAB -B5C3A47C78E8C1A6FBCD396B1A51CC4B020B8AD401841EDABACECDB482D6EC5B -72D2BFEB4556720FADD49D07307C8B22ACB7E310CA4151A85C71EEF70E8D15DE -B3B00F26E0E166C14647A65ADA228A3D1C89025BE059306565DB1B1EFC37D358 -8C1EB024254AFD049BA977BD4C2C605050E17940A89D0D4C5D963E792320F5DB -3706682E03D25D9E02487247819551465092CC22B6B56E93F3AB528038FEC3F0 -668F866707A19B0463BE706EC729D2EE1653AAC7E29BD25BFB3241D4792F5152 -ED415B4E7FA92C2EE5A22E27E8B75542C492E56D811C192E95542A6FE0BFE5A5 -69273C2ABED4300D491B92D2AECDD278404CB84B1BB1BD7AFEC858215837D118 -C0E928BE7E07CFEEB51A6D21375B772B8248C994564014015232A0DA4BEA1754 -3274F407FED0837A236371F1A32056240F2015B1E7F4B2CA72C6B58610A66F13 -407CFFBA5E0A2893C1F572D50F51286E9133B5A84239C9493B0574E77D281D01 -11D00683354A000C9700EAFBC1FD104EA19DFCB87470190E7E2CE26E3A6FD0FF -2620B87B82AC8686B6206B530F17E9348BC7D04B948348802CE53A312443DB87 -4DBBA5313A6A2A8DAB8A1CC9A594FF8C299281C0A261C8CB2226B732FBEEDE40 -2C6ACC74A1A61379E2E1CD5548CD908268A32FA83D8504C442EA0E183ADBF7FF -9FD09C037AB03516ECCA93FF048235BD11A25DB07F164512A079C5392AC7F889 -CE96AE5C8D9580BCAFCC087C35E76EED1A671E87C12E3045E15A687134736DF8 -DA984772AFD189D68571A2ED7256F1E204230E41D3D9DD876F938951714A3973 -0CA9310489F8E807C1C7A4E51AEA5BC030610A5D7263FF7E0F9FDE3E5E37A362 -5B919000BD94D978583B942EB79CF2BEAC33FEBC9A67272EB10865BA8FB75FD7 -9D280AB59F91B96C16C982DE848D76D8FA8620DFD7C80B7DEAE7264350D6FB3A -EF04794DA3305844A7CF718F6D1A4A3AFF6826173A076A1372ABFC54ED3AC6C2 -09C9287FC830556CA694E21CA5342ECA7B10C90AFC4783D841D7B1E34FA3DB7A -2B706F3E21B0FBAB23E7257962FC3BC309CEA2C7239A9D6B44CC96825115ABD2 -AF9A2566D2F3382C01569FBDB94C8D664A5DA0F7DC3DD140CA77C743D7BC1420 -324ECF9E4780280EB119885E96A6C619CE3C0C8E1E264E2DEB137E5DC8149786 -486D65667ECF47B1A1E20E9E6E4FC8323E0BC8E61BDD3BCDFC6575C69C03E31A -EFFC290472CBBD049DE3F840AEE37A2486034240F80E75D8A79E0762377DF660 -52B12EAA16D678990B11A9BFBC03C1D4FCDA9FD4FFBB3E88352438102F10B7C5 -9F04C013B6575B5E948FAB58EA691984A0E54E6B9F3F505FFFEF74D06FA1CDF3 -4B8A95904C8A2763AA8AF5B71D00F5DE09DC1CDF87A08B6D181453063E14C12D -B7BB3775A6E2A901636273D9EEB833EA8CF20FD83AE899E28DADE10EEEC20BD7 -BD93085A4B1AC80AC1AE8280C14767F1A487BD066007A0D050317BD081131A14 -6EA0898ED59E46DA7B6254BDCCBC660686E2EDA0E77A705A653733BB5C5497D0 -B130359F866CF293FB6EF0C2AC5BAA2DB0DED045E2DED3A2612D078333260359 -16CF0CCB272D34767EA069E0F0B0D42327A18529D72E890EDA6195C2688438ED -E9ACDBEED41E81CA8EB5E43C2B09CE266EFCA03F2D7FF57F12B06F9E54FCC6A6 -546676F6FFC5B8B7D3F0982B6FF0D21D949309F0C0B175CC1D0976F8C55C6AED -6E821C39041E22D91AB30922F2B2EC2746BC7DAB484991542FBC82D87B487507 -559AB466F73EE23C2D3194DC5CE4C9AE66D3164613AC5CBB3DB501B64DA7C91B -C7ED2EE9027FC0906820B35D4F2CF66C4F9CE4A884B7C07155BCA884ECA5EB3A -ABB83F84DB1F5639599DC7D3F51241AB5D95C3BCB7AB1EC90B4BC989F74FB354 -04B2D7366A34D335A47B8C00C05CB423482BF6C7970A95545424A08AFF9A035B -7F83F52B65A9799CE76E303B85664B624C65E9CA58184C7BE2BB9D9C86A4DE5A -8165EE3DA2E652B5022EE7893896BABD88931DE1D538F615787645DF5ACBBA0B -A8E5B899A37321AA7D4B283AC9234978C2DD81813A1EE5DB6EC170DAC1B6EF02 -94892635B498765C07A38D2E9DB0B7581B11056C28278F89B0E60998379C07EB -C0EAEDC32AA69B8B836F92A61AFD35688315B2C3F860632FC13E4BDFB63214BC -41CC6859EAB3AC3034449213CAB99FA1D216563419CD6D6CE4E1B56F33E6C654 -7AA9DCB5B05FC068DF02AC32408C8010AD004F6CCA9887830927F8CBCD49CDB5 -18CAC1EAFF815FF2F6F527F936948201565003022C6C7390B4E3C2B219FB4F76 -9F12BD25CA7B3B61D1A2F8DFEE795D04D5428B42FB66E0C254AF7B7A10CEF7FD -E5ADA5E217BE24851180E9A1700FBA66C7D2B0D7BFDE4F4EED1D24B821A40947 -5620363657F6D048E651A689822CF815E72FC8AE9D835BE31D1DD8B54C9A717F -4DC319B4B59AE073936EA40B070524C7E71D5A7B64436DA107749746B516E29F -E3BBCB8F8C473E706670E11E5B221716F315FF097CD1841D0069FA69EA1898FF -9F9EC2518C77806A19730C97F54BEAD10B4729E5749A10EDBE644886443D1249 -2C8517DF8D8AE98E2882439FA81903941B363A7D885F93C6DF9E1FD89F2F8CEE -B870C409ED13E78B4C914813B0A01DF8F876EDCC4F384055FD37C575726AD69F -F23D50EC5BEE2FB95A44F2B2E2DD94C933D90BED2C97B53738B4B2ED56EBE617 -BEF17B9DF4F314A37F10FDE34C570D7BE76A496A58242F51E7321380CB042424 -855F4B53071DF5A0DA5A31B8AAF9FB4F4C491625FF8FD008BD4402918043BEDF -77B840B2BE0DAAB4EF904FFEF935954AFB9BD2041241B1BC8519EB642C89E288 -479664226DBB6F1171F9EEBC7E1273D0CABCF6B1BF7F26AF21C21D9B1B916F4F -603DDB68D3614B86566FC91D67AC3F4A4A96E256FA1A3BD35F4465AE4EC64D82 -34BEB4BBDDCEEBD9A89D932E55F14CA2776F927C4FD3E0920790A57DAEA08C5B -169A3E2309DA6BA8684A5D1DEE81415796E13DCF906FCDADB092047831B16841 -B250CD148557D72DD7E683BF122B38E2C4F614E59B395D1D9823D7D5F126D932 -14B50A37FCA7120F8F3A8E42134F1B6B0C248D56F247AA68FB941839F600F61C -14247EFF780BBA3E5198D37CED44DEEC3455048FC451BCDB48DC414AE5293A60 -5A59877D6DFD21EAD729CDB7B378CEDD34262B37A194EDD0BDB24AA42649375B -491DC08F6B03DFEB517B2FC125DA9373AFAA94F4E4BC09510A73E079F4ABDD8F -93529E898B13ABCDE7322323B3A2A02A0BF388E89B4F529A66FA22D38E3EE342 -54475A1989BFB7A119CF95750D5A18BB4FA9CDA30DB6F1AEF8AE8448BBC999C9 -FD0D74DE9A17A3153617F07CACE92977B68FB5A1CFB29FD42494D5D2B9C1ED81 -2F3CCEEC1BC079E837DDBB57C7E351F9925FB96349F8D9786D8E6FF03E9C4C1E -67DB235577B68003BA14073E2702296B284F803259283005D97035874D2B9AFD -4D3F29B4B1E6EDE30DDB9C68348CC174A091791FA74520C8614D4FB1125CBD6F -B9367559D715ED057FDF6DAAC180C7FA5CCEFD0C5878A91B20D4919792C03CA9 -3AFC986C34C08358A3E85F241E3F8F815FCE7C8E07C2A4258E17D65823264049 -3803D47C96A2745580EDC957AC4291730A840A2BADA50A28342A2B7093A3F731 -4F4F656E974389E133C53F89D5DD6407BB98B211697941A927BC72A0956FA78E -2DC624B2C253F76778698BD1510D509244AB0465D4261E3AC31D77C4F755096B -50C9CD8103CFF51490796CF35B02E38BFB36CBF2E6D0D7304344C4523C369946 -C3BAD318835D4707E90A0340BB7B6ABEBE9EF7E7FF54D1784AB514FAC0FDC8DE -B8DE95405811AB2F25F2391855929C2C452295D698C749DF868A962183036CEE -800D650FE2CD2E74C038665ECA680B173A27305874D4AEC967043DBCF9275F02 -7D92A0AC4C098A5DA5939BFA435FE56060110EA1E9FF2BCC9C5E93964FD43199 -8133454CF0A83B9946D6D2235AE3F345BEFA7D935A4FD76D7A9CF080E34D1983 -6FAB58E2C907D4EC63F6431805A40EF837884510B1A8C7CF8F290F034784C81D -9FA6ED8ACCFF15B6ADA1CD0460591326B7A7A5FE7216BCE081EF42F0846374B5 -0FF9F6FB8025D2DBEE17991FF93E7C09B55135397A77ECB0513611ED0874B55A -2F393F513C09D57D1775AACA160D8D0F224B875C05157CD351DC708D082D9A9F -C8033277D759BC5086CFE6D15CCC858FDF7632930C17188701154E76F4EF45D5 -D3F0FFF714C1764C31CE1B3F625FFDB0B1EEC921628511067907057619643FD9 -2F82BB11CD4A10FC32C7ECB4241699220A67EE08D56AD4741F99ED5FA1982196 -402619D4801759F7EDC36C78E30CCCCE4EEBEFA2169FA75AE50BC929B24FAA10 -868D2FC5921E7387DFD6DF582ABCD8F5550E36E9CD715B6CF87FB6CAB223B208 -068E4FE6379F43F39F52077A8589EFDFF4966D141B0B7B1AC40E7D91597416D2 -37A461DD7A3FD9373F9A710468822A04965BDC89A31CDDA832A06CCA0A3916C9 -F08BAA4051D825D512C6F5B230868A44331AC21B909B5F45484C83A1E016DF66 -9832C2F68E084AE9AC3ED7651A4E9E3B7E7B51AFFF2F2429D2D4C03304B7D0AE -379FBADD05808CCD196D8D1B6DB30D6740173B4AA20B34B1630D55584FECE566 -2C6650BBAA8D1B20148EFF405D523BD803CF73437F35A2A07B20BF381D14D1DA -2D580BF69355D3D73CD6DE53F24D8FE9F50D35EC6BBFC3179F42674F814BAE3B -BD7F2C254CB7EBC17703FE62DAFC11F65204393280DDACCACAA46C73968C2409 -AAC3DD643E0EFE1857807BFA0B96349ED8E43DFC3C6C5837DE85B0278025522F -64B547365FAD20A29EF38C14A7D31F074565A14EB60996D904A697AF52D0FD3F -35390405D6A9D16C8682CED476EBB8605EF4DB65684D6CD4AEA41E1716124D45 -F7E9CACC6189C13BF1E9C5DC4C9888AD08487B85A0C0B12C70FFED18069101DD -0755456F658FCA4C3EEA256A3B750675786A99B899354F9672B1A13A4823E645 -378959E3A4959132D9C8B2415323D2AA1E138960E3A2FB77CE97AC77B38AEC02 -0FAF50A76B7BEBA99F7A8167F9AFA37A73A0FB8D018A6721F1A2E86CD1994F41 -60582A6C5097EC50CBAFBA2E0D5EE35CC217BC33669A41FF19200574EBBF7284 -8D88A376515078360765E69141F72141640FDAC6306671526361ED2C379A528B -A81DFF14211B6E517428915966BD921C486DFC3FFAA3903870ABF407D15945F8 -E1FAABFE069E371FDB3351247D604398582ACE0B6296724D7212027023944DD1 -F152A7FBC1EFB73A9DE9BF792C98F9C88CB5E9048B73167791B4AC683E7C0BA0 -10425AD428A8E2F02732CE58012FD29FE236E71AECD6A1C3551816B3A6B79CCC -2CD8440BFCEBB85F434EEC721B168CE8545E2ADEC64176833756D1D45F68F078 -E3F2A8D4F88C8E4A9D1D680FFB5EC0D1DCF9E5D87EDE7F8333BA1A215F82B5FB -50FE4AB8E16D0500258CA532118A9951367E736F4EC32186C11951FE43C0C44B -7FBA9A60D1798916A6B2ABE63EEDBBA2DCDFD45065B3A34C733F771C905B7439 -EEE460FF2738CA09B628CC646123FC9C2BB8B9149CBADE77E9D3E9122482F878 -52C2F3EF87B7F506B8CD728DD8D115F1257B776B472E4C5FCDCD11B56ED314AD -CB5C4BDF95A39C74183F41E46F2C56BCB59CE6AEF7E91EE9FC19DEEFB52EC0E8 -0B8F4A66179756C6668E137EE24BE2CA1FCBEF057DEFE3269A3251B16E5C9371 -BBFC68DF9A75ED5B78C49642E51A141C5F34F7579AA7CFF130C45CE851FD964A -BF5A2545654BD50E75E7038E80E2FFFB6D37DF7709DAA96232FE6A9C3DA390E7 -5EB04ADB382D014132805BDEEF054CB29D1A44D2BEA949BF251ACACDB6BD17F6 -05D99F213B2A8644DAD971DA929AD0B2EBA95BC82BD607CA5F9C37AA1F2C7843 -A71AC85BF51B9AB31A8AAAAC43F38ED171C2D5FC3D9BC5E3519E37CCDCEF4DE2 -FE3AFF990FFDF40930853DA39BA8099A6D97B03D94F1678C6FE142C359F6D4E7 -EEA378FAD5308FDE9807B00BBC3C3C17F37BF46CA9EA3CAEF2707A617EF143D7 -2342F95D5181EA199E791C740407FA357EA8778CD8DE5A5AC048F65100FCAFB9 -132FC18E480C652A6016D7BB454F50F5A26A7ED450B35BE176957A029469DB7D -AC0C742961230799C17466F4724A90F578B66098F9678BD811E866B1157EC4D2 -B859C9A7A219B67497C6C4C8CBD00E33789EA9C9A2C2CB0EC842F35C464E37CA -338CEDED2E9C0C8898B23EAACA76E0C49C714223BCE05E44FA76C225274746A4 -1FA961BE33F1F651A7ABF5AE8C035D8E56CB292B40DA36357D6807A33321618A -6CCCC4F97CC72880E9140C5E6D9EC0C665D13C955D6DC2C09A0F32C239EC1654 -DDFC6C8C77E6E7CA226BEA47AE139FF85F4B5BF96510F10803E09396104D63FD -5CC1275560B20B863FD97FF0AB057913D259ACEEB54FC357D60015DFBB19B2A9 -4431476AF537BB25AC32170FC5F31A668CD0567CC48CEC337A41B09D6DF961C7 -CAB76E0CF5880A5BAF4A1DE11908F7622023BED1EC7C3B56D64E6C8C9A96C7D2 -392D9189F9DF08B81D08CE5774F999C91C8790D3BA23BF367ED8E71E847D770E -D701F7C14A46BCDDF1A3223C708DF0E20F73CFE0E55EE41E5395AA4D3399A849 -940F8EED0BDB296E19A2E760197E95C4B8DABC9AA93BCD2E4B7F3182DA9B4BC7 -D657C2FD2A973452DBB6509BC8F2410549445EEBBE4AF5366221DF88F3061CEA -96460873DECBAE43044D4FD5FFB08CAB19ED14FAAFDE432C6D423F1518A2A449 -800ECC909F0A0CD1F0520634A9D6A0B5D1A38335CFAFB9E1AB388DEDFEFA3CCA -302CE3C1D8EF93C972CF9E8BD91B117C1B24D0DECD234E7FEAD184B885F7881B -6604839203B6D28DFFC60E2A3F42D6038260F540357F7454C7F64AD3C4194097 -1313B8D19E21E91476FBCFDECE274D37EEF50339A4A36839E77E4D288348C88B -3EF7A9B32DAF543BA7773C917ED248929467C2FB2E01FD60EAB883E9F9DD6DB7 -75405CE0FAB7960D0C8EF6A4BB92240AA72E8F841B4EB0E6C85E580D7F3010B0 -EBF48A1F4EBC745BF17C6B641C774A586DC38FBD2B082A0A12B55340D0950501 -7C935ABD7EBF204AFB042AD771D1CABA06501DBA3769263FF1115AE036BE606A -D25A5DC358749CCB9C5825D7B96C2B0DEEDD36BF0B131E9BF944A1CA55E1D08F -2E58E1FE9DF1799A18A3ADF963B00A1BF99B6701B77A29853A8E5CD0054A907E -84970EADF1416D6B1CAD48D7AD07440409410B04CAF7DDA0B533C78CA759ED9C -B16B011B9F70A0BD023E3205E15182ACDCA93613B3D53330B090DEB01D58C6F9 -E192CEEB04A6A941EC716803F9A89DF788544BC55B6955A78A24FC53DFF3D5CA -1B105DD6D72C2F7FDF3B032CFD99BCFF2D022DE88A16EBC5F293F7B6D27C66E6 -0792392FA423FEAB5EFF4D7BF54A1A29DC16D7FC12AAF5897236A721BBA8B537 -7D8F54BEEB2A351C2766BE57F14AC46D9E9A1B553EB4EB8F7737B596659A8120 -D0EE0C498CE2426A35D47B0091659DD55F258BCE57D9CF0B021F7581C6759696 -DC55E93C1B489A278DFB68017BF2DCFFFC02ECAAB5D42AEE5DBF10FE383EDC00 -177884B017FFFF87DF63A67B3139CC026381B3B7FF54B4B37BB2CE3EF160EE12 -62AC6A9911511E020114A9EE146C3584BEDD95FF54C9FC861236D04584424ECD -488CA6D69FBFA12E3AD1BF7B2E75A61CACDF9A5CEB54FB8C22A3EDECF138938E -F4EAFB9FF879F645CE3A7D379ABB29BE1C6E38A4BA05AC2050597E3B2456F096 -B5982F21066E8DDF17BFC6788C915ECA3455F67A35CFBCBFC2AD72BFE558B13B -3376E8AAFF655CD9D7C77403230F17E044F4DDB7C4BFE6ECF6C3DA2E7C6D845D -11411B24C4D7604C6F39E12257DDD7FAE57E59D5FECC80ECA95AAC55BBB7AB30 -B9B50FBB5D61530C42FACE3B11E604F4E81893FAA39EB5F7DC2DB62D4B9ED097 -0A31B42A9BDB790593EC273A0AF8D92F57F60F6A98C23BBD673672E36D558B02 -AFE04248E7E7374DBFA08FB38E3BC2FB71908032 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -cleartomark -{restore}if -%%EndResource -%%EndProlog -%%BeginSetup - /ec-lmtt10 /EAOXIW-LMMono10-Regular def - /ec-lmri10 /KODGAZ-LMRoman10-Italic def - /cmr10 /KLFJOR-CMR10 def -%%EndSetup -%%Page: 1 1 - 0 0 0 setrgbcolor --15.6911 -2.49066 moveto -(fig.mp) ec-lmtt10 9.96265 fshow - 0 0.5 dtransform truncate idtransform setlinewidth pop [] 0 setdash - 1 setlinejoin 10 setmiterlimit -newpath 24 0 moveto -24 10.21004 11.75247 14 0 14 curveto --11.75247 14 -24 10.21004 -24 0 curveto --24 -10.21004 -11.75247 -14 0 -14 curveto -11.75247 -14 24 -10.21004 24 0 curveto closepath stroke --20.5758 -58.49066 moveto -(MetaPost) ec-lmri10 9.96265 fshow -newpath -36 -70 moveto -36 -70 lineto -36 -42 lineto --36 -42 lineto - closepath stroke --13.07596 -114.49066 moveto -(fig.1) ec-lmtt10 9.96265 fshow -newpath 24 -112 moveto -24 -101.78996 11.75247 -98 0 -98 curveto --11.75247 -98 -24 -101.78996 -24 -112 curveto --24 -122.21004 -11.75247 -126 0 -126 curveto -11.75247 -126 24 -122.21004 24 -112 curveto closepath stroke -181.6937 -2.49066 moveto -(doc.tex) ec-lmtt10 9.96265 fshow -newpath 224 0 moveto -224 10.21004 211.75247 14 200 14 curveto -188.24753 14 176 10.21004 176 0 curveto -176 -10.21004 188.24753 -14 200 -14 curveto -211.75247 -14 224 -10.21004 224 0 curveto closepath stroke -190.83899 -58.49066 moveto -(T) ec-lmri10 9.96265 fshow -196.2701 -60.63536 moveto -(E) ec-lmri10 9.96265 fshow -201.7553 -58.49066 moveto -(X) ec-lmri10 9.96265 fshow -newpath 164 -70 moveto -236 -70 lineto -236 -42 lineto -164 -42 lineto - closepath stroke -181.6937 -114.49066 moveto -(doc.dvi) ec-lmtt10 9.96265 fshow -newpath 224 -112 moveto -224 -101.78996 211.75247 -98 200 -98 curveto -188.24753 -98 176 -101.78996 176 -112 curveto -176 -122.21004 188.24753 -126 200 -126 curveto -211.75247 -126 224 -122.21004 224 -112 curveto closepath stroke -89.05225 -170.49066 moveto -(dvips) ec-lmri10 9.96265 fshow -newpath 64 -182 moveto -136 -182 lineto -136 -154 lineto -64 -154 lineto - closepath stroke -84.3089 -226.49066 moveto -(doc.ps) ec-lmtt10 9.96265 fshow -newpath 124 -224 moveto -124 -213.78996 111.75247 -210 100 -210 curveto -88.24753 -210 76 -213.78996 76 -224 curveto -76 -234.21004 88.24753 -238 100 -238 curveto -111.75247 -238 124 -234.21004 124 -224 curveto closepath stroke - 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth 1 setlinecap -newpath 0 -14.00002 moveto -0 -41.49992 lineto stroke - 0 0.5 dtransform truncate idtransform setlinewidth pop -newpath -1.03532 -37.63602 moveto -0 -41.49992 lineto -1.03532 -37.63602 lineto - closepath -gsave fill grestore stroke - 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth -newpath 0 -70.00002 moveto -0 -97.49992 lineto stroke - 0 0.5 dtransform truncate idtransform setlinewidth pop -newpath -1.03532 -93.63602 moveto -0 -97.49992 lineto -1.03532 -93.63602 lineto - closepath -gsave fill grestore stroke - 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth -newpath 200 -14.00002 moveto -200 -41.49992 lineto stroke - 0 0.5 dtransform truncate idtransform setlinewidth pop -newpath 198.96468 -37.63602 moveto -200 -41.49992 lineto -201.03532 -37.63602 lineto - closepath -gsave fill grestore stroke - 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth -newpath 200 -70.00002 moveto -200 -97.49992 lineto stroke - 0 0.5 dtransform truncate idtransform setlinewidth pop -newpath 198.96468 -93.63602 moveto -200 -97.49992 lineto -201.03532 -93.63602 lineto - closepath -gsave fill grestore stroke -newpath 2.12367 -125.9576 moveto -9.36685 -148.25864 34.27826 -160.13411 63.50719 -165.11182 curveto stroke -newpath 59.52014 -165.43732 moveto -60.84354 -165.34514 62.17293 -165.23642 63.50719 -165.11182 curveto -62.28938 -164.55258 61.08374 -163.98204 59.89154 -163.40018 curveto - closepath -gsave fill grestore stroke -newpath 197.87633 -125.9576 moveto -190.63315 -148.25864 165.72174 -160.13411 136.49281 -165.11182 curveto stroke -newpath 140.10846 -163.40018 moveto -138.91626 -163.98204 137.71062 -164.55258 136.49281 -165.11182 curveto -137.82707 -165.23642 139.15646 -165.34514 140.47986 -165.43732 curveto - closepath -gsave fill grestore stroke - 0.5 0 dtransform exch truncate exch idtransform pop setlinewidth -newpath 100 -182.00002 moveto -100 -209.49992 lineto stroke - 0 0.5 dtransform truncate idtransform setlinewidth pop -newpath 98.96468 -205.63602 moveto -100 -209.49992 lineto -101.03532 -205.63602 lineto - closepath -gsave fill grestore stroke -77.72755 -81.21043 moveto -(b) cmr10 7.97015 fshow -82.37685 -81.21043 moveto -(ounding) cmr10 7.97015 fshow -87.6903 -90.77463 moveto -(b) cmr10 7.97015 fshow -92.33961 -90.77463 moveto -(o) cmr10 7.97015 fshow -96.10323 -90.77463 moveto -(x) cmr10 7.97015 fshow - [3 3 ] 0 setdash -newpath 24 -112 moveto -42.00966 -112 58.06435 -105.31508 73.51495 -96.56459 curveto stroke -newpath 114.48505 -71.43541 moveto -129.93565 -62.68492 145.99034 -56 164 -56 curveto stroke - [] 0 setdash -newpath 160.16615 -57.14084 moveto -161.42465 -56.72858 162.70226 -56.34773 164 -56 curveto -162.70226 -55.65227 161.4054 -55.34329 160.10936 -55.07108 curveto - closepath -gsave fill grestore stroke -showpage -%%EOF diff --git a/Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/workflow-from-mpman-charts.2 b/Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/workflow-from-mpman-charts.2 deleted file mode 100644 index fef0037394f..00000000000 --- a/Master/texmf-dist/doc/metapost/featpost/doc/metapostpropagandafiles/workflow-from-mpman-charts.2 +++ /dev/null @@ -1,1284 +0,0 @@ -%!PS-Adobe-3.0 EPSF-3.0 -%%BoundingBox: -125 -125 125 125 -%%HiResBoundingBox: -124.00102 -124.00096 124.00102 124.00096 -%%Creator: MetaPost 1.504 -%%CreationDate: 2012.01.15:1916 -%%Pages: 1 -%%DocumentResources: procset mpost-minimal -%%+ font EAOXIW-LMMono10-Regular UKKIPJ-LMRoman10-BoldItalic -%%DocumentSuppliedResources: procset mpost-minimal -%%+ font EAOXIW-LMMono10-Regular UKKIPJ-LMRoman10-BoldItalic -%%EndComments -%%BeginProlog -%%BeginResource: procset mpost-minimal -/bd{bind def}bind def/fshow {exch findfont exch scalefont setfont show}bd -/fcp{findfont dup length dict begin{1 index/FID ne{def}{pop pop}ifelse}forall}bd -/fmc{FontMatrix dup length array copy dup dup}bd/fmd{/FontMatrix exch def}bd -/Amul{4 -1 roll exch mul 1000 div}bd/ExtendFont{fmc 0 get Amul 0 exch put fmd}bd -/ScaleFont{dup fmc 0 get Amul 0 exch put dup dup 3 get Amul 3 exch put fmd}bd -/SlantFont{fmc 2 get dup 0 eq{pop 1}if Amul FontMatrix 0 get mul 2 exch put fmd}bd -%%EndResource -%%BeginResource: font EAOXIW-LMMono10-Regular -%!PS-AdobeFont-1.0: LMMono10-Regular 2.004 -%%CreationDate: 7th October 2009 -% Generated by MetaType1 (a MetaPost-based engine) -% Copyright 2003--2009 by B. Jackowski and J.M. Nowacki (on behalf of TeX USERS GROUPS). -% Supported by CSTUG, DANTE eV, GUST, GUTenberg, NTG, and TUG. -% METATYPE1/Type 1 version by B. Jackowski & J. M. Nowacki -% from GUST (http://www.gust.org.pl). -% This work is released under the GUST Font License. -% For the most recent version of this license see -% This work has the LPPL maintenance status `maintained'. -% The Current Maintainer of this work is Bogus\l{}aw Jackowski and Janusz M. Nowacki. -% This work consists of the files listed in the MANIFEST-Latin-Modern.txt file. -% ADL: 778 222 0 -%%EndComments -FontDirectory/EAOXIW-LMMono10-Regular known{/EAOXIW-LMMono10-Regular findfont dup/UniqueID known{dup -/UniqueID get 0 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -17 dict begin -/FontInfo 9 dict dup begin -/version(2.004)readonly def -/Notice(Copyright 2003--2009 by B. Jackowski and J.M. Nowacki (on behalf of TeX USERS GROUPS).)readonly def -/FullName(LMMono10-Regular)readonly def -/FamilyName(LMMono10)readonly def -/Weight(Normal)readonly def -/isFixedPitch true def -/ItalicAngle 0 def -/UnderlinePosition -167 def -/UnderlineThickness 69 def -end readonly def -/FontName /KDRACY-LMMono10-Regular def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 46 /period put -dup 49 /one put -dup 102 /f put -dup 103 /g put -dup 105 /i put -dup 108 /l put -dup 109 /m put -dup 111 /o put -dup 112 /p put -readonly def -/PaintType 0 def -/FontType 1 def -/StrokeWidth 0 def -/FontMatrix[0.001 0 0 0.001 0 0]readonly def -%/UniqueID 0 def -/FontBBox{-451 -316 731 1016}readonly def -currentdict end -currentfile eexec -D9D66F633B846A97B686A97E45A3D0AA0525392EECAC163E584A9104D99AD0BC -1B1844A0E222653FA481B8809B26A46F4C483A5D7E95816EA6582584156CFEDE -B994ADCFF4645140E3617E4D7E1B0E4541CB9F562E55829B4DD880AABE2229E9 -4A9FA259A734D29BBA91BA1E2055CBEA4339BCBFF98D32CEFF11F296225CAABA -DCA10577A5D431B714726C1278D8101ABD1BD8D0BD0174FFF9148F8C61C241D9 -2AD360A28616CB4A0670C1BF105A2B97A25458EAC07B98B8F1ABC91ED489DF5A -340A9C333CA5AF409E52EE1BA5629A1DA85B8B9EA3150173A28A696C6B98D060 -4CD8AE5F032FC97BAA1F5394B526DA51B5521D60F8531E0E5A437F5E00E9B683 -3F08ED5C6A216D2CA9C1806AEA6B335CD03C87CB35115D28AF52BF955F7F349A -C9C2519FBF9D866A7CC0AB363443FFA4831A9FAF41181CC67437D2315BA0438C -2D2387CED780B0C89728BF50FCD44E9E83FAB34746B8A91F611A7C821C73E49D -7061B681B3A8086D36072662EABB0D12DF1A344E0E619F61E9D79E59F7F12ECD -902103D50AAA3E5C951FBF72E96E17F3DCD91CB14D7F302FAC08DE542A661BE1 -76D75816F241E180B9EDA0DD2D77FAD91072D2CB4F9CB10A0042170ECAE66728 -4A43C5E849F8DBC4655095F039DBE7FA1DE67A9DBB1891D618FFEAFF67FE5683 -AC22D2CA7A6F772481EFE1BCC831A8A1C73DC456E8581871196DFBA4B0AD584E -FE85A66B9E4D7621073A01B4D0E450338C9077A6808156163FA45AF5640D6443 -42DFBBF83113738F8AA0A8569EC3410F8B1504B5A572DB5855C9AB6CDD88939C -3EA9D0DAE1E73EE83BA58587EDDE46FD34C7A4E0F5CE13AAC9D44D1C598CA95D -B1BAF457820D26526039322E083AAAC442E04290E43ACFC73FA0D289AA732544 -37F9CE9AF092D5A976E3284F00E12B00DDDBCA7D9AD3389F03A93CD03A8ED655 -79B16B0779800ABA08EF65FD4A17CD265E56C22DF32F67764467507F67E709D5 -16B22CCD4111B7AC2A2DE413881E3770FC0753011C98A62B7A5A7855D7295C3C -E4519841C6D9365A9B2A47408684E1F3020DC3A7B2066E895AB7271A1C10A070 -D345F88A54B61C09DAF4947002DCB9CDC539B448F25D5963F0087D9276C36566 -1850D76D0F9BA36DA698F5B60C1FBE717C3F54435B4FDD7ACFA13B5E33A6D8D1 -892127D458D2B3538B177C63AA22A28F3202D1F3DBC78DA20AF37C1021E866B1 -13B44CFDA6385152AB8E956ABF92CF26C7856F1D7172B72004530E8F72A729D1 -62FC5890998A99BF6722DE0FFC88FABA78A8C20AA9134CF23E91A22F072E0FC1 -CEA674D56637344D90E089A0BADF717AD3D206B77F42076EEE81285FBB3C4DD2 -6DC022AE6F055641C5D5055490615328AAB0231173D3D82A3D0635C98A57B5FD -D17D8E162EB4A741E46AD79B309A83129B90C43DDD942178D25268693AE72F66 -6D681A4FA8B2477893175F3008EEF552E9465971C6B191B8D3ED752968F923AE -CB58B21F1A30A2805ABC3BDD397F3D5B215B0698D8DCA31415EA7476356F9124 -8AB53FB92DB9DA8CCC5D4C809B07C2184C794F0DDDA42481071CF1F5F4AB3D7D -E1DB9CE98E2B1DD10F21A0717E5E69694C514BF8D26760C6A22A08CC5EE51D63 -E06664FEBAFE8EA3EF4E135D2CD0AB55040AE154F6CA8B234FE0178E51D2EF97 -CCF679A44CB4BA96B481982C59847B9DD51F01AFA10259A9ADBDD053FFE120C4 -93DFF9FD4972DAE079DAEE29A0F626822AA8AADCD068449EABAE9C4E28C5C3BA -A5AFF4F8032A501D346059981EBF2BBDD15216C2FB2F3A34AD00EA8287692731 -59D4123E00A6BBC4CB52DB45A2E8BB824F2E0310C59E864A74877AB5207E5286 -04FAE8139078F1738FDB78BE9E806E91506F92047BEAD7FDAEFD37AF16766D4F -5B87C3A0F7EDD1ED312258C750110A03208A81CC2FE254863CB2898B3A819F2D -CB453312073C7EA122F58EA7402EF6A7B0C729C31F9E8C66735C59EA38E3BCAC -CC6F85A6E454C6BAEA53ACC2539978118B095E6A8ACB62DD34E1A0E626955F25 -BD3D4181C84D03DEE36C9F73279628034440970B0E4652883F787218F676D60F -D5560B7E81F46BBEF386127BBDB53D25E68448A975CD56BE0A90FDECB7224FC5 -E7E4377C6E1F717DD65F6A274994CFE7FC19DEEFB52EC0E80B8F4A66179756C6 -668E1374FA9EEA082A9C50A057776D363F68E42CE70C176516CBCD978DEC483D -4DCDDD173894CAB70B73187E5BBBA0E7A942DBE072F2BD0DCF8346DE27FA98D2 -1C0F6B1E5DF13F95F72715128053E9B14A055D9F688B1F4F0D2231D7AF3FB95A -99A9211EFF34382498160E4B56B58D3CC0FD2749372883A262140C4E6714F5D7 -6BB6750934FFD3110CBF8F774728E4278EEC55AEB085CD040E4BAD9A9260DD5D -895AE3276AFDECB790793CA3F291A5B9076094B5B7257141A512311094E29D5F -BD714C4AD35CA15C50CD05B57340C520068CCE29BDE02F74CA30D6D1ADB555EB -22BD634CAD60BB6E39C1A9F1A8DADFE8E86F1CD55938E4C906DC4685E758218C -FA0191FC6EBCBA9042FA4AD9530EE7A9A7E11D9BD9AE3FB5A1C89898662200C6 -4E39E2DE83D6930685127D91CF72002A6BAC67DA45FAC0B1339E63A2DF0854AB -DAD80196B01BC1A3A9396EE80A258FFA390D92CBFA4452053BBF6307EAD2720B -D9674E2AED09E56CC6D3BF959A1AEE2880B065B9FB06C6132861062BA5099C8A -03254537748B10A647F1CEA85D597A49335CC40D3864436CB8C374E0C45BE51C -AFEA0A456252D1446648C11B77BAE6D06BB1AB0AEA89B6683EFB7343EA55CD31 -DDBBCA49EB4131D9796D5E9A6CCA98D3BAAA326A7FD554FD825E9053438601E8 -32AC8A3D146E3FAEDDBE8F9FD9D7A6AC1A896380F2762679E60FA6E763176FC8 -0A37B7C8F2A54DFDE78431694A6BFA5B0ABA0F493D71DD10CE126E4E5478A19B -2ED5FBD147B0AC82510E0D274A7CB5AC380B1B2006B28BD56725C28744010753 -F3D80F49365D5006829FED63CB9571B219B385EFA247B213A287F8D31AC4AC17 -88A4E78E365F57B70789D7925003BB63C46296FE532C382FEDCF04C5607D099B -FD6576ACF2CDF306EEE9E7630EABC9D0D92569AAF61833401353462890AF71B0 -5B84B2E8A8A3BB3C66F9F7A94394FD517973078F27D6695A95B43139334FCCA8 -483943FEFD671409BBB2769C8ABD0E1D2A285C3478C47BF8F0EDFC4ABF84F603 -0D887AC6A64E64CAF304E656F659C6948C180839F3F7A080F28CA9A709FEAD8D -88BB59034060C90D2A1B932C5284AFF0A5AAF89F14D3B913E320F9F732DF9D07 -CDD357005E66DFDCC87145B9C3C3C5CE0F22D4B5DEC2A17886B73AE5D798A70D -15F48C2F617CE0AD7A4007088A67B8FEC0C4FB4F8BD6C351707A524187ED4C6A -8323B064EB78D64A49A5B1B43A8A1E463235B276E342F24431816EE5C6B153BA -55F194E998B6EC925AC28831C6564663C89CE51D484F7E49765600A125D6DD42 -3540B96C3EE833C9BF277D9B3311204A3E300066B22D0D4F6B43021301D08375 -3323D1726E22C04895627F0057512222EFCF4530BFC8481C361522D9BEC6A0A7 -06A44DE773C04CEA127335272EE8EDF83B37DEB70C29FC013D8B7306E4DCA498 -05DD8D20731DB26C86ABBABE381CED244B3351B9191D5B4BFC8561888BACA0E8 -1D46F3FCB1C967F9E6D970F3267FA1B2F23FAF2766DE89FA764F314AC16BB174 -0C1B9A34534A154E2B040BB4CB978FA7AE5136969F149CB186E27727E2C39A22 -DA727985D1D1F0CF0362D02534F7BD45AFFEE4A23F7B7F58E41B65FC873FA6B0 -C2D90F2E3CD6E983816A8AC0A357F2BEBBB9042419A511CFB272AFD4ACCE3E37 -B6B55069644487B786A6AA482D8919918AFF871C92BAFD749F78D8C87B5DEE83 -90E323339D9456E29114C747926594AD9E1914F07F659282255057A4BD435A5B -78A7962FCC1435C2643A529351200BF30403EB737649996DB26A6F5886A43625 -C6A60E77A37D5DF9208AA809245DE5FC9388B2DE22E4845C63809DD18DC2B0D1 -9BC1490311150931AED3497ABAA74303D3F8393B12D89F8C6558622D678050C2 -5D4318F962002875E7BDD95906C31E33AC2E1F9EA80951E4920AA685879E11A2 -D878FB2541B561AEC1AFB3BD19017BF750CC067DDB711D176644423F3253E806 -47FB4AC5E9BE4F3EA6496A486815A6150C8063B5D2D0C03EFB23DF24A1F5F4AF -835B305DFD8099AE6295CE6452FC9847E1E2D516B08001738F1EC4FC0B848E03 -9F72977871986E0D42B5C31A3AC1A26F59C46E1B2AD9E6E250489157C6496DA7 -3D0D402F3CAFC7DD736BB0C48796247306223CF03E39BD49697D30B8BCE8B934 -1D2DAA72F7FDE356DF7A4051F9985A4C77BD0AEBAC90BB3BF0C993A465A98500 -DBBFEB56F3B9C5A52B60A36EDE79BF9451CBB3B068788EB48D83E3B14A73CEF4 -3B6B84C45C94919232539C14DF8F5DA10E7729AEFF7D3CF49ADA55F1F20E7708 -A867298C9FF511E8DE1A26089D383BDBBF27066BF3214E1B02F03C0CD7781B44 -61023CA9B728B39E500E14375331DDE304F2498F905D1D74E554B61CC07CBE50 -32742DA18A1F5E4453A41E2104508C1F0683360F2D36241B43C32AAF8918DC5A -F8A1FFD1E491426C72519022732A4C2215D28DAFF0B369FB7E14A12FB3D4E764 -B326742DD4B3ED5A0DA71350E6329E4F082C00FBD73BC06D8745AA737A8881A9 -C92C09B14BB2D87AA395EF6E1C8A6F9DDB03C8994A078ABD9F42C5727A1DDD62 -734BC08592E82C90BF5407FBDD9646E0166601B3481A982BEE3EC939774947AA -98663DA46206E7A75B1E7AC0247834B4577D0F854D19E01AF0301997B8F6DF9D -A616F6D521685E1A8AD6F8AEABE62D8E1E884D749317C5CAE473811AC93C25DD -7EBB22982B35516497D855EF8D80DEAC7F44BB1069C5A94732BE0FCB9BFF90C4 -C783DD983579A30AAEF30E01E965F2ADFE1F47E8AFB7E2430FF5C29D2907B64A -FAA1CFBA126F0B20513119A844E6A8FB598FE53D01A15A9D6474F0070FE57D16 -CD12153DE8F3770281250D8F71DC74CDEFD3E5D7C8FE54C9A6EC3722200E4229 -54F09880FC36D1EFD0526D78F2CA20A5D2B34F6F172D1D3311F85DC40CDD2DFF -AF93355E7719DA843D2BD5D53D6484AEBFB61CC878F62610505BFAE093559100 -311FEF8A1D1D5E62A860C77CDFC300E0ABC6DF1EC65DF7B73F39775D89C1D183 -6F68F7E43766F9396053909C6A73770F092870FB9FF6993587369755299B7EFB -84F698B342DF1A7448E06BAFD7E5BDA7692DF6A1EEF16601424289CBAA4D271D -039BD2977384B96D8464FD3605BB5FDB8B9B0D8D847664323BBC0ECE60CB8F08 -9E2A2A6082F3EDFFAB8C90144925C152B9BE768420D36B3978F5AAE27076A2F6 -3D6CE17BC4D8B402EA6D17F5941252D992F2ECFBEC965700730C46F4B358C289 -0599A0B8515B7EE32AFCE928FB5C86C906464C725F7EF33F3C1E501CCC588F87 -E9F4DA5880C6E7C6D85B60D3EBB8A6252847B30BF10D01299C451CE6DB3C8E9E -ED4DDD03EF86BBF1AEE9D2A6EC2B2AF1D74131FCDEADADBF729A01424E7E3605 -DECD9D47E4669B250CCA42F8428E27DB4E06B5F53F6AD9DD8DD4705FF1F152B6 -2BC341084E1B1A906F6B5E87EC197F07C4D1914A61CC4F481013B1B34386E61E -CF0F89A85BC37B8C10FF3F7C0A84FB8D0F4A789EF861BE07C5DCCE8CDBE1C6E1 -74AD0D12926D48FA5B17A7159A270497C44D0C5D34FC406C877AEA43141AF383 -366C54D73D83655895D321F9F0E05BCCD097059204CA7FEEA5BE7EF0EF6B0BC1 -B1E12087CA692EEB2A093A61028212ECF70C24F5811B53C23B795EE7C1065A91 -301985804871314D5D009BEC8C5951422C3492BE918865CB24A90DE4DAEE9941 -D44D8D1E3A19399F13B93D9B554E0F4B7E3BC175C3A3BB199137C3DCBAF784D7 -9C2F0D297EA7F6A67087C57B5519A98804735147BE66CDFF26667C7D02A567FB -66A67AB2E9556E6C9AE40D3CE74A3537D77C7E9F73E4CCD51A57D7682998D349 -D4B7BF5032CD089DBAB8682DC2477EFB73DB13B45BD482CDDFA1C303DDE44344 -6E46428080D75CDAEB0FB49A63ABA348AF1127128164740938E53DCFDAD036FA -15EAED8E5E059872CF107E8F35C40C19B99299D0375D87D1BFA9E1A01E4EF7CB -AEBE623D32353CD7684A1B024355537C76964BCDA7C5ED1C52DC4F978BE757E7 -FF15D5AF5976B26B2363262545732285C77EBACA3D7DB5B4DA996BEEBB7E1A4F -11954E669DE14B907CAB448E3C57CF41D4C0AF36266EDDB105695B2E4947877E -B1F3A5E6E0965163A200CDAB98D323C10918F931D3C555B5FB94BF6CD3A85C53 -DC3E9A25C9DAB9C9167F560F297B6FD24B844F9F61FB670F5521FE1FEFC260F3 -E926AE8AEBF8E67D3EBD682120F16D0C5CD183D626883D5D0AD262569CBCC810 -A6E3532F63C155FB86CBF6A62EC2D4975A0D77338950F885151F0383F5188E09 -A9E1B8C023F7E0874A8E1D77C0C11DDA2EC873CC2BD4C28604E044677CC9E6CC -E364DA954F895436AD8E34AB6B32B5003F5D1DFE6EFFCDF4EE3796E249E40161 -7B569C73B92684849427716433BAB933303A7D07625363424D4E83D3930C0311 -D6AF29347797F3FE7F4D056A5EB03C786F5F9808146F8BFC4C58E5B4D69921D4 -A08A8E863A71DC8C76A8F4B40419738AF9DE5EBC1C51C6B486D3750307647DCD -9F9059E4AD3C94DEA662B7342EFDC90B3BCAB589A88641B08E797CAA35C737F3 -DF938004CA4E9EFFF243628AADD3833DD3561EBCBF76153BDFB19DA55B3F6335 -426B697E11AA84D69CE8C6203A71CB424C72AF75C1818F6A1D3242B6CE503626 -1617FB6D26FA16D8A9B9AFD9BF39032DCCD437A962DCF0CEEC7F65AB8458CB43 -9BC970F973808767152D4608394B82E83877E96D5FF7F7C34ED8E710BB2154C0 -76B263342E8A6977987E6EFB3DD2AF1E6B4901789D4FD1919A0D5E617269DE90 -37EFB267FEC47065B2675063A2B3BD3FA2B3E0E04ED9832582F5515AF7E75A24 -AF2D6CDB429757D2C24C9344CD28DA71588E53A0F8EFB65FECBDA4BB89EDFAE2 -D6A52C31C01B3AD728D9B5F6FDE3F2558FD1C5ADA269CDC8F237A292E60D07D9 -B0CAB32249871871BD55E515F7FC9F4DE75B2CC3F90C197C506EE869389888C2 -EB57F251F7FC770D1B943C66B449BF2C28599EB66F071FFCE3410C547A9B74D2 -14AFB75B542A8D06A25135505C220DD1A84EE4A8E900D490F5284E7EE1686F07 -9F72EEEE0C0E225B9E736C67753052ABBFE1FC07FAD8542975DA911C65CCAEE9 -8C1480C1F598DBEE4F369D5FDB88F12DEC919082DC237A9613EE4D46751E984F -F2CFD2CC7BA41FD0B987963E2451C4A88F0183FA16E59C55091C22CCF313C333 -CBF22FD740F44B4AC975ABA0286FC31EBB7B819AE455CB993EFA453C966E426A -0AB8B3F2D148CEE3190E80C659E171B0BC037B1A59B2C119DE916B29DE7054ED -785232C74B7B97C46E806D6753D23390AF0FEF7A9FAE4339270B8C5D82706832 -C9FFD6B1B81B9E553B4A7E3C50F98DFC652FADDC9D515FAE8AB259EB719E1F85 -0331D50EF2E7C281D42BE8B34EC2E2AD193F4267384FBD38E55D7951FE1F9C33 -B31C84C0BE7180B2E3DFE45A76D10B7C0888F4FEDD5A9E478ED0DAFAD0958C9C -7A80E665F2C00F6E192B9B668190589498DABB64FCB881681D7BFA5CA100B59B -A60FB6294C13794C641CD7B8368BE64EB7C9538A2F8957463016D6A973432DF3 -C803F93469FE3085C228FCF1D35303FB1EF52F939E917697C5A52D3F6D51F6E9 -B7E84A5DBBAB93DD3CF197130CAC7F327ACED1EA729FBBF3D9C2829B9FA5A211 -73244968E18AE8B8511F987E96279E3AE01FFE68E34547E71B3EFAB59D0B0A01 -076C2C1F2609D1FC87AEAE92E4880F04B42229B014C1532DE7B7795242AB5472 -5732E2B44E1EFA6FC103AB903AED90A1F74937B9894F811BC6D7D59F990FF0F5 -44CE8C5C086BEC650C87AC6908D0C344FB75D39E03086E183FB95F360FED53F1 -A1E6E7CE34EEA6DEE60B8E137BD76A4E52A5A74387C9F301ED106305D53F13EF -CC8BE299B33BBD923AFC2F0AE54C0459012F203CB424609820A4CC22072E177D -99A35B3E8F0F4E1CA65FF340836605EDAD3970BFDD1E7200FE6F7730D33F2308 -E6EB173B2F166FDA22E38A447F7408BD9DC974B5275E25F7F1B3230E5A39C914 -1E775C84F5F08DF1178337C549334921069ED4EB4830E5E1BE4EE7195B465068 -6C129D13B5BDE71C21B0F7B7119BB0E1EAE6A7874FF05B18FFD58CCE004BCF21 -2516296D5EFE0E2EA6E2FD72EB398E44F6F225FAB6045756E1D6148F9BE2064A -3764669F18F11973816C9D25F988B97A025C9805CEB46BE11D54F4BAB4CD7848 -CB68A5110310C59E864A74877AB523819B36E846E285C4137E63A00A3F971043 -EFD019FD28410F770F19A5292DCD4C30E8928CDB1375A67FFC9368010EA2D6EC -68330660124E1C3258859317FB58DA0525DC3733983BE6202E89777695B9CDF0 -E3E671A8BB4EFCBD206C8B9338C33095551EE832F9CE01C9196A7B32A18571EC -6AD482DA0DF439C56DF1724D566DB0C15641C103FEF5F1B4DE109C3E06915E34 -61C79E71BD7FE5E527B3C8B0A5C3855CECEB5F2A7F29C142AA9CBE59EB4D9333 -DBA3A326B77B817ADBF1E5A669A87C3886435AD5198A6ABB4EB0E5BC4EF204E2 -40BF65211A22EF9A20624E5AA18F7F2648E1819966BC2476D4AC4E4347E74591 -9EB11FFFD39B1742918B32AE929B96D9BD9060797845C5AF725F86A2ED82D15F -CC3FDA97D5DB0C39392E35E65BF81B82F8E826BC7060AFA7B325E89FBCE55E6E -D5D4DE3AFDBF36B10851B0883A211E7D47163232E7A7E0C1ADEC67B5EE5CC6ED -DB55CFD4CD875072FF79F4ABDD8F935F0B2A4E7C290926DB52258A8EEDC66700 -FB549A928216A715C9B362B32A001779973DEAB1CFF05FE0BED47D9635F97419 -F753FF9C5850EE37E59A4A3B90EE6AD37E08E5ADBB28E969382B124072BC0D21 -A599EF056F964812F92976EFAF5381161659ACC94C2739E423290FF87FAA965C -11372129C973CFACD535CF89A430D7C3D779DDA1A46A3E632901AE636E9402AF -A574ECFC7ABAAB13A065F9DDB32F4F9BB812FED25639E9A8554F23A623FC9AEE -B869A2E66242878E71BB82D5815EF4F08ED56490BCBE0C31BD32EEA61B1635C3 -E67283F73FFC302D910C003D0AA14C72D396FCDF472EA459E0D38F1B3CFA112E -AEB3DF7D21AC8F8B1CD8B2BE97272017FC8176FB098804D8C4CB4489A057DB04 -B85024823654FD33D3C4D429D37AE8043EB10733C06CC88625A3813E3C37DDD2 -71CA821B14F1F8FAC9AAB39662E6D137560A8363F8D0B481C0B498A1C74FC929 -BAACC1D9275B3C3CC4A76F9D5C4315481E596F3A812E0C17F5C1D48FF7CACAF3 -38F46A1972471E3B18CB7C8DA45DD0F6707DC77BE488A36A54D9D95E7F9A7221 -17650C8F7ED57684A4CDF5D554B1CB65ACA71BBCE35CB6D949F4FD9B13B4C057 -ED56911268DBF6796483C2CB3E4716F48CE05507447E290E5C9AA8696D0DA427 -782BA27C44FD991761CA10FBFBE802FE062AD9F5EDF8F43667B79E809F5F3846 -8C15B44107090BF34BCAF99EEB7C1D138047E9722F77F39C29EA6F8251D45152 -7AEE7766DCCD9B30F171DDE639B45488B890196ACE90D0FE6BA179E313C19ADF -A5503C6E201C1C415423270A581C7CF16389EABCD20AF8F100FF57033A1752FF -05F10071CCF05245C4AE72F3998A9740C6CE8A5DDBB1D642D0441FE2F5A3B451 -290BCA5D541320D8DE866103833E4AF62C45574E546C1525E0B46008400A3BA5 -D6D7B964EC7C7A75ECD3E4BB1C50447C558FD565E8C78B0395D9E5FF2AB13218 -F2B69738A10C83C684E472DF545D2554E5AB6364E2FA747EE9A89161F93F178D -7A24AB2C734D35081B6EA8216653BA182F7FB05BFD80CDF441BB5A7A2EC1121A -5493374B3357EF1E884D9AE0CA20D5927493B4A1A42667DCED2DA7546D2A6052 -5DC13209A1520B8ECE299D8728B868B9FC5AB023B335EAD7599B795CC6BB0775 -84C71AFECE41946AE57589E52A9DAB9B4C1330A788832F2E6191D3F22E335FF2 -4246DB126C63979328295115D81E5170AE081644B02AEE581AB984FC189B5925 -461EECA10758CF9F5CFB1B3156064CEEC693C16B03E5872E541C1A3AFF4C57B0 -BA196BDF885DB63DEB07C06F69E3E7B8F62F15899242629F16F6D74D78150FA9 -3EC698E24B9E47DBDF449974F4BF9DA358EBCD3125FEECD891697B0FF2A4DD9A -D740E8CE533A0528C013A3BF8117039EC8B85552135F93EA5553BCB27643E0A3 -FBA8A96357C0B476B8B54F5F249AD4F43487F61D3712FACEC073288246E7CA38 -4F311F23DC5A7F7DB374E0E3D066CD65F679C6AABD932DBC998B0E182044E467 -37AB82D182E5BF2AC655DCDFC20968F5BD12B078701E01F539C74A00BB54631B -D38C0D833343743003D9EBF5AF03297DD128E279AAB9E3DBB196942DAFFF669F -444AAF97BCA6FD8B3799F341D019829AFE863747C1FDC7B38BECE8BB0B252377 -B0EAC04469D32C787EEC5494B7CE670CFE23D6CBFCC24DD5A6AD833A4BA6F96F -E67FE603F3DE0BC536C3F244112FA950228EFD70BFB209E1B9EDCF0D3DD6CED9 -43EDB3DD9AE5B2B077C4245513CE965D1C9B09EB62FFC9AE98647776122A2639 -6D984DADE28954EAA105FA8B9671F362A4BA881C2746ED44CC856FE7D20B0812 -655D2E6EAACD7DA7010ADED0D6A83F04F396CE83F0549A68DE0F04859B03FCED -CC76505876A049DA9D644D232ED54AA8700B2D4FA4074CBD855420F4834C480A -CB1310DBB8E693716D9FFD90CB563AFB8D80C54177E7D853363B246759EC1620 -9E86E6C5427BA56C5D9812FB9D9682B78BD2C6109E3D52508E1EA036ADCC813F -D66FDDFC026516FDA258B0E7B32357F41490796CF35B02E38BFB36CBF2E6D0D7 -304344C3A606C6843BE0E2CCD156111331E9DAB047409E478B58C4711E4D3BA6 -0B95605DA55C67C5F6EF7AE2049EA3D7D640056CCA77FAA27A113345C9C161A2 -8C5A324D31BB443BCDC8D71DAD38C0EF448DC010FF32F01B63640A3886BA13F8 -DD625749018A1EC19C7B47A86BDA04DD10EC7355C981C23D2B9D8D0304DB1745 -BE10587DABF1A684250E204AD90CAAF7A0B94495594710F7BB631D9C72CEDF44 -7A7E2E1627BC84CBC737D30E9EA0D4849962B186F26958C9DE0CDA9071928549 -DA53556B4C8D253EDBE1B045D65414D629B139C0B3C2BF3D2905CFFAE9EAF0BC -BF782D4980EFC41B863696FEEF72E35112E7BADE4F01C5617F52F09F53B087A3 -E5284B1C41859808C27C7DF8F7692DE791D9F3B2BAC8FBED7AE0AA0A7DED469C -64A0CA60F7E78373DDFD3C560DC7FB06BB67D226D4263EECD5C0BC235DE87B1F -F6DBD93F01F4F3989D8141816C3482D4E4F51FECC9351B42923E388B70E7C41B -77DAE3DABC7D464AEAB154DFC2C08F8C1098BF71196B775C4AB138EAD246AFF3 -5AAA4298F411E56C523B561890369545087DA97CC8C165D47371FC14E56AAAB0 -1F70AD759641F8B5476C28FC1B1B3E5FEF3A3B94CD552E29288AB0A2F7A47B23 -E481E1A7294BC241E15FEDD736C018E10B32708969CE7950969557336AC8DB3B -61E01D64D56E8C4D627AACDE838EF96D043E0EEC1B9D820CF93F5FC0BA150EBF -5A707EF78DDD239111BC0C866683696D3E2E001BB7221D658F7D31635BC15A0D -56BA691658ACE98DBDED712405D1CD18F7FE5FA60F8F48E2604F7775BCC1B2CF -BD45255634DF0E134FBF59212F1F589806F5A9586A71D54C04DEF3A43B137D87 -5DBDD15F05B2612654089FB1B1F0C8892DA1D9E5D3042D125734EB53A8090EE5 -6332CEED116EEC3497D2D84B19F68EBF7125FB02920466ACEEFB251F71CF6300 -78EA2FB7E601988985862FECBC60CCD29FC8C589974C55513AE70589392CB559 -9C78917FAB3B7048A90823CE9BCAF917F4855BE88DFF74875D85DDACF0B89AE7 -54BF7F8203F0C857CFAE8A868BC658413B8DC18704FB8322977A15C8ECDD04BE -95BF3724E4727036989F371A8F30B1B39DA9B1F203A2814A200FFD16E8137923 -33087E98A8C64083C6E51F0E0BF508297838FE0E142A7644F56B21B1EFDAA5BD -4F7059552906D8A529397DFFEF8071B9F1BE8FA48454B62A6A1F98CF4446C08D -78188751402F55C38E0CA06E41B1EA4D1D24096F0E22E352D18C95C6F3F033B3 -535A024461616399CBF0E4AB2DA52C7BA6298D3869752420439E590EF307E3EA -8FDECA91E0C88FF6F0EBFAC5F9837A7EC7AE3F0134DA964D9CEA08972754E1D0 -90E3889B56BFA096258B227A42A8123F9C30FF7F2B77E767A4C9492E72CFD969 -1201B056A8DC4E816B78B9EE734118C991282B1240D3E465AADC5752ACF12F16 -A5BE9A050B0DE704CD8EE4010F3BA8AE9B18E8CA380275D93F8F6670E11E5B22 -1716F312410279F4CF492E674B2237E61AADA9E11209807CEA54DB30244D8AE9 -FFF3F592BB136F41F11AFA8CC986D7928247062B5BB10DAE3331C3E3C1B56AB3 -28435C9964D18966326D31DC3FED9625DDBBEEADB867DDB7FF0678F0A84E561A -C3E73728A55039E4A7EA63CDDCB2C2AA2FD24A3DF39840FFB6EE0B0A7D70A27C -36C456F678CDC304C130C361A3E43BE637B70B9966664E12EF4707F6B1021C74 -4A09769DAF0833020CA53922C211444D40AAC90316E7780071A93BC36DFBE602 -9F878FC59A654615785A06871ABE597E0B54F69AC8457AD087A193B7BA065478 -C7238823FCBE7C4750D7693E51E88F1AE53B00A20CE4FBC247E09641C53A94C4 -5174899AB3A9D824CE570B00605CDFADF923F763A8F3E79EACD5C3AE21E8E0E5 -DD1722769432C43E1101F497F5E4B884F5EA43672526783EBFCF3738D894770A -D27F2BAA1A8AC49D55D311D7B27C86E428E36BC5BAA44BB4F42B537DE4174FD6 -8DA8D6B373EF3E53B9A042CBD9DE2B19F5F89F17A00CB10996927B39CDC8D71D -AD38C0EF448DC010FF32F01B63640A388085F777D2C6670B93D2BBA04B489AF9 -1F30654219A5BE6465FB7C139D5F26181E5EFAF2AA379E39BFF15B37CE60867E -F86DE95F31449EF355650C284961104DE93C34446DCE772F4B24C9343E42C3D8 -97DE532796B42E8FA09E316DE508679B11650697901D5FCF5FADC38FFCD1DCF3 -859F2B46DF97AE05915E791F1CE849154C53C441E51016A90F3B8A854B7EF90F -A0DFA208E4C47AEE2825D122647070692E6AEB04EAD823AAA6C5FFBC6DF00943 -C47B69E8089525CECD505DC35CB17B6D8F433F9402B19B552BCDC89E406FA36D -EC4533CD0A50EA849F3EFC984B4883682C351FF9A5635B535146BE6FAABB489B -F46C06130EE6136379140DE5FC984C54F9302EA55BBB16EB537A5B766BE0F3D7 -F6438FA7E464BFF671439E450636382FC6CB22155A37D36FDC2843EDBD271BEC -306E18112A4F29FB80D1A2E5CD343CDDF6652C06EE776A4C649BFF390BFB75B7 -10119768A161F8C276614552655D1035125F6122A9696CFB3A0C9B5ED57ED3EE -4435D71ADBB80DBFEDA43DD2ECA72702A4357D241AA942314ED22A785687FCFC -1E029E64293585DCC8F91CC8B8E94D2D8BE385F8C9B2A2F85ECF808E3F4F7341 -5A620F8F1D9563FA4A5153E1B4B548A0EC5AA55A9FACED611429DADB394C6994 -364A223F6D9A85F8982A7111DB4A7DAA696C71C03EC86DB57706DA244B8DFDC8 -661514CDE029EAA738F71A4423EBE57D3BD2407FAF55C2394EB13D8AD0FB57C6 -E4117640E0DAE8EAE60218354FBFB4894943AA2C3AE10147DFAA0539291B9B80 -04F29F21B2A9D8EA7F0DAD2236C32CA2782B418578622E6A3313CB79B6746E85 -6EDA00839338F8D6BEC3B63C5E9999C06B34A79E0D131D220FAEC4A8C7BD0E74 -E4B3142195DD8F5B2A24F02D5476609057CB16B5DF771D52B18ABD206531B6B4 -968A465DC866DBB7350D5408C621CDED6AC22293A666201A11EA39E6A0080CF4 -DFCACEE5513EAF3E903BAB38790E872C882A653878A1F10CC1C84D2B69E1136A -43B9372388E597F33E9E95C7949061F1368E719E3A3D5C8CFAE64A30771ADDC0 -FB48077B4425BF9CFD3E5640AAA9635A1EF4AB3DA5462EA74965A151E84283C2 -FFC9FBA8B7F9D8DBB688BA172A2186B219517F331DA0D65F21839EB857847E37 -5FA375742A1B2D26366796627D7A18371F4B613DD0D61D0EDDAF6E7780F00DA6 -2502C94A10EC87F2DBA7B2BA9E46ED8A27ED6D85F54C29D524819DF6BCF9D323 -7059FB7318D42CFE278CA6866BF81718901D53F6E6B3D8B79A6383A5CDAB2CFB -5B30B3566EB48440D16A80AFB6C4934C35E1576099082701FCE199811DD294CC -46CF1F11167E7AB4A2C62B23E03259AD33593BFD738991C41FF02BF93ACF5E65 -1F75F1C47F2699BD0DA86F7C5E1DEE096A0BF72B68B2C84DB4416000A82B7A78 -B66DD731D76AFFC3FC67719A505F093E0BE8952AA32CA53FD08E1B8325FA4E99 -C1DB82AC245B5134E71C17177E335A1A74FFDB9965DDE13C7F0CF7EE179BBD3B -A15C58FC473156524436F43A7A7DCB3BCDE6CEE24D8172145EF7B1044B88E096 -ECD3B8D6F6F508EC1F59EE227E4F6A352AEE6F4406F7B81B499E5B1737842382 -2893F71FB98D8F5D23A990556CD485A15DCFA2866D7CCA73C0F6FEA6D19E3594 -B87035A3444D643B1ACD115FDFB8CC64ADDCC52076F03499BBC0AAC68B23C504 -0989825428B9A87CE2964FCC42CB0B4E8D09C7061B705F415428D5B4E246EA48 -2A64DCA9515D6E911192A0772AC9CCF99167639A74B7E4A1E4C8B419499D3F6B -356E3548C00DAB9B0BAFFAC1C63682FD226B1369975F6276B34A7453D932AE04 -BA8C1D2C658B257FABC2CF76D35FADC354CE9369D5B87FD1C4C0B22C68FD70E9 -72EE164F6BD2127F47880DC9D6FD27D6203C86D3D32879A5F548ECF75B9807C8 -A60296C74D5AEABF0EA6EC704BF556C274C0C815503DB16E32D80F6638DA50EB -448DF2CABA8C237022C0FFBFCCF21DF86FFFC88EE84941135314135CD8FFA407 -D97F4E938B9192C87A4455E492C6839B85A90C23F82AFFB57F98048310631E16 -44C74DAC6FBAD49F35764DE6FC0B0215E25014C66F3D1EEFE8ABB3D2BCA2CD5B -A3CD63BF413466B982EBFFE53A1FE54984DB1360E320862F2CA6E0258504B106 -1B4A49B2CC4717EACDF33AD11FEF95ADBBE87B2CDA173D8185011BE8B8BFB0A2 -70084FF6DC5290ADE2BB575D8D86C106679FADF3E2C108112B3410C6DD545F7A -5B59A8A0DD76EAC1477D781DDF9ED17BF1BF122E0579A5244BA3DD711DCA361E -BF3DB4F6F633CEBB85B1388EB9093F7202049F2ED6C935DCBF4EB62E1603C7E5 -2243354E0EAECFE4448F77D161F6228107C92BBA32694019163A2BB020C5A23E -03EBEAA640CF23D89D1C2F0FFAB1453D08EC588B4CFB64BC0DCEA70D390396F1 -D3BE6F911B44C4DE465FC53E50F199A73C1B4EC66D314A9A4AFE99074EAB5317 -DAD5B6633F0A13B9872C8CA009ED9A24AF8D699D34FB28FA68B37848C14FF933 -CE48AE61ED5D235B424304BEE4FDCAFE4E203DC7EC6CE32D227A9532A3EB8AEE -A67912F19EB02D56869F7EBC6A93EEBAC7645C28E715C6AB21674E82E6B49A5D -CA8AEE53295494C656833437ADBE66A53BE748C4E76934D67AA367955FD47F2F -440D7F364C4030648BC39783FD7AE189510DB574B4F69F7EC0494AE7680BC389 -A1D78C6E2E6F172BF65651821F57267142DCC4079C915A4D01807FDC883E15A7 -77BA2559F1CA6D3B3B36E991FC1F66E54A3EACEF43966C21861B5519E7CF062B -EA3391C5E44BE01179F69EF6CF8CBF9EFB538C274E3C64685888A61CD2FE2A39 -12709F7BBF1CE631C747480C8C7504D585BC4A036D73CCD2A1E110779597A25E -678DB4EE7B616DD99080BF7936644ABBE6B137B048F04954ABBBA8A573736866 -4950625E9BC497D47608E12E15E4A069800228BAE3E6D4040A1A4818F331C5D8 -1A4CDA1C29ED601BD069927BB266B91E364B6420233E4952E6F77BDE60B62F6B -6B4DFBF3D68F76E1708A0F4C33015C8D417C0C33EB54B7A2B52527D63F3F61C3 -DEFD5F9A28572ACC884C98F4371C933E0BD0FAE2828C097DE4B61F61188A78DB -AFBA196652FBBD27B5B592D5FAA6A668B2585A3D6006683222F07BB1F0756D8B -2F1C653843A05DCE23E9D6C1339D085BF92634D7F8F9B286FAC18078C9EFE517 -926FCBB34E12E947B510A95839F71C4F0499935074B5B5A3470CA5F34361AE57 -5EF0E842E222CA480F1F22089A3807969231251939279C83C0D2196294FE173E -A579ACDCD5CEB4EC0A94C48C7F4E20DCC87145B9C3C3C5CE0F22D4B5DEC2A178 -86B55EA99E2905B3C3A9161F68FC308ACD0814D6E10BFBC4A88CCB54A86A5456 -A0293797A1BD1FAAB9AF2BAB4803890BF934EAE9355F75676B21D53206AB65DD -1F7D4233D4632195A2E0802FC871CA864B3ADB40C28AACA1C46B46A0BEEE09B1 -C6048724F4AD47323294281412E033B05947AFDAC96839397CAA9C23D0F483D1 -55FB93C29413CD8D2A61151013D6B8AC2EAA1986507AB035C835C8A26FD2C817 -0187CDF780CAF45A8E0C2D394A26B50F8BE7E44D56E56A9F06566377D2DE31C0 -0D90FF5DDB509F8B457F332D8273DED975BD53607ED94253CB78FFAD6ED1A49D -7B114110F3599D8E6CB9E93D141668D361EB443AC08A22EBE619598C6FB61C68 -169211790027B87A0F02E168138C8A750A892DDAEF50284D2CEADFC997B78F9C -5DA0DC3CD6C3C4F9785345DC3D7A5F085EF70FB8DAD44A8EBBDBE878E238A3AD -7D54A0F8D49FFBBEEA2A08DBDE74C2C7B2486D61BED35C2AE04107B03CE274EF -E7CDF2F9674EEB53294C36C60F1F06698D3E30BA3AE1061EBF247EBA5400A1B9 -0902EFE6792F207136E1E16B417CD36317402AB9B2A5D930CD311F25903323CB -59496E9328FC10A74842D5158534EE24A7385A1D4CF42F407B4B6C3BCD814E5B -F47B361477000DFAE3BB2EE755DA3BE55D85E91D72361EBD1357DC99163C0ED4 -8D9922DD04776729411CAB781E84CF62FC66E80487392E46B14AA9C67B5709DD -99C6E4975AF4B07B70659EB87A19673A5C9C34F0C1E2DD5B30262AADC374CCF7 -6BFBA651FCF32F0F8970E90CC6E9E86B1C31459738F562EB8738D25513C8E09E -739F6A791758689B85B65331B9E7EC901725E190598A31E0BA4C800DC242842A -634C4E7192D8385D9396135C859A0A499FB006CEB1047D6A14598F301B6A7E97 -363ECBB7CDE475BB61587CC63A4CE668212EFB2D988624EADC18A55422AA21AF -B3BD509A032838E66B747B3D5DBAC1EF8FC4C3E124D3A1F94728E44D62711212 -86EF517780172D12AE96F5D3F721F94E9C9CC7BD30C73E7F151C5C6505DECBAA -D64A1A7AB718101083E94631B8295834C8C3BAF1CCD312A2ED693B2E8739D9BD -57A4D67E09514EB3A1D2DCF4918658979AFF3F85E682ED8680F1D1F437743EE1 -C9DC89578278B4A1B2D58C58442527FD1B230401A550980BF01405B6BB94936F -23D3C8E3378EC476B2556B6F07D6249554F347797DF580DA0E0A4F13FBF20B25 -DFF7861AC0A9C6D88BCDB45C0778BCA0D4AA7841DE13466DE9FD1981FA55E92B -7762F9E45EDD96CC722AE02F9564E06F0219C733C0C5299769BF8A3C47EA80A3 -53B71E82D1A5307CACBF70E39BBAB45A9653B24873E7E9DEF64D7D71D04E12BA -ABA63D0E5B55F56CA143D84E7B14FB582DDFDF923DF4F2C664871EB1A07B3A69 -46D45571FC760DFF68FB79BCEF8BAAC89772FBFE65D33E336D9595FD349D092E -3BFE263FDD04A29FDD1974485126E0DC86B790B23B15355E4EABC1EBE99B7D69 -B3D8E190A8F5E37AE6B1B9B3F61DB3E97A1F3E9E98B047779D494D9E203D158F -B2F6E17BE02A09ED1D6E9ED11DF0B9CEC7A329460CF59AD1133FDF77718900E4 -F5A4B84DD25FD7B650D3DCF5F5A8C96EAED3764694E07F4B4DD8CB81852F3379 -F1C703B9F8CC4E77F6BBDC352DDD6E3A3EE287FF27B773081925A51E09627186 -E9F40DF393CAF0F0AA8A81AB02413E7ED0932A5E64E2E417C6B64D84B19F7C2D -7C143E287ABC8407CF061A6389C844A4C3429FA2BBD010E0FCA4EBAE3C816CE5 -0B05FEC276B53FDC21DE0755EEE6F50ABD54E3711D11201CC423CC64CD04FB86 -9B9C1FDB4F47DB340ACBBD8CC9983FC00EDA6DA2414F34F3F8539D22D9839B92 -C6DF48EDF14479D008ABE5E434897E2C25C96FD635FE2248F41C853E102378EC -E5A1E3405215F6A4D7CC5A1DF41714551C2356DB2D6D0EEEF7C4406550C1E152 -D9C840D4896A183FF4E395EB7A69DCE16AF779DB5DEF0E2C83023340CFEA5037 -551AF40510CF2FA6BC441D281066DECA6E4F900B50A7D8BDBD05E7CEC7F066DD -0FAF0853778665ADF3BEC3B9C3E6A05BDDACF25E7CF9139621A358D19CCCC224 -93433DB4004A562F7081846E142A9B2CECBD5B039DF61F93ECD2A4B570E70B8E -E130520420D20530B7CB37DD3EF34EEF9BEA20A1287D3749AA6F98938F455BC6 -16E82855E205CAF96F92CC73B82F88B802CF5D0BACA7359AA2E1E1C2E2D2A1C2 -346C7FDDCF26D64E436B0C248D56F247AA6F401583DDD68969EFB6C828775EAE -DA73D25296691FB44D12928BA4BD9F1C63B57E0AAE912C86CB6CD5BBDF831035 -EE13425D8A10F2F289DBEA3B9DAD21E9C431EED6D051D024D45A9A51D740B3A9 -6E7AB386AB4E11543509A58CEE3A4373691772A120BEE77098BB898BAD217497 -4B63BA86A8ADE9327E54958A52991F50800BDC90F761E398650AD3AD3FB83EED -A6DD6D62A8602A979308224758BB3A03BB379BDFD1FDC40E678BC42FB3835475 -F09EDF4CBE46E94F31CA3C2BD454C2ED823A21CC37359E62E679B6AD90FD8AFA -989EB8BA0C5C56FC31A783C655776454B2D1543E2A285C2E2917FC29CD5D70CD -DBB0984963CB8351F9B8078C98DE02FB76306F13329C50DF12D0E13998F77805 -79A595678BA44BF4C0028170491F2539DECEFDA704F7E677B8717DB0EE7B2FE3 -B5533061616F0975B16DDED3B6FCF5943BF5BEEFF1F9BF99301CB61CB5FD95EB -9B214BA25C78CB3BED5E7AD9383F870121370795822419F462CF0D04C2C97A73 -01BCA92687198B725EB5B2321A22109A78D38A8DC2061C73BD8D0274D057C066 -1FB6CBD7FC1E4CE9448CD7D00E32944D0FAA5292F033D14210D1A7C73EECCEC9 -0B036F773A35572FE436EFCFCB553C2FD8472C2387DB5D251F74A635E519763C -2B61D2B6D3AC3B9C5F43B104DB39F02F68E3B0B603DD00B3FD7753134C1A96A2 -368125496190F40B7E6A8C381538718E622C25E049D8EA8628447982B1B1A62E -9C3B6356B900AAE0EEECCC0B2FB7609BA4E93AF951E78F35F49CFE00627CD830 -9098C34EFF86436194093E227746DE035B33FF9862E3081AF8CE798E5041FF7A -E67D07BFD4AD7D7C4574F0F0515710059D53DB23B29CC828ADD9B2587806BCCC -F6F32DDDA515963AA2E97E6EBF2EF6893F381F5623812495EF120CB10ADF5A70 -C84BB752C7360FFCB13F17547C72AAF675B26611C7635E9B93182C034354025F -5034DA698C9484AFF6873BEED3F9698D71B91903E04F1886E7F91B1730A230B9 -886D898CB6B51822E9C6092E9143C1F6769F21B3552E00BF22AE6D0C759D6FE4 -57350C23F4007D6DCB2A974E04CDD34141696BAE8F8DE783231ABC5F59DBDB97 -85489E1FA9D96C57DC4B7603038D6AC63DB7ACA789EAE744D803921A773BE8A0 -81FB687F980423C39F59B10ED7095DE02D2099FF665BEF70E76D9BA7B5B056B9 -A6339D5B4AFAE1B7D87F43426B64371270C16E63C1587C09CFB052316D4D96E5 -7440D0CC6DB888F34434AC91D29E755311AC1192802C99351299E0C9FCDE44E7 -A0979048EDAAB75DCB29EE2874EBD426E37B2EF7661CAAC1A9F7E87DD609A40C -735DA40E068D61F2BB133B7BA6F80A3B750DB063E962E26A130BB340B62D6715 -629FFBA7CE880FD80F40C3AC18AFF7308E78F05DBC9B5220D4500F7D6E49783E -9FC958D3954BB4737612ECE0F53F135787095ACA9E34C45BAED9D91FF93DA907 -9844EC2DCEBD8D3032A07CBB36B8FB7CA00ACD890470AE9CBAE19B2C7C3BD37B -2B6300A083E7D1A12507FB4817C3267AE2B08EF5ADC765E59DC22D831094E398 -6C1F0781FE7B1244C10E0FB344B666D575447CEC9F275CA0873ABAC5989A39D9 -1E2C927FC0F9D411C4599D9D6FC1174AEE5A6889CBA54B96C650A14153D4FF9D -B92D17AF766F10106C684EC5E7511AECA5B6C17D57EBCE1572CBFE26C951481E -D7C692CF08BD1EA6C5B30BE280953FB8F8244EEF8BAAB3E33AFAD299FD002D2C -1A74C796978472CFCCAC13D6C57D2B872C05B9540C3F5D8595958A47E71EC811 -501A2632E9DDD7EDEAC56C518175212C74E1EDE35DD5A3A254B508C25C05E1E6 -4067D6A39719AB32B45F571A46D72EC70202899C79E9AAE60D511A68A3F2E7CD -9AC4CEA7AFF4075A15327318F6A5962CB9AE8BA6D7C7F874F914003DFAC63827 -2F8363B436C5B0F17FCD98512D47BC82CC947D4C7D771A71AC1645EEC33E4C86 -76979F98030CAA21B527A604BF1433B97814C41B3C5B767261A8B9F4BC91A9DF -C03C3F55166FC377E829EB5FF218DB2411CCCEAF45E1ACB497CB6F88ACB8C90E -71F6DBBC9F0074813A6BAA4F7CF2CC57A84CFBA77156ECFCF4FF8246C984CDAE -DA86706DAB4E6ECFCB1D91887A61CE47EC07998778B4E07497DA3811243A8611 -5E451D3EDEDF57E0EAF9DE3500921A7818FB318487A712CCC0EE9956B7EB9820 -A92F8C86B98A36AB956ECE9F5C56207134A147A8A74C8B1939A6DA38FCF89EA2 -BCFC54BB19612DDAABBB009B09A4C293ECEB28980BBE80093D74FC73C33B2158 -D0C4E5F9C7B68C529D474D4703C51FCC2F27B8F7B321867AE5AF3F3B38BCAB83 -4C9E0D06A6FB148FBE8EEDE3CF25BB0C4EE70CAB7C5DA7C9BCDCFB67F1B66E86 -698EF0DC35BBAF357A32CDCE079C1047F1E55E05D8008B061B6F44475375C498 -19775F2522B9208A27D9CC966928CECDF3CBB46E284416D53C0A0FB5538245F2 -C2F83C48721B8A7520C2C08F8C1098BF71196B775C4AB44469C043DE844726A2 -22F8E7690F4294AFE8B5E7C496A94F8E1D77C0C11DDA2EC873CC2BD4C28604E0 -44677B0017A8FE9026B4F9F6FA14603226BDD342BE1666E63C04F7D4C7BEC93B -E0F7E73E52E0829DD5C3B6B1397246FA58FF34E6AD2C296293BEEE1896F15F85 -94B13E0956A2AC5168DC1B69BBA87EDCDF6918D106959EBBD9B87709488D9B93 -0ECC63475BBB8CD1B142632FADD1D6C3D63647CEA1BD9243D7BEEC0DF6292DB1 -ED5ED621A612F10EE0A47D4C92EC61C5342099C27D93A79D9C9F278145CB860D -0C3E8BD00B108257F92AE1869430C6DE57F025C7B818DA530B3F2D2A59FED439 -D11DED107279134EC859B464F52A516A4350D296BC19B1455B3BDF7FCBFCCDC2 -8F1514A7A46BBE25A3AF9B1D403907D76E8536F179E291991FBDBAD7481AF871 -760C4C979ACAA242D99B153AB4FD7766C9B7DE6EDD1689FD3081EFF9B99D887C -2344393FAB3D881EC7256EE3FB416D8D4D75C7DB51C8299B1400E136AB290657 -D25871E3FF8BA39AF92CD7DAA18888C8FA063FF42DC735B1B3247719545FE88D -186373488719EFC2CDDAC17E79B6D697D9F368D9279DF4860951277F5EF9CB55 -BA5E53124F7FC666801C182AF99D4A8A3DEAE5C52B145DBB7A0CFCECE8AA6845 -B803651CDE2B42701951E4D3D7EB4DFBCF0C6BC99FDFB74F740579C8460FA10D -B8721D100516CB839EDAEB4DFE011D1947F0D4874A7C690ED7A97EEE66BC28B9 -DEAD2A7B39EAD4D4A4E451E7398880D5E2B1D9C87CDF16AE86047B3D6CB83D9A -7F24E102EF14AE8BD323700B083E6FB9B54FF40B63FFEDF553A8033A3F755FBB -8515426BB432CB6210B93F60CEF6DC31F576F64475E62FBF30074B701B39665F -4BF4113DCEED9A168361D8DE5C06376E070C90FC7F85413A8B664ACA1BB277BE -9F492E4D13C3295C2234F3CC6854EF991BCFDEE4231FA5F99FD38217A00AD065 -B8AC071C65D00073B6292B78A04A801592C00A3F5FCDE4C0AFC79EF458DE1E01 -D0E78EC979866E4CA2F3528521C181533DED733D5EB445C3B76095A2FD5BFC3E -7A8A2085E55157FDD79594162682F9947E1A097E36367B9D63148312490FDF7E -0750770213BF6188DC183302136FF6CC18ED1A45D2A6BEB040F7F20C718260B7 -F356A87A209787E6655DDB3EF7CB0CD6D034A76D32DC844CE009C6EBBF9C937E -E120692066C49523AB41242F1D916ED69D1B7FB6EABB24795FA517BCD14F2BC5 -B745A39B9BF94363EE9662C5E8C30B2506930DFF22B41D6C75698D18ED153CF2 -C80B3D4592CEAAEE1849027B06123A1A004D39C1DD6D8E3426014D43A353D719 -B14B247A87898A960DF68C0C0C59A1FD4B57CAF14B34FCA46ABD97B5AEA02A3B -E1064ED55EAB0DE33EDB55D958E1FE80BCA50544E5D07AEBB5864B42E49DEDC7 -ACB9E0574E1DA3778C5BAD737B2A2A8A167599270578EB83D558D01F09DEEB5B -7798D02A7A6C79CD5D12A93FBB92703219FB30E09591D8822847C073C922DCC6 -B9CAB13BBC139E9487F338415EFA2C253ADBADDC632F59084C6076526E091281 -A026E14C5E8F4C84AB7BFC460AF16C5AB0833A996F6895C2B27804D8A107D067 -E1A06E5A4BE4DC4863C90CB52949603C0727A1BB287F99930FE769403B46E25C -FC2041759BBC27CBA6136A6DC6C00AA4C418F45F2D92CFEA647A6508A8ED9C32 -37121D5A26A64FE348622C6CDA9FAC1A26DBF07A906E243368F8CA936A6B93DE -729493EDC6FFEE039CDB864396ECE5E198A6C53257207EF1D6DF448C97CD7C7C -99DC5AC592E7F48CB331B971E3B6080AEDB45B1AD95543D56C4166455D888CA8 -A3B820DB6BE101296BDF05D2956D15CD50EFE1EDDF114903155F14A3D2747738 -6B661C650D01EE2009B8B1BB2CBC48AC2F425E8150E0A2C210789B2DAC227580 -ABBCBF4E94C8B8863191F877DFBA437F9C8F959B78B813586F20758C62ACB884 -46E6C561055F0B9F200C10EE7166BD8D3E301C5761411FE04B82E3E9FC826CE4 -6FE7B2426A09D38C007F28E2F992F03836E2018DC7A4E23C0F133241F0660969 -99887AD4D12DDAEB170804D743E635733BE09CDBFDFC9B81ADB62601A04ECEF1 -2912B16B203007F4E5A56534D8FF497D5482498E291E5EDD5DEAA97BC86C9485 -70063933291D78AB5298F3C9BD8E80C4653E80F243C7469D4550235FD56FB972 -E4BC6AB5DADCB2E3143D95295E23EE37E497C4CE6320A395B893F42B5C037A98 -F21B48AB50B63BC616BA3852C3B25D2C97192E8E1F0AE8D3882052CD47181C52 -2CAA6AEC807CBE1B898832903CC74E05D7CD9D62CDB0E3BC665F9B81BB9F60DA -FE12589D767C4A5C46A1425D45ABDC3A602F5EE639C1D493EC4F3521BCC425AC -9484A068B80EC484A1892E79A94AF0B3C21C166DEAFC24FFCC98085DE4570C8D -B66373ECF7838754B1355618B87069C4D6C219CDA594F3223C22C504DBC14240 -391238D6DD8CF159A156306EA1E9B79FBC7FEE203019DF119101D16CCB937564 -9288A79ACDA7FC401DD9A62024FE72EFC06538AF461467424E49952858431A3A -B81FC61CFA1DD5E96F64A790E8A8404E0245B8A16885E34E0B842660685EF8C7 -C52F0052A6652E6CB6DCA3252162B0A68F32C67EC71D425F9409954DF1689661 -59B2A302B801CBA1EA0F694A325DFD34412EFEAF168510323ECA1B860FEBE085 -AC8E83986EB56A641FCE4DB386E16B322AAF048B8C9B41F24A479F827532A008 -C4373425A53658E3D5CDFF1A565CA5149EB72643B4AE94DF0B25AB6C9FC24421 -5690903BFF8C8003F82A76F84AEC6703D866CF9D143E3C27F9CC772D4890F050 -58B3311810C6867550C0BDF133792402E200EAD4F6F489DCD61B81CDB85804A5 -EF06E1721B1D0791B6056EA7E06D5885091CF68205E2650D726848244E65F7A5 -4E14EA3DEE4621E32EE2D2813670E868C65C70BCBADAB10AE54A0DD44C28DC47 -63D04D679A0DC4198C7AE63EE63D34A6E5E6483031F98EF3E4655BDE80BC40AA -303BE66D798C443008E2AF1BEAEAA1AC28145AF3869BBEDFD821636CA7BF79B5 -B8C0925EC8BBD1BFCAB0DD9BF9D336F25E5799BB341C0177F10D973075AB0838 -806C965228715A35D8C7887C76374C1C424F5BA523753D39FB2685E03CE9CB18 -633B63A89B4E985F3E098A94AA7B4D9FA64FE24E480F8CAEE64A02890FEB0E20 -17681FCCEB541872EA71001C654D42DFFF1DB2A54D53A80381D93E247F05FB89 -3C4D6C9CFFCD10C676793B75B3BAEA62BAAE724C12FA89B23E8E2D88451F8BEE -F076FE1EED46AE339EC78714A00E89C93A74BDC367D7B1F6342DCC35BEB2EB86 -AE5AB1D2CE23F322E59966997E964CA3FC7ECAE9218A915BDDDB73DCD86144CE -4ED59E641B30C4AEB214FDB8FB2B5595BA0B6B45D99919F59A963E9F90F4A846 -85377B43F208A3F331947518C99DD11820D375EB9335D7CB6267EF13E1CFCF2B -E2979EFF1F396331208B8544B26995F07752052A37B7028F0D0C3E8BD00B1082 -57F92AE1869430C6DE57F024173CF78FCF3F8B9ECC7D2E6345BBA065F8BFCFF8 -0F27FC2CCCDBFDF1767ACE6635BE8ADDF24026ED1D0683998AAD611EAC664000 -A4635AD1B4BB6FE307C63F7EE74FB91ED2BFFF553A539F05BFD3125B9A52934A -C46E268ED4172A11BAA2FE592ED088AF61FBE6210FC290D98262005F4DA50EA2 -A8F3E6D5BBA1E2319C65E68A4ABBFD0B5CD19925493350028443C6EABAF73BC1 -B4BA5328595DAC75114C1C0300300B9EF15A312AFFAE9B89C5965997791607FD -F834395B17DF67193ED3CBEC072A1A22806D1D700D5894ED92C08F17FB8B81CB -0B3A5D62AC570F0B04EB6F966E27AEB8BD7964F3C11A2EFD5F17BFFC66907E8F -19F95A52CE74702030A3356FBA2E66131C9991A2CE3D8C10D57DD5E2D5FE4553 -ADA5745AE8EE1F8ACD9522702C559F2B675210E8A891B2A31968694C04BAA55F -CCC510CC3B9E512C5D4AFA34D00B7F74D8945AD99BE026388C47D478FE1788AF -768FE9FE3A7434E53F28C04FA0320E28030F6670C4C2F1ED2F77855E1566A71B -087DD15D9B5CCE6FFD54A41EF225416BAEC7C61A9DD8A584A0F333A69E4D26EC -72F19AFC769272387869490FF59948FEA4A9D8A9F924028ED77937B477662CCC -E77BADAE4BCB90ECDEA5EBC9DE866B035FFEEBA5AA77C19171B48F470005EBBB -793A0B71577BD408C15C2152DC52D90D1EA076A789F59B3D595DD347079EA155 -4A4608FE944337CCA906707D4050015C93B8A7F9FDBAB914EE33DB11123A9C51 -93F62933B22EC8CD48635EA0E77427E7C6086294E58C5950FA03DD8C4566A26D -0251A3799F7AC8EE6E8F41117D733A0D3E880220549437755CAA6C23D8D5EA74 -C8D348C7FDC96A1FB6D3C45809BB44D5FFB1DAD2924C24C0AAF32BA00DCE3131 -6E0BB0F62E4DA76D73409EEB96F442BD63C7D3CF3C8395F8BA54D931B5A817AA -7EE6F843B4F7B12AF06BBEAE2D9CF29A2D73F58244779EE988980EAB84420281 -B0E1E8237753DECF6B9C1826CD0BA9770950858BE19002D253E44AE117F6277F -FD91C8ED384662B1CEBCE890D038C519BBC0C2707BEB48FDEB3721ECE52D9C3E -A6DE3CE70352D2ABEC8E3DD4CCF4899A052DDC7F055DDF6A6EAB9E62CBD50ABE -89F5DA415CB6DBA7C99B203A6F69270539FF862BB27F404048CCF449F59B4564 -DA6C51C3F01A4B69B445B57A6554BD75D016CF088B4875981B3590EB6254FEE1 -52B8F789FA98C3FD8E081FBADA15B871D8EEAC0EAB134DD682DCBC9989AA00A0 -0D64680648F8DCF47A989C23AA8A00773A6D6C9258F253A769F6124346CDF970 -50E356F2216D58A6C3FF5CBC8D3BECEB718B49F2297D416D2A3401DAAE73B117 -EEE95F611616BC36801F85F5B2B4D380F11A63A8C48DD312B3C0056F607C2F36 -8DC2FBB2303E5FC195A6873DE8D51274FEA66518D8491A3B8CA20C04B5F40225 -1704453F5F150324F5348BEEBAF5BE5B3848DC05D388163C306D1AFAEF792660 -1587973A381D22D71DB4383CC9A41CE282F7CDA8076CD12882F087AFEDBCB008 -CDC48832F64728BA7E9DFFD29E5289975FF12130C8C4445597112AC74DF38C8B -693D03350C9ACF628339FA20F55DD047408456CAB99E4B8956C361CEF424A54E -6210FD868DE095FF7FFA27F19814811E86BAF8AFAA241DBDFCE548939692E18D -824952EF201261F694C2734157442A161BD50AA586EF1720B8A1E6C269C723D8 -74668697CE2FF5C83909C4EB53664A53152B384E9786959A2294E1AB3ED79FAA -B954049672E98E23C1833862D739F2F30531D0E5A3C2E077B77A7CED67E3C810 -92B5176722B19EE65CEDDFE63275050F81B0577D94C3757D2E08E529A92D3CC3 -4AEFD8B02B68123F9365E3E79ED02A76F6241585684E93498D16E6064FC3DF58 -4A1D5E6E2BE633DDA062E9154DAB0A5865A43F17B3BBD82DD5E8DC1DCB1A15B3 -A63A6CCFFC30819DF215485FAA90B75A51C90BD9A3A515504463568A902233A9 -7C857A27A296E57133DF355DD45141806B088A1B7A4A3B0FD6BEECCD0B71DFB6 -7A12B6869D327C5E548F423E0AB49286D7A3BEAC40BFC692AF45950B0559A659 -9557424BF9E8F505D5DBD7BB2DBE5FBFCF9B2A52DE54E08C08D940C3377BDBFC -EFD1011B373B255A8B68496A5E4FAD2FC47CDDA7C44B75EDE2B5C03E9CFB9B3F -54D110B174638DD91CC5D989C195780289B97CB18E72803939800350F7705CD5 -B3653D429DD3FEFC6CC1ABF7B624A2125133CAE6222F4BE1DD070D5118271B1C -DE24C8DA479B5BDC8FE012A2E985A85DC2358A8F64CD0CA264366D37883CADED -565BB8DECB2C2C4FB724DAC0A1614DE5A4FBBE5890B0B3EC012EDDFBD2A126D9 -859F19EBFE12AF63DDD4A9C1F5F5A93AF577230D4EAD25B328F66DA789ACBF23 -BC6F25487C30D336035FB3A6940FFE07FF99555E34634B52F044F4EDEB1B9C36 -A18FDB636262C188E06A93375D3A1BA9D9625D21C4EA1733EA61D047A202E502 -66E5003BA579CA1CC41B2423566D8D253BEECD76BF098ACEE5D27C893BBD8574 -1652EBF9D2485363423CFE027E16AD115C8C5DF67140A2D367C08D1722A4F7D8 -628A28D562ECFB03895F0617B095F470D331565271F3BF588805B59E1C414F0B -9CB723E7553ADE2E34679A4A5FBB0C78 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -cleartomark -{restore}if -%%EndResource -%%BeginResource: font UKKIPJ-LMRoman10-BoldItalic -%!PS-AdobeFont-1.0: LMRoman10-BoldItalic 2.004 -%%CreationDate: 7th October 2009 -% Generated by MetaType1 (a MetaPost-based engine) -% Copyright 2003--2009 by B. Jackowski and J.M. Nowacki (on behalf of TeX USERS GROUPS). -% Supported by CSTUG, DANTE eV, GUST, GUTenberg, NTG, and TUG. -% METATYPE1/Type 1 version by B. Jackowski & J. M. Nowacki -% from GUST (http://www.gust.org.pl). -% This work is released under the GUST Font License. -% For the most recent version of this license see -% This work has the LPPL maintenance status `maintained'. -% The Current Maintainer of this work is Bogus\l{}aw Jackowski and Janusz M. Nowacki. -% This work consists of the files listed in the MANIFEST-Latin-Modern.txt file. -% ADL: 806 194 0 -%%EndComments -FontDirectory/UKKIPJ-LMRoman10-BoldItalic known{/UKKIPJ-LMRoman10-BoldItalic findfont dup/UniqueID known{dup -/UniqueID get 0 eq exch/FontType get 1 eq and}{pop false}ifelse -{save true}{false}ifelse}{false}ifelse -17 dict begin -/FontInfo 9 dict dup begin -/version(2.004)readonly def -/Notice(Copyright 2003--2009 by B. Jackowski and J.M. Nowacki (on behalf of TeX USERS GROUPS).)readonly def -/FullName(LMRoman10-BoldItalic)readonly def -/FamilyName(LMRoman10)readonly def -/Weight(Bold)readonly def -/isFixedPitch false def -/ItalicAngle -14.0362 def -/UnderlinePosition -146 def -/UnderlineThickness 60 def -end readonly def -/FontName /VVPSZR-LMRoman10-BoldItalic def -/Encoding 256 array -0 1 255 {1 index exch /.notdef put} for -dup 69 /E put -dup 77 /M put -dup 80 /P put -dup 97 /a put -dup 100 /d put -dup 101 /e put -dup 105 /i put -dup 111 /o put -dup 114 /r put -dup 115 /s put -dup 116 /t put -dup 118 /v put -dup 119 /w put -readonly def -/PaintType 0 def -/FontType 1 def -/StrokeWidth 0 def -/FontMatrix[0.001 0 0 0.001 0 0]readonly def -%/UniqueID 0 def -/FontBBox{-518 -307 1565 1147}readonly def -currentdict end -currentfile eexec -D9D66F633B846A97B686A97E45A3D0AA0525392EECAC163E584A9104D99AD0BC -1B1844A0E222653FA481B8809B26A46F4C483A5D7E95816EA6582584156CFEDE -B994ADCFF4645140E3617E4D7E1B0E4541CB9F562E55829B4DD880AABE2229E9 -4A9FA259A734D29BBA91BA1E2055CBEA4339BCBFF98D32CEFF11F296225CAABA -DCA10577A5D431B714726C1278D8101ABD1BD8D0BD0174FFF9148F8C61C241D9 -2AD360A28616CB4A0670C1BF105C88EA21437A3CAB2639F9122A47ED33A9530C -41CA202CF5EBFB888853649626AA9D3EC758ED3FD73E2AF968D3959569BB7298 -73635DAEC4F764F7689BA284D575EE4175479575D5D2E915786683FA5418FEB8 -6776412FB857EA99B80ED7A41040E5A4530BDB7969C4DCFD6F5355BEF64DF9A3 -C14292C4D27F609C117D76D7255051DA43EC470C8EFF7C4F1B5DD6024539A684 -C1EC3BB0D0EDDFB5820330ED7E24AC7B0392A134DDC64D00EB29798F262638A8 -B8A275CA29B7BAF6D1DB30FF539D4E4B8698F2ECB70381C9B58DE163AB9C081F -CBF1B61D67CA4F26CA5A231B62FE25DACBBB96030275C7CC06C1FFA2F4E74CC6 -2C708FA929A667FDF377F81E7E625EA983E367CE0DB3DE03BA5C95768E51C780 -C6F3190E85AE2328832F16FB005E28F3D703FD69FFDF857A1971BAC835B5854F -B7C98AC0ADCDF2CCB678D84A73F12D1F1824023726E0F86CC942BA2555C3C0FA -641C891B3EE8834323BE4E31F498F5B4EE47D3D1A8815267C71EC62029343728 -C9AA63D69E3109F3E0BB1BE1BD956861504CA1440781B009413497306154F5D7 -064611A23B5A32F13C8FE5C0449FBEABCB8D5ADFEECBDBCECA6FF7C1E35D6F76 -D0B676DB909375D53C939BF5FF78EFEBE2051065CC90C2FC7279E4DDE4D04CE5 -2C8A462EA64B8286ED62E611A2CA263CC0FD8D24DCBC49A9F851D9ECA8ED8B45 -3951A4E736C61CE6E095CA711577B8DF0A7541D652E9F0E6A3B1C93FC5DF81B9 -E03CCA6698909B26CFAC6C25C6356E42D4BE937C0DB9A2BCFB988AC33C98A6FF -79BFD7B5919A83DA80CB6A741A391EDE80E9C1C047DA0FA6C261AD9D74309D49 -7AD0003836880DC351387668015B31C70131C8EFAA5863C6911CCC15D583A3FE -5E184C21339AFF0E43C2EBCEAD0768A0FB5A46FB883107EDF27B10C461B3A3E1 -BCE3770DDE3365B68EE7B0D724C89BE1A50D8BBFE5E032D2524F1944704C85F4 -68B70A0CA2BEAF6BB4614971EFEECEA382D36BF6CC3A734275854B4BA3EC50CE -0C7C1EE8A61201D625F00EEBB6FAD8807204EAB7FE1FDBED03C3242781610A7D -9ABF83501868021E69F6DCF2329481E47F42179E60AA07B1D1AD131AD28FAA91 -548361B30AA64876B6BCF359E1537EF69FEDD853133786151FD06B447323A98E -0481DB2B803387AF2FB3B4E057EDEC6373D45AAE69A2AF523933208269330C24 -A4E70B8E137BD76A4E52A5A74387C9F301ED106305D1F54BEAB6227878AB0014 -72B32BD540B24672F73EFF1A924BB9615DBB6786DF6522B4AFF4D46E8B5B7B3F -0031BCD6269FCB4EECF3171B30132CB709E1DDE9B1A7A1071CCC95F1306C180E -BAB7AD3B0F93D0578C34519695EAD030B18D2B1B928D2CB8CAF6B7D5DB369626 -DB03244237C980DFECC233D463546CF8E28408C02326B40E27E034DC75E7E797 -B53DEB549EC8822EFBD2780E3A78CC0F9EEFFF109D3B8A2E27BEDF4FD8DC2FDF -A7CAC25FCA4B7E3D4B21F6896D964A688848DED6E8EC6A58365D7A62C2FDBD0B -7FB6D86C3DA1539967C49407FF5E0D54358CA6C8C48F723817824D9C66FE5891 -B484C4F3ECCE8A8CDF069387E4FF48B03984A9B36906B7EE0A734C90647664B5 -63B821FE22B2AA7037F55F05E547ADB16F56669A201DA41AB841209BF77FCCB5 -ABDC05E978BFAE410EAD0B667E61F0F1C54F38D882DDE8DEE28A07A9E0A42143 -E0FD4299A1AF04E3C3F00E776079A79D9BFE19964559842EEE059687FE5220B6 -547F10E5C09F9E499346B2E0D667B35592E73C61A2DC1F13CD09369054DC5695 -3F4E2DB2163F7CADBC404D407A616D6C0517DBAFCB566FE28CFF48B79840BCB8 -8B39475A7E1C68155445826E9E570D265DE6182B00FBB0A75AC7D17C3CF29FD2 -226E97F0D816D95BDA0BD99EC4932E1CB09843818D588D679137AE1DFA9E9F19 -C49B461DA073DC1BE4AB4FC3484E54DC9B6C7B76973D37010A4C8990B3D25F7F -3D20BE507F7E56122CF46DFFFDB6FDF9361520D2E1343E16C08B047148E29DC5 -E5EFF4711229E2CC5BD0CE81B2FF46A7BCBCCA74B6D314B33AAFF216180EAF47 -54928E228A7225094340420FCCCC8C2F3ACB00AECC20ADAAC3C0C63CFC3B7ADA -39C0AA97CA287AA3B36114FE9DFB07B6529FD752D2FFA4E8E41BE6221AC9F0C8 -D2784D9E8AA3E3A3438942BE3BF6DF3D26F87747A25EFDB18D279D752527A0A7 -01EBA732630023D23A61622899A6CDA1B6BA77CF4525E91037F30CF56EC8ABBD -3F4D0954D767BA87EE1CBD3BF7B3620B1C806D831ADA61B11F5EC2A7D2C1CEE1 -4D1A67BCB8C297B0F9D0B01EC6A7CF522C5D70E2B7B83253A236A4D96BC5FEEC -5907086772F4BE1CBA7691480D037E32E771ECFB467841EDF6F53A943B0997BE -3AE95EEFC7B0D7E017CD595009E52CCEA351BF5650FABB989565430F30F7E8F7 -7C2A44865D97EEB9EFD4AB7C41035C45CEDF664BA6DB13755321233449C37F2D -A97E67DC8DFE3568F5F91EE275365769916EF1BF70C062A4533C634A43BE485C -E2877000075D2B7ED4FF02B658FB2F1F05A2B5F750ED1A437DF6480BC21F9903 -195EA9789B52D651886EC83777DC4B946660818EA103F172391E89F29B1EFECA -FF31922A16CB785948643D0590CE947527D857FD477BA50486F6864CB7AB263A -D03F643ED70E3B8BE0ECEE39C54556A4D75D6F5145C5DD54F718A0AD08E1E301 -9BFD5218EBE79578A0724622D9D07C9A198489AA1D0FA3717BF3CD52E7FC86C8 -F8063FA18E62BA4676860D0F2CBA941C24205C9F1792B6279511CC1700DA3482 -83522B5AEC490A066D109E365572C513E842F42BFBD3511F4ADEB1E990D07CD7 -7EEAB06747625E216F8AF60EE132FECF7639ED7BFE59B384757CDC3F750A55BB -BAC8AAEE632092CF95D856785CED7E829F5B18B621B99B494EBA7C4042809245 -0C519E5C9C7439AECB922F531C2ADF25F29002B26DFB0EAE94203BF88AFA8E32 -8CF74D77049949C2CE61AD86FD668F97C05F88DA5099D12C2940A318A5A278FC -CDF6A6A155F451AA39165591ACB05A205779209F810F7246F2DD3777FA4061CF -F9D9C1A82925C7E37FA36C2D80E7E32A732ECF3856D43066A459E4322FB4BA8A -674DACBD96367DEE3D90883CB9F1DAB53B3C773EB7E92A2386B678179EE7279B -F20CFCFC70378964F57F984176061723F228A13B7304F3254E39EC3A4E8801BA -ACAFA7B2EB6C0DAAD46801979BF4D8469488F6B0D1B1310C75AC850FB4C642FA -3710C2C99050CE3129CCBC9A3C3E966D3F3B431634B78DBC70A30970812C7764 -050A0F5A78522F0DBED119567EA7C799E31C42D1689A14EAF776CE450374CBF6 -9FDC1496A14F5A09910970249C242B5765DE750086910D16FD2AC0E75B6C6298 -719600992548A68772C1CAEB0A3EA446D105DC0B90C3F3C665E41C483205D81B -59230D26B72776C9E8244C479F700980BA6F10E8B532CD0D4E6630A68D7D57EF -ED6C07D533D00EB4386870643CA83B5ABAE16CAE17622E4A7A73B41920BA2F51 -F6627DBC1F119BA6BEF2469EF0B85800ADD0A308C5B83AEB4164DB120EA81914 -F762AAF8178718AF1AB3F871B6C390BE93C0C5D758B3A634F3FF7824578BA007 -9ADAAA937D6625C81B61998ED4A65B374EE14ABD4D9064245FD0D2079897DC81 -CF23FABAC0975AC960D4C07E4AB64B360AF676DD3CD527317F3063086D8B6746 -817FD31B267DDCB3F56D75393A665BC35F1E515F6BA570464F63E2A4C83396B2 -00AEC477909C2A7CFACF4E2DDFA16383B411CFB9D2FE13E54BC833576A95C226 -2EAE7BF2942F06011A3E283257FA60C5AFAD3B71CF6D6772E5E775D505E6A62F -64EF5974CD8E25A6906CAC83605B88549702FC7A5CF34A17BA8BB89EC9287B37 -29137F1678D0048C2190616F793DB31310AA0A8F45140EE4FAE5C60D9FB34EDE -DC15BE430F1B98BBE7BE6677BEE121D636D99B130E3BF1663339F4CE8710E4F3 -D62165254B673D6230D5F2776ABE58CB9B13DB857C0A6824BCC604F5426F7148 -BB8FA709AF1344271173529372ACDD2690B89747B6BFA7EA057D586AF5A8410A -54FC2AC5C42A47BDF624179D8827CA4664F96F7003D7D0BD1460A41B6CF3B370 -647CAB18344C739046F1F08811C66BD07FD68551C9E415D2E09184C78217653E -011F5CDE11CBA9092237C6A6CAD180902058A1295986A3DFD904A8A303A7D622 -516B67987197DD3E233670D60B90AD71DB8AD8C119ECA4A7C3C21E322AE6C2B6 -732D60633B59C2DB9EED4802C331780943D1C667EAC9A01B6176AD76F2D3ECCE -9D106F3BC09ED496BD9A79025A9683ABE4C7E6D7DC2CCD698615EF49518B3ECB -53EC320AAD6CECD064F9670A11F9EC62467E98ECE66B329193EB624E2D0FFB91 -D27BFBEAFF9E13E90690A80DF614F24E9D390EF7866AF1DAB167D87DCBEA2E89 -3E1D90E69E828F3C7E4B3D8D67BC4456186C469B5CAC9DA5727DBC8D5BAC9F35 -682001019B6E71FC3C112A2667AB420374B85A3C89DCB80E940BB7624E0116CD -08A59EF79E5D7A9AF1DD9809395FABC6E1F85F85012157E885ECE99C5F294737 -5222A669371BDE88C3656A7D9095905AE89E0904AC946EFC2DA5BFC893F210B4 -95B3DE7C70854B3BFF083A22D936D631FB480DE511FD6F899938CEE7A965807E -A75DE120EE0E813DC0557EFE61648E12A39638FB42AE591FE504A26324D7220B -9D12A4FB00F763274628831334E1E727FEECA19AE186CC4C1D1A0777414CA0B3 -EC93B33505DF47884DC8B19956DDF207E96FCA85B085CADBF9DEDD098FA3D7A4 -F9F66D9078BABBFE2E4AF4652A04541535713973400667AE6499663C88B604B2 -A8F947700A630BFD6A534A55E2504DC6092E53F92783E0AF62957C5F79B80DA2 -B9051363EF056B5D65444578CFE08378B1DF7086315CD510C6936745358526E6 -669DEAA748A386E73F27E40E35ECD3D7EB4DFBCF0C6BC99FDFB74F740579C846 -0FA6755B1F7D24C5A0B90A66F0FFC044D1E80652D0836E0C66ABBB0D4C4560D8 -DF4183D3598FB9584A4433C9131B44B34ACFB1FE71C614310AFB51163ECE573E -AB9DC7349B6982B9FB181DBCF8B1F5AA92379424BCF1D8FD899BB2CCB47B6822 -20859C957D0B8DD0236AFBCCF1DE77562333F9C4FF74B7425C2118FE177FD609 -4EC7065BED405800D73BDAAF6848EEACD2B66A65740087755141099917788CBA -ABB98A5D4359E63E7B5982A26F1ABC0F78418D3B70E5B8F42D90434A48E3F499 -3DDF5FDF93C9E218C09A3520D145BE35C8758391594AFF7153A7B5D4448A8CD4 -1D0EDDAF6E7780F00DA62502C94A10EC87F2DBA24F80330F3CF3E6698EE25EF3 -C6D9BF8BC7619F7250222DC2427BA56C5D9812FB9D9682B78BD2C6109E3D5252 -6F6EE9F096EA448EEEC36752787F85EB045535E44A62B8CCD3A3F1A8787931F6 -1A705F34B65A7D17B8BE932331AA01C9A84A76F6A2812AF0DEB6AAA7984479B2 -CDD2559F276FBD020EE4F28EE492DADDE9A7DC2F40FF95BE118A13EFFC7DCD6B -DD329EC69AF33E7FAFCC19B3590949398DD742A0BD67804B5803FB9DCCC6342F -21C854841435CD9ACC3C44B5755DD9071DAE1E651ED94B4CDB49F61BD9ACD7B3 -63AAEF5CA4DA0F8986EB1AED17F3C26F5E30E44ED3E9908B59DB3B3506C60D3F -766ECE69AE20ACCD020ED7EF071525CDB93880A24EAEADF171B5C0745C47040E -D5D4B9E13A466FB2F8ECBC0C52019F55265934790BD03AF71BAE6A930CD02B6C -4D07D6D0998EA18A8B04080ACE7A8462EA4D0A2E3CE3EDA1EC59EE43FA5C1288 -C2FBCE0E01F764EC4EDBF1A7E60ECE54CB38A7251D426B403551C0BFFAFCE6B0 -5E537144CA3F6E7E9586F1E5149E6F1BAFDAD8FBB506280343A796FDB80EEFAB -1061D2CC8008B53D1FC99A662CFD29667E7B54F92055664C411FA55DF38ED234 -A38C9A6A564F2A3CDEB2C87739BDD18083D90B379127997417608C1D66190699 -38B6B2AEDB97B7B0232542F2EEDF018668ECE00CFB9B87537DDD52567A9EE9F3 -4E3729BFD3EFC7C1BC1BE9577180E1CE7CA1BD04F2D0D63E2533838639C9EF8B -5304FE93F5C1536CEE1BDF64A1CBA37F097642EE83E04EA8E3CB8463E052C7F9 -ED471F08343E45B76899ABED0E26D475085B59D52440C4DDD7D6E83407EC78F1 -2ED5C8CA444B281681676440E4835A4965178C95EF0C712CD7BFAD1C0FFC1D4B -A4983694BE44E35815822FEBC9B73680D646ED0B658B1D2EC8198E91B7D7A0D2 -586F3D71442DBEB01390CF5BD706638B1931C1061FC502B3C18CDF456E4FB5B1 -48282F1B3B8C4C4C9DC5A9B26880C2F7E15A705047EFE4C1228FD516AA9FC596 -8567C129A5C1A8FC21F794B63264093B1D3358087BA611863DA666EBAD02E690 -55A34A54DF278454646186E4B4E5B053CA4B0C3E3ABF6470E6FAFF04AB26378C -18B7B0BBDC50C9B75C56C5FCC7AAA210CE9ED690255ECE7FA14DC335D608BB36 -002C604F2A5928A58742D1029AC84ECB219BEC750A10BE35EFEE65A53C70F5EA -C0B7AF74995C3F141963048EF37ED12F3A2A91FE52C442F7F22BDFE1A3D92F6A -F4F229D210E5C0DD890E0A21F59B1492B82E7449055F53EA9EBED8C10418AA68 -FBE3D77457A4AAA8C346EB436961C2AF7784A47BB023B3ECFFF539BDD6DB868A -2B8F010172B9CB2C76FEFC4576A7638498FAF576669AA5D71AC4CB5229A82955 -3C723571D8AAE6ECCE55D88B00E1410AA59FCBC2DDFE67B17371ED611BE27DEF -99111BABBBEDB83B50CB2D6E44036DA3DE4A6BB22D3FB92453683899ECE7EC3D -DFF5B0B8CCBF3D9CFC3F795348D04809C49896E18909ECD6892BFD2B0D73ABDC -220B13F44F655AD6FC40955A3EE68C16EF312027D496AF25FD03C5DE5384AEF8 -B6C7C5DAB64A0F3DBA016E931F8C19CDE0D7F03EAF49BE166BA3DB1BF765EF03 -05C91F529E5A19177BBF30C4399A266CE0B3208E7F3A8A97871ABDE24AABF7BF -07C8C599F051F8181FA2DA8EB6C9733D5E67080D2843D44A3585E078615BEA47 -6C882096CADB381F84343DDB171D5983A2038DCF160C2BB209B2848C80432502 -135F1BD4EDF9C3BA2FA4FA09EF62ED91D9961A73D838D6F5654B31F78B7D55FD -C4BAFF36E82B560DBEF3791794DBE14E68D4ACDB13869880C0D71523DA079E0B -3F2316298B0FC5FD92E75DE72B8D818649B863D2107A5455FBE4A74370ADC03C -34DE82124FF2EED6C65832666817D6976D5F8606CA7F20E519B9AC3DB5E4F6B5 -BB0B33488DA8945D9FD341D363B0A2B1011401D642776CFC6C4A3A9066361A29 -020D758471A0DF635BC2570D47929FB51E25527652C1D2C28C63222F87C31DC1 -B01B2EA3D7E648E78962B236D726E824CE2E5F47B9AB4CA9678D55D6007715DE -3A2D4C1E7EDB62422F7CA31B3A514AE6134111BF6D56A1F0B72D203A7C5FF301 -7508DF9821E5654F7E817E23CEF2A923C8DF147D5AD2E86744AF3127D29A7752 -0327CCB89B0EB07AE1EC07FD93D19F9C0A6B2F625C8E686F3F263BC002C8884F -38F3BB6E09768DA019B879BE1079D76A018F871EF6F8CF3DB923D549EA4BD27F -B2EFDF96A0DA8A349322561774A46336B100F563E302FD3F1C4DD65CA0335AEE -2E38DBE952B0C1AB783DE65B87918BE227E0C33B25E99E96B950351927A81C58 -D2821F4EED583E64FC6152C2E875F3D1CC0C194AF57A52896AB38B5F5F014594 -EC1D0484121DABFE6D26564078ED9EBD402F4F46C228C2D637C5FD5D80D79922 -75080EA1052401FE990192857A63E5EDFDFE6F056DAEDC2444FAAB977D63CE9F -56BA69900B3F3E1F88D55223290255462D65D304E6395285F31E06D262EEF383 -19C0C68BBFD2506ED366F96269BE6E195963CFF5F2939E86EC20E128862A2637 -E90FB6E562EBF8CE21D52051FB9D13E7D7EB59D752089364FDB0D304F9ECE6A9 -1142D95593EF9FD51E984BA8779F476E455B01C64FB89E724580B4CD7ACB9E6D -14851FA45A8E98921EEAFD82A9516D47CC0D6183D68AFF512E3CDF862EFF46EB -7DE76BE0D3026F19A2F1C3406A9C2B280FC55EDD4315463D662B92F4A2849E78 -CAFA7DA4C33E51A6D9746AE9598A13016197435711C5703B0B03417C19413213 -BFC2E5DC6CFFCEFCA4BC439099ACB261B06F294C3E2ED6493AB6296AA43F70EB -76DCACCDD7E39FD3176CA55B0DC7E1DAB2DC72CB986B0B114CF2DCDECE28B4AE -DAF134EE2DA4C193A42AD0E10201D7B75F1AD5FA61878B6042ADDB1F94F6CF35 -19F98CE061F85EA4F2475121625909E5F9D557558F37FAE8EE46086BEAF1ABA0 -773203EB54A32BF1ADD578A1F95BF4FDAC4EDBD260753B64030759472D938C84 -A71C114A562371A813F22AE32E572F6642EA9543DD8F6F4034C6B656F23909A2 -30B2578118918F97C7BB8B62E532972120E7B0444F416A08BEA0FFDCF8A90638 -660039D6EAD9A62AA3862A634C4E7192D8385D9396135C859A0A499FB002FD33 -D0C5976420C76FC705B17A54E9210CECEF0F667BC582F588A061153A631D123B -037B74F7F7116D105929032BF417E95A8E1A84BA0C4BD4A6BF0ED7AFB4A1FB56 -DF08DEFE0B9279975DC15BC1DB4D67B315C4556EA6788840A10115DEA01BA789 -0B3A1123170D993F727ACDCC08F94745740AED1FA5436E30669CDA65742ED08E -465703DF56792BA310AFFA57355A1CD7B73DD5401ED7608BEA9D37AC8E7F6FF2 -58DFF2EBA9D5DEA90E75EBEBCAA33863A66234B04B0310308C22902DAE8CD6EE -1B33BBF1BA49D985D552F7E5DC23352FD902BF6F5B5CCC85FE89242E8547D950 -25D9B717498EFC65F8B5D38042D86D3BDF2F2D23DB41D95C366B9580053E2500 -9486C377A60DFB1F0D805EE67C88DAE02A46ADB120A95A022C1DA291668C3184 -5DC8EA7B32DCEB16073E5209113BA2D44E58DA835E8537B732ED0C2C1FB31D3A -FA91E12BA83E7BF7699E39EF1978075551ED0242208A9CB5408998B966C09CDB -3CD24744C537BFC3C09C48DD1BAA236275FCEF308AE67505B69F72578F508ECC -773A3903E49328A81609F858FE268F9E066A3A7D44FC1C8A97B4ED836B06224B -6C2B94F6384FF7461C1636CD377EE59D480DF24E76EAF5C303395E007594456E -44E684F5B62E98BC7CE2A7F23922C2B26EA41AC3413B86F49762D51B09412023 -F0E67608C86BF1FF8EFC2568FCC3524F6F89EC2FD07710100B556812C6BB0AEA -2BAA23F39C7E68A731027AF1B61098EA4DBDDA6D7C1033099BB4F81CECD8C9BA -BD283E68CB64DCCEF78097CE56081B907F7F68E2AC274E50724C21A4D9C7C534 -39BE8F324036B28CFD8CE94826FB2145D27B9F8618C6DD70A689BFC4F3543F6F -AE5525252F381D9F7B09FB739CB51394A30B60A510CF550097A522FAB12F4C98 -63BF17ABA09227118AA77EE704F06A11F9327B17234AC27E1F671AD5DA6FCEF2 -04694A27B0CE8C9A6A03C00D4DB9497387E6B55C9B4D8E318D1623B211A2B449 -076E191A04CAADA5C99DAC0E8B0A955302C23E63B9D23E40724FA9C3DCE3C2B9 -DED6CD9D11622AFBE1E42CA7644DAE010536B0D6D72D3EBD3C54FDC1061C2C99 -409BCAB867CF2D3F12E534405BCCB859F8A683E36A1593EC8FE7F664C583B5BC -EC28DE028DAE9464492363ADCD0651128CE2956C78B865AD834911C1A179E2C3 -36EF0D95C41FA4A5AF7A016D3C773E040312AA0240DD7339E38988F36222BBAE -11B6FBA29AE0A974673C2862B398E6A15F7D1179D60EB17B9C4E3DF9EF2D5237 -B734EDB4A0A6F12E053777759684B13EC922710F100044AF4AC7E6826E344C7B -DDE177F28AE37E814ACD207F6C8E3297E4A4A9F197AAC26F5C5014D1954859B1 -26AEAC528BE42FAC74F8299F296835AE2D078C0320182E30BD01FD08CF7A4105 -6144B4EE5DD31B0FEF752E017D411E386203ACC4104B5A7D63B6829EDF73D5C2 -383984FF7E994005458A1023406C62FF0DD82DC148EFD0EB462DA12B4B38DC32 -18AB9B7BC8F7037F433A0AB962F52147208D98266E8E454F25DA98C8E8D69C80 -E11ADD6DCC8B88C78202A2AA4A5EF425A6A412DBD0F20CDB4D1DA9E54AAA399A -095627A31944C10E108665DBADEC977F6E7846D73CFA56D27D19F27B189ACCFA -1C6C760DBEFBF5A18E58BFAFFCA478142AC751441CDAB0F96FFBFF9461ADD964 -4739AB246A025D1783618B011F86C9C1F81307E618092D3458B912D4B431F977 -7AFCB59F167B978FD5993AC8B9F75BA29DA132139B45188C771A96B82CEC3C09 -653C7CF4AE41A53DA1FCEEA139BF1F8A1777866DAE4B39205E49C138C9334269 -E824FD6A2C658868E0120EC31F8EAD5BC0DA0742A5073F7D67518A408F628794 -F3A4E9EC74A13E88C5F9E231FC2ADD860EBA65112121E1DEDF820B11C1E53844 -B2C7A227322C783EBDDCD10868090BCBAFA1507112C6D45939C9425C116B70C4 -970DF70D9811B4A8827C11AAF7B532647689F1F280446508274A8FF27CA1A6F8 -BAE825E4489B203CCD8BC7DE4B268CB48E3E7B4C5CB0A38541A3382F28D8445B -0D4CD983C46C4E589107A75938E890436BBA14E6D7DD22C8BFD34C551EACE007 -1D3C60D689FBD5703B57683888D00F0BD6EF7363B2B4631B0B8D0C6F5A8D008D -8F808F5B5F24C8BC1B1E3D002C33F76D5A2D0C227478217C22354B2914BCC468 -867A121D65A970206C190287537CB190E26707CDE0E1B29B2BB9C4F4716519A2 -31A2FD057F51ADDF7DC9BEC731AD6040FD9B804FA14749B8549621EA8FAEEAB5 -E745E5CAF9DD3087C4764D42A4274DF91C9B3CCA3AE3F31C1198BF3F62049435 -BBF3BF5AD2CC7FA44044CF1E14A026561FC62438E51FE64D6A40040ED5D4B9E1 -3A466FB2F8ECBC0C52019F55265AFC18F3524E5D16E65AB744B6FD25142CD4B7 -0AD68BDA9F1D42A8662C8AF1B5CDE35BC27E9EAEFDF62A37061473F061BAD39F -FA9D62FEF73AF05C25BBF8361E8969C483BCF72FBED45536905C716015ED092B -60487C78F11B2FB96C536FD2AF3EF5E8B8C260951DA8618F633B8D6CE15C47A0 -573CB70103B4D47A426AD3693258F19A376262F11BB267E80EDBF722D955776E -1B6C4530838E021588938A3A5F68B5DCE64779760C14170CC7BA77F25D930B08 -0735E2D8211868BCBAC5AAC7ED3F10891B5CBF01CC178DAD3D35670F258C5D39 -2138E7847EEC34DAFC1C15B283E2959F3E1394F6212E9CD5D1200A48DB9D4E22 -BC98381243A4DA9CD095F34269A0B2804358B87FF350E769A7EB0E1B9BF5CD44 -BE1164638B6D9520ADB223BD957C4C8051FEACE2AE27DD3DCAB49534A03AD666 -F8DE9A74CA226BAD0E6EC5046011239ED7D6C47BB987D958844F545060C66680 -1C182AF99D4A8A3DEAE18965F5AE59866B856D69548FEC387CFC2D956561FB13 -DB0FED2ECFC22D86B42FF91FCE7E06435BB294023280A4FD62939B8A1306AA74 -484117CE5D847E287F626833FC6FDA5648ECE74BDA1BA604872AD6C5271FA89B -4389DE8C2E26126498DF01A8B4E7DF01CAE49DE944C25FE3928C2D938D3CD794 -61408ED21846E10838205287C2E8143D7F6543889B0C918B4D8060946ECFBA5A -DCBF48B9E4E19981F1AD5778B2FD0FC05CB4C628A1F09377B854A47E47ADD77D -CB384C19539BC3B0B029FED20C07398FA5C266433EC7E4474E192590A04E1FB8 -508297F56037E3795B766BE0F3D7F6438FA7E464BFF671439E450637FA17EC9C -4A0C28E33ED8B155CED74370BB5770529AD416D9205240166D84A2C48EBA62A6 -3C347D512DAD1E9A7F60289B557663D53DE4C578F6993FC10789AC6FA67A352E -EAF095CFBECB0DFF2F1F05663D429209BB556DD66FABC6E0FDC9A90A49DF2C1C -539755080AA332B33482725F8FD2082183D51A95456A761655D006138CEA62A6 -5CE41A0BE95CC782FFA77F2824E6051A7F871A464773D8DAD183E84CE1BF8F83 -F59D1920458000AA7477BE949982AEC5681EDCF7FC3990EDD9AF662CFDA9AC18 -A33D80212100FBD51A9BAE076457A0A9E830C0658485CA60FE8D64B70F307C0F -59500B5F331E1E3EB4135A0D606A8F4C8BE46959346E148C9FC7BEC5E1E5D8EB -7B9961FFEB40AB64D6F93D30F10CD048196F635B262C0516E75FB2516839559C -893508B777CC855DC2BA233CB200352733BD71BE2DABDD264B71ED3FBC645252 -2096CE5B598DB4FAE595628682F02AD88EB38FD2D3CF65AA434A3D691CF854A1 -6AC3011DA8D1455C258C6A96EBFA86A669F671B2056B5206CB2889AE85817726 -6B06B756BACEB5FCD36A0F153536DAD78AFF2CAF131698FDF6B55E5B1B11C5AE -8BD7FBDB7BA6E90FDD8E6962785E4CCB6A2039BC15B70DF7A0EEDE6E2A4779C6 -0CB94140E58C4627A127D4600DB448D32BF2E94A0316BFF3788AACA2DC8EFBF1 -825630B15574DC1FEEC467042D5A147F0A784F0C5A4E1934FBA251CA55B73D72 -8E964BFF59B4AE356D1DB3175DDC2A6AFD06EEE9950916FAD300118249B27F5F -7BAE49AD6BCE4E68B5CE1523A791C7A8B8C4BD004547C59707D6A8480D4BEF7B -1B5BCE4EC561A12D2BEBB44A71F76248841DE5394BBBFE6A7E4CE3EEAEF15825 -8FB01BB4D32A9CD744F53273DE687223A21A60DDB2317D3C80B1A70B71AA5375 -16A6AE946C972183036CEE800D650FE2CD2E74C038665ECA680CCC9AC4CEA7AF -F4075A15327318F6A5962CB9AE8BA6D0616143B901F6B601D390E2DC1104F91B -54A06D57CA50D11EE93686D71738FE955FD7C67F11323E059BCD0C4D406C422A -49EF8453EABC2064828A2254F5568A8D9E0E1B587492B339AF758E0458C527D0 -7286045CE90BA9690165B9D23E40724FA9C3DCE3C2B9DED6CD9D11622AFBE843 -52F60F9C2FB8C376B57267EF3FCBB6E99152977557BE255870CD61C8CF7AA8DE -567D174EC90945404C58001CFC764EA8585BF507366BD3ED3FCC2FFC35152254 -58DD2D3183B646672DFB2D45CE801DA6FCB815622C7CB6D29BA26352397C3DC5 -5A0FCD95276517788B57C33558FBD942F3293E79CD0191AE8D31094AA4A74D6E -AE3CC10ED9760630CFFF16DBAE0E230887AEED675B468DC2D87B7EAAB64220A2 -E61C48BD2B8CFAE86EC0A4FD7D91C9EC9872706B290B8C9EA925AFED9C9A2CBE -DBDF0241DFAD99C35791FE45F069B7946B5EB1D7A5CFCC0057DC09CB0F19E5AA -D0C27B8608315AB055A39C48091E72115EFB1E975595338AAC667E1ACC0A3D0A -F0B6A0995FA25B67430E43D16E0D780DA825AC347EE138DC959E22DF0977C4EC -2DF9FF5831F242B8B5A0FB902F9B2355F42D337F20ED677569C646EA23E316AE -E1EC29BA8D4A7B94EFEA537A7E03BD98EE97FA23D768F48EA462E9C8ADE13184 -F58B199F71C9B3616A0F7573B82A681D124DE7E4C90FE7EFE008301D60083FB7 -E8BDA75A112D1D27E9251E6968FE648FF1F57DAC9EFBDAA60B1ACC4627E104C0 -9627DACEB1FEA3B1B0764588EC4A652D1A7F8DD8C00C40D04B01FE7AF62D5659 -4BD31845DD8EF67D1D889702BF25FA56928987EB0BBAF4DC72DA6B4EBF8B9D02 -2DE963E82665CFCF412B99167152D35BC0E671E657EDD8746826ECC9E3FD1923 -C32789B45410AEC18605C490A58CBD295BD3BB0208A83E16FD4236560DA1C968 -928FCD617658F32B47D4836ECC48CCAE1FB7DBBB6ED76DBCB40AAE2880AFCD60 -F29551F39AFE3FFAD1623684285DDA87F629F33DE79BB830A2F69AAD4FEE1096 -A89B45C068EC7BE855032F07DB4C25C0D1E15E3395B062B933EB55F8FF293BB5 -67375F82C2B20D6D893060B9CB06F8F917B4076D63A0B3438B6BF9DDAD0C5CA5 -4CA9C48F2F39A20E85AC2B3F2A38B8CD430EF341FEAB2A3E1DF0C1C992AC99B6 -94F2C3C4563F802F8C21B71F0C9983A9780ACB77002188534B0E643A05643E8A -83038029E832F016A7FF28FE5E889D35D6CA2122C046C743CE879EBFE2E5DC3B -E8E7A9FA65A75E27349DDAEA619E52650F8D44A7B98EA87A08706A1A9F912884 -1698D39D7A6620558C0F4ACF195DCE08D9A100CC4229A4E33FA93A0FDB1AE200 -E2F1DC7E2AE2E881E755D62BF45FB7F79DC36C582C274D044FEEAC2A39A813FC -4891B49E7775375100F55E9F16B8C0118E543AD35710EFCF4C5C6CBCEBDA84D4 -AEEA1D113DAD920CD30285E1AB7983940A58AF4444718A3573E80909305A12A4 -E70A501393786FCDCC0A5CEB3FC42CEF227D534BD65EDDA5B466A2B687F0998F -C59BE4B93F4565E5DDE830AE5FF2FD1A26930E14FADD837552972E437178C103 -FCBDD935769AE28F1BB1EA4029C7C87BD07C10DC211451B71F926B4393A0F11A -0191652C64236A960ACFA097C1FEB8776D7F800C040270B499862D6716DC21E1 -87B9ABBFC82C68A2D816A3DCD667B80FB1086D98C207287FE939BD9F4A12191B -15548AE275EAE43BE62BDDB6028B70E194489B1FD064E515CD8EABBCD4488E8E -C0BEFBAE0809EA81F96681C81E903522047C2CD466CE77C28C5F6AA9C7698A1E -383942D0C6CE6F6240554BDC2B39852C74B1D27C25684C3B97F38034E0EB09FF -F002A3BF742436AC513D1A305823F46D95CE210EA1EAAF36E4CDB47FDFC25574 -25963BA635204E89F80CAB3A5536FD44875BB61F8E7641F58AC11080C471FE24 -05773EFA39C88E78B6C552479B1E51C74F3BE16F39C0B59D107FF3D6211352AC -C3AFE91F9FE082F213C45F0EF13072F0964ABF0944CFC4A423BCE1E467226AE0 -B39365CF4698726077C5A8E8AE21C2C10E9B2AC30C0624C769CACCFF0DF02394 -DF0196EA4BCB09F019123AB92002863D00FD73EBDB3D586B9579B00254884084 -7A2B333E5E409CFB2AB9A29CBE661AD52A63710E4F7D1BD8857EC3B6125F8E92 -8EEEA4F41976945501F32BB383455467D217777F1E0B2409A4459BC9CF7B2BA7 -69BCBBE17E81F552B60521EF051DF0328DB42C4E19F7190DD2C1658D75329240 -7E234925810A365A9D8E21D9FD21944D8BD1E10A52F090ECCDAB6C133AC3DB55 -A9E502D237B04DF5EC040F35195530E7907062FB3BA362B2AF6C697F818EA103 -F1749D2DBF2B86DE255EFEF62BDD954F8850BDE7D9C56999F756C23358698AB2 -A4E7319B9FF1A7480F80EC4A178CF2692EDB65FF7D35562BDD6DA3C2B41467B2 -EFE6358BBFE5054CFFFF5DA4728BF4CE1D892052701B48B81F5F5353110505BF -29411E0A908DB4E1BCAEF75C34B1C0A67EA5C53F8545A6DC0F6E1C7B45CDA984 -18B81260A3AAE9925E3E26329C3AEB150A340CF2C6B6E847062270D5E37D144E -9FD272CE6A23BADEFC0FC80B646A2FC08C8176E19AFBAA6E8E69A5E44A9ADFC7 -8DAF0D4357078353644B788AFC2729C73C29D2EF3B5853650EAA263A1E1A8D5F -525FADEE1CDC8A35E72C9407AEB30F46784FAA3B2677172D290F2C5BEC8A1546 -F868E8A43D9F6F1C8B4A209BBC9B865FA98786E84DD5EEFB812AF7063F245222 -073D9BCD00049F7B93C11BE0AE28B2F7489FB39310DE2FBE7E38409DA085A292 -4AFA002FA83DD86D63E9FF50BC0C8C01B7F90577F737DE05F728DACB7AB62535 -3BD7204D7150D0967F83E13EBBAB33588541AEEC0DE8C53A3570C41218D0E9CA -FBC8078A26AB4F29F821A0151356389F608F9FBFDF25D67799711048DD8CCE33 -9CB2A61090D17FA831F8D98B9A1E9FE0D79698ECDFCF6BEFA01D9A86ED9656B0 -74B08F2CD31FC681245C724A8E754BDF612E6160532B48948C4B25D81FF6A99A -3BBAD79D0B460E90A9F4213D30B583E220F80BA5571A6E412839A1E7FF50C7B5 -A51D29A3AF781F1551F23E2D70CD53E72370728EA53E21DA2320F008BD50F3A7 -176453B4B7F68573366AD66CAA90EFB30BF9837AD04D995C4F9165B1EF1647C7 -9EA5D64B5FAA44144D1A6F2F8BFE9A6DDE8802BE60471017A9B4017D9A660E62 -AEC1DAB9EAB216693978F3551AF6500A26ABC849FFF0E9969FC293CBDF7584CC -8AA35DA0713E92EDE9E4D41577EF58AC70B402A4427B23B0636289B8F3964C88 -A29A856CC209EC385D5B22692F349EAD4DF1F0DBB3869B74C2373223236E809A -BE93FDB1C4A28780968331DEEC1A418382059D0ED70285DB6130989908E4FB3F -DA3303E6BC7EBC8C3F90ECE5DAE23B6E99BC3B1CC6D379B05809BB83D175B1DA -90C2478B692167D000AE87A0F2AB99689F12B25A7E3E92666F3EE2CF7B0C5E6F -7F3C437BA65A9CA6FF7677680B4C95251B8EA640F233A0F99927AEFDB5E339D3 -15193003BCDC08123B1BD1720380BF14DE59470962F632C45DE55DA790C98940 -A65E5F0D1CD06A704E946B53768B5F92C846F34050B86A307BEA398227363F52 -9553BA75ACF5B385CAD0FDC641B105445D0714A98A7CCF155757F859BDC66ABA -88A44B23A3F56EBCD82E0702C4A95FEE93D8A53487C9C9DD328DE62564D95BD8 -A43D3FE1E1A51AF1286A261CE2917C8DFF1A287DA34EBD4AC57F55BD24CFA4DA -C0838C8736888C82493407221B7738CA5A266E761DC5FE3675C071DD47CBDB27 -3AA380990F4230DDDD0AEB3668547601F30C7FF2B337B41232EC7CC4F97EA379 -53551BE18F36CCB4227621D3749DFF82898E01228F3224DD567477ADBCF0EEE0 -58EC5BEC0EEC08C56D322EE6880FAA2A8210680952D8626EC38ED66F5BA40968 -213B2BC53B5ADD27C2BA8D326A49A911B309E9B408A17A6FEEA4B565AF120969 -F16D539D805F0A593C3F3C10584F7FCE7580B2888D818E90B6AE32EE778455A2 -F803A65AA550DF1DAB75E2D11B356A2E9602312B7A5783EC7DC30E9BD5126AC8 -B44FA1D81969BB7B6E75FE8CE66E73791F210ACEFBC1BB054E83339606F46705 -952DE8E841E6BCA9A72E2D9BB024674969AC413CCFAC3C94C546AD2D172C3186 -658AA6B3280AEEE28FBB0571B12E2103414EF14D796E89BBDD588CDD10DEAAB9 -08FFE90F0D5EA99F9BE1B3F8FBE4E42174738E3069E0FB33D497038A1F42F4F3 -09AE8C6A0C74EB7B0B27552350B9BC086EF93754CB3B2CA0C6A066ABEA6CDD87 -992F5875D2B46ABBB14234AE56F604EC290A46091CF9A7083494C09998068E6D -14E492DB0473F6861B76791D4BBDAAEC2E7B20B23B1FE46D4BF402D8A49A04DB -9F5BBE5336D37BF2560F8C549A74A8D1CECB16C5683BBEC2AF894DA4379E3B58 -717E068434E579C4CED71268866DB984BEF2447255A99CCE4EC00331E281D030 -2DAA100E10C2F75634A7C09D539C0843D69E66502FB01BB368A0B35B363F0892 -A1AC34B482E6CAE092A69C57AE7D0B9CF2700AD039169DDAB6BCC22F3137CA21 -CF795D00886F5803476EA0E0972A0A9B8079866182E58A167208EDB90C4FADB3 -F90589F3D8AB00BCC2395A0BD5878733EAB70BE9262EF8AADDBAAF948E87AA42 -FF80C6419C62E2446DB7E7E52EF64C4486E212E75452F8AC91B325BA96C1D6C0 -8ED82CDC523F2E3E95C9FADB50BFD713B8924F56DE73A033C553B8D9C7E39937 -6D8104A1CE77EEFB0971C1FC48B175021256F3966F5F834DDB07D7BDF4982CBF -E6106400DB84CBD0CD0DD2AD9DE0C6E6C80B24CB70D06C2EEBB5A9F16EB9A3D7 -73BE772E4D9875BC44991B953C31E520FC491D8AC98B9D9AE60DAC3970FB75A4 -46245F766ED9264D40092C5141FC2075A15D937B993A363102B3FA93A0F254EE -97DA6588D7C877F9456862B70C96FBABD4AF8676C5BD06C98D694D7C58829503 -31B2339344 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -0000000000000000000000000000000000000000000000000000000000000000 -cleartomark -{restore}if -%%EndResource -%%EndProlog -%%BeginSetup - /ec-lmtt10 /KDRACY-LMMono10-Regular def - /ec-lmbxi10 /VVPSZR-LMRoman10-BoldItalic def -%%EndSetup -%%Page: 1 1 - 0.9 0.9 0.9 setrgbcolor -newpath 61.99951 107.3883 moveto -57.05261 98.81897 46.5149 96.56372 37.46033 92.7185 curveto -41.18042 83.95691 42.72156 73.99597 38.00049 65.81726 curveto -17.73987 77.51465 -6.77795 79.22974 -28.46985 70.46509 curveto --32.00684 79.22058 -40.80505 84.14001 -50 86.60278 curveto --47.45483 96.1029 -42.74597 105.79834 -46.4508 114.97192 curveto --11.06262 129.26941 28.94287 126.474 61.99951 107.3883 curveto closepath fill -newpath -62.00151 107.38745 moveto --57.05367 98.81863 -60.36943 88.56505 -61.56665 78.80093 curveto --52.1188 77.64185 -42.72179 73.99605 -37.99933 65.81812 curveto --58.2599 54.12054 -72.00414 33.74496 -75.25966 10.57686 curveto --84.61064 11.89148 -93.27013 6.73169 -100.00043 0 curveto --106.9552 6.95424 -112.9973 15.87997 -122.7943 17.25827 curveto --117.48222 55.05417 -95.05856 88.30234 -62.00151 107.38745 curveto closepath fill -newpath -124.00102 -0.00085 moveto --114.10628 -0.00034 -106.88432 -7.99867 -99.02698 -13.91757 curveto --93.29922 -6.31506 -85.44334 0.00008 -75.99982 0.00085 curveto --75.99977 -23.3941 -65.22618 -45.48477 -46.78981 -59.88823 curveto --52.6038 -67.3291 -52.46507 -77.40833 -50.00043 -86.60278 curveto --59.50037 -89.14867 -70.25133 -89.91837 -76.34349 -97.71365 curveto --106.4196 -74.21524 -124.00143 -38.17166 -124.00102 -0.00085 curveto closepath fill -newpath -61.99951 -107.3883 moveto --57.05261 -98.81897 -46.5149 -96.56372 -37.46033 -92.7185 curveto --41.18042 -83.95691 -42.72156 -73.99597 -38.00049 -65.81726 curveto --17.73987 -77.51465 6.77795 -79.22974 28.46985 -70.46509 curveto -32.00684 -79.22058 40.80505 -84.14001 50 -86.60278 curveto -47.45483 -96.1029 42.74597 -105.79834 46.4508 -114.97192 curveto -11.06262 -129.26941 -28.94287 -126.474 -61.99951 -107.3883 curveto closepath fill -newpath 62.00151 -107.38745 moveto -57.05367 -98.81863 60.36943 -88.56505 61.56665 -78.80093 curveto -52.1188 -77.64185 42.72179 -73.99605 37.99933 -65.81812 curveto -58.2599 -54.12054 72.00414 -33.74496 75.25966 -10.57686 curveto -84.61064 -11.89148 93.27013 -6.73169 100.00043 0 curveto -106.9552 -6.95424 112.9973 -15.87997 122.7943 -17.25827 curveto -117.48222 -55.05417 95.05856 -88.30234 62.00151 -107.38745 curveto closepath fill -newpath 124.00102 0.00085 moveto -114.10628 0.00034 106.88432 7.99867 99.02698 13.91757 curveto -93.29922 6.31506 85.44334 -0.00008 75.99982 -0.00085 curveto -75.99977 23.3941 65.22618 45.48477 46.78981 59.88823 curveto -52.6038 67.3291 52.46507 77.40833 50.00043 86.60278 curveto -59.50037 89.14867 70.25133 89.91837 76.34349 97.71365 curveto -106.4196 74.21524 124.00143 38.17166 124.00102 0.00085 curveto closepath fill - 1 0.50197 0.50197 setrgbcolor -newpath 0.75775 100.82382 moveto -4.77448 100.70969 7.92511 94.13223 6.4389 91.9017 curveto -4.95331 89.67117 -3.76526 89.67117 -5.18555 91.9017 curveto --6.60583 94.13223 -3.3899 100.94162 0.75775 100.82382 curveto closepath fill - 0.2196 setgray 0 0.46478 dtransform truncate idtransform setlinewidth pop - [] 0 setdash 0 setlinejoin 10 setmiterlimit -gsave newpath 0.75775 100.82382 moveto -4.77448 100.70969 7.92511 94.13223 6.4389 91.9017 curveto -4.95331 89.67117 -3.76526 89.67117 -5.18555 91.9017 curveto --6.60583 94.13223 -3.3899 100.94162 0.75775 100.82382 curveto closepath --1 1 scale stroke grestore - 1 setgray -newpath 3.74786 99.48105 moveto --2.94739 99.48105 lineto --2.94739 99.48105 -3.0542 92.82883 -0.66803 92.82883 curveto -1.57562 92.82883 3.74786 99.48105 3.74786 99.48105 curveto closepath fill - 0.2196 setgray 0 0.50201 dtransform truncate idtransform setlinewidth pop -gsave newpath 3.74786 99.48105 moveto --2.94739 99.48105 lineto --2.94739 99.48105 -3.0542 92.82883 -0.66803 92.82883 curveto -1.57562 92.82883 3.74786 99.48105 3.74786 99.48105 curveto closepath --1 1 scale stroke grestore - 1 0.8 0.66667 setrgbcolor -newpath -4.60571 102.25418 moveto --4.60571 99.17313 -2.36908 96.67618 0.39063 96.67618 curveto -3.14972 96.67618 5.38635 99.17313 5.38635 102.25418 curveto -5.38635 105.33493 3.14972 107.83249 0.39063 107.83249 curveto --2.3526 107.83249 -4.58313 105.3624 -4.60571 102.25418 curveto closepath fill - 0.2196 setgray 0 0.59875 dtransform truncate idtransform setlinewidth pop -gsave newpath -4.60571 102.25418 moveto --4.60571 99.17313 -2.36908 96.67618 0.39063 96.67618 curveto -3.14972 96.67618 5.38635 99.17313 5.38635 102.25418 curveto -5.38635 105.33493 3.14972 107.83249 0.39063 107.83249 curveto --2.3526 107.83249 -4.58313 105.3624 -4.60571 102.25418 curveto closepath --1 1 scale stroke grestore - 0.82745 0.55295 0.37254 setrgbcolor -newpath 2.26196 103.8414 moveto -2.26196 103.8414 -0.06165 101.38535 -2.44629 101.577 curveto --4.83551 101.76956 -6.44379 102.88193 -6.44379 102.88193 curveto --6.44379 102.88193 -5.2124 109.59671 0.29053 109.7078 curveto -4.59961 109.79813 6.72089 105.66269 7.34924 102.88193 curveto -7.98615 100.06577 7.11273 100.07645 6.18195 100.31662 curveto -5.25055 100.55618 2.26196 103.8414 2.26196 103.8414 curveto closepath fill - 0.2196 setgray 0 0.58838 dtransform truncate idtransform setlinewidth pop -gsave newpath 2.26196 103.8414 moveto -2.26196 103.8414 -0.06165 101.38535 -2.44629 101.577 curveto --4.83551 101.76956 -6.44379 102.88193 -6.44379 102.88193 curveto --6.44379 102.88193 -5.2124 109.59671 0.29053 109.7078 curveto -4.59961 109.79813 6.72089 105.66269 7.34924 102.88193 curveto -7.98615 100.06577 7.11273 100.07645 6.18195 100.31662 curveto -5.25055 100.55618 2.26196 103.8414 2.26196 103.8414 curveto closepath --1 1 scale stroke grestore - 1 0.8 0.66667 setrgbcolor -newpath -7.32666 95.48203 moveto --7.93549 94.66354 -7.64526 93.41507 -6.67847 92.69577 curveto --5.71198 91.97647 -4.43237 92.05734 -3.82294 92.87674 curveto --3.81378 92.88864 lineto --3.45886 93.37631 -3.39478 95.4689 -4.0274 95.90561 curveto --4.72412 96.38596 -6.71722 96.30081 -7.32666 95.48203 curveto closepath fill - 0.2196 setgray 0 0.43274 dtransform truncate idtransform setlinewidth pop -gsave newpath -7.32666 95.48203 moveto --7.93549 94.66354 -7.64526 93.41507 -6.67847 92.69577 curveto --5.71198 91.97647 -4.43237 92.05734 -3.82294 92.87674 curveto --3.81378 92.88864 lineto --3.45886 93.37631 -3.39478 95.4689 -4.0274 95.90561 curveto --4.72412 96.38596 -6.71722 96.30081 -7.32666 95.48203 curveto closepath --1 1 scale stroke grestore - 0.1 0.1 0.7 setrgbcolor --102.48225 47.44527 moveto -(Editor) ec-lmbxi10 9.96265 fshow - 0 0 0 setrgbcolor --102.32745 -52.42656 moveto -(fig.mp) ec-lmtt10 9.96265 fshow - 0.1 0.1 0.7 setrgbcolor --24.0665 -102.49065 moveto -(MetaPost) ec-lmbxi10 9.96265 fshow - 0 0 0 setrgbcolor -80.0057 -39.0385 moveto -(fig.1) ec-lmtt10 9.96265 fshow - 0.62999 0.62999 0.62999 setrgbcolor -59.93161 -64.76787 moveto -(fig.log) ec-lmtt10 9.96265 fshow - 0.1 0.1 0.7 setrgbcolor -61.8105 47.44527 moveto -(Pr) ec-lmbxi10 9.96265 fshow -74.0643 47.44527 moveto -(eviewer) ec-lmbxi10 9.96265 fshow -showpage -%%EOF diff --git a/Master/texmf-dist/doc/metapost/featpost/example/38.mp b/Master/texmf-dist/doc/metapost/featpost/example/38.mp new file mode 100644 index 00000000000..ff5e4e6c518 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/38.mp @@ -0,0 +1,62 @@ + + +prologues:=2; + + +def rp(expr p, r)= + (p + (r * (.5+uniformdeviate 0.5),0) rotated (uniformdeviate 360)) +enddef; + +vardef eight(expr r) = + save a; + pair a; + a = rp(origin, r); + (a{dir 15} + .. rp((0.6,0.5),r){up} + .. rp((0,1),r){left} + .. rp((-0.6,0.5),r){down} + .. rp(origin,r){dir -15} + .. rp((0.6,-0.6),r){down} + .. rp((0,-1.2),r){left} + .. rp((-0.6,-0.6),r){up} + .. a{dir 15}) +enddef; + + +vardef three(expr r) = + save a; + path a; + a = eight(r); + ((reverse (subpath (0,2.35) of a)) -- (subpath (4,6.5) of a)) +enddef; + +def scaledto(expr p, wd)= + p shifted (-center p) scaled (wd / (xpart (urcorner p - llcorner p))) + shifted (105mm,148.5mm) +enddef; + + + + +beginfig(1); + +color c; +numeric n,e; + +pickup pencircle scaled 1pt; +n := 96; +for i=n step -2 until 0: + e := 1 / (i+1); + pickup pencircle scaled (e * pt); + for j=1 upto (i+1): + c := (i/n)[.75blue,white]; + draw eight(i/n) scaled 100 shifted (140,0) withcolor c; + draw three(i/n) scaled 100 shifted (0,0) withcolor c; + endfor; +endfor; + +currentpicture := scaledto(currentpicture, 24cm); + +endfig; + +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp b/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp new file mode 100644 index 00000000000..2afe9da095d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/CAT.mp @@ -0,0 +1,45 @@ +beginfig(1); + path pat[]; + numeric i, a, sidel; + sidel = 2cm; + pickup pencircle scaled 3pt; + pair pa, pb, pc, pd; + for i=4 upto 10: + a := 360/i; + pa := origin+(i-4)*right*1.5*sidel; + pb := pa+right*sidel; + pd := pa+dir(a)*sidel; + pc := pb+dir(a)*sidel; + pat[i] = pa--pb--pc--pd--cycle; + endfor; + z0 = (0,2.5*sidel); + z1 = z0+2*right*sidel; + z2 = z0+2*dir(60)*sidel; + pat0 = z0--z1--z2--cycle; + z3 = z1+1.5*right*sidel; + z4 = z3+right*sidel; + z5 = z4+dir(60)*sidel; + z6 = z5+dir(120)*sidel; + z8 = z3+dir(120)*sidel; + z7 = z8+dir(60)*sidel; + pat1 = z3--z4--z5--z6--z7--z8--cycle; + z9 = z4+1.5*right*sidel; + z10= z9+right*sidel; + z11= z10+dir(60)*sidel; + z12= z11+dir(120)*sidel; + z14= z9+dir(60)*sidel; + z13= z14+dir(120)*sidel; + pat2 = z9--z10--z11--z12--z13--z14--cycle; + z15= z10+1.5*right*sidel; + z16= z15+right*sidel; + z17= z16+dir(60)*sidel; + z18= z15+2*dir(60)*sidel; + pat3 = z15--z16--z17--z18--cycle; + background := 0.85white; + for i = 0 upto 10: + unfill pat[i]; + draw pat[i]; + endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/DebianSwirlsmallEdited.mp b/Master/texmf-dist/doc/metapost/featpost/example/DebianSwirlsmallEdited.mp new file mode 100644 index 00000000000..9f239a5478c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/DebianSwirlsmallEdited.mp @@ -0,0 +1,55 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2003 Wolfgang Glunz + +% Edited by L. Nobre G. +% DebianSwirlsmallEdited.mp + +beginfig(1); + color cristhine; + path pri, seg; + cristhine = (0.7,0.2,0.1); + pri = (190.745,542.894) + ..controls (-21.9817,469.739) and (-35.7288,149.215)..(169.473,46.9001) + ..controls (203.509,29.9294) and (261.751,14.9561)..(241.091,28.488) + ..controls (235.013,32.4688) and (225.136,35.4543)..(218.045,35.4543) + ..controls (210.954,35.4543) and (205.636,38.3416)..(205.636,42.1907) + ..controls (205.636,45.9331) and (199.964,50.7207)..(192.873,52.9626) + ..controls (157.73,64.074) and (97.0095,141.109)..(88.1819,185.782) + ..controls (86.8718,192.412) and (79.418,204.218)..(71.6182,212.018) + ..controls (30.533,253.103) and (52.4727,390.784)..(107.073,434.51) + ..controls (120.545,445.3) and (134.623,456.592)..(138.982,460.106) + ..controls (249.847,549.474) and (392.385,487.146)..(396.601,347.455) + ..controls (399.211,260.945) and (310.803,199.291)..(243.218,240.488) + ..controls (169.171,285.624) and (192.873,397.589)..(275.836,394.576) + ..controls (292.854,393.958) and (301.647,396.098)..(297.818,399.927) + ..controls (277.624,420.121) and (219.781,399.927)..(198.293,365.182) + ..controls (176.806,330.436) and (180.511,267.381)..(204.927,252.293) + ..controls (209.182,249.664) and (210.954,244.411)..(208.827,240.736) + ..controls (206.643,236.964) and (208.827,234.78)..(213.791,235.773) + ..controls (218.754,236.765) and (222.811,233.645)..(223.009,228.682) + ..controls (223.205,223.792) and (232.582,215.05)..(243.927,209.182) + ..controls (257.4,202.213) and (261.923,201.602)..(257.045,207.409) + ..controls (251.161,214.414) and (258.818,216.273)..(293.563,216.273) + ..controls (331.854,216.273) and (428.556,261.651)..(392.836,262.857) + ..controls (389.247,262.978) and (391.418,266.928)..(397.8,271.885) + ..controls (425.167,293.14) and (438.433,372.273)..(421.643,414.109) + ..controls (417.375,424.745) and (418.774,426.598)..(428.291,422.907) + ..controls (445.229,416.34) and (442.224,426.873)..(416.436,464.455) + ..controls (386.156,508.584) and (312.709,544.39)..(259.527,540.949) + ..controls (248.182,540.215) and (233.878,542.32)..(227.618,545.646) + ..controls (221,549.161) and (205.636,548.015)..(190.745,542.894) + --cycle; + seg = (274.773,200.673) + ..controls (279.736,198.687) and (287.536,198.687)..(292.5,200.673) + ..controls (297.464,202.658) and (293.563,204.218)..(283.636,204.218) + ..controls (273.709,204.218) and (269.809,202.658)..(274.773,200.673) + --cycle; + drawoptions( withcolor cristhine ); + fill pri; + fill seg; + drawoptions( withpen pencircle scaled 1mm ); + draw pri; + draw seg; +endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/EBcrossed.mp b/Master/texmf-dist/doc/metapost/featpost/example/EBcrossed.mp new file mode 100644 index 00000000000..2bd1a0b0ded --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/EBcrossed.mp @@ -0,0 +1,57 @@ +% Crossed Electric and Magnetic fields +% L. Nobre G. +% 2002 + +% defaultfont := "putr8r"; +% defaultscale := 6.5; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +beginfig(1); + numeric inc, ind, tep, larg, altr, lene; + path efld, velv, arch, auxi; + picture bfld; + pair vpos, cent; + tep = 1cm; + larg = 4; + altr = 3; + lene = larg*tep; + bfld = btex $\times$ etex; +% bfld = thelabel("x",origin); + bfld := bfld shifted -(center bfld); + efld = origin--(lene,0); + for ind = 0 upto altr: + drawarrow efld shifted (0,ind*tep); + endfor; + auxi = efld shifted (0,tep); + for ind = 1 upto altr: + for inc = 1 step 2 until 2*larg: + label( bfld, (0.5*inc*tep,(ind-0.5)*tep) ); + endfor; + endfor; + vpos = (tep,0.5tep); + label.lft( btex $\vec{B}$ etex, (0.5tep,(altr-0.5)*tep) ); + label.lft( btex $\vec{E}$ etex, origin ); + label.top( btex $\vec{v}$ etex, vpos ); +% label.lft( "B", (0.5tep,(altr-0.5)*tep) ); +% label.lft( "E", origin ); +% label.top( "v", vpos ); + velv = vpos--((larg-1)*tep,(altr-0.5)*tep); + drawarrow velv; + cent = auxi intersectionpoint velv; + arch = ((fullcircle scaled (altr*tep*0.87)) shifted cent) cutafter velv; + draw arch; + label.rt( btex $\theta$ etex, point 0.5*length arch of arch ); +% label.rt( "T", point 0.5*length arch of arch ); +endfig; + +verbatimtex \end{document} etex + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/LED.mp b/Master/texmf-dist/doc/metapost/featpost/example/LED.mp new file mode 100644 index 00000000000..ef934bf3f12 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/LED.mp @@ -0,0 +1,76 @@ +% LED.mp +% L. Nobre G. +% 2009 + +prologues := 1; + +beginfig(1); + numeric u, hthick, vthick, lspace, espace, dspace, h, lbase, dbase; + numeric dinray, halfh, tp, scal, marg, dcorrection; + u = 1.5mm; + hthick = 20u; + vthick = 10u; +% lspace = 15u; + lspace = 8u; + espace = 8u; + dspace = 8u; + h = 3*vthick+2*espace; +% lbase = 38u; + lbase = 45u; +% dbase = 16u; + dbase = 19u; + halfh = h/2; + dinray = halfh-vthick; + tp = 1.15; + dcorrection = 1.3u; + scal = (h-vthick-espace)/h; + marg = 4u; + z200 = (marg,vthick+espace-marg); + path pathl, pathe, pathd, pathu; + z0 = (0,0); + z1 = (lbase,0); + z2 = (lbase,vthick); + z3 = (hthick,vthick); + z4 = (hthick,h); + z5 = (0,h); + pathl = z0--z1--z2--z3--z4--z5--cycle; + z6 = (lbase+lspace,0); + z7 = z6 + (h,0); + z8 = z7 + (0,vthick); + z9 = z6 + (vthick,vthick); + z10= z9 + (0,espace); + z11= z10+ (vthick,0); + z12= z10+ (vthick,vthick); + z13= z6 + (0,2*vthick+espace); + pathe = z6--z7--z8--z9--z10--z11--z12--z13--cycle; + z14= z7 + (dspace,0); + z15= z14+ (dbase,0); + z16= z15+ (halfh,halfh+dcorrection); + z17= z15+ (dcorrection,h); + z18= z14+ (0,h); + z19= z18- (0,vthick); + z20= z19+ (dbase,0); + z21= z20+ (dinray,-dinray); + z22= z15+ (0,vthick); + z23= z14+ (0,vthick); + pathd = z14---z15..z16..tension tp..z17---z18--z19---z20..tension tp..z21..z22---z23--cycle; + z24= z6 + (0,h); + z25= z24+ (h,0); + z26= z25- (0,vthick); + z27= z24- (0,vthick); + pathu = z24--z25--z26--z27--cycle; +% fill pathl withcolor 0.78red; +% fill pathe; +% fill pathd; +% fill pathu; +% dotlabels( 14,15,16,17,18,19,20,21,22,23 ); + z100 = (0,-2h); + drawoptions( shifted z100 ); + fill pathl withcolor 0.78red; + fill pathe shifted (-z6) scaled scal shifted z200; + fill pathd shifted (-z6) scaled scal shifted z200; + fill pathu shifted (-z6) scaled scal shifted z200; +endfig; + +end. + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/acoplanv.mp b/Master/texmf-dist/doc/metapost/featpost/example/acoplanv.mp new file mode 100644 index 00000000000..d29cc156826 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/acoplanv.mp @@ -0,0 +1,81 @@ +% acoplanv.mp +% L. Nobre G. +% 2003 + +verbatimtex +\documentclass{article} +\usepackage{mathpazo} +\begin{document} +etex + +beginfig(1); + numeric overallang, torsionang, u, curvfact; + u = 1mm; + overallang = -22; + torsionang = 40; + curvfact = 0.6; + numeric armsize, roundray, direcstep; + armsize = 25u; + roundray = 10u; + direcstep = 2.8u; + pair restaxedir, restdir, torsaxedir, torsdir; + restaxedir = dir( 90+overallang ); + restdir = dir( overallang ); + torsaxedir = dir( 90+overallang+torsionang ); + torsdir = dir( overallang+torsionang ); + numeric leng; + pair midpos; + pickup pencircle scaled 0.5u; + + drawoptions( withcolor 0.52white ); + for i=1.5*direcstep step direcstep until roundray: + leng := roundray +-+ i; + midpos := i*restaxedir; + draw (midpos-leng*restdir)--(midpos+leng*restdir); + midpos := -i*restaxedir; + draw (midpos-leng*restdir)--(midpos+leng*restdir); + endfor; + path minuslin, plusline; + plusline = (0.5*direcstep*restaxedir-armsize*restdir)-- + (0.5*direcstep*restaxedir+armsize*restdir); + minuslin = (-0.5*direcstep*restaxedir-armsize*restdir)-- + (-0.5*direcstep*restaxedir+armsize*restdir); + draw plusline; + draw minuslin; + + drawoptions( withcolor black ); + for i=1.5*direcstep step direcstep until roundray: + leng := roundray +-+ i; + midpos := i*torsaxedir; + draw (midpos-leng*torsdir)--(midpos+leng*torsdir); + midpos := -i*torsaxedir; + draw (midpos-leng*torsdir)--(midpos+leng*torsdir); + endfor; + path minuscur, pluscurv; + numeric curvheig; + curvheig = curvfact*armsize*sind( torsionang )/cosd( torsionang ); + leng := roundray +-+ (0.5*direcstep); + minuscur = ((-curvheig-0.5*direcstep)*restaxedir-armsize*restdir){restdir}.. + (-0.5*direcstep*torsaxedir-leng*torsdir)-- + (-0.5*direcstep*torsaxedir+leng*torsdir).. + {restdir}((curvheig-0.5*direcstep)*restaxedir+armsize*restdir); + pluscurv = ((-curvheig+0.5*direcstep)*restaxedir-armsize*restdir){restdir}.. + (0.5*direcstep*torsaxedir-leng*torsdir)-- + (0.5*direcstep*torsaxedir+leng*torsdir).. + {restdir}((curvheig+0.5*direcstep)*restaxedir+armsize*restdir); + draw minuscur; + draw pluscurv; + + drawoptions( withcolor red ); + path velbase; + for i=roundray+direcstep step direcstep until armsize: + velbase := (i*restdir)--(i*restdir+curvheig*restaxedir); + drawarrow velbase cutbefore plusline cutafter minuscur; + endfor; +endfig; + +verbatimtex +\end{document} +etex + +bye; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/allfigs.mp b/Master/texmf-dist/doc/metapost/featpost/example/allfigs.mp new file mode 100644 index 00000000000..bd214e2323e --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/allfigs.mp @@ -0,0 +1,68 @@ +% allfigs.mp +% L. Nobre G. +% 2001 + +verbatimtex +\documentclass{article} +\begin{document} +etex + +beginfig(0); + numeric u, i, j, s, as, bs, cs, ds; + pen pena, penb, penc, pend; + u = 1.5mm; + s = 7.1u; + as = 2u; + bs = 3u; + cs = 5u; + ds = 0.8u; + pena = pencircle scaled as; + penb = pencircle scaled bs; + penc = pencircle scaled cs; + pend = pencircle scaled ds; + linecap := squared; + for i=1 upto 4: + for j=1 upto 3: + draw ((i-1)*s,(j-1)*s)-- + ((i-1)*s,j*s)-- + (i*s,j*s)-- + (i*s,(j-1)*s)--cycle withcolor 0.7white; + endfor; + endfor; + z1 = (s,3s); + z2 = (3s,3s); + z3 = (4s,3s); + z4 = (0,0); + z5 = (1s,2s); + z6 = (2s,2s); + z7 = (3s,2s); + z8 = (1s,1s); + z9 = (2s,1s); + linecap := rounded; + pickup pena; + draw z1; + draw z2; + pickup penb; + draw z3; + pickup penc; + draw z4; + pickup pend; + for i=5 upto 9: + draw z[i]; + endfor; + label.urt(btex 1 kg etex, z1); + label.urt(btex 1 kg etex, z2); + label.rt(btex 2 kg etex, z3+(bs/2,0)); + label.urt(btex 8 kg etex, z4+(0,cs/2)); + label.urt(btex A etex, z5); + label.urt(btex B etex, z6); + label.urt(btex C etex, z7); + label.urt(btex D etex, z8); + label.urt(btex E etex, z9); +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/allgreatideas.mp b/Master/texmf-dist/doc/metapost/featpost/example/allgreatideas.mp new file mode 100644 index 00000000000..1a0cb083196 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/allgreatideas.mp @@ -0,0 +1,166 @@ +% allgreatideas.mp +% L. Nobre G. +% 2007 + +verbatimtex +\documentclass{article} +\usepackage{palatino,marvosym} +\begin{document} +etex + +path evilcrown; +evilcrown = +(153.18465,-56.69263)..controls (190.86575,-56.57867) and (190.82774,0) + ..(153.07059,0)..controls (152.44896,3.93404) and (151.82733,7.86807) + ..(151.2057,11.80211)..controls (151.18675,11.92209) and (151.1577,12.10594) + ..(151.1842,12.11972)..controls (154.27016,13.72318) and (157.32425,15.3877) + ..(160.34335,17.11494)..controls (165.81866,20.24739) and (171.17494,23.58395) + ..(176.38683,27.13756)..controls (181.43541,30.5798) and (186.34438,34.22295) + ..(191.08667,38.0763)..controls (195.67404,41.80377) and (200.1013,45.72461) + ..(204.33633,49.84808)..controls (208.429,53.83293) and (212.33783,58.00284) + ..(216.02922,62.36209)..controls (219.59828,66.57689) and (222.95978,70.96365) + ..(226.0778,75.52231)..controls (229.09842,79.93854) and (231.8863,84.51001) + ..(234.40594,89.2301)..controls (236.85533,93.81862) and (239.0473,98.54037) + ..(240.94894,103.38168)..controls (242.80696,108.11192) and (244.38446,112.94789) + ..(245.6573,117.86803)..controls (246.90929,122.70755) and (247.86414,127.61938) + ..(248.5006,132.57758)..controls (249.13164,137.49362) and (249.44836,142.44493) + ..(249.44836,147.4013)..controls (249.44836,152.35768) and (249.13164,157.30899) + ..(248.5006,162.22504)..controls (247.86414,167.18323) and (246.9093,172.09506) + ..(245.6573,176.93459)..controls (244.38446,181.85472) and (242.80696,186.69069) + ..(240.94894,191.42093)..controls (239.0473,196.26224) and (236.85533,200.984) + ..(234.40594,205.57251)..controls (231.8863,210.2926) and (229.09842,214.86407) + ..(226.0778,219.2803)..controls (222.95978,223.83896) and (219.59828,228.22572) + ..(216.02922,232.44052)..controls (212.33783,236.79977) and (208.429,240.96968) + ..(204.33633,244.95453)..controls (200.10129,249.078) and (195.67404,252.99884) + ..(191.08667,256.72632)..controls (221.70206,191.55792) and (196.61552,121.88226) + ..(141.23656,76.86674)..controls (141.1039,76.75891) and (140.91652,76.91801) + ..(140.87842,77.15913)..controls (129.05978,151.95451) and (117.24117,226.74988) + ..(105.42253,301.54526)..controls (89.43553,212.92584) and (73.44852,124.30644) + ..(57.46152,35.68703)..controls (57.4327,35.52724) and (57.35529,35.3694) + ..(57.2022,35.33107)..controls (53.45178,34.39197) and (49.65408,33.54193) + ..(45.81209,32.78442)..controls (45.75635,32.77344) and (45.69954,33.12679) + ..(45.65913,33.3782)..controls (30.43942,128.07872) and (15.21971,222.77922) + ..(0,317.47974)..controls (-15.23506,222.68375) and (-30.47012,127.88777) + ..(-45.70518,33.09178)..controls (-45.75298,32.79448) and (-46.14847,32.85071) + ..(-46.49614,32.92035)..controls (-50.0591,33.634) and (-53.58371,34.42728) + ..(-57.06757,35.2974)..controls (-57.34285,35.36615) and (-57.45767,35.66574) + ..(-57.50981,35.95477)..controls (-73.48071,124.48494) and (-89.45163,213.01509) + ..(-105.42253,301.54526)..controls (-117.2524,226.67888) and (-129.08224,151.81252) + ..(-140.91211,76.94614)..controls (-140.93776,76.78383) and (-141.17343,76.81525) + ..(-141.36346,76.96997)..controls (-196.57445,121.92412) and (-221.60674,191.40785) + ..(-191.21811,256.4458)..controls (-191.15338,256.58432) and (-191.08727,256.72585) + ..(-191.10054,256.71506)..controls (-195.68295,252.99094) and (-200.10558,249.07385) + ..(-204.33633,244.95453)..controls (-208.429,240.96968) and (-212.33783,236.79977) + ..(-216.02922,232.44052)..controls (-219.59828,228.22572) and (-222.95978,223.83896) + ..(-226.0778,219.2803)..controls (-229.09842,214.86407) and (-231.8863,210.2926) + ..(-234.40594,205.57251)..controls (-236.85533,200.984) and (-239.0473,196.26224) + ..(-240.94894,191.42093)..controls (-242.80696,186.69069) and (-244.38446,181.85472) + ..(-245.6573,176.93459)..controls (-246.90929,172.09506) and (-247.86414,167.18323) + ..(-248.5006,162.22504)..controls (-249.13164,157.30899) and (-249.44836,152.35768) + ..(-249.44836,147.4013)..controls (-249.44836,142.44493) and (-249.13164,137.49362) + ..(-248.5006,132.57758)..controls (-247.86414,127.61938) and (-246.9093,122.70755) + ..(-245.6573,117.86803)..controls (-244.38446,112.94789) and (-242.80696,108.11192) + ..(-240.94894,103.38168)..controls (-239.0473,98.54037) and (-236.85533,93.81862) + ..(-234.40594,89.2301)..controls (-231.8863,84.51001) and (-229.09842,79.93854) + ..(-226.0778,75.52231)..controls (-222.95978,70.96365) and (-219.59828,66.57689) + ..(-216.02922,62.36209)..controls (-212.33783,58.00284) and (-208.429,53.83293) + ..(-204.33633,49.84808)..controls (-200.10129,45.72461) and (-195.67404,41.80377) + ..(-191.08667,38.0763)..controls (-186.34438,34.22295) and (-181.43541,30.5798) + ..(-176.38683,27.13756)..controls (-171.17494,23.58395) and (-165.81866,20.2474) + ..(-160.34335,17.11494)..controls (-157.3213,15.386) and (-154.26416,13.71991) + ..(-151.17513,12.115)..controls (-151.1577,12.10596) and (-151.16463,12.06212) + ..(-151.16982,12.0293)..controls (-151.8034,8.01953) and (-152.437,4.00977) + ..(-153.07059,0)..controls (-190.8658,0) and (-190.8658,-56.69281) + ..(-153.07059,-56.69281)..controls (-51.1263,-56.69281) and (50.818,-56.69281) + ..(152.76228,-56.69281)..controls (152.90308,-56.69281) and (153.12411,-56.69281) + ..cycle; + +path foimar, monitor, ecran; +foimar= +(-0.00192,-12.55074)..controls (-0.64168,-11.78833) and (-1.28142,-11.02591) + ..(-1.92117,-10.2635)..controls (-7.51778,-14.95969) and (-13.11438,-19.65587) + ..(-18.71098,-24.35205)..controls (-17.00328,-26.38718) and (-15.29556,-28.42232) + ..(-13.58786,-30.45744)..controls (-12.30708,-31.98378) and (-12.30708,-31.98378) + ..(-2.1138,-28.6326)..controls (-3.95111,-27.57187) and (-6.11067,-26.96915) + ..(-7.48247,-25.33434)..controls (-3.921,-22.34586) and (-0.35953,-19.35738) + ..(3.20195,-16.3689)..controls (11.91702,-25.94652) and (23.26077,-25.99902) + ..(31.85223,-20.78899)..controls (31.89467,-20.76324) and (31.94853,-20.76074) + ..(31.98587,-20.79207)..controls (36.66202,-24.71588) and (41.33817,-28.6397) + ..(46.01431,-32.5635)..controls (47.72202,-30.52838) and (49.42972,-28.49324) + ..(51.13742,-26.45813)..controls (46.8044,-22.82224) and (42.47137,-19.18634) + ..(38.13835,-15.55045)..controls (38.10356,-15.52124) and (38.13104,-15.47006) + ..(38.16563,-15.42989)..controls (49.17552,-2.64243) and (48.7403,21.25578) + ..(12.84161,37.23851)..controls (42.09344,20.35042) and (41.44891,0.09486) + ..(31.70877,-10.05847)..controls (31.67998,-10.08849) and (31.63301,-10.09172) + ..(31.60129,-10.06511)..controls (23.35864,-3.1486) and (15.11601,3.7679) + ..(6.87337,10.68442)..controls (8.36761,12.46516) and (9.86185,14.2459) + ..(11.3561,16.02664)..controls (1.80319,20.141) and (1.80319,20.141) + ..(-0.75836,17.0883)..controls (-1.26715,17.51523) and (-1.77594,17.94215) + ..(-2.28471,18.36908)..controls (-3.99242,16.33397) and (-5.70012,14.29883) + ..(-7.40782,12.2637)..controls (-6.89905,11.83678) and (-6.39026,11.40985) + ..(-5.88147,10.98293)..controls (-7.16225,9.45657) and (-8.44302,7.93024) + ..(-9.7238,6.40388)..controls (-7.18245,4.27141) and (-4.64111,2.13893) + ..(-2.09976,0.00645)..controls (-2.09598,0.00328) and (-2.09096,0.00133) + ..(-2.08818,0.00462)..controls (-0.8087,1.52943) and (0.47078,3.05423) + ..(1.75026,4.57904)..controls (9.45714,-1.88791) and (17.16402,-8.35486) + ..(24.8709,-14.82181)..controls (24.88516,-14.83379) and (24.88658,-14.85393) + ..(24.87306,-14.85988)..controls (17.92508,-17.91718) and (9.47896,-17.05374) + ..(3.05269,-9.99147)..controls (2.03615,-10.84447) and (1.0196,-11.69746) + ..(0.00307,-12.55046)..controls (0.0015,-12.55177) and (-0.00072,-12.55217) + ..cycle; +monitor = +(24.90654,-57.06877)..controls (37.60521,-57.06877) and (50.3039,-57.06877) + ..(63.00256,-57.06877)..controls (68.00955,-57.06877) and (72.06851,-53.00981) + ..(72.06851,-48.00282)..controls (72.06851,-16.00095) and (72.06851,16.00095) + ..(72.06851,48.00282)..controls (72.06851,53.00981) and (68.00955,57.06877) + ..(63.00256,57.06877)..controls (21.00085,57.06877) and (-21.00085,57.06877) + ..(-63.00256,57.06877)..controls (-68.00955,57.06877) and (-72.06851,53.00981) + ..(-72.06851,48.00282)..controls (-72.06851,16.00095) and (-72.06851,-16.00095) + ..(-72.06851,-48.00282)..controls (-72.06851,-53.00981) and (-68.00955,-57.06877) + ..(-63.00256,-57.06877)..controls (-50.3039,-57.06877) and (-37.60521,-57.06877) + ..(-24.90654,-57.06877)..controls (-24.90654,-62.05008) and (-24.90654,-67.03139) + ..(-24.90654,-72.0127)..controls (-75.71588,-74.00522) and (-75.71588,-74.00522) + ..(-77.7084,-90.89185)..controls (-61.76822,-90.89185) and (-45.82803,-90.89185) + ..(-29.88785,-90.89185)..controls (-29.59856,-89.94563) and (-11.30861,-89.9454) + ..(0,-89.9454)..controls (11.30861,-89.9454) and (29.59856,-89.94563) + ..(29.88785,-90.89185)..controls (45.82803,-90.89185) and (61.76822,-90.89185) + ..(77.7084,-90.89185)..controls (75.71588,-74.00522) and (75.71588,-74.00522) + ..(24.90654,-72.0127)..controls (24.90654,-67.03139) and (24.90654,-62.05008) + ..cycle; +ecran = +(-59.11711,-44.11737)..controls (-19.7057,-44.11737) and (19.7057,-44.11737) + ..(59.11711,-44.11737)..controls (59.11711,-14.7058) and (59.11711,14.7058) + ..(59.11711,44.11737)..controls (19.7057,44.11737) and (-19.7057,44.11737) + ..(-59.11711,44.11737)..controls (-59.11711,14.7058) and (-59.11711,-14.7058) + ..cycle; + + +beginfig(1); + picture topl, botl, rtil, aux; + numeric margbo, lscale, escale, fscale, dscale, i; + margbo = 80mm; + lscale = 8.5; + escale = lscale*0.05; + dscale = lscale*2; + topl = thelabel(btex All great ideas end--up being etex, origin) + scaled lscale; + botl = thelabel(btex distorted by Human Nature etex, origin) scaled lscale; + rtil = thelabel(btex \EyesDollar etex, origin ) scaled dscale; + draw (evilcrown shifted -center evilcrown) scaled escale + shifted ((-1.02,-0.05)*margbo); + draw foimar shifted (-4mm,0); + draw monitor; + draw ecran; + draw rtil shifted ((0.8,-0.05)*margbo); + aux = currentpicture; + currentpicture:=nullpicture; + draw aux scaled 1.93 shifted (0.45*margbo,0); + draw topl shifted (0,0.85*margbo); + draw botl shifted (0,-1.08margbo); +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/avalzero.mp b/Master/texmf-dist/doc/metapost/featpost/example/avalzero.mp new file mode 100644 index 00000000000..28ff2753914 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/avalzero.mp @@ -0,0 +1,85 @@ +% avalzero.mp +% L. Nobre G. +% 1999 + +verbatimtex \documentclass{article} \usepackage{palatino} \usepackage{concmath} \usepackage{ccfonts} \begin{document} etex + +beginfig(1); % crescente + numeric u; + u = 1in; + draw fullcircle scaled 2u; + draw (left--right) scaled u; + draw (down--up) scaled u; + draw (left--up) scaled u; + draw (left--down) scaled u; + path int, cresc, out; + int = halfcircle rotated -90 scaled (2*1.414u) shifted ((-0.999,0)*u); + out = halfcircle rotated -90 scaled 2u; + cresc = buildcycle( int, reverse out ); + fill cresc withcolor 0.5white; + draw cresc withpen pencircle scaled 1pt; +endfig; + +beginfig(2); % trapezio + numeric u, ind, esq[], rig[], h[], ch; + pair hlab[]; + u = 0.55in; + ch = 0; + for ind=0 upto 4: + esq[ind] = -abs(((normaldeviate)-1.5)*u); + rig[ind] = abs(((normaldeviate)+1.5)*u); + h[ind] = (abs((normaldeviate)+0.25)*u/4)+2mm+ch; + ch := ch+h[ind]; + endfor; + draw (esq0,h0)--(rig0,h0); + for ind=1 upto 4: + draw (esq[ind-1],h[ind-1])--(esq[ind],h[ind]); + draw (rig[ind-1],h[ind-1])--(rig[ind],h[ind]); + draw ((esq[ind],h[ind])--(rig[ind],h[ind])) dashed evenly; + hlab[ind] = (0,(h[ind]+h[ind-1])/2); + endfor; + draw (esq4,h4)--(rig4,h4); + draw ((0,h0)--(0,h4)) dashed evenly; + label.rt( btex $h_1$ etex, hlab1 ); + label.rt( btex $h_2$ etex, hlab2 ); + label.rt( btex $h_3$ etex, hlab3 ); + label.rt( btex $h_4$ etex, hlab4 ); + label.top( btex $l_0$ etex, ((rig0+esq0)/2,h0) ); + label.top( btex $l_1$ etex, ((rig1+esq1)/2,h1) ); + label.top( btex $l_2$ etex, ((rig2+esq2)/2,h2) ); + label.top( btex $l_3$ etex, ((rig3+esq3)/2,h3) ); + label.top( btex $l_4$ etex, ((rig4+esq4)/2,h4) ); +endfig; + +beginfig(3); % olimpiad + numeric u; + u=1in; + path squr, arcir, vert, horiz, area; + squr = unitsquare scaled u; + arcir = halfcircle scaled 2u; + vert = (origin--up) scaled u shifted (u/2,0); + horiz = (origin--right) scaled u shifted (0,u/2);\ + area = buildcycle( vert, arcir, horiz ); + fill area withcolor 0.5white; + draw area withpen pencircle scaled 1pt; + draw squr; + draw arcir cutafter squr; + draw vert; + draw horiz; +endfig; + +beginfig(4); % ortoproj + numeric u; + u=1in; + draw unitsquare scaled u; + path one, two; + one = (0.5,0)--(0.5,0.5)--(1,1); + two = (0,1)--(0.5,0.5); + draw one scaled u; + draw two scaled u; + draw currentpicture shifted (0,1.5u); +endfig; + +verbatimtex \end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/badshreeyantra.mp b/Master/texmf-dist/doc/metapost/featpost/example/badshreeyantra.mp new file mode 100644 index 00000000000..38e3f38432b --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/badshreeyantra.mp @@ -0,0 +1,73 @@ +% badshreeyantra.mp +% L. Nobre G. +% 2009 + +prologues := 1; + +beginfig(1); + numeric u, pA, pB, pC, pD; + u = 5cm; + path outercircle; + outercircle = fullcircle scaled (2*u); + draw outercircle; + pA = 0.8; + pB = 0.3; + pC = -0.2; + pD = 0.37; +% message "pA: " & decimal(pA); +% message "pB: " & decimal(pB); +% message "pC: " & decimal(pC); +% message "pD: " & decimal(pD); + pA := pA*u; + pB := pB*u; + pC := pC*u; + pD := pD*u; + z1 = (pD,pA); + z2 = (-pD,pA); + z3 = (0,pC); + draw z1--z2--z3--cycle; + z4 = ((-u,pB)--(u,pB)) intersectionpoint outercircle; + z5 = (-x4,pB); + z6 = (0,-u); + draw z4--z5--z6--cycle; + z7 = (pD,-pA); + z8 = (-pD,-pA); + z9 = (0,pB); + draw z7--z8--z9--cycle; + z10 = (x4,-pB); + z11 = (-x4,-pB); + z12 = (0,u); + draw z10--z11--z12--cycle; + z13 = (z10--z12) intersectionpoint (z1--z3); + z14 = (z10--z12) intersectionpoint (z4--z5); + z16 = (0,-pA); + z17 = (-x13,y13); + z15 = whatever[z17,z13]; + z15 = whatever[z16,z14]; + z18 = (-x15,y15); + draw z15--z16--z18--cycle; + z19 = (0,pA); + z20 = (x15,-y15); + z21 = (-x15,-y15); + draw z19--z20--z21--cycle; + z22 = (z3--(u,pC)) intersectionpoint (z14--z16); + z23 = (-x22,y22); + z24 = (0,y13); + draw z22--z23--z24--cycle; + z25 = (0,-y15); + z26 = (z3--z1) intersectionpoint (z22--z24); + z27 = (-x26,y26); + z28 = whatever[z19,z20]; + z28 = whatever[z26,z27]; + z29 = (-x28,y28); + draw z25--z28--z29--cycle; + z30 = (0,y10); + z31 = (z7--z9) intersectionpoint (z1--z3); + z32 = (-x31,y31); + z33 = whatever[z31,z32]; + z33 = whatever[z22,z24]; + z34 = (-x33,y33); + draw z30--z33--z34--cycle; +% dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34); +endfig; +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/balllauncher.mp b/Master/texmf-dist/doc/metapost/featpost/example/balllauncher.mp new file mode 100644 index 00000000000..c585a52cc43 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/balllauncher.mp @@ -0,0 +1,76 @@ +% balllauncher.mp +% L. Nobre G. +% 2007 + +prologues := 1; + +beginfig(1); + numeric tlen, thig, plen, phig, llen, lhig, pray, sray, wray, lray; + numeric u, gmar, lang, hlen, rlen, pmal, pmah, aray, alim, aste, alen; + pen basepen, outerpen; + picture mydash; + u = 2.5mm; + basepen = pencircle scaled 0.35u; + outerpen = pencircle scaled 1.1u; + mydash = dashpattern( off 1.5u on 1.2u off 1.5u); + pickup basepen; + gmar = 0.65u; % margem de bordadura + lang = 35; % angulo do lancador + hlen = 70u; % comprimento da linha horizontal + tlen = 80u; % comprimento da tabua + thig = 6u; % altura da tabua + plen = 60u; % comprimento da placa + phig = 35u; % altura da placa + pmal = 20u; % parte da placa que fica em cima da tabua + pmah = 15u; % parte da placa que fica abaixo da horizontal + llen = 60u; % comprimento da lancador (na inclinacao zero) + lhig = 12u; % altura do lancador (na inclinacao zero) + pray = 2u; % raio dos cantos arredondados da placa + sray = 2.7u; % raio da marca da esfera no lancador + wray = 1u; % raio do peso de marcacao do angulo + lray = 3u; % raio da ponta do gatilho do lancador + rlen = 20u; % comprimento da cordinha que segura o peso de marcacao + alim = 45; % angulo limite do tansferidor + aste = 5; % divisao da escala do transferidor + alen = 0.9u; % comprimento das marcas da escala do transferidor + aray = lhig-4*gmar; % raio do transferidor + path t, p, a, lo, li, sp; + li = (aray+3*gmar-llen,-gmar)--(aray+gmar,-gmar)-- + (aray+gmar,lhig-3*gmar)--(aray+3*gmar-llen,lhig-3*gmar)--cycle; + lo = (aray+2*gmar-llen,-2*gmar)--(aray+2*gmar,-2*gmar)-- + (aray+2*gmar,lhig-2*gmar)--(aray+2*gmar-llen,lhig-2*gmar)--cycle; + t = origin--(tlen,0)--(tlen,-thig)--(0,-thig)--cycle; + p = origin--(pmal,0)---(pmal,phig-pmah-pray)...(pmal-pray,phig-pmah)--- + (pmal-plen+pray,phig-pmah)...(pmal-plen,phig-pmah-pray)--- + (pmal-plen,pray-pmah)...(pmal-plen+pray,-pmah)--- + (-pray,-pmah)...(0,pray-pmah)---cycle; + a = buildcycle( fullcircle rotated (-10), dir(90+alim)--origin--right ); + numeric auxa, auxb, aucc; + auxa = aray+5*gmar-llen+sray; + auxb = 0.5*lhig-2*gmar; + z0 = (auxa,auxb); + sp = fullcircle scaled (2*sray) shifted z0; + unfill lo; + draw lo; + fill li; + unfill sp; + unfill a scaled (2*aray); + numeric i; + for i=aste step aste until alim-aste+90: + draw (aray-gmar)*dir(i)--(aray-gmar-alen)*dir(i); + endfor; + z1 = rlen*dir(90-lang); + draw origin--z1; + fill fullcircle scaled (2*wray) shifted z1; + picture tmppicture; + tmppicture = currentpicture; + currentpicture := nullpicture; + draw t; + fill p; + draw tmppicture rotatedaround (z0,180+lang) + shifted ((-0.5*(plen-pmal),sray)-z0); + undraw origin--(-hlen,0) dashed mydash withpen outerpen; + draw origin--(-hlen,0) dashed mydash withpen basepen; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/borderframetest.mp b/Master/texmf-dist/doc/metapost/featpost/example/borderframetest.mp deleted file mode 100644 index 4d81af39d76..00000000000 --- a/Master/texmf-dist/doc/metapost/featpost/example/borderframetest.mp +++ /dev/null @@ -1,28 +0,0 @@ -% borderframetest.mp -% L. Nobre G. -% 2003 - -input featpost3Dplus2D; - -beginfig(0); - Spread := 45; - - numeric theframefrach, theframefracw, Shifts; - path theframebord; - Shifts := 105mm; - theframefrach = 0.2927; - theframefracw = 0.39; - z1 = Shifts*(1-theframefracw,1-theframefrach); - z2 = Shifts*(1+theframefracw,1-theframefrach); - z3 = Shifts*(1+theframefracw,1+theframefrach); - z4 = Shifts*(1-theframefracw,1+theframefrach); - theframebord = z1--z2--z3--z4--cycle; - show z1; - show z2; - show z3; - show z4; - draw theframebord withcolor background withpen pencircle scaled 0; - clip currentpicture to theframebord; -endfig; - -end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/buildcyclebug.mp b/Master/texmf-dist/doc/metapost/featpost/example/buildcyclebug.mp new file mode 100644 index 00000000000..4f2a2cfe9d5 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/buildcyclebug.mp @@ -0,0 +1,203 @@ +% buildcyclebug.mp +% L. Nobre G. +% 2006 + +beginfig(1); + numeric squaregridstep, i, j, rotationanglestep, u, nx, ny; + numeric rotationangle, horishift; + path leftcirc, righcirc, basecirc; + pen markpen; + pair shiftvect; + markpen = pencircle scaled 3pt; + u = 10mm; + squaregridstep = 2.1u; + rotationanglestep = 5.5; + + nx = floor( 21cm / ( squaregridstep+1 ) ); + ny = 2*floor( 29cm / ( squaregridstep+1 ) ); + basecirc = fullcircle scaled u; + for i=1 upto nx: + horishift := (i/nx)*0.45u; + for j=1 upto ny: + rotationangle := j*rotationanglestep; + shiftvect := squaregridstep*(i,0.5*j); + leftcirc := basecirc rotated (2*rotationangle) + shifted ( shiftvect+horishift*left ); + righcirc := basecirc rotated rotationangle + shifted ( shiftvect+horishift*right ); + draw leftcirc withcolor 0.3white; + draw righcirc withcolor 0.3white; + draw buildcycle( leftcirc, reverse righcirc ) withcolor blue; + draw point 0 of leftcirc withpen markpen; + draw point 0 of righcirc withpen markpen; + endfor; + endfor; +endfig; + +beginfig(2); + path a, b, c; + a = (159.49368,290.7048)..controls (159.29092,291.94003) + and (158.9775,293.15451) + ..(158.55756,294.33372)..controls (158.13393,295.5233) + and (157.60364,296.6721) + ..(156.97446,297.76695)..controls (156.33871,298.87321) + and (155.6046,299.9199) + ..(154.78215,300.89539)..controls (153.9502,301.88214) + and (153.03125,302.79204) + ..(152.03786,303.61603)..controls (151.0325,304.44995) + and (149.95486,305.19261) + ..(148.81863,305.83694)..controls (147.66982,306.48843) + and (146.46558,307.03687) + ..(145.22061,307.47765)..controls (143.96362,307.92268) + and (142.66995,308.25626) + ..(141.3548,308.47633)..controls (140.03023,308.698) + and (138.68887,308.8037) + ..(137.34593,308.79295)..controls (135.99751,308.78217) + and (134.65259,308.65404) + ..(133.32639,308.40996)..controls (131.99881,308.16563) + and (130.69505,307.80605) + ..(129.43005,307.33498)..controls (128.16791,306.86497) + and (126.94911,306.28574) + ..(125.78854,305.60234)..controls (124.63374,304.92235) + and (123.5411,304.14188) + ..(122.5243,303.26889)..controls (121.51508,302.4024) + and (120.58455,301.44818) + ..(119.74568,300.41588)..controls (118.91405,299.39249) + and (118.17587,298.29651) + ..(117.54193,297.1402)..controls (116.91396,295.99477) + and (116.39084,294.79483) + ..(115.98134,293.55438)..controls (115.57558,292.32524) + and (115.28311,291.06154) + ..(115.10854,289.77898)..controls (114.93536,288.5067) + and (114.87895,287.22122) + ..(114.94107,285.93872)..controls (115.0028,284.66422) + and (115.18134,283.39806) + ..(115.47398,282.15607)..controls (115.76532,280.91968) + and (116.16852,279.71237) + ..(116.67828,278.54889)..controls (117.18674,277.38843) + and (117.79907,276.27635) + ..(118.50629,275.22514)..controls (119.21288,274.17487) + and (120.01135,273.18947) + ..(120.89124,272.27943)..controls (121.77103,271.3695) + and (122.72879,270.53844) + ..(123.75226,269.79378)..controls (124.77632,269.04868) + and (125.86238,268.39284) + ..(126.9978,267.83188)..controls (128.13411,267.27048) + and (129.3158,266.80612) + ..(130.52983,266.44218)..controls (131.74399,266.07822) + and (132.98631,265.81592) + ..(134.24382,265.65674)..controls (135.50044,265.49768) + and (136.76797,265.44212) + ..(138.03372,265.49004)..controls (139.29755,265.53787) + and (140.55539,265.68869) + ..(141.79463,265.94131)..controls (143.03053,266.19325) + and (144.24384,266.54561) + ..(145.42241,266.99493)..controls (146.59683,267.44267) + and (147.73291,267.98524) + ..(148.81863,268.61847)..controls (149.90009,269.24919) + and (150.9279,269.96771) + ..(151.89061,270.76805)..controls (152.8493,271.56505) + and (153.74008,272.44041) + ..(154.5525,273.38608)..controls (155.36205,274.32838) + and (156.09094,275.33714) + ..(156.72955,276.40274)..controls (157.36655,277.46562) + and (157.91138,278.58112) + ..(158.35652,279.73755)..controls (158.8012,280.89273) + and (159.14471,282.08438) + ..(159.38153,283.29933)..controls (159.6187,284.51605) + and (159.74791,285.75134) + ..(159.7672,286.99081)..controls (159.78654,288.23448) + and (159.69516,289.47742) + ..cycle; + b = (164.69388,283.76816)..controls (164.45602,285.2755) + and (164.0816,286.75807) + ..(163.57579,288.19778)..controls (163.06467,289.6526) + and (162.42154,291.05757) + ..(161.65623,292.39624)..controls (160.8809,293.75246) + and (159.9834,295.03499) + ..(158.97679,296.22963)..controls (157.95538,297.44182) + and (156.82588,298.55852) + ..(155.6046,299.56902)..controls (154.36432,300.59523) + and (153.03438,301.50781) + ..(151.63235,302.29881)..controls (150.2098,303.1014) + and (148.71864,303.77567) + ..(147.17755,304.31679)..controls (145.61667,304.86487) + and (144.01057,305.27425) + ..(142.37828,305.54321)..controls (140.73018,305.81479) + and (139.06157,305.9422) + ..(137.39133,305.92545)..controls (135.71124,305.9086) + and (134.03581,305.74596) + ..(132.38377,305.43983)..controls (130.7291,305.13322) + and (129.1041,304.68382) + ..(127.52728,304.09592)..controls (125.95447,303.5095) + and (124.43553,302.7875) + ..(122.98894,301.93604)..controls (121.55147,301.08994) + and (120.191,300.11926) + ..(118.92514,299.03305)..controls (117.6715,297.95732) + and (116.51561,296.77249) + ..(115.47398,295.49034)..controls (114.44432,294.22292) + and (113.53049,292.86551) + ..(112.74724,291.43265)..controls (111.97365,290.01747) + and (111.3307,288.5346) + ..(110.82997,287.0015)..controls (110.33537,285.48715) + and (109.98169,283.9303) + ..(109.77559,282.35062)..controls (109.5717,280.78786) + and (109.51315,279.20952) + ..(109.6024,277.63603)..controls (109.69093,276.07535) + and (109.9245,274.52629) + ..(110.29973,273.0088)..controls (110.67278,271.50015) + and (111.18423,270.02914) + ..(111.82713,268.61427)..controls (112.46806,267.20374) + and (113.23691,265.855) + ..(114.12129,264.5829)..controls (115.0049,263.31194) + and (116.0003,262.12254) + ..(117.09409,261.02722)..controls (118.18842,259.93134) + and (119.37697,258.93388) + ..(120.64404,258.04337)..controls (121.91309,257.15147) + and (123.25624,256.37012) + ..(124.65749,255.70496)..controls (126.06084,255.03879) + and (127.51752,254.49147) + ..(129.01158,254.06616)..controls (130.50682,253.64052) + and (132.03445,253.3385) + ..(133.57892,253.16093)..controls (135.1232,252.9834) + and (136.6793,252.93085) + ..(138.23209,253.003)..controls (139.78247,253.07506) + and (141.32457,253.27116) + ..(142.84367,253.58932)..controls (144.35844,253.90657) + and (145.84552,254.34416) + ..(147.29047,254.89853)..controls (148.72931,255.45056) + and (150.1218,256.11664) + ..(151.45383,256.89171)..controls (152.77919,257.66292) + and (154.0404,258.53955) + ..(155.22351,259.51508)..controls (156.4003,260.4854) + and (157.49585,261.55034) + ..(158.4969,262.70111)..controls (159.49316,263.84637) + and (160.39235,265.07266) + ..(161.18283,266.36856)..controls (161.97006,267.65913) + and (162.64664,269.01411) + ..(163.20195,270.42015)..controls (163.75612,271.82329) + and (164.18744,273.27196) + ..(164.48865,274.75021)..controls (164.7901,276.22968) + and (164.96005,277.73294) + ..(164.99524,279.2424)..controls (165.03055,280.75697) + and (164.93001,282.27168) + ..cycle; + draw a; + draw b; + c = buildcycle( b, a ); + show c; + draw c withcolor green; + + pair sh, si; + numeric sc; + sh = (-150,-285); + si = (-150,-290); + sc = 10; + draw a shifted sh scaled sc; + draw b shifted si scaled sc; + c := buildcycle( a shifted sh scaled sc, b shifted si scaled sc ); + draw c withcolor green; +endfig; + +end. + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/canschemes.mp b/Master/texmf-dist/doc/metapost/featpost/example/canschemes.mp new file mode 100644 index 00000000000..1a963311da7 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/canschemes.mp @@ -0,0 +1,159 @@ +input boxes; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +defaultfont:="cmssu30"; + +beginfig(1); + numeric ymax, xmax, ymed,ylow; + ymax = 2in; + xmax = 3in; + ymed = 1.25in; + ylow = 0.2in; + z1 = (xmax,0); + z2 = (xmax,ymed); + z5 = (xmax,ymax); + z3 = z2+0.4*(z5-z2); + z4 = z2+0.7*(z5-z2); + z7 = (0,ymax); + z6 = z5+0.7*(z7-z5); + z9 = (0,ymed); + z8 = z7+0.8*(z9-z7); + z10= z9+0.5*(origin-z9); + z11= (xmax/12,ymed); + z13= (xmax/3,ymed); + z14= (5*xmax/12,ymed); + z15= (7*xmax/12,0.8*ymed); + z16= (7*xmax/12,0.6*ymed); + z17= (3*xmax/4,ymed); + z18= (5*xmax/6,ymed); + path a,b,c,d; + a = z6{down}..z14..z15..z17..z4; + b = z9--z2; + c = z10..{right}z13..z2; + d = z8..z11..z16..z18..z3; + z12 = c intersectionpoint d; + pickup pencircle scaled 2pt; + draw origin--z1--z5--z7--cycle; + draw a; + draw b; + draw c; + draw d; +% dotlabels.urt(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18); + label.top(btex $h^-_{I\! I}$ etex,z15); + label.bot(btex $h^+_{I\! I}$ etex,z16); + label.lrt(btex $h_{I}$ etex,z10); + label.urt(btex $h_0$ etex,(x12,ymed)); + label.bot(btex $K_3/K_1$ etex,0.5*(z1-origin)); + label.lft(btex $h$ etex,0.5*(z7-origin)); + pickup pencircle scaled 0pt; + draw (x11,0)--(x11,ymax); + draw (x12,0)--(x12,ymax); + draw (x13,0)--(x13,ymax); + draw (x14,0)--(x14,ymax); + draw (x17,0)--(x17,ymax); + draw (x18,0)--(x18,ymax); + label(btex $C_1$ etex,((x7+x11)/2,ylow)); + label(btex $C_3$ etex,((x12+x11)/2,ylow)); + label(btex $C_2$ etex,((x13+x12)/2,ylow)); + label(btex $B$ etex,((x14+x13)/2,ylow)); + label(btex $A_1$ etex,((x17+x14)/2,ylow)); + label(btex $B$ etex,((x18+x17)/2,ylow)); + label(btex $A_2$ etex,((x1+x18)/2,ylow)); +endfig; + +beginfig(2); + numeric ymax, xmax, i, j, noise, twist, grid, size, u, actsize; + pair actpos, direct, one, two; + u = 0.5mm; + xmax = 9; + ymax = 9; + noise = 1u; + size = 5u; + pickup pencircle scaled u; + grid = size + 3*noise; + twist = 70/(grid*(xmax++ymax)); + label.lft( btex tor\c{c}\~{a}o etex, grid*(-xmax-1,ymax) ); + for i=-xmax upto -1: % twist + for j=1 upto ymax: + actpos:=(grid*i+noise*normaldeviate,grid*j+noise*normaldeviate); + direct:=dir(90); + actsize:=size*sind(3*(xpart actpos)*twist)/2; +% direct:=dir(angle(actpos)+90); +% actsize:=size*sind(abs(actpos)*twist)/2; + one:=actpos-actsize*direct; + two:=actpos+actsize*direct; + draw one--two; + endfor; + endfor; + label.rt( btex flex\~{a}o etex, grid*(xmax+1,ymax) ); + for i=1 upto xmax: % bend + for j=1 upto ymax: + actpos:=(grid*i+noise*normaldeviate,grid*j+noise*normaldeviate); + direct:=dir(angle(actpos)+90); + actsize:=size/2; + one:=actpos-actsize*direct; + two:=actpos+actsize*direct; + draw one--two; + endfor; + endfor; + label.rt( btex sela etex, grid*(xmax+1,-ymax) ); + for i=1 upto xmax: % saddle-splay + for j=-ymax upto -1: + actpos:=(grid*i+noise*normaldeviate,grid*j+noise*normaldeviate); + direct:=dir(-angle(actpos)); + actsize:=size*sind(abs(actpos)*twist)/2; + one:=actpos-actsize*direct; + two:=actpos+actsize*direct; + draw one--two; + endfor; + endfor; + label.lft( btex afunilamento etex, grid*(-xmax-1,-ymax) ); + for i=-xmax upto -1: % splay + for j=-ymax upto -1: + actpos:=(grid*i+noise*normaldeviate,grid*j+noise*normaldeviate); + direct:=unitvector(actpos); +% actsize:=size/2; + actsize:=size*sind(abs(actpos)*twist)/2; + one:=actpos-actsize*direct; + two:=actpos+actsize*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(3); + numeric vertj; + path ab, at, tb; + vertj = 1cm; + boxit.afun( btex afunilamento etex ); + boxit.bend( btex flex\~{a}o etex ); + boxit.torc( btex tor\c{c}\~{a}o etex ); + afun.se=bend.sw-vertj*up; + afun.ne=bend.nw-vertj*up; + bend.se=torc.sw+2*vertj*up; + bend.ne=torc.nw+2*vertj*up; + drawunboxed( afun, bend, torc ); + ab = afun.n{up}..{right}bend.w; + at = afun.s{down}..{right}torc.w; + tb = torc.n{up}..{left}bend.e; + pickup pencircle scaled 1pt; + drawarrow ab; + drawarrow at; + drawarrow tb; + label.top( btex $\beta$ etex, point 0.5*length ab of ab ); + label.bot( btex $\psi$ etex, point 0.5*length at of at ); + label.rt( btex $\beta$ etex, point 0.5*length tb of tb ); +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/cap29res.mp b/Master/texmf-dist/doc/metapost/featpost/example/cap29res.mp new file mode 100644 index 00000000000..604e5911f8c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/cap29res.mp @@ -0,0 +1,380 @@ +verbatimtex +\documentclass[11pt]{article} +\usepackage{palatino,mathpazo,amsmath,amssymb} +\usepackage[squaren]{SIunits} +\usepackage[latin1]{inputenc} +\usepackage[portuges]{babel} +\newcommand{\veri}{\ensuremath{\hat{\text{i}}}} +\newcommand{\verj}{\ensuremath{\hat{\text{j}}}} +\newcommand{\verk}{\ensuremath{\hat{\text{k}}}} +\newcommand{\emf}{\ensuremath{\mathcal{E}}} +\newcommand{\startprob}[1]{\vspace{3mm}\noindent\framebox{#1}} +\begin{document} +etex + +numeric un; +un = 1mm; +picture bigotimesp, bigodotp, efieldp, bfieldp, eforcep, bforcep, velocp, ip; +bigotimesp = btex $\bigotimes $ etex; +bigodotp = btex $\bigodot $ etex; +efieldp = btex $\vec{E} $ etex; +bfieldp = btex $\vec{B} $ etex; +eforcep = btex $\vec{F}_E $ etex; +bforcep = btex $\vec{F}_B $ etex; +velocp = btex $\vec{v} $ etex; +ip = btex $I$ etex; +picture amperp, voltip, maiscarga, menoscarg; +amperp = btex A etex; +voltip = btex V etex; +maiscarga = btex $+$ etex; +menoscarg = btex \rule{0pt}{9pt}$-$ etex; + + +drawoptions( withpen pencircle scaled 0.47un ); +ahlength := 2un; +ahangle := 25; +labeloffset := 2un; +bboxmargin := 0un; + +def drawcircledstring( expr Pos )( text TheString ) = + begingroup + picture strpic; + path cirpath; + pair llp, urp; + numeric diametr; + strpic = thelabel( TheString, origin ); + llp = llcorner strpic; + urp = urcorner strpic; + diametr = abs( urp - llp ); + cirpath = fullcircle scaled diametr shifted Pos; + unfill cirpath; + draw strpic shifted Pos; + draw cirpath + endgroup +enddef; + +beginfig(1); + numeric elen, forcelen, vlen, marginlen; + elen = 30un; + forcelen = 15un; + vlen = 30un; + marginlen = 10un; + z1 = (-marginlen,forcelen); + z2 = (-marginlen,-forcelen); + z3 = (0,forcelen); + z4 = (0,-forcelen); + z5 = (vlen,0); + drawarrow z1--z2; + drawarrow origin--z3; + drawarrow origin--z4; + drawarrow origin--z5; + label( bigotimesp, origin ); + label.ulft( efieldp, z2 ); + label.lft( bfieldp, origin ); + label.rt( eforcep, z3 ); + label.rt( bforcep, z4 ); + label.top( velocp, z5 ); +endfig; + +beginfig(2); + numeric dlen, altur, vlen, forcelen, marginlen; + marginlen = 7un; + dlen = 25un; + forcelen = 27.5un; + altur = 40un; + vlen = 15un; + z1 = -0.5*(dlen,altur); + z2 = 0.5*(dlen,-altur); + z5 = 0.5*(-dlen,altur); + z6 = 0.5*(dlen,altur); + z3 = z1 - (0,marginlen); + z4 = z2 - (0,marginlen); + z7 = 0.5[z5,z6]; + z9 = (0,vlen); + z8 = z7 + z9; + z10= (forcelen,0); + z11= (0.5*dlen+marginlen,marginlen); + z12= 0.5[z3,z4]; + draw z1--z2--z6--z5--cycle; + drawdblarrow z3--z4; + drawarrow origin--z9; + drawarrow origin--z10; + drawarrow z7--z8; + drawcircledstring( origin, menoscarg ); + label( bigotimesp, z11 ); + label.lft( velocp, z8 ); + label.lft( velocp, z9 ); + label.bot( bforcep, z10 ); + label.lft( bfieldp, z11 ); + label.top( btex $d$ etex, z12 ); +endfig; + +beginfig(3); + numeric dlen, altur, vlen, forcelen, marginlen; + numeric marginchar, marginvolt, marginfield, marginforce; + numeric ycoo, xcoo, llim, hlim; + marginchar = 3un; + marginvolt = 10un; + marginfield = 5un; + marginforce = 6un; + marginlen = 7un; + dlen = 25un; + forcelen = 27.5un; + altur = 40un; + vlen = 15un; + z1 = -0.5*(dlen,altur); + z2 = 0.5*(dlen,-altur); + z5 = 0.5*(-dlen,altur); + z6 = 0.5*(dlen,altur); + z3 = z1 - (0,marginlen); + z4 = z2 - (0,marginlen); + z12= 0.5[z3,z4]; + z7 = 0.5[z5,z6]; + z9 = (0,vlen); + z8 = z7 + z9; + z10= (marginforce-0.5*dlen,0); + z11= -z10; + z13= (-0.5*dlen+marginfield,0.25*altur); + z15= (-0.5*dlen+marginforce,-0.25*altur); + z14= (0.5*dlen-marginfield,0.25*altur); + z16= (0.5*dlen-marginforce,-0.25*altur); + z17= (-0.5*dlen-marginvolt,0); + z18= -z17; + z19= (-0.5*dlen-marginvolt,-0.5*altur-marginlen-marginvolt); + z20= (0.5*dlen+marginvolt,-0.5*altur-marginlen-marginvolt); + z21= 0.5[z19,z20]; + z22= (-0.5*dlen,0); + z23= -z22; + draw z1--z2--z6--z5--cycle; + draw z22--z17--z19--z20--z18--z23; + drawdblarrow z3--z4; + drawarrow z11--z10; + drawarrow z13--z14; + drawarrow z15--z16; + drawarrow z7--z8; + drawcircledstring( z21, btex \rule[-1mm]{0pt}{12pt}V etex ); + label.lft( velocp, z8 ); + label.llft( bforcep, z16 ); + label.llft( efieldp, z14 ); + label.lrt( eforcep, z10 ); + label.top( btex $d$ etex, z12 ); + xcoo = 0.5*dlen-marginchar; + llim = -0.5*altur+marginchar; + hlim = 0.5*altur-marginchar; + for ycoo=llim step marginchar until hlim: + label( maiscarga, (-xcoo,ycoo) ); + label( menoscarg, (xcoo,ycoo) ); + endfor; +endfig; + +beginfig(4); + numeric alen, blen, marginfield, margincurrent, ilen; + blen = 40un; + alen = 5*blen/12; + ilen = 8un; + marginfield = 5un; + margincurrent = 1.6un; + z17 = unitvector( (alen,blen) ); + z18 = (blen-2*marginfield,0); + z1 = origin; + z2 = (blen,0); + z3 = (0,alen); + z4 = 0.25[z1,z2]; + z5 = 0.45[z2,z3]; + z6 = 0.35[z3,z1]; + z7 = 0.5[z1,z2]+margincurrent*down; + z8 = z7+ilen*right; + z9 = 0.65[z2,z3]+margincurrent*z17; + z10= z9+ilen*unitvector((-blen,alen)); + z11= 0.5[z3,z1]+margincurrent*left; + z12= z11+ilen*down; + z13= marginfield*(1,-1); + z14= z13+z18; + z15= z3+marginfield*(1,1); + z16= z15+z18; + draw z1--z2--z3--cycle; + drawarrow z7--z8; + drawarrow z9--z10; + drawarrow z11--z12; + drawarrow z13--z14; + drawarrow z15--z16; + label.llft( bfieldp, z14 ); + label.llft( bfieldp, z16 ); + label.rt( ip, z8 ); + label.ulft( ip, z10 ); + label.bot( ip, z12 ); + label.top( btex $b$ etex, z4 ); + label.bot( btex $c$ etex, z5 ); + label.rt( btex $a$ etex, z6 ); +endfig; + +beginfig(5); + numeric alen, blen, marginfield, margincurrent, ilen; + blen = 40un; + alen = 5*blen/12; + ilen = 8un; + marginfield = 5un; + margincurrent = 1.6un; + z17 = unitvector( (alen,blen) ); + z18 = (blen-2*marginfield,0); + z1 = origin; + z2 = (blen,0); + z3 = (0,alen); + z4 = 0.25[z1,z2]; + z5 = 0.45[z2,z3]; + z6 = 0.35[z3,z1]; + z7 = 0.5[z1,z2]+margincurrent*down; + z8 = z7+ilen*right; + z9 = 0.5[z2,z3]+margincurrent*z17; + z10= z9+ilen*unitvector((-blen,alen)); + z11= 0.5[z3,z1]+margincurrent*left; + z12= z11+ilen*down; + z13= 0.65[z3,z1]; + z14= z13+z18; + z15= z3+marginfield*(1,1); + z16= z15+z18; + drawarrow z11--z12; + drawarrow z13--z14; + drawarrow z3--z1; + label.llft( bfieldp, z14 ); + label.bot( ip, z12 ); + label.rt( btex $\vec{a}$ etex, z6 ); + label.lrt( bigodotp, z13 ); + label.lrt( btex $\vec{F}_a$ etex, 0.13[z13,z14] ); +endfig; + +beginfig(6); + numeric alen, blen, marginfield, margincurrent, ilen; + blen = 40un; + alen = 5*blen/12; + ilen = 8un; + marginfield = 5un; + margincurrent = 1.6un; + z17 = unitvector( (alen,blen) ); + z18 = (blen-2*marginfield,0); + z1 = origin; + z2 = (blen,0); + z3 = (0,alen); + z4 = 0.25[z1,z2]; + z5 = 0.45[z2,z3]; + z6 = 0.35[z3,z1]; + z7 = 0.5[z1,z2]+margincurrent*down; + z8 = z7+ilen*right; + z9 = 0.5[z2,z3]+margincurrent*z17; + z10= z9+ilen*unitvector((-blen,alen)); + z11= 0.5[z3,z1]+margincurrent*left; + z12= z11+ilen*down; + z13= marginfield*(1,-1); + z14= z13+z18; + z15= z3+marginfield*(1,1); + z16= z15+z18; +% drawarrow z11--z12; + drawarrow z13--z14; + drawarrow z1--z2; + label.llft( bfieldp, z14 ); +% label.bot( ip, z12 ); + label.top( btex $\vec{b}$ etex, z4 ); +% label.lrt( bigodotp, z13 ); +% label.lrt( btex $\vec{F}_a$ etex, 0.13[z13,z14] ); +endfig; + +beginfig(7); + numeric alen, blen, marginfield, margincurrent, ilen, ralpha, rphi; + path pc, pb, palpha, pphi; + ralpha = 6un; + rphi = 4un; + blen = 40un; + alen = 5*blen/12; + ilen = 8un; + marginfield = 5un; + margincurrent = 1.6un; + z17 = unitvector( (alen,blen) ); + z18 = (blen-2*marginfield,0); + z1 = origin; + z2 = (blen,0); + z3 = (0,alen); + z4 = 0.25[z1,z2]; + z5 = 0.45[z2,z3]; + z6 = 0.35[z3,z1]; + z7 = 0.5[z1,z2]+margincurrent*down; + z8 = z7+ilen*right; + z9 = 0.65[z2,z3]+margincurrent*z17; + z10= z9+ilen*unitvector((-blen,alen)); + z11= 0.5[z3,z1]+margincurrent*left; + z12= z11+ilen*down; + z14= z2+ilen*up; + z13= z14-z18; + pb = z13--z14; + pc = z2--z3; + z19 = pb intersectionpoint pc; + pphi = halfcircle scaled 2rphi shifted z19 cutafter pc; + palpha = halfcircle scaled 2ralpha shifted z19 cutbefore pc; + z20 = pphi intersectionpoint (z19--(z19+1.1*rphi*dir(0.5*angle((-blen,alen))))); + z21 = palpha intersectionpoint (z19--(z19+1.1*ralpha*dir(180-0.5*angle((blen,alen))))); + label.lft( btex $\alpha$ etex, z21 ); + label.top( btex $\phi$ etex, z20 ); + draw pphi; + draw palpha; + drawarrow pc; + drawarrow z9--z10; + drawarrow pb; + label.llft( bfieldp, z14 ); + label.ulft( ip, z10 ); + label.bot( btex $\vec{c}$ etex, z5 ); +endfig; + +beginfig(8); + numeric raya, rayb, angs, angf, angr; + path pc, pd, ps, pf, pr, pI; + raya = 9un; + rayb = 11un; + angs = 15; + angf = 64; + angr = 240; + pc = fullcircle scaled 2raya; + pd = fullcircle scaled 2rayb; + ps = origin--1.1*rayb*dir(angs); + pf = origin--1.1*rayb*dir(angf); + pr = origin--raya*dir(angr); + pI = pd cutbefore ps cutafter pf; + draw pc; + draw pr; + drawarrow pI; + label.top( btex $R$ etex, 0.5*raya*dir(angr) ); + label.rt( btex $A$ etex, origin ); + label.top( btex $I$ etex, point 0.5 of pI ); +endfig; + +beginfig(9); + numeric raya, rayb, ang, lenf, lenb, lenm; + path pc, pm; + raya = 11un; + rayb = 0.5raya; + ang = 41; + lenm = 1.35raya; + lenf = 1.25lenm; + lenb = 0.4lenm; + z1 = (lenf,0); + z2 = lenm*dir(ang); + pm = origin--z2; + z3 = raya*dir(ang+90); + z4 = (-lenb,0); + z5 = raya*dir(ang+270); + z6 = rayb*dir(0.5*ang); + pc = halfcircle scaled 2rayb cutafter pm; + drawarrow z4--z1; + drawarrow pm; + draw z3--z5; + draw pc; + label.rt( btex $41\degree$ etex, z6 ); + label.rt( btex $\vec{\mu}$ etex, z2 ); + label.llft( bfieldp, z1 ); + label( bigotimesp, origin ); + label.llft( btex $\vec{\tau}$ etex, origin ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/caratk3edit.mp b/Master/texmf-dist/doc/metapost/featpost/example/caratk3edit.mp new file mode 100644 index 00000000000..556445497a1 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/caratk3edit.mp @@ -0,0 +1,339 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2007 Wolfgang Glunz + +% Generate structured PostScript +prologues := 1; + +% Display a given string with its *baseline* at a given location +% and with a given rotation angle +vardef showtext(expr origin)(expr angle)(expr string) = + draw string infont defaultfont scaled defaultscale + rotated angle shifted origin; +enddef; + +% Modified by L. Nobre G's Lex scanner %%%%%%%%%%% +randomseed := 1010; +vardef renewcolore = + color tmpcolo; + tmpcolo = (uniformdeviate(0.8),uniformdeviate(0.8),uniformdeviate(0.8)); + drawoptions( withcolor tmpcolo ); +enddef; +defaultscale := 0.16; +beginfig(1); + path PreeditedPath[]; +linecap := butt; +linejoin := mitered; + PreeditedPath1 = hide(z1=(136.781,601.332))z1..controls hide(z2=(136.207,600.809))z2 and hide(z3=(125.922,599.672))z3..hide(z4=(113.77,598.793))z4 + ..controls hide(z5=(93.6016,597.332))z5 and hide(z6=(75.6953,595.555))z6..hide(z7=(64.125,593.867))z7 + ..controls hide(z8=(57.7227,592.934))z8 and hide(z9=(57.3164,592.113))z9..hide(z10=(55.6055,576.598))z10 + ..controls hide(z11=(54.7539,568.84))z11 and hide(z12=(53.5117,560.848))z12..hide(z13=(52.8789,559.016))z13 + ..controls hide(z14=(51.4531,554.879))z14 and hide(z15=(51.4531,554.879))z15..hide(z16=(71.1055,563.672))z16 + ..controls hide(z17=(80.6719,567.953))z17 and hide(z18=(90.2812,571.426))z18..hide(z19=(92.5664,571.426))z19 + ..controls hide(z20=(97.2188,571.426))z20 and hide(z21=(118.938,558.223))z21..hide(z22=(118.938,555.395))z22 + ..controls hide(z23=(118.938,549.949))z23 and hide(z24=(131.609,554.68))z24..hide(z25=(143.246,564.469))z25 + ..controls hide(z26=(150.484,570.559))z26 and hide(z27=(158.238,576.262))z27..hide(z28=(160.438,577.113))z28 + ..controls hide(z29=(162.883,578.062))z29 and hide(z30=(172.723,572.715))z30..hide(z31=(185.648,563.41))z31 + ..controls hide(z32=(197.285,555.039))z32 and hide(z33=(207.551,548.156))z33..hide(z34=(208.402,548.156))z34 + ..controls hide(z35=(209.254,548.156))z35 and hide(z36=(213.574,551.191))z36..hide(z37=(217.969,554.879))z37 + ..controls hide(z38=(225.984,561.602))z38 and hide(z39=(225.984,561.602))z39..hide(z40=(228.266,555.652))z40 + ..controls hide(z41=(230.461,549.926))z41 and hide(z42=(230.965,528.246))z42..hide(z43=(229.516,501.613))z43 + ..controls hide(z44=(228.816,488.703))z44 and hide(z45=(229.348,488.883))z45..hide(z46=(201.68,492.254))z46 + ..controls hide(z47=(178.668,495.055))z47 and hide(z48=(168.094,498.582))z48..hide(z49=(169.715,502.906))z49 + ..controls hide(z50=(170.492,504.977))z50 and hide(z51=(172.254,506.785))z51..hide(z52=(173.496,506.785))z52 + ..controls hide(z53=(178.238,506.785))z53 and hide(z54=(175.566,513.844))z54..hide(z55=(169.617,517.027))z55 + ..controls hide(z56=(164.188,519.938))z56 and hide(z57=(162.41,519.91))z57..hide(z58=(158.5,516.871))z58 + ..controls hide(z59=(155.914,514.859))z59 and hide(z60=(152.695,512.387))z60..hide(z61=(151.262,511.309))z61 + ..controls hide(z62=(149.855,510.258))z62 and hide(z63=(144.539,505.879))z63..hide(z64=(139.625,501.73))z64 + ..controls hide(z65=(129.418,493.113))z65 and hide(z66=(127.215,493.512))z66..hide(z67=(102.91,508.375))z67 + --hide(z68=(88.1719,517.387))z68--hide(z69=(72.3984,508.961))z69..controls hide(z70=(50.4219,497.223))z70 and hide(z71=(46.543,493.016))z71..hide(z72=(46.543,480.93))z72 + ..controls hide(z73=(46.543,475.242))z73 and hide(z74=(47.2969,470.586))z74..hide(z75=(48.2227,470.586))z75 + ..controls hide(z76=(49.1367,470.586))z76 and hide(z77=(57.918,473.5))z77..hide(z78=(67.4844,476.98))z78 + ..controls hide(z79=(85.5859,483.562))z79 and hide(z80=(113.27,488.316))z80..hide(z81=(127.473,487.281))z81 + ..controls hide(z82=(139.109,486.434))z82 and hide(z83=(167.711,483.555))z83..hide(z84=(177.891,482.203))z84 + ..controls hide(z85=(188.75,480.762))z85 and hide(z86=(219.004,468.781))z86..hide(z87=(228.312,462.234))z87 + ..controls hide(z88=(234.777,457.688))z88 and hide(z89=(236.023,457.551))z89..hide(z90=(239.949,460.98))z90 + ..controls hide(z91=(244.086,464.594))z91 and hide(z92=(260.199,473.633))z92..hide(z93=(261.668,473.16))z93 + ..controls hide(z94=(262.086,473.027))z94 and hide(z95=(265.547,474.047))z95..hide(z96=(269.164,475.371))z96 + ..controls hide(z97=(272.922,476.742))z97 and hide(z98=(279.766,478.512))z98..hide(z99=(284.68,479.379))z99 + ..controls hide(z100=(289.59,480.246))z100 and hide(z101=(296.891,481.555))z101..hide(z102=(301.227,482.352))z102 + ..controls hide(z103=(305.492,483.133))z103 and hide(z104=(320.621,484.117))z104..hide(z105=(334.84,484.535))z105 + ..controls hide(z106=(361.473,485.324))z106 and hide(z107=(378.926,482.516))z107..hide(z108=(405.168,473.219))z108 + ..controls hide(z109=(413.184,470.383))z109 and hide(z110=(420.262,468))z110..hide(z111=(420.684,468))z111 + ..controls hide(z112=(421.105,468))z112 and hide(z113=(421.461,473.688))z113..hide(z114=(421.461,480.41))z114 + ..controls hide(z115=(421.461,493.637))z115 and hide(z116=(422.754,492.359))z116..hide(z117=(391.984,509.539))z117 + --hide(z118=(379.312,516.609))z118--hide(z119=(362.25,505.234))z119..controls hide(z120=(352.941,499.027))z120 and hide(z121=(343.715,493.855))z121..hide(z122=(341.949,493.855))z122 + ..controls hide(z123=(340.156,493.855))z123 and hide(z124=(332.512,499.512))z124..hide(z125=(324.758,506.586))z125 + ..controls hide(z126=(311.051,519.074))z126 and hide(z127=(308.449,520.031))z127..hide(z128=(299.16,515.973))z128 + ..controls hide(z129=(293.5,513.504))z129 and hide(z130=(293.477,509.887))z130..hide(z131=(299.082,503.684))z131 + ..controls hide(z132=(304.156,498.066))z132 and hide(z133=(302.777,496.148))z133..hide(z134=(292.953,495.125))z134 + ..controls hide(z135=(288.93,494.707))z135 and hide(z136=(280.543,493.559))z136..hide(z137=(274.078,492.539))z137 + ..controls hide(z138=(250.547,488.832))z138 and hide(z139=(242.957,489.09))z139..hide(z140=(242.66,493.598))z140 + ..controls hide(z141=(241.953,504.457))z141 and hide(z142=(242.695,558.922))z142..hide(z143=(243.566,559.793))z143 + ..controls hide(z144=(244.141,560.363))z144 and hide(z145=(248.352,557.422))z145..hide(z146=(253.004,553.199))z146 + ..controls hide(z147=(261.41,545.57))z147 and hide(z148=(261.41,545.57))z148..hide(z149=(272.27,552.422))z149 + ..controls hide(z150=(278.215,556.176))z150 and hide(z151=(287.223,562.418))z151..hide(z152=(292.176,566.227))z152 + ..controls hide(z153=(308.059,578.43))z153 and hide(z154=(306.914,578.707))z154..hide(z155=(340.527,554.566))z155 + ..controls hide(z156=(345.895,550.715))z156 and hide(z157=(346.992,551.004))z157..hide(z158=(359.922,559.66))z158 + ..controls hide(z159=(367.418,564.684))z159 and hide(z160=(376.375,568.84))z160..hide(z161=(379.703,568.84))z161 + ..controls hide(z162=(383.016,568.84))z162 and hide(z163=(392.242,565.309))z163..hide(z164=(400,561.074))z164 + ..controls hide(z165=(417.324,551.613))z165 and hide(z166=(419.172,551.559))z166..hide(z167=(417.348,560.566))z167 + ..controls hide(z168=(416.086,566.789))z168 and hide(z169=(415.027,574.789))z169..hide(z170=(413.953,586.164))z170 + ..controls hide(z171=(413.59,590.059))z171 and hide(z172=(400,592.863))z172..hide(z173=(365.867,596.09))z173 + ..controls hide(z174=(355.785,597.043))z174 and hide(z175=(343.188,598.32))z175..hide(z176=(337.426,598.977))z176 + ..controls hide(z177=(324.758,600.414))z177 and hide(z178=(138.176,602.605))z178..cycle; + renewcolore; + %%%draw PreeditedPath1; + %%%dotlabels.rt(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178); + PreeditedPath2 = hide(z179=(157.293,559.016))z179..controls hide(z180=(155.93,555.562))z180 and hide(z181=(130.316,537.812))z181..hide(z182=(126.695,537.812))z182 + ..controls hide(z183=(123.594,537.812))z183 and hide(z184=(108.777,545.199))z184..hide(z185=(105.953,548.156))z185 + ..controls hide(z186=(105.266,548.875))z186 and hide(z187=(101.617,551.461))z187..hide(z188=(97.7383,553.973))z188 + ..controls hide(z189=(90.8516,558.438))z189 and hide(z190=(90.4961,558.363))z190..hide(z191=(71.8789,548.543))z191 + ..controls hide(z192=(61.5391,543.09))z192 and hide(z193=(49.6758,537.77))z193..hide(z194=(45.6367,536.777))z194 + ..controls hide(z195=(38.4258,535.008))z195 and hide(z196=(38.3047,534.711))z196..hide(z197=(40.0781,522.816))z197 + ..controls hide(z198=(41.0781,516.094))z198 and hide(z199=(42.4062,510.145))z199..hide(z200=(43.0508,509.5))z200 + ..controls hide(z201=(43.6914,508.859))z201 and hide(z202=(54.2969,513.68))z202..hide(z203=(66.7109,520.254))z203 + ..controls hide(z204=(91.7891,533.539))z204 and hide(z205=(92.2734,533.531))z205..hide(z206=(114.027,519.523))z206 + --hide(z207=(126.18,511.699))z207--hide(z208=(143.504,523.516))z208..controls hide(z209=(162.379,536.391))z209 and hide(z210=(166.609,537.348))z210..hide(z211=(175.824,530.824))z211 + ..controls hide(z212=(189.527,521.125))z212 and hide(z213=(193.934,516.008))z213..hide(z214=(192.52,511.441))z214 + ..controls hide(z215=(191.719,508.855))z215 and hide(z216=(191.422,506.715))z216..hide(z217=(191.855,506.629))z217 + ..controls hide(z218=(201.68,504.664))z218 and hide(z219=(217.156,504.129))z219..hide(z220=(217.301,505.75))z220 + ..controls hide(z221=(219.555,531.348))z221 and hide(z222=(217.371,539.543))z222..hide(z223=(210.211,532.383))z223 + ..controls hide(z224=(208.156,530.328))z224 and hide(z225=(201.422,533.91))z225..hide(z226=(185.906,545.316))z226 + ..controls hide(z227=(164.965,560.711))z227 and hide(z228=(159.074,563.531))z228..cycle; + renewcolore; + %%%draw PreeditedPath2; + %%%dotlabels.rt(179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228); + PreeditedPath3 = hide(z229=(287.266,545.551))z229..controls hide(z230=(264.77,529.469))z230 and hide(z231=(262.457,528.379))z231..hide(z232=(259.805,532.641))z232 + ..controls hide(z233=(256.047,538.676))z233 and hide(z234=(254.02,533.934))z234..hide(z235=(253.719,518.422))z235 + ..controls hide(z236=(253.395,501.613))z236 and hide(z237=(253.395,501.613))z237..hide(z238=(263.219,503.09))z238 + ..controls hide(z239=(277.438,505.223))z239 and hide(z240=(279.07,506.164))z240..hide(z241=(277.652,511.441))z241 + ..controls hide(z242=(276.738,514.844))z242 and hide(z243=(279.25,517.988))z243..hide(z244=(287.008,523.16))z244 + ..controls hide(z245=(306.656,536.262))z245 and hide(z246=(308.102,536.277))z246..hide(z247=(325.016,523.523))z247 + ..controls hide(z248=(333.289,517.285))z248 and hide(z249=(341.578,512.156))z249..hide(z250=(343.504,512.086))z250 + ..controls hide(z251=(345.395,512.016))z251 and hide(z252=(353.973,516.176))z252..hide(z253=(362.25,521.18))z253 + ..controls hide(z254=(379.656,531.703))z254 and hide(z255=(383.969,531.332))z255..hide(z256=(404.395,517.547))z256 + ..controls hide(z257=(417.062,509))z257 and hide(z258=(425.559,505.672))z258..hide(z259=(427.246,508.594))z259 + ..controls hide(z260=(427.902,509.73))z260 and hide(z261=(429.258,514.93))z261..hide(z262=(430.25,520.102))z262 + ..controls hide(z263=(431.789,528.117))z263 and hide(z264=(431.281,529.793))z264..hide(z265=(426.891,531.219))z265 + ..controls hide(z266=(424.043,532.145))z266 and hide(z267=(413.703,537.293))z267..hide(z268=(403.879,542.68))z268 + ..controls hide(z269=(378.277,556.715))z269 and hide(z270=(379.137,556.656))z270..hide(z271=(362.25,545.398))z271 + ..controls hide(z272=(353.973,539.883))z272 and hide(z273=(345.809,535.227))z273..hide(z274=(344.406,535.227))z274 + ..controls hide(z275=(341.977,535.227))z275 and hide(z276=(320.359,550.945))z276..hide(z277=(313.379,557.789))z277 + ..controls hide(z278=(311.57,559.562))z278 and hide(z279=(309.781,561.082))z279..hide(z280=(309.5,561.082))z280 + ..controls hide(z281=(309.219,561.082))z281 and hide(z282=(299.16,554.059))z282..cycle; + renewcolore; + %%%draw PreeditedPath3; + %%%dotlabels.rt(229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282); + PreeditedPath4 = hide(z283=(115.836,474.383))z283..controls hide(z284=(115.414,474.004))z284 and hide(z285=(108.855,472.969))z285..hide(z286=(101.355,472.098))z286 + ..controls hide(z287=(83.2578,470))z287 and hide(z288=(58.0664,461.602))z288..hide(z289=(45.7656,453.566))z289 + ..controls hide(z290=(37.75,448.328))z290 and hide(z291=(36.1445,445.766))z291..hide(z292=(35.8633,437.75))z292 + ..controls hide(z293=(34.9023,410.34))z293 and hide(z294=(36.957,405.855))z294..hide(z295=(45.6914,416.289))z295 + ..controls hide(z296=(67.9297,442.84))z296 and hide(z297=(126.18,452.973))z297..hide(z298=(178.41,439.375))z298 + ..controls hide(z299=(190.305,436.281))z299 and hide(z300=(210.652,423.285))z300..hide(z301=(215.777,415.512))z301 + ..controls hide(z302=(220.012,409.086))z302 and hide(z303=(220.012,408.531))z303..hide(z304=(215.859,321.137))z304 + ..controls hide(z305=(215.172,306.656))z305 and hide(z306=(214.898,294.762))z306..hide(z307=(215.254,294.762))z307 + ..controls hide(z308=(215.605,294.762))z308 and hide(z309=(223.656,294.059))z309..hide(z310=(232.965,293.211))z310 + ..controls hide(z311=(243.824,292.223))z311 and hide(z312=(250.699,292.695))z312..hide(z313=(251.867,294.504))z313 + ..controls hide(z314=(254.336,298.336))z314 and hide(z315=(254.438,314.156))z315..hide(z316=(252.25,355.527))z316 + ..controls hide(z317=(249.855,400.773))z317 and hide(z318=(250.184,408.273))z318..hide(z319=(254.859,415.512))z319 + ..controls hide(z320=(259.375,422.504))z320 and hide(z321=(276.145,434.113))z321..hide(z322=(283.902,435.613))z322 + ..controls hide(z323=(287.008,436.215))z323 and hide(z324=(290.531,437.273))z324..hide(z325=(291.66,437.945))z325 + ..controls hide(z326=(295.078,439.977))z326 and hide(z327=(321.395,442.863))z327..hide(z328=(340.012,443.246))z328 + ..controls hide(z329=(360.438,443.668))z329 and hide(z330=(383.953,439.043))z330..hide(z331=(397.93,431.859))z331 + ..controls hide(z332=(410.34,425.48))z332 and hide(z333=(426.988,411.098))z333..hide(z334=(425.234,408.273))z334 + ..controls hide(z335=(424.363,406.875))z335 and hide(z336=(424.719,405.945))z336..hide(z337=(426.113,405.945))z337 + ..controls hide(z338=(431.809,405.945))z338 and hide(z339=(434.047,430.77))z339..hide(z340=(429.445,442.922))z340 + ..controls hide(z341=(425.523,453.285))z341 and hide(z342=(396.121,466.371))z342..hide(z343=(369.746,469.484))z343 + ..controls hide(z344=(321.137,475.227))z344 and hide(z345=(278.848,468.273))z345..hide(z346=(249.516,449.711))z346 + ..controls hide(z347=(235.895,441.094))z347 and hide(z348=(237.102,440.926))z348..hide(z349=(212.797,454.836))z349 + ..controls hide(z350=(201.375,461.375))z350 and hide(z351=(190.82,465.438))z351..hide(z352=(174.531,469.566))z352 + ..controls hide(z353=(162.121,472.715))z353 and hide(z354=(118.023,476.332))z354..cycle; + renewcolore; + %%%draw PreeditedPath4; + %%%dotlabels.rt(283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324,325,326,327,328,329,330,331,332,333,334,335,336,337,338,339,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354); + PreeditedPath5 = hide(z355=(92.8242,426.75))z355..controls hide(z356=(76.793,421.73))z356 and hide(z357=(55.9102,408.535))z357..hide(z358=(51.7109,400.773))z358 + ..controls hide(z359=(49.1953,396.129))z359 and hide(z360=(49.5352,381.125))z360..hide(z361=(53.0586,341.047))z361 + ..controls hide(z362=(53.875,331.738))z362 and hide(z363=(55.0859,321.16))z363..hide(z364=(55.7188,317.773))z364 + ..controls hide(z365=(56.3516,314.406))z365 and hide(z366=(57.5898,307.434))z366..hide(z367=(58.4336,302.52))z367 + ..controls hide(z368=(60.5547,290.109))z368 and hide(z369=(69.25,267.414))z369..hide(z370=(73.1719,264.039))z370 + ..controls hide(z371=(75.7539,261.82))z371 and hide(z372=(78.3516,263.734))z372..hide(z373=(84.3516,272.27))z373 + ..controls hide(z374=(101.293,296.363))z374 and hide(z375=(138.848,313.016))z375..hide(z376=(184.613,316.723))z376 + ..controls hide(z377=(190.043,317.16))z377 and hide(z378=(194.754,317.863))z378..hide(z379=(195.145,318.293))z379 + ..controls hide(z380=(196.121,319.367))z380 and hide(z381=(198.75,349.062))z381..hide(z382=(200.617,380.09))z382 + ..controls hide(z383=(201.766,399.223))z383 and hide(z384=(201.25,403.172))z384..hide(z385=(196.605,410.598))z385 + ..controls hide(z386=(191.781,418.32))z386 and hide(z387=(180.996,424.793))z387..hide(z388=(167.031,428.352))z388 + ..controls hide(z389=(164.031,429.113))z389 and hide(z390=(149.449,430.082))z390..hide(z391=(134.453,430.508))z391 + ..controls hide(z392=(114.285,431.086))z392 and hide(z393=(103.582,430.117))z393..cycle; + renewcolore; + %%%draw PreeditedPath5; + %%%dotlabels.rt(355,356,357,358,359,360,361,362,363,364,365,366,367,368,369,370,371,372,373,374,375,376,377,378,379,380,381,382,383,384,385,386,387,388,389,390,391,392,393); + PreeditedPath6 = hide(z394=(166.773,417.551))z394..controls hide(z395=(178.926,409.805))z395 and hide(z396=(183.246,404.352))z396..hide(z397=(185.59,393.793))z397 + ..controls hide(z398=(189.672,375.434))z398 and hide(z399=(182.383,357.863))z399..hide(z400=(167.289,349.672))z400 + ..controls hide(z401=(160.973,346.242))z401 and hide(z402=(152.293,345.09))z402..hide(z403=(130.574,344.797))z403 + ..controls hide(z404=(104.461,344.438))z404 and hide(z405=(101.137,344.945))z405..hide(z406=(89.9805,350.973))z406 + ..controls hide(z407=(73.0039,360.145))z407 and hide(z408=(70.1602,365.352))z408..hide(z409=(70.6719,386.293))z409 + ..controls hide(z410=(71.0781,402.844))z410 and hide(z411=(71.6211,404.305))z411..hide(z412=(79.8945,411.172))z412 + ..controls hide(z413=(92.1172,421.312))z413 and hide(z414=(103.426,423.848))z414..hide(z415=(133.16,423.125))z415 + ..controls hide(z416=(153.07,422.637))z416 and hide(z417=(160.801,421.355))z417..cycle; + renewcolore; + %%%draw PreeditedPath6; + %%%dotlabels.rt(394,395,396,397,398,399,400,401,402,403,404,405,406,407,408,409,410,411,412,413,414,415,416,417); + PreeditedPath7 = hide(z418=(319.328,429.711))z418..controls hide(z419=(304.328,428.168))z419 and hide(z420=(285.598,421.395))z420..hide(z421=(277.957,414.754))z421 + ..controls hide(z422=(270.199,408.016))z422 and hide(z423=(270.199,408.016))z423..hide(z424=(270.848,363.801))z424 + ..controls hide(z425=(271.199,339.496))z425 and hide(z426=(272.367,318.77))z426..hide(z427=(273.43,317.773))z427 + ..controls hide(z428=(274.504,316.773))z428 and hide(z429=(282.867,315.352))z429..hide(z430=(292.176,314.586))z430 + ..controls hide(z431=(322.43,312.109))z431 and hide(z432=(349.387,301.004))z432..hide(z433=(370.004,282.531))z433 + ..controls hide(z434=(377.246,276.043))z434 and hide(z435=(384.23,267.918))z435..hide(z436=(385.496,264.512))z436 + ..controls hide(z437=(388.723,255.828))z437 and hide(z438=(392.137,257.012))z438..hide(z439=(398.156,268.906))z439 + ..controls hide(z440=(406.961,286.309))z440 and hide(z441=(412.965,314.156))z441..hide(z442=(414.879,346.477))z442 + ..controls hide(z443=(415.508,357.078))z443 and hide(z444=(416.734,372.727))z444..hide(z445=(417.582,380.992))z445 + ..controls hide(z446=(419.117,395.992))z446 and hide(z447=(419.047,396.199))z447..hide(z448=(409.309,405.184))z448 + ..controls hide(z449=(400.258,413.527))z449 and hide(z450=(387.367,421.762))z450..hide(z451=(381.383,423.016))z451 + ..controls hide(z452=(361.473,427.191))z452 and hide(z453=(351.066,428.766))z453..hide(z454=(336.133,429.852))z454 + ..controls hide(z455=(331.219,430.207))z455 and hide(z456=(323.539,430.145))z456..cycle; + renewcolore; + %%%draw PreeditedPath7; + %%%dotlabels.rt(418,419,420,421,422,423,424,425,426,427,428,429,430,431,432,433,434,435,436,437,438,439,440,441,442,443,444,445,446,447,448,449,450,451,452,453,454,455,456); + PreeditedPath8 = hide(z457=(365.867,420.535))z457..controls hide(z458=(386.812,415.41))z458 and hide(z459=(394.578,407.562))z459..hide(z460=(396.934,389.141))z460 + ..controls hide(z461=(398.883,373.883))z461 and hide(z462=(395.469,363.449))z462..hide(z463=(385.777,355.023))z463 + ..controls hide(z464=(375.578,346.16))z464 and hide(z465=(363.539,343.035))z465..hide(z466=(338.719,342.801))z466 + ..controls hide(z467=(320.359,342.633))z467 and hide(z468=(314.613,343.66))z468..hide(z469=(303.812,349.062))z469 + ..controls hide(z470=(295.797,353.07))z470 and hide(z471=(289.52,358.375))z471..hide(z472=(287.289,363.023))z472 + ..controls hide(z473=(283.066,371.828))z473 and hide(z474=(282.941,390.949))z474..hide(z475=(287.039,400.773))z475 + ..controls hide(z476=(290.32,408.637))z476 and hide(z477=(307.434,419.148))z477..hide(z478=(320.621,421.398))z478 + ..controls hide(z479=(330.445,423.078))z479 and hide(z480=(357.594,422.559))z480..cycle; + renewcolore; + %%%draw PreeditedPath8; + %%%dotlabels.rt(457,458,459,460,461,462,463,464,465,466,467,468,469,470,471,472,473,474,475,476,477,478,479,480); + PreeditedPath9 = hide(z481=(183.32,304.07))z481..controls hide(z482=(182.762,303.512))z482 and hide(z483=(178.152,302.418))z483..hide(z484=(173.238,301.684))z484 + ..controls hide(z485=(157.07,299.266))z485 and hide(z486=(152.035,297.691))z486..hide(z487=(134.969,289.703))z487 + ..controls hide(z488=(75.7578,261.984))z488 and hide(z489=(65.9453,218.688))z489..hide(z490=(106.113,162.379))z490 + ..controls hide(z491=(127.324,132.645))z491 and hide(z492=(129.184,130.402))z492..hide(z493=(150.711,108.598))z493 + ..controls hide(z494=(201.766,56.8828))z494 and hide(z495=(234.418,36.8555))z495..hide(z496=(245.555,50.4219))z496 + ..controls hide(z497=(247.254,52.4883))z497 and hide(z498=(249.824,54.2969))z498..hide(z499=(251.066,54.2969))z499 + ..controls hide(z500=(260.082,54.2969))z500 and hide(z501=(322.727,110.148))z501..hide(z502=(340.977,134.453))z502 + ..controls hide(z503=(344.664,139.367))z503 and hide(z504=(348.984,144.805))z504..hide(z505=(350.43,146.348))z505 + ..controls hide(z506=(358.02,154.461))z506 and hide(z507=(376.469,185.906))z507..hide(z508=(380.312,197.285))z508 + ..controls hide(z509=(385.555,212.797))z509 and hide(z510=(384.996,233.473))z510..hide(z511=(378.996,246.152))z511 + ..controls hide(z512=(366.691,272.152))z512 and hide(z513=(328.637,296.117))z513..hide(z514=(290.883,301.645))z514 + ..controls hide(z515=(286.488,302.285))z515 and hide(z516=(280.605,303.227))z516..hide(z517=(277.309,303.812))z517 + ..controls hide(z518=(272.703,304.633))z518 and hide(z519=(271.492,303.555))z519..hide(z520=(271.492,298.641))z520 + ..controls hide(z521=(271.492,291.242))z521 and hide(z522=(272.527,290.469))z522..hide(z523=(284.938,288.574))z523 + ..controls hide(z524=(297.043,286.727))z524 and hide(z525=(313.898,280.137))z525..hide(z526=(326.309,272.398))z526 + ..controls hide(z527=(339.352,264.266))z527 and hide(z528=(347.293,248.223))z528..hide(z529=(347.363,229.863))z529 + ..controls hide(z530=(347.465,203.504))z530 and hide(z531=(331.738,187.492))z531..hide(z532=(296.832,178.406))z532 + ..controls hide(z533=(281.016,174.293))z533 and hide(z534=(270.199,173.602))z534..hide(z535=(230.121,174.141))z535 + ..controls hide(z536=(175.566,174.875))z536 and hide(z537=(157.633,178.863))z537..hide(z538=(136.523,194.965))z538 + ..controls hide(z539=(108.207,216.559))z539 and hide(z540=(114.027,260.922))z540..hide(z541=(147.383,277.742))z541 + ..controls hide(z542=(156.949,282.566))z542 and hide(z543=(178.668,289.215))z543..hide(z544=(188.234,290.25))z544 + ..controls hide(z545=(192.891,290.75))z545 and hide(z546=(196.508,291.934))z546..hide(z547=(196.508,292.953))z547 + ..controls hide(z548=(196.508,293.949))z548 and hide(z549=(196.508,297.09))z549..hide(z550=(196.508,299.934))z550 + ..controls hide(z551=(196.508,303.676))z551 and hide(z552=(194.828,305.105))z552..hide(z553=(190.434,305.105))z553 + ..controls hide(z554=(187.07,305.105))z554 and hide(z555=(183.895,304.645))z555..cycle; + renewcolore; + %%%draw PreeditedPath9; + %%%dotlabels.rt(481,482,483,484,485,486,487,488,489,490,491,492,493,494,495,496,497,498,499,500,501,502,503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,523,524,525,526,527,528,529,530,531,532,533,534,535,536,537,538,539,540,541,542,543,544,545,546,547,548,549,550,551,552,553,554,555); + PreeditedPath10 = hide(z556=(214.348,278.086))z556..controls hide(z557=(213.785,277.594))z557 and hide(z558=(206.594,276.473))z558..hide(z559=(198.578,275.629))z559 + ..controls hide(z560=(167.289,272.336))z560 and hide(z561=(138.164,257.289))z561..hide(z562=(136.512,243.566))z562 + ..controls hide(z563=(135.078,231.672))z563 and hide(z564=(139.324,214.027))z564..hide(z565=(145.094,207.887))z565 + ..controls hide(z566=(151.16,201.426))z566 and hide(z567=(171.43,192.082))z567..hide(z568=(184.098,189.906))z568 + ..controls hide(z569=(202.457,186.746))z569 and hide(z570=(270.727,187))z570..hide(z571=(286.746,190.281))z571 + ..controls hide(z572=(318.293,196.75))z572 and hide(z573=(331.578,210.402))z573..hide(z574=(330.047,234.777))z574 + ..controls hide(z575=(329.25,247.445))z575 and hide(z576=(328.191,249.797))z576..hide(z577=(320.359,256.324))z577 + ..controls hide(z578=(306.219,268.109))z578 and hide(z579=(288.816,273.094))z579..hide(z580=(253.652,275.441))z580 + ..controls hide(z581=(241.5,276.25))z581 and hide(z582=(227.781,277.391))z582..hide(z583=(223.398,277.957))z583 + ..controls hide(z584=(219.004,278.523))z584 and hide(z585=(214.918,278.582))z585..cycle; + renewcolore; + %%%draw PreeditedPath10; + %%%dotlabels.rt(556,557,558,559,560,561,562,563,564,565,566,567,568,569,570,571,572,573,574,575,576,577,578,579,580,581,582,583,584,585); + PreeditedPath11 = hide(z586=(255.977,265.277))z586..controls hide(z587=(283.645,263.309))z587 and hide(z588=(285.629,262.883))z588..hide(z589=(300.453,255.688))z589 + ..controls hide(z590=(314.672,248.781))z590 and hide(z591=(319.508,239.949))z591..hide(z592=(316.844,225.727))z592 + ..controls hide(z593=(312.848,204.367))z593 and hide(z594=(293.73,197.211))z594..hide(z595=(237.879,196.168))z595 + ..controls hide(z596=(175.566,195.008))z596 and hide(z597=(146.289,207.188))z597..hide(z598=(148.812,233.227))z598 + ..controls hide(z599=(150.801,253.754))z599 and hide(z600=(166.516,262.293))z600..hide(z601=(208.145,265.461))z601 + ..controls hide(z602=(218.227,266.227))z602 and hide(z603=(226.645,267.238))z603..hide(z604=(227.148,267.742))z604 + ..controls hide(z605=(227.621,268.215))z605 and hide(z606=(229.477,268.215))z606..hide(z607=(231.027,267.742))z607 + ..controls hide(z608=(232.672,267.242))z608 and hide(z609=(243.824,266.141))z609..cycle; + renewcolore; + %%%draw PreeditedPath11; + %%%dotlabels.rt(586,587,588,589,590,591,592,593,594,595,596,597,598,599,600,601,602,603,604,605,606,607,608,609); + PreeditedPath12 = hide(z610=(104.719,410.492))z610..controls hide(z611=(91.6758,403.551))z611 and hide(z612=(87.9102,397.672))z612..hide(z613=(87.9102,384.227))z613 + ..controls hide(z614=(87.9102,372.332))z614 and hide(z615=(88.75,370.477))z615..hide(z616=(96.4453,365.305))z616 + ..controls hide(z617=(111.211,355.375))z617 and hide(z618=(129.801,353.32))z618..hide(z619=(151.777,359.18))z619 + ..controls hide(z620=(165.77,362.91))z620 and hide(z621=(169.102,367.68))z621..hide(z622=(169.102,383.969))z622 + ..controls hide(z623=(169.102,398.188))z623 and hide(z624=(166.773,402.285))z624..hide(z625=(155.137,408.543))z625 + ..controls hide(z626=(147.383,412.719))z626 and hide(z627=(111.504,414.102))z627..cycle; + renewcolore; + %%%draw PreeditedPath12; + %%%dotlabels.rt(610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627); + PreeditedPath13 = hide(z628=(151.777,402.477))z628..controls hide(z629=(164.445,395.879))z629 and hide(z630=(167.375,379.109))z630..hide(z631=(157.465,369.902))z631 + ..controls hide(z632=(151.43,364.293))z632 and hide(z633=(130.574,360.691))z633..hide(z634=(116.871,362.891))z634 + ..controls hide(z635=(108.34,364.262))z635 and hide(z636=(95.9492,370.898))z636..hide(z637=(95.3984,374.402))z637 + ..controls hide(z638=(93.8047,384.484))z638 and hide(z639=(94.4102,392.855))z639..hide(z640=(96.9844,396.379))z640 + ..controls hide(z641=(104.785,407.051))z641 and hide(z642=(136.262,410.555))z642..cycle; + renewcolore; + %%%draw PreeditedPath13; + %%%dotlabels.rt(628,629,630,631,632,633,634,635,636,637,638,639,640,641,642); + PreeditedPath14 = hide(z643=(316.613,408.273))z643..controls hide(z644=(312.215,406.977))z644 and hide(z645=(307.352,403.312))z645..hide(z646=(305.621,400))z646 + ..controls hide(z647=(301.164,391.465))z647 and hide(z648=(299.918,375.328))z648..hide(z649=(303.168,368.195))z649 + ..controls hide(z650=(306.895,360.008))z650 and hide(z651=(326.051,354.375))z651..hide(z652=(347.25,355.238))z652 + ..controls hide(z653=(372.074,356.246))z653 and hide(z654=(380.23,362.348))z654..hide(z655=(381.52,380.863))z655 + ..controls hide(z656=(382.379,393.277))z656 and hide(z657=(381.992,394.16))z657..hide(z658=(371.816,403.012))z658 + ..controls hide(z659=(365.648,408.371))z659 and hide(z660=(361.602,409.402))z660..hide(z661=(344.535,409.953))z661 + ..controls hide(z662=(333.418,410.312))z662 and hide(z663=(320.988,409.562))z663..cycle; + renewcolore; + %%%draw PreeditedPath14; + %%%dotlabels.rt(643,644,645,646,647,648,649,650,651,652,653,654,655,656,657,658,659,660,661,662,663); + PreeditedPath15 = hide(z664=(359.664,402.125))z664..controls hide(z665=(373.309,398.008))z665 and hide(z666=(377.633,388.879))z666..hide(z667=(373.41,373.109))z667 + ..controls hide(z668=(370.441,362.023))z668 and hide(z669=(341.305,357.23))z669..hide(z670=(319.844,364.293))z670 + ..controls hide(z671=(309.996,367.535))z671 and hide(z672=(305.723,375.176))z672..hide(z673=(307.402,386.555))z673 + ..controls hide(z674=(309.699,402.117))z674 and hide(z675=(334.84,409.609))z675..cycle; + renewcolore; + %%%draw PreeditedPath15; + %%%dotlabels.rt(664,665,666,667,668,669,670,671,672,673,674,675); + PreeditedPath16 = hide(z676=(198.836,254.906))z676..controls hide(z677=(198.25,254.34))z677 and hide(z678=(194.441,253.359))z678..hide(z679=(190.043,252.641))z679 + ..controls hide(z680=(165.223,248.582))z680 and hide(z681=(155.082,233.176))z681..hide(z682=(168.844,220.43))z682 + ..controls hide(z683=(180.852,209.305))z683 and hide(z684=(195.473,205.852))z684..hide(z685=(230.121,205.969))z685 + ..controls hide(z686=(247.961,206.027))z686 and hide(z687=(265.688,206.766))z687..hide(z688=(269.684,207.613))z688 + ..controls hide(z689=(295.023,213.004))z689 and hide(z690=(306.207,221.254))z690..hide(z691=(303.703,232.707))z691 + ..controls hide(z692=(301.492,242.828))z692 and hide(z693=(294.762,247.789))z693..hide(z694=(277.957,251.688))z694 + ..controls hide(z695=(264.254,254.867))z695 and hide(z696=(201.449,257.418))z696..cycle; + renewcolore; + %%%draw PreeditedPath16; + %%%dotlabels.rt(676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,693,694,695,696); + PreeditedPath17 = hide(z697=(261.148,244.574))z697..controls hide(z698=(294.246,241.137))z698 and hide(z699=(301.031,226.125))z699..hide(z700=(272.785,218.828))z700 + ..controls hide(z701=(259.723,215.453))z701 and hide(z702=(213.316,215.203))z702..hide(z703=(196.508,218.414))z703 + ..controls hide(z704=(186.426,220.34))z704 and hide(z705=(175.824,226.34))z705..hide(z706=(175.824,230.121))z706 + ..controls hide(z707=(175.824,234.188))z707 and hide(z708=(185.906,242.977))z708..hide(z709=(190.82,243.191))z709 + ..controls hide(z710=(199.352,243.57))z710 and hide(z711=(218.574,246.082))z711..hide(z712=(219.367,246.93))z712 + ..controls hide(z713=(220.137,247.746))z713 and hide(z714=(243.051,246.457))z714..cycle; + renewcolore; + %%%draw PreeditedPath17; + %%%dotlabels.rt(697,698,699,700,701,702,703,704,705,706,707,708,709,710,711,712,713,714); + PreeditedPath18 = hide(z715=(113.508,390.867))z715..controls hide(z716=(108.598,386.918))z716 and hide(z717=(108.246,385.52))z717..hide(z718=(110.926,380.605))z718 + ..controls hide(z719=(112.617,377.504))z719 and hide(z720=(114.848,374.797))z720..hide(z721=(115.836,374.652))z721 + ..controls hide(z722=(134.711,371.871))z722 and hide(z723=(147.383,376.133))z723..hide(z724=(147.383,385.262))z724 + ..controls hide(z725=(147.383,394.285))z725 and hide(z726=(122.816,398.352))z726..cycle; + renewcolore; + %%%draw PreeditedPath18; + %%%dotlabels.rt(715,716,717,718,719,720,721,722,723,724,725,726); + PreeditedPath19 = hide(z727=(325.789,388.312))z727..controls hide(z728=(320.102,383.707))z728 and hide(z729=(320.102,383.707))z729..hide(z730=(325.145,377.504))z730 + ..controls hide(z731=(334.082,366.508))z731 and hide(z732=(359.402,370.523))z732..hide(z733=(359.402,382.934))z733 + ..controls hide(z734=(359.402,392.957))z734 and hide(z735=(336.133,396.68))z735..cycle; + renewcolore; + %%%draw PreeditedPath19; + %%%dotlabels.rt(727,728,729,730,731,732,733,734,735); + PreeditedPath20 = hide(z736=(209.438,235.988))z736..controls hide(z737=(196.766,234.27))z737 and hide(z738=(194.645,232.738))z738..hide(z739=(200.387,229.457))z739 + ..controls hide(z740=(203.5,227.68))z740 and hide(z741=(218.227,226.645))z741..hide(z742=(237.363,226.855))z742 + ..controls hide(z743=(267.098,227.188))z743 and hide(z744=(274.234,228.156))z744..hide(z745=(270.977,231.414))z745 + ..controls hide(z746=(268.219,234.172))z746 and hide(z747=(221.59,237.637))z747..cycle; + renewcolore; + %%%draw PreeditedPath20; +%%%dotlabels.rt(736,737,738,739,740,741,742,743,744,745,746,747); + numeric integerindex; + for integerindex=1 upto 20: + draw PreeditedPath[integerindex] withpen pencircle scaled 1.5mm; + endfor; +endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/casadopessoal.mp b/Master/texmf-dist/doc/metapost/featpost/example/casadopessoal.mp new file mode 100644 index 00000000000..2d596680b29 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/casadopessoal.mp @@ -0,0 +1,53 @@ +% casadopessoal.mp +% L. Nobre G. +% 2011 + +prologues := 1; + +numeric u, raio, cc, cp, espa, cpc; +u = 50mm; +raio = 0.4u; +espa = u-2*raio; +cpc = u; +cc = 2.16u; +cp =1.6u; + +color pgreen, cblue; +pgreen = (139,194,52)/255; +cblue = (12,84,130)/255; +picture C, P; + +def boxpath( expr w, h, r ) = + ((w,0)---(w,h-r)...(w-r,h)---(r-w,h)...(-w,h-r)---(-w,r-h)...(r-w,-h)---(w-r,-h)...(w,r-h)---cycle) +enddef; + +def boxdraw( expr W, H, R, coox, cooy, col ) = + fill boxpath( W/2, H/2, R ) shifted (coox,cooy) withcolor col +enddef; + +beginfig(2); + numeric altur; + altur = 2*(cp+espa)+raio; + boxdraw(u,cp,raio,-0.5*(cc+espa),0.5*(cp-altur),pgreen); + boxdraw(cc,u,raio,0,cp+0.5*(espa-altur),pgreen); + boxdraw(u,cp,raio,-0.5*(cc+espa),0.5*(altur-cp)-espa-raio,pgreen); + boxdraw(cc,u,raio,0,0.5*(altur-u),pgreen); + boxdraw(u,cp,raio,0.5*(cc+espa),0.5*(altur-cp)-espa-raio,pgreen); + P = currentpicture; +endfig; + +beginfig(1); + boxdraw(u,altur-2*(raio+espa),raio,-0.5*(cc+espa),0,cblue); + boxdraw(cc,u,raio,0,0.5*(u-altur),cblue); + boxdraw(u,cpc,raio,0.5*(cc+espa),0.5*(altur-cpc)-espa-raio,cblue); + boxdraw(cc,u,raio,0,0.5*(altur-u),cblue); + boxdraw(u,cpc,raio,0.5*(cc+espa),0.5*(cpc-altur)+espa+raio,cblue); + C = currentpicture; +endfig; + +beginfig(3); + draw C shifted (-raio-0.5*(cc+3*espa),0); + draw P shifted (raio+0.5*(cc+3*espa),0); +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/cellevolve.mp b/Master/texmf-dist/doc/metapost/featpost/example/cellevolve.mp new file mode 100644 index 00000000000..d4988a29422 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/cellevolve.mp @@ -0,0 +1,72 @@ +% cellevolve.mp +% L. Nobre G. +% IYP (2005) + +def projectyz( expr theta, phi ) = + (cosd(theta)*sind(phi),sind(theta)) +enddef; + +def rotatangl( expr ori, rang ) = + ( (xpart ori)*cosd(rang)-(ypart ori)*sind(rang), + (xpart ori)*sind(rang)+(ypart ori)*cosd(rang)) +enddef; + +numeric vertn, horin, grids, thex, they, varx, xcomp; +numeric ymax, xmax, i, j, size, u, ycomp, theta, phi; +numeric power, xlim, ylim, frac, vary, allang, shift; +numeric perang, ampper, npers, velang, displamp, hdk; +pair actpos, direct, one, two, displvec; +path cirma, VGAborder; +color thedark; + +u := 0.5mm; +allang := 15; +ampper := 20; +npers := 4; +velang := 5; +hdk := 0.6; +displamp := 8u; +frac := 1.5; +power := 0.8; +vertn := 20; +horin := 41; +size := 3u; +grids := 8u; +ymax := floor(0.5*(vertn*frac-1)); +xmax := floor(0.5*(horin*frac-1)); +xlim := grids*0.5*horin; +ylim := grids*0.5*vertn; +varx := 180/(0.5*(horin-1)); +vary := 90/(0.5*(vertn-1)); +cirma := fullcircle scaled (grids); + + VGAborder := (-xlim,-ylim)-- % + ( xlim,-ylim)-- % + ( xlim, ylim)-- % + (-xlim, ylim)--cycle; % + +beginfig(0); + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*rotatangl((i,j),allang); + thex:=i*varx; + they:=j*vary; + theta:=90*cosd(they)*cosd(thex); + phi:=60*sind(2*they)*sind(thex); + perang := allang+ampper*sind(npers*they); + direct:=rotatangl(projectyz(theta,phi),perang); + displvec:=dir(velang)*displamp*cosd(npers*they); + actpos := actpos+displvec; + one:=actpos-size*direct; + two:=actpos+size*direct; + thedark := (1-hdk*(ypart direct))*white; + fill cirma shifted actpos withcolor thedark; + draw one--two; + endfor; + endfor; + clip currentpicture to VGAborder; + undraw VGAborder; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/cinemwork.mp b/Master/texmf-dist/doc/metapost/featpost/example/cinemwork.mp new file mode 100644 index 00000000000..37af4b547e2 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/cinemwork.mp @@ -0,0 +1,307 @@ +% cinemwork.mp +% L. Nobre G. +% Feb2001 + +verbatimtex \documentclass{article} \begin{document} etex + +%%input mp-tool; + +def wmg = withcolor mygray enddef; + +def resetpic = + begingroup + tmpicture := currentpicture; + currentpicture := nullpicture + endgroup +enddef; + +def roundedcornersbox( expr swc, nec, cornerrad ) = + begingroup + pair swe, swn, nes, new, nwe, nws, sen, sew; + numeric lowx, higx, lowy, higy; + path returnpath; + lowx = xpart swc; + higx = xpart nec; + lowy = ypart swc; + higy = ypart nec; + swe = ( lowx+cornerrad, lowy ); + nwe = ( lowx+cornerrad, higy ); + new = ( higx-cornerrad, higy ); + sew = ( higx-cornerrad, lowy ); + swn = ( lowx, lowy+cornerrad ); + nws = ( lowx, higy-cornerrad ); + nes = ( higx, higy-cornerrad ); + sen = ( higx, lowy+cornerrad ); + returnpath = nws{up}..{right}nwe-- + new{right}..{down}nes-- + sen{down}..{left}sew-- + swe{left}..{up}swn--cycle; + ( returnpath ) + endgroup +enddef; + +def rectracarea( expr unit, largnumtracs, espesfrac, tangle )= + begingroup + picture tmpicture, returnpicture; + numeric largarea, espesarea, i; + pair esquarea, direarea, espessvec; + path boxarea, traco; + tmpicture = currentpicture; + currentpicture := nullpicture; + largarea = largnumtracs*unit; + espesarea = espesfrac*largarea; + esquarea = (-largarea/2,0); + direarea = (largarea/2,0); + espessvec = (0,espesarea); + boxarea = esquarea--direarea-- + (direarea+espessvec)--(esquarea+espessvec)--cycle; + traco = ( origin--( dir( tangle ) ) ) scaled 6in; + for i=-largnumtracs upto largnumtracs: + draw traco shifted (2*i*unit,0); + endfor; + clip currentpicture to boxarea; + returnpicture = currentpicture; + currentpicture := nullpicture; + draw tmpicture; + ( returnpicture ) + endgroup +enddef; + +def picketfence = + begingroup + picture storepicture, returnpicture, minor, major, mtics; + path borderbox; + numeric rule; + storepicture := currentpicture; + currentpicture := nullpicture; + pickup pencircle scaled 0; + borderbox = origin--(136mm,0)--(136mm,45mm)--(0,45mm)--cycle; + linecap := butt; + pickup pencircle scaled 5mm; + draw origin--(0,1cm); + resetpic; + minor = tmpicture; + draw origin--(0,1.5cm); + resetpic; + mtics = tmpicture; + draw origin--(0,3cm); + resetpic; + major = tmpicture; + for rule = -5cm step 1cm until 5cm: + draw minor shifted (rule+68mm,0); + endfor; + for rule = -5cm step 5cm until 5cm: + draw major shifted (rule+68mm,0); + endfor; + for rule = -1 step 2 until 1: + draw mtics shifted (rule*5mm+68mm,3cm); + endfor; + linecap := rounded; + pickup pencircle scaled 0; + clip currentpicture to borderbox; + draw borderbox; + returnpicture := currentpicture rotated 180 shifted (136mm,45mm); + currentpicture := storepicture; + ( returnpicture scaled (1/(136mm)) ) + endgroup +enddef; + + +beginfig(1); + numeric u, ma, mb, mc, md, me, mf, mg, mh, mi, mj, mk, ml, mq; + numeric mn, mo, mp, rangle, xzero, ystart, yzero, yend, mr; + numeric magn, xthree, ymed; + picture bancada, tmpicture, storepicture; + path carro, lwheel, rwheel, zoom; + color mygray; + ahangle := 30; + ahlength := 10pt; + u := 1mm; + ma := 2u; + mb := 150u; + mc := 0.25mb; + md := mb-mc; + me := 8u; + mf := 16u; + rangle := -angle(md-mc,mf-me); + mg := 3u; + mh := 7u; + mi := 1.2u; + mj := 4mi; + mk := 0.7mh; + ml := 0.16mb; + mn := mi+mj; + mo := (0.5*mg)+(1.5*ma); + mq := 7u; + mr := (mf*md-me*mc)/(mf-me); + mygray := 0.8white; + magn := 2.5; + linecap := butt; + pickup pencircle scaled ma; + draw (0,0)--(mb,0) wmg; + draw (0,0.5mg)--(mb,0.5mg); + draw (0,-0.5mg)--(mb,-0.5mg); + draw (mi,0)--(mi,mh); + draw (mb-mi,0)--(mb-mi,mh); + draw (mc,0)--(mc,-mf); + draw (md,0)--(md,-me); + linecap := rounded; + draw (-0.5mg,0)--(-mq-2u,0) dashed evenly withpen pencircle scaled 0pt; + path angarc; + angarc = fullcircle cutafter (origin--1.1*dir(-rangle)); + angarc := (angarc rotated 180) scaled (2*(mq+mr)) shifted (mr,0); + draw angarc dashed evenly withpen pencircle scaled 0pt; + label.rt( btex $\theta$ etex scaled magn, point 0.5 of angarc ); + pickup pencircle scaled 0.67ma; + carro := roundedcornersbox( (mn,mo),(mn+ml,mo+mk), 2u ); + draw carro; + lwheel := fullcircle rotated 90 scaled mk shifted (mn+0.2ml,0.5*(mk+mg)); + rwheel := fullcircle rotated 90 scaled mk shifted (mn+0.8ml,0.5*(mk+mg)); + pickup pencircle scaled 0.3ma; + draw lwheel cutafter carro cutbefore carro; + draw rwheel cutbefore carro cutafter carro; + draw picketfence scaled 0.8ml shifted (mn+0.1ml,mo+mk); + + xzero := (0.8ml)*52.5/136+mn+(0.5ml); + ystart := 3.5*(mo+mk); + yzero := 1.05*(mo+mk)+(0.8ml)*45/136; + pickup pencircle scaled 0.3ma; + drawarrow (xzero,ystart)--(xzero,yzero); + label.top( btex $x_0$ etex scaled magn, (xzero,ystart) ); + zoom := fullcircle scaled (0.5ml) shifted (xzero,mo+mk+(0.8ml)*45/136); + storepicture := currentpicture; + clip currentpicture to zoom; + draw zoom; + resetpic; + draw storepicture; + draw tmpicture scaled 2 shifted (-5cm,5mm); + + xthree := 0.5*(mb+mn+ml); + yend := 2mo; + drawarrow (xthree,ystart)--(xthree,yend); + label.top( btex $x_3$ etex scaled magn, (xthree,ystart) ); + mp := 0.8*(mb-0.5*(mb+mn+ml)); + drawarrow (xthree-mp,ystart)--(xthree-mp,yend); + label.top( btex $x_1$ etex scaled magn, (xthree-mp,ystart) ); + drawarrow (xthree+mp,ystart)--(xthree+mp,yend); + label.top( btex $x_2$ etex scaled magn, (xthree+mp,ystart) ); + ymed := 0.5*(ystart+yend); + drawdblarrow (xthree-mp,ymed)--(xthree,ymed); + drawdblarrow (xthree,ymed)--(xthree+mp,ymed); + label.top( btex $D/2$ etex scaled magn, (xthree-(0.5*mp),ymed) ); + label.top( btex $D/2$ etex scaled magn, (xthree+(0.5*mp),ymed) ); + resetpic; + draw tmpicture shifted (-md,me) rotated rangle shifted (0.25mb,0); + bancada := rectracarea( u, 1.2*mb/u, 0.06, 45 ) rotated 180; + draw (-0.6mb,0)--(0.6mb,0); + draw bancada; + resetpic; + draw tmpicture shifted (10.5cm, 3cm ); +endfig; + +beginfig(2); + numeric u, ma, mb, mc, md, me, mf, mg, mh, mi, mj, mk, ml; + numeric mn, mo, rangle, xzero, ystart, yzero, yend; + numeric magn, xthree, ymed, xphot; + picture bancada, tmpicture, storepicture; + path carro, lwheel, rwheel, zoom; + color mygray; + ahangle := 30; + ahlength := 10pt; + u := 1mm; + ma := 2u; + mb := 150u; + mc := 0.25mb; + md := 3mc; + me := 8u; + mf := 11u; + rangle := -angle(md-mc,mf-me); + mg := 3u; + mh := 7u; + mi := 1.2u; + mj := 4mi; + mk := 0.7mh; + ml := 0.16mb; + mn := mi+mj; + mo := (0.5*mg)+(1.5*ma); + drawoptions( withcolor 0.6white ); + linecap := rounded; + pickup pencircle scaled 0.67ma; + carro := roundedcornersbox( (mn,mo),(mn+ml,mo+mk), 2u ); + draw carro; + lwheel := fullcircle rotated 90 scaled mk shifted (mn+0.2ml,0.5*(mk+mg)); + rwheel := fullcircle rotated 90 scaled mk shifted (mn+0.8ml,0.5*(mk+mg)); + pickup pencircle scaled 0.3ma; + draw lwheel cutafter carro cutbefore carro; + draw rwheel cutbefore carro cutafter carro; + draw picketfence scaled 0.8ml shifted (mn+0.1ml,mo+mk); + drawoptions(); + mygray := 0.8white; + linecap := butt; + pickup pencircle scaled ma; + draw (0,0)--(mb,0) wmg; + draw (0,0.5mg)--(mb,0.5mg); + draw (0,-0.5mg)--(mb,-0.5mg); + draw (mi,0)--(mi,mh); + draw (mb-mi,0)--(mb-mi,mh); + draw (mc,0)--(mc,-mf); + draw (md,0)--(md,-me); + + xzero := (0.8ml)*52.5/136+mn+(0.5ml); + ystart := 3.5*(mo+mk); + yzero := 1.05*(mo+mk)+(0.8ml)*45/136; + yend := 2mo; + ymed := 0.5*(ystart+yend); + magn := 2.5; + pickup pencircle scaled 0.3ma; + drawarrow (xzero,ystart)--(xzero,yzero); + label.top( btex $x_0$ etex scaled magn, (xzero,ystart) ); + + pickup pencircle scaled 0.67ma; + carro := roundedcornersbox( (mn+0.5*mb,mo),(mn+ml+0.5*mb,mo+mk), 2u ); + draw carro; + lwheel := fullcircle rotated 90 scaled mk; + lwheel := lwheel shifted (mn+0.2ml+0.5*mb,0.5*(mk+mg)); + rwheel := fullcircle rotated 90 scaled mk; + rwheel := rwheel shifted (mn+0.8ml+0.5*mb,0.5*(mk+mg)); + pickup pencircle scaled 0.3ma; + draw lwheel cutafter carro cutbefore carro; + draw rwheel cutbefore carro cutafter carro; + draw picketfence scaled 0.8ml shifted (mn+0.1ml+0.5*mb,mo+mk); + + pickup pencircle scaled 0; + ahlength := 2pt; + xzero := (0.8ml)*47.5/136+mn+(0.5ml)+0.5*mb; + xphot := (0.8ml)*42.5/136+mn+(0.5ml)+0.5*mb; + magn := 0.625; + drawarrow (xzero,ymed)--(xzero,yzero); + label.rt( btex $x$ etex scaled magn, (xzero,ymed) ); + drawarrow (xphot,ymed)--(xphot,yzero); + label.lft( btex $x_1$ etex scaled magn, (xphot,ymed) ); + drawarrow (xphot-0.1ml,0.5[ymed,yzero])--(xphot,0.5[ymed,yzero]); + draw (xphot,0.5[ymed,yzero])--(xzero,0.5[ymed,yzero]); + drawarrow (xzero+0.1ml,0.5[ymed,yzero])--(xzero,0.5[ymed,yzero]); + label.rt( btex $D/2$ etex scaled magn, (xzero+0.1ml,0.5[ymed,yzero]) ); + + zoom := fullcircle scaled (0.7ml); + zoom := zoom shifted (xzero,mo+mk+(0.8ml)*45/136); + storepicture := currentpicture; + clip currentpicture to zoom; + draw zoom; + resetpic; + draw storepicture; + draw tmpicture scaled 4 shifted (-31cm,5mm); + + resetpic; + draw tmpicture shifted (-md,me) rotated rangle shifted (0.25mb,0); + pickup pencircle scaled 0.3ma; + bancada := rectracarea( u, 1.2*mb/u, 0.06, 45 ) rotated 180; + draw (-0.6mb,0)--(0.6mb,0); + draw bancada; + resetpic; + draw tmpicture shifted (10.5cm, 3cm ); +endfig; + +verbatimtex \end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/convergingspirals.mp b/Master/texmf-dist/doc/metapost/featpost/example/convergingspirals.mp new file mode 100644 index 00000000000..f3498720411 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/convergingspirals.mp @@ -0,0 +1,361 @@ +% convergingspirals.mp +% L. Nobre G. - a twisted mind... +% 2007 + +prologues := 1; + +vardef oper( expr Valu, Slop ) = + (Valu*Slop) +enddef; + +vardef hiperspiral( expr Val, Phi, Pitch ) = + dir(57.29578*Val*(Pitch**2)+Phi)/oper(Val,Pitch) +enddef; + +beginfig(5); %%%%%%%%%%%%%% This figure has one very small bug... %%%%%%% + boolean adddepth; + adddepth = true; + pi = 3.14159; + co = 180/pi; + mar = 0.20cm; + prmax = 6cm; + prmin = 0.85cm; + hrmax = 7cm; + ptmax = 1.699*pi; + pstpnum = 100; + numarquid = 5; + multipl = 5; %%%%%%%%%%%%%%% must be odd for checkerboard %%%%%%%%%%%%%% + checkerdepth = multipl+3; + fac = hrmax/prmax; + alfa = 2*pi/numarquid; + pitcha = prmax/ptmax; + pitchb = prmax/(ptmax-alfa); + numhiperb = numarquid*multipl; + ptstp = ptmax/pstpnum; + ptstb = (ptmax-alfa)/pstpnum; + umin = prmax/10; + vmin = prmax/20; + ustp = (hrmax-umin)/pstpnum; + vstp = (hrmax-vmin)/pstpnum; + + path n[]m[], c[], cutter; + cutter = fullcircle rotated 180 scaled (2prmin); + for i=1 upto 8: + n0m[i] = origin; + endfor; + for i=1 upto pstpnum: + tp := i*ptstp; + tb := i*ptstb; + pu := umin+i*ustp; + vu := vmin+i*vstp; + n0m1 := n0m1--dir(co*tp)*(pitcha*tp+mar); + n0m2 := n0m2--dir(co*tp)*pitcha*tp; + n0m3 := n0m3--dir(co*(tb+alfa))*pitchb*tb; + n0m4 := n0m4--dir(co*(tb+alfa))*(pitchb*tb-mar); + n0m5 := n0m5--dir(co*pitcha/pu)*(pu-fac*mar); + n0m6 := n0m6--dir(co*pitcha/pu)*pu; + n0m7 := n0m7--dir(co*pitchb/vu)*vu; + n0m8 := n0m8--dir(co*pitchb/vu)*(vu+fac*mar); + endfor; + pair flast, hlast; + flast = point pstpnum of n0m6; + hlast = point pstpnum of n0m8; + adif = angle( hlast ) - angle( flast ); + n0m5 := n0m5 rotated adif; + n0m6 := n0m6 rotated adif; + for i=1 upto 8: + n0m[i] := (reverse n0m[i]) cutafter cutter ; + endfor; + for j=1 upto numarquid: + for i=1 upto 4: + n[j]m[i] := n0m[i] rotated (j*alfa*co); +% draw n[j]m[i]; + endfor; + endfor; + for j=1 upto numhiperb: + for i=5 upto 8: + n[j]m[i] := n0m[i] rotated (j*360/numhiperb); +% draw n[j]m[i]; + endfor; + endfor; + distance = pstpnum; + actualspik = 0; + boolean intersectexists; + pair itstm; + for i=1 upto numhiperb: + itstm := n1m2 intersectiontimes n[i]m6; + intersectexists := ( itstm dotprod (-1,1) ) <> 0; + if intersectexists: + if ( (xpart itstm) < distance ): + distance := xpart itstm; + actualspik := i; + fi; + fi; + endfor; + numeric seq[]; + seq0 = actualspik; + for i=1 upto 2checkerdepth: + if (seq[i-1]-1<1): + seq[i] := numhiperb; + else: + seq[i]=seq[i-1]-1; + fi; + endfor; + path ca, cb; + ca = (reverse n1m3)--n1m2; + cb = (reverse n[seq1]m7)--n[seq1]m6; + c0 = buildcycle( cb, reverse n1m1 ); %%%%% may reverse + c1 = buildcycle( ca, n[seq0]m8 ); + for i=2 step 2 until 2checkerdepth: + if i < 2*multipl-1 : + ca := (reverse n[seq[i-2]]m6)--n[seq[i-2]]m7; + c[i] := buildcycle( ca, n2m1 ); + else: + c[i]:=buildcycle(n[seq[i-2]]m7,n2m1,reverse n[seq[i-2]]m6,reverse n0m4); + fi; + c[i+1]:=buildcycle(n[seq[i-2]]m5,n1m3,reverse n[seq[i]]m8,reverse n1m2); + endfor; + if adddepth: + depthadded = 1; + else: + depthadded = 0; + fi; + for i=1 step 2 until 2*checkerdepth+depthadded: + for j=1 upto numarquid: + fill c[i-1] rotated (j*alfa*co) withcolor 0.85*(red+green); + fill c[i] rotated (j*alfa*co) withcolor 0.7*green; + endfor; + endfor; + if not (multipl <> 5): + cb := (reverse n[seq3]m7)--n[seq3]m6; + ca := buildcycle( cb, reverse n1m1 ); %%%%% may reverse + for j=1 upto numarquid: + fill ca rotated (j*alfa*co) withcolor 0.85*(red+green); + endfor; + fi; +endfig; + +beginfig(4); + numeric pstpnum, prmax, i, j, pi, ptmax, ptstp, th, co, mar; + numeric numarquid, numhiperb, multipl, pitcha, pitchb, alfa; + path a, b, c, d, e, f, g, h; + numeric ptstb, hrmax, fac, sn, sm, rn, rm; + pi = 3.14159; + co = 180/pi; + mar = 0.16mm; + prmax = 5mm; + hrmax = 7mm; + ptmax = 1.05*pi; + pstpnum = 100; + numarquid = 5; + multipl = 1; + rn = 4; + rm = 2; + sn = 8; + sm = 6; + fac = hrmax/prmax; + alfa = 2*pi/numarquid; + pitcha = prmax/ptmax; + pitchb = prmax/(ptmax-alfa); + numhiperb = numarquid*multipl; + ptstp = ptmax/pstpnum; + ptstb = (ptmax-alfa)/pstpnum; + a = origin; + b = origin; + c = origin; + d = origin; + for i=1 upto pstpnum: + th := i*ptstp; + a := a--dir(co*th)*pitcha*th; + b := b--dir(co*th)*(pitcha*th+mar); + endfor; + for i=1 upto pstpnum: + th := i*ptstb; + c := c--dir(co*(th+alfa))*pitchb*th; + d := d--dir(co*(th+alfa))*(pitchb*th-mar); + endfor; + for i=1 upto numarquid: +% unfill buildcycle( b , reverse d ) rotated (i*alfa*co); + fill a--reverse c--cycle rotated (i*alfa*co); +% draw a rotated (i*alfa*co) withcolor red+green; +% draw b rotated (i*alfa*co) withcolor red; +% draw c rotated (i*alfa*co) withcolor green; +% draw d rotated (i*alfa*co) withcolor blue; + endfor; + numeric umin, vmin, ustp, vstp, pu, pv; + umin = prmax/20; + vmin = prmax/20; + ustp = (hrmax-umin)/pstpnum; + vstp = (hrmax-vmin)/pstpnum; + e = origin; + f = origin; + g = origin; + h = origin; + for i=1 upto pstpnum: + pu := umin+i*ustp; + e := e--dir(co*pitcha/pu)*(pu-((fac*mar)**2)); + f := f--dir(co*pitcha/pu)*pu; + vu := vmin+i*vstp; + g := g--dir(co*pitchb/vu)*(vu+sqrt(fac*mar)); + h := h--dir(co*pitchb/vu)*vu; + endfor; + pair flast, hlast; + numeric adif; + path hiperbolio, hiperbolic; + flast = point pstpnum of f; + hlast = point pstpnum of h; + adif = angle( hlast ) - angle( flast ); +% draw e withcolor red+blue; +% draw f withcolor red+blue; +% draw g rotated (-adif) withcolor green+blue; +% draw h rotated (-adif) withcolor green+blue; + hiperbolio = (subpath (rn,pstpnum) of g rotated (-adif))... + (subpath (pstpnum,rm) of e)..cycle; + hiperbolic = (subpath (sn,pstpnum) of h rotated (-adif))... + (subpath (pstpnum,sm) of f)..cycle; + for i=1 upto numhiperb: + unfill hiperbolio rotated (i*360/numhiperb); + endfor; + for i=1 upto numhiperb: + fill hiperbolic rotated (i*360/numhiperb) withcolor 0.4*red+0.2*blue; + endfor; + picture storepic; + storepic = currentpicture; + currentpicture := nullpicture; + draw storepic scaled 12; +endfig; + +beginfig(3); + numeric pstpnum, prmax, i, j, pi, ptmax, ptstp, th, co, mar; + numeric numarquid, numhiperb, multipl, pitcha, pitchb, alfa; + path a, b, c, d; + pi = 3.14159; + co = 180/pi; + mar = 0.32; + prmax = 5; + ptmax = 4*pi; + pstpnum = 100; + multipl = 3; + numarquid = 3; + alfa = 2*pi/numarquid; + pitcha = prmax/ptmax; + pitchb = prmax/(ptmax-alfa); + numhiperb = numarquid*multipl; + ptstp = ptmax/pstpnum; + a = origin; + b = origin; + c = origin; + d = origin; + for i=1 upto pstpnum: + th := i*ptstp; + a := a...dir(co*th)*pitcha*th; + b := b...dir(co*th)*(pitcha*th-mar); + c := c...dir(co*(th+alfa))*pitchb*th; + d := d...dir(co*(th+alfa))*(pitchb*th+mar); + endfor; + for i=1 upto numarquid: + drawoptions( rotated (i*alfa*co) scaled 1000 withpen pencircle scaled 0pt); + draw a; + draw b; + draw c; + draw d; + endfor; + %%%%%%%%%%%%%%%%%%%%%%%% A very nice case of knitting Bezier splines... +endfig; + +beginfig(2); + numeric u, numb, faca, numa, numc, rmin, rmax, i, j, pitch, phi; + numeric petch, startang, angstep, ampi, ampe, arcstep, paperfactor; + path b[], base, a[], alto; + numeric valmax, valmin, valstep, valhmin, valhmax; + u = 15mm; + numb = 2; % start at one + faca = 7; + numc = 9; + rmin = 0.3; + rmax = 1.5; + paperfactor = 0.25*u/rmin; + angstep = 1/30; + valstep = 0.017; + numa = numb*faca; + startang = 1/numb; + arcstep = 1/numa; + ampi = numc/faca; + ampe = ampi-startang; + pitch = (rmax-rmin)/ampi; %show pitch; + petch = (rmax-rmin)/ampe; %show petch; + valmin = 1/oper(rmax,pitch); + valmax = 1/oper(rmin,pitch); + valhmin = 1/oper(rmax,petch); + valhmax = 1/oper(rmin,petch); + for i=1 step 2 until 2*numb: + phi := 0.5*i/numb; + b[i-1] = dir(phi*360)*rmin for j=angstep step angstep until ampi: + ...dir((phi+j)*360)*(rmin+pitch*j) + endfor; + b[i] = dir((phi+startang)*360)*rmin for j=angstep step angstep until ampe: + ...dir((phi+startang+j)*360)*(rmin+petch*j) + endfor; + endfor; + base = for i=1 step 2 until 2*numb: b[i-1]...reverse b[i]-- endfor cycle; + fill base scaled paperfactor; + for i=1 step 2 until 2*numa: + phi := 0.5*(i-1)*arcstep*360; + a[i-1] = hiperspiral(valmin,phi,pitch) + for j=valmin+valstep step valstep until valmax: + ...hiperspiral(j,phi,pitch) + endfor; + draw a[i-1] scaled paperfactor withcolor red+green; + phi := 0.5*i*arcstep*360; + a[i] = hiperspiral(valhmin,phi,petch) + for j=valhmin+valstep step valstep until valhmax: + ...hiperspiral(j,phi,petch) + endfor; + draw a[i] scaled paperfactor withcolor red; + endfor; +endfig; + +beginfig(1); + numeric u, numb, faca, numa, numc, rmin, rmax, i, j, pitch, phi; + numeric petch, startang, angstep, ampi, ampe, arcstep; + path b[], base, a[], alto; + u = 15mm; + numb = 3; % start at one + faca = 3; + numc = 5; + rmin = 2u; + rmax = 10u; + angstep = 1/90; % If too big, the figure may be broken... + numa = numb*faca; + ampi = numc/faca; + pitch = (rmax-rmin)/ampi; + startang = 1/numb; + arcstep = 1/numa; + ampe = numc/faca-startang; + petch = (rmax-rmin)/ampe; + for i=1 step 2 until 2*numb: + phi := 0.5*i/numb; + b[i-1] = dir(phi*360)*rmin for j=angstep step angstep until ampi: + ...dir((phi+j)*360)*(rmin+pitch*j) + endfor; + b[i] = dir((phi+startang)*360)*rmin for j=angstep step angstep until ampe: + ...dir((phi+startang+j)*360)*(rmin+petch*j) + endfor; + endfor; + base = for i=1 step 2 until 2*numb: b[i-1]...reverse b[i]-- endfor cycle; + fill base withcolor red; + for i=1 step 2 until 2*numa: + phi := 0.5*i/numa; + a[i-1] = dir(phi*360)*rmin for j=angstep step angstep until 0.5: + ...dir(-(phi+j)*360)*(rmin+2*(rmax-rmin)*j) + endfor; + a[i] = dir((phi+arcstep)*360)*rmin + for j=angstep step angstep until 0.5-arcstep: + ...dir(-(phi+arcstep+j)*360)*(rmin+(rmax-rmin)/(0.5-arcstep)*j) + endfor; + endfor; + alto = for i=1 step 2 until 2*numa: a[i-1]...reverse a[i]-- endfor cycle; + fill alto withcolor green+blue; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/cruztuga.mp b/Master/texmf-dist/doc/metapost/featpost/example/cruztuga.mp new file mode 100644 index 00000000000..2cf8513d4ed --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/cruztuga.mp @@ -0,0 +1,37 @@ +% cruztuga.mp +% L. Nobre G. +% 2007 + +prologues := 1; + +beginfig(1); + numeric u, da, db; + u = 1cm; + da = 1-1/sqrt(2); + db = 3/sqrt(2)-2; + z1 = u*(1.5,0.5); + z2 = u*(1.5,2.5-da); + z3 = u*(3.5+da,4.5); + z4 = u*(-3.5-da,4.5); + z5 = u*(db-1.5,3.5); + z6 = u*(1.5-db,3.5); + z7 = u*(0.5,2.5+db); + z8 = 0.5u*(1,1); + z10= 6u*(1,1); + z11= 6u*(-1,1); + z12= 6u*(-1,-1); + z13= 6u*(1,-1); + path octave; + picture tmppic; + octave = z1--z2--z3--z4--z5--z6--z7--z8--cycle; + fill octave withcolor red; + draw currentpicture xscaled -1; + draw currentpicture rotated 90; + draw currentpicture rotated 180; + tmppic = currentpicture; + currentpicture := nullpicture; + fill z10--z11--z12--z13--cycle; + draw tmppic; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/decorstatement.mp b/Master/texmf-dist/doc/metapost/featpost/example/decorstatement.mp new file mode 100644 index 00000000000..099c11d3296 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/decorstatement.mp @@ -0,0 +1,29 @@ +verbatimtex +\documentclass{article} +\usepackage{bookman} +\pagestyle{empty} +\begin{document} +etex + +input boxes; + +beginfig(0); + picture thestatement; + thestatement = thelabel( btex + \begin{tabular}{c} + Pictures \\ + from \\ + Out There + \end{tabular} + etex, origin); + circleit.state( thestatement ); + state.dx = state.dy; + pickup pencircle scaled 1pt; + fill bpath.state withcolor (0.25,0.33,0.75); + draw bpath.state; + draw thestatement; +endfig; + +verbatimtex \end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/defaultcmr.mp b/Master/texmf-dist/doc/metapost/featpost/example/defaultcmr.mp new file mode 100644 index 00000000000..01371bc9255 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/defaultcmr.mp @@ -0,0 +1,32 @@ +% defaultcmr.mp +% use dvips -Pcmz + +beginfig(0); + picture sent[]; + numeric xCoord, i; + color one, two, thr, fur; + one = (0.13333,0.54510,0.13334); + two = (0.74118,0.71764,0.41961); + thr = (0.80000,0.20000,0.20000); + fur = (0.00000,0.85000,1.00000); + xCoord = 3in; + + defaultfont := "cmbx12"; + defaultscale := 6.5; + + sent1 = thelabel( " ", (xCoord, 6in) ); + sent2 = thelabel( "Be", (xCoord, 5in) ); + sent3 = thelabel( "Aware", (xCoord, 4in) ); + sent4 = thelabel( "of", (xCoord, 3in) ); + sent5 = thelabel( "Technical", (xCoord, 2in) ); + sent6 = thelabel( "Arrogance.", (xCoord, 1in) ); + for i = 1 upto 4: + draw sent[i] withcolor two; + endfor; + for i = 5 upto 6: + draw sent[i] withcolor thr; + endfor; +endfig; + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/derivondatriang.mp b/Master/texmf-dist/doc/metapost/featpost/example/derivondatriang.mp new file mode 100644 index 00000000000..7081d590437 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/derivondatriang.mp @@ -0,0 +1,82 @@ + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +def marktic( expr Where, IsVertical, Size ) = + begingroup + pair low, hig; + if IsVertical: + low = ( xpart Where, (ypart Where) - 0.5*Size ); + hig = ( xpart Where, (ypart Where) + 0.5*Size ); + else: + low = ( (xpart Where) - 0.5*Size, ypart Where ); + hig = ( (xpart Where) + 0.5*Size, ypart Where ); + fi; + draw low--hig + endgroup +enddef; + +beginfig(1); + numeric u, xsize, ysize, ticlen, xstep, yamp, yshift; + path o.dtriang, xax, yax; + picture previouspic; + u = 8mm; + xsize = 9u; + ysize = 2.7u; + ticlen = 0.2u; + yamp = 1.8u; + xstep = 1.6u; + yshift = 6.0u; + z0 = origin; + z1 = ( xsize, 0 ); + xax = z0--z1; + z2 = ( 0, -ysize ); + z3 = ( 0, ysize ); + yax = z2--z3; + z4 = ( 0, -yamp ); + z40 = ( 0, yamp ); + z5 = ( xstep, yamp ); + z50 = ( xstep, 0 ); + z6 = ( 2*xstep, -yamp ); + z60 = ( 2*xstep, 0 ); + z7 = ( 3*xstep, yamp ); + z70 = ( 3*xstep, 0 ); + z8 = ( 4*xstep, -yamp ); + z80 = ( 4*xstep, 0 ); + z9 = ( 5*xstep, yamp ); + z90 = ( 5*xstep, 0 ); + o.dtriang = z4--z5--z6--z7--z8--z9; + drawarrow xax; + drawarrow yax; + marktic( z4, false, ticlen ); + marktic( z40, false, ticlen ); + marktic( z50, true, ticlen ); + marktic( z60, true, ticlen ); + marktic( z70, true, ticlen ); + marktic( z80, true, ticlen ); + marktic( z90, true, ticlen ); + label.bot( btex $x$ etex, z1 ); + label.bot( btex 1 etex, z50 ); + label.bot( btex 2 etex, z60 ); + label.bot( btex 3 etex, z70 ); + label.bot( btex 4 etex, z80 ); + label.bot( btex 5 etex, z90 ); + previouspic = currentpicture; + draw previouspic shifted (0,-yshift); + label.lft( btex $\frac{d\, f}{d\, x}$ etex scaled 1.35, (0,ysize-yshift) ); + label.lft( btex $f$ etex, z3 ); + draw o.dtriang withpen pencircle scaled 2pt; + label.lft( btex 2 etex, z40 ); + label.lft( btex -2 etex, z4 ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/diameters.mp b/Master/texmf-dist/doc/metapost/featpost/example/diameters.mp new file mode 100644 index 00000000000..82bae329765 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/diameters.mp @@ -0,0 +1,36 @@ + +beginfig(1); + pair po, pa, pb, pc, pd, pe, pf, pg; + numeric u, ang, bigray, smaray, i; + path smacirc, heigray; + u = 0.2mm; + ang = 40; + bigray = 250u; + smaray = 205u; + po = (105mm,145mm); + pa = po - bigray*dir( ang ); + pb = po + (2*smaray-bigray)*dir( ang ); + pc = po + bigray*dir( ang ); + pe = po + bigray*dir( ang + 90 ); + pf = po + (smaray-bigray)*dir( ang ); + pg = po - bigray*dir( ang + 90 ); + heigray = po--pe; + smacirc = (fullcircle scaled (2*smaray)) shifted pf; + pd = heigray intersectionpoint smacirc; + draw pg--pe; + draw smacirc; + draw (fullcircle scaled (2*bigray)) shifted po; + draw pc--pa--pd--pb; + draw pd--pe withcolor red; + draw pb--pc withcolor red; + dotlabel.bot( "O", po ); + dotlabel.llft( "A", pa ); + dotlabel.bot( "B", pb ); + dotlabel.urt( "C", pc ); + dotlabel.top( "D", pd ); + dotlabel.ulft( "E", pe ); + dotlabel.top( "F", pf ); +endfig; + +end. + \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/directfonts.mp b/Master/texmf-dist/doc/metapost/featpost/example/directfonts.mp new file mode 100644 index 00000000000..975aa905e5d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/directfonts.mp @@ -0,0 +1,20 @@ +% directfonts.mp +% Check out /usr/share/texmf/fonts/tfm/public/ +% or /usr/TeX/texmf/fonts/tfm/public + +prologues := 3; + +beginfig(0); + numeric xCoord; + xCoord = 3in; + defaultfont := "bchr8r"; + label( "QWERTYUIOPasdfghjklZXCVBNM", (xCoord, 4cm) ); + label( "What gives?", (xCoord, 3cm) ); + defaultfont := "cmss17"; + label( "0.123,456,789", (xCoord, 2cm) ); +% defaultfont := "fplmr"; +% label( "áéíóúàèìòùãõçÁÉÍÓÚÀÈÌÒÙÃÕÇ°", (xCoord, 0) ); +endfig; + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/durgayantra.mp b/Master/texmf-dist/doc/metapost/featpost/example/durgayantra.mp new file mode 100644 index 00000000000..8c729149e6a --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/durgayantra.mp @@ -0,0 +1,174 @@ +% durgayantra.mp +% L. Nobre G. +% 2010 + +prologues := 1; + +numeric u, numthings, bang, tang, hei, rb, rt, ro; +numthings = 8; +bang = 75; +tang = 75; +rb = u+hei; +rt = rb+hei; +ro = rt+2.5mm; +numeric adang, reflen, marlen, sqrlen; +adang = 19.896; +reflen = 0.4*ro; +marlen = ro*sqrt(2)*(sind(45+adang)-0.5*sqrt(2)); +hei = marlen/6; +ro+marlen+hei = 18mm; % defines u and hei +color fundo, risco; +fundo = (15*16+15,14*16+11,12*16+13)/255; +risco = (11*16-15,3*16-14,15*16-15)/255; + +vardef makedurgayantra = + path outercircle, firstcircle, seconcircle; + draw fullcircle scaled (2*u); + draw fullcircle scaled (2*rb); + draw fullcircle scaled (2*rt); + path pthingb, pthingbr; + pthingb = (rt,0){dir(90-bang)}.. + {dir(180/numthings+90-tang)}(ro*dir(180/numthings)); + pthingbr = pthingb yscaled (-1); + numeric i; + for i=1 upto numthings: + draw (reverse pthingbr) rotated ((i+0.5)*360/numthings); + draw pthingb rotated ((i+0.5)*360/numthings); + endfor; + z200 = (ro+marlen,0); + z201 = (ro+marlen,1.5*reflen); + z202 = (ro+0.5*marlen,1.5*reflen); + z203 = (ro+0.5*marlen,0.5*reflen); + z204 = (ro,0.5*reflen); + z205 = (ro,ro); + z100 = z200-(hei,0); + z101 = z201-(hei,hei); + z102 = z202+(hei,-hei); + z103 = z203+(hei,-hei); + z104 = z204-(hei,hei); + z105 = z205-(hei,hei); + z300 = z200+(hei,0); + z301 = z201+(hei,hei); + z302 = z202-(hei,-hei); + z303 = z203-(hei,-hei); + z304 = z204+(hei,hei); + z305 = z205+(hei,hei); + path octp[], octpr[]; + numeric j; + octp[1] = z200--z201--z202--z203--z204--z205; + octp[0] = z100--z101--z102--z103--z104--z105; + octp[2] = z300--z301--z302--z303--z304--z305; + for j=0 upto 2: + octpr[j] = (reverse octp[j]) yscaled (-1) ; + for i=1 upto 4: + draw octpr[j] rotated (i*90); + draw octp[j] rotated (i*90); + endfor; + endfor; + z1 = (0,-u); + z2 = u*0.5*(sqrt(3),1); + z3 = u*0.5*(-sqrt(3),1); + draw z1--z2--z3--cycle; + numeric refang, xr, dr; + xr = sqrt(15); + dr = (xr-sqrt(3))*u*0.25; + refang = angle(xr,1); show refang; + z11 = u*0.25*(xr,-1); + z12 = 0.5[z2,z3]+dr*dir(60); + z13 = 0.5[z2,z3]+dr*dir(120); + z14 = u*0.25*(-xr,-1); + z15 = 0.5[z1,z3]+dr*dir(-120); + z16 = 0.5[z2,z1]+dr*dir(-60); +% z11 = u*dir(-refang); +% z12 = u*dir(90-refang); +% z13 = u*dir(90+refang); +% z14 = u*dir(refang-180); +% z15 = u*dir(3*refang-180); +% z16 = u*dir(-3*refang); + draw z11--z12--z15--z16--z13--z14--cycle; +enddef; + +beginfig(1); + numeric hs, al, do, m, diamfur, mfur; + hs = 20mm; + al = 16cm; +% do = 3mm; + do = 0; + m = 3.8mm; +% diamfur = 3mm; + mfur = 6mm; + z21 = (hs,m-hs); + z22 = (hs,al-hs+do-m); + z23 = (hs-m,al-hs+do); + z24 = (m-hs,al-hs+do); + z25 = (-hs,al-hs+do-m); + z26 = (-hs,m-hs); + z27 = (m-hs,-hs); + z28 = (hs-m,-hs); + fill z21---z22...z23---z24...z25---z26...z27---z28...cycle withcolor fundo; +% draw (hs,al-hs)--(-hs,al-hs) dashed evenly; +% draw fullcircle scaled diamfur shifted (mfur-hs,al-hs-mfur); +% draw fullcircle scaled diamfur shifted (hs-mfur,al-hs-mfur); + + drawoptions( withpen pencircle scaled 0.3mm withcolor risco ); + makedurgayantra; + drawoptions( withpen pencircle scaled 0.1mm withcolor risco ); + numeric lettersiz, lr, ls, lh; + lettersiz = 1.1mm; + lr = 1+0.5*sqrt(2); + ls = 0.9mm; + lh = lettersiz*lr; + path lepa[]; + pair av, auxa, lc, auxd; + numeric lph[], auxb, auxc; + auxc = 0.5*lettersiz; + lc = (hs-m,0.5*al-hs); + av = (auxc,lh); + lepa0 = origin--av--(lettersiz,0); + lph0 = 0; + auxa = (lh-lettersiz)*unitvector(av); + lepa7 = auxa--(lettersiz-xpart auxa, ypart auxa); + lph7 = 0; + lepa1 = origin--(0,lh)---av...(auxc,lh-lettersiz)---(0,lh-lettersiz); + lph1 := lettersiz+ls; + lepa2 = origin--(0,lh)--(auxc,lh-auxc)--(lettersiz,lh)--(lettersiz,0); + lph2 = 2*(lettersiz+ls); + auxb = 0.25*lettersiz*sqrt(2); + lepa3 = (auxc-auxb,0.5*lh+auxb)--(auxc+auxb,0.5*lh-auxb); + lepa13 = (auxc-auxb,0.5*lh-auxb)--(auxc+auxb,0.5*lh+auxb); + lph3 = 3*(lettersiz+ls); + lph13 = lph3; + lepa4 = (0,lh)--origin--(lettersiz,0); + lph4 = 4*(lettersiz+ls); + lepa5 = origin--(0,lh)--(lettersiz,0)--(lettersiz,lh); + lph5 = 5*(lettersiz+ls); + lepa6 = (lettersiz,lh-auxc){up}...av...(0,lh-auxc)---(0,auxc)...(auxc,0)...(lettersiz,auxc)--(auxc,auxc); + lph6 = 6*(lettersiz+ls); + lepa8 = (lettersiz,auxc)--(lettersiz,0); + lph8 = lph6; + auxd = sqrt(2)*auxc*(1,1); + lepa9 = (0,lh-auxc){up}...av...(lettersiz,lh-auxc)...auxd---origin--(lettersiz,0); + lph9 = 8*(lettersiz+ls); + lepa10 = (0,auxc)---(0,lh-auxc)...av...(lettersiz,lh-auxc)---(lettersiz,auxc)...(auxc,0)...cycle; + lph10 = lph9 + lettersiz + ls; + lepa11 = (0,lh-ypart auxd)--(xpart auxd,lh)--(xpart auxd,0); + lph11 = lph10 + lettersiz + ls; + lepa12 = lepa10; + lph12 = lph11 + ls + xpart auxd; + numeric i; + for i=0 upto 13: + draw lepa[i] rotated 90 shifted (lc+(0,lph[i])); + endfor; + picture finalpicture; + finalpicture = currentpicture; + currentpicture := nullpicture; + drawoptions(); + draw finalpicture rotated (-45); +endfig; + +beginfig(2); +% drawoptions( withcolor risco ); + makedurgayantra; +endfig; + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/electrospiral.mp b/Master/texmf-dist/doc/metapost/featpost/example/electrospiral.mp new file mode 100644 index 00000000000..7ed2200e9f0 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/electrospiral.mp @@ -0,0 +1,50 @@ +% electrospiral.mp +% L. Nobre G. +% 2004 + +numeric turnstep; +turnstep = 1cm; + +def spiral( expr Ang ) = + begingroup + numeric k, r; + k = turnstep/360.0; + r = k*Ang; + ( r*dir(Ang) ) + endgroup +enddef; + +beginfig(1); + numeric i, angstep, actx, ray, corner, sider; + path spir, cutter; + pair thispos, sw, nw, ne, se, actpos; + angstep = 30; + ray = 0.7mm; + corner = 4.2; + sider = 10.5; + spir = origin.. + for i=angstep step angstep until 4000-1: + spiral(i).. + endfor + spiral(4000); + draw spir; + actx = 1; + forever: + thispos := (turnstep*actx,0); + for i=1 upto actx: + actpos := thispos+ray*normaldeviate*dir(uniformdeviate(359)); + draw actpos withpen pencircle scaled 1.5mm; + endfor; + actx := 2*actx; + exitif actx > 9; + endfor; + sw = turnstep*(-corner,-corner); + nw = turnstep*(-corner,corner); + ne = turnstep*(sider,corner); + se = turnstep*(sider,-corner); + cutter = sw--nw--ne--se--cycle; + clip currentpicture to cutter; +endfig; + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ellipticextrusionpress.mp b/Master/texmf-dist/doc/metapost/featpost/example/ellipticextrusionpress.mp new file mode 100644 index 00000000000..ed2b4cbfdb0 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ellipticextrusionpress.mp @@ -0,0 +1,31 @@ +% ellipticextrusionpress.mp +% L. Nobre G. +% 2011 + +prologues := 1; + +beginfig(1); + numeric u, a, b, i, j, n, angstep, halflen; + pair vec[]; + u = 1cm; + a = 8u; + b = 2u; + n = 40; + angstep = 180/n; + halflen = a*0.5*3.14159; + draw (-halflen,u)--(halflen,u); + draw (-u,u)--(-u,0)--(u,0)--(u,u); + for i=0 upto n: + vec[i] = (a*sind(i*angstep),-b*cosd(i*angstep)); + draw ((-halflen,a)+vec[i]) + for j=1 upto n: + --((a*j*3.14159/n-halflen,a)+(vec[i] rotated (-j*angstep))) + endfor; + endfor; + draw ((0,a)+(vec[0] rotated (-90))) + for j=1 upto n: + ..((0,a)+(vec[j] rotated (-90))) + endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ellipticproperties.mp b/Master/texmf-dist/doc/metapost/featpost/example/ellipticproperties.mp new file mode 100644 index 00000000000..48ee6905a2d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ellipticproperties.mp @@ -0,0 +1,45 @@ +% ellipticproperties.mp +% L. Nobre G. +% 2011 + +prologues := 1; + +beginfig(1); + numeric b, k, kt, theta, i, ste, N, aux, cp, cm; + numeric gamma, gammb, alpha, rhoa, alphb, rhob, fx, fy; + pair X, Y, A, B, U, L; + path ell; + b = 35; + k = 0.85; + theta = 30; + ste = 10; + N = 5; + X = k*b*right; + Y = b*dir(90-theta); + ell = for i=ste step ste until 360: (X*cosd(i)+Y*sind(i)).. endfor cycle; + draw ell; + draw Y--origin--X; + alpha = 0.5*angle((k**2)-1,2*k*sind(theta)); + alphb = 0.5*angle(1-(k**2),2*k*sind(-theta)); + A = X*cosd(alpha)+Y*sind(alpha); + B = X*cosd(alphb)+Y*sind(alphb); + draw B--origin--A; + rhoa = abs(A); + gamma = angle(A); + rhob = abs(B); + gammb = angle(B); + kt = rhoa/rhob; + for i=1 upto N: + aux := rhoa+(i-0.5)*k*b; + fx := aux*cosd(gamma); + fy := aux*sind(-gamma); + cp := (rhob*fx/kt+fy*((fx/kt)++fy+-+rhob))/(((fx/kt)**2)+(fy**2)); + cm := (rhob*fx/kt-fy*((fx/kt)++fy+-+rhob))/(((fx/kt)**2)+(fy**2)); + U := A*cm-B*(1+-+cm); + L := A*cp+B*(1+-+cp); + draw U--L--(aux,0)--cycle withcolor blue; + draw 0.5[U,L]; + endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/elliptictable.mp b/Master/texmf-dist/doc/metapost/featpost/example/elliptictable.mp new file mode 100644 index 00000000000..f1ac37c58d8 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/elliptictable.mp @@ -0,0 +1,83 @@ +% elliptictable.mp +% L. Nobre G. +% 2006 + +verbatimtex \documentclass{article} \begin{document} etex + +beginfig(1); + numeric u, l, mar, h, i, s, ai, bi, ao, bo, d; + u = 0.85mm; + l = 125u; + d = 0.5l; + mar = 12.0u; + h = 70u; + s = 5; + z1 = (l-2mar,0); + z2 = (l-mar,0); + z3 = (l,0); + z5 = (l-2mar,d-mar); + z6 = (l-2mar,d); + z7 = (l-mar,d); + z8 = (l,d); + z10= (l-2mar-h,d-mar); + z11= (l-2mar-h,d); + z12= (0,d); + z13= (0,d-mar); + ai = l-2mar; + bi = (d-mar)/(1+-+((l-2mar-h)/ai)); + z14= (ai+-+bi,0); + ao = l-mar; + bo = d/(1+-+((l-2mar-h)/ao)); + z15= (ao+-+bo,0); + path ellin, elout, cutpe, cutpb, bordo; + ellin = z1 for i=s step s until 90: ..(ai*cosd(i),bi*sind(i)) endfor; + elout = z2 for i=s step s until 90: ..(ao*cosd(i),bo*sind(i)) endfor; + cutpe = (1.1[z11,z10])--(1.1[z10,z11]); + cutpb = z1--z6; + bordo = elout cutafter cutpe cutbefore cutpb; + z4 = point 0 of bordo; + z9 = bordo intersectionpoint (z5--z13); + draw z3--z8--z6--z4; + draw z5--z9; + draw z2--z7; + draw ellin--z12--z11--(reverse bordo)--z1; + draw z6--z11--z10; + draw currentpicture xscaled -1; + pen pendot; + pendot = pencircle scaled 2u; + z22= (l,d-mar*ai/bi); + z23= (l-2mar,d-mar*ai/bi); +% draw z22{up}..z7{left}..{down}z23; + z24= z7+down*mar; + draw z22--z24--z23; + drawoptions( dashed evenly ); + z17 = (ai,bi)*sqrt(2.0)*0.5; + z18 = z17 - h*unitvector((bi,ai)); + draw z17--z18; + z19 = (0,-y18-x18*bi/ai); + z20 = z19+whatever*(ai,-bi); + z20 = z17-whatever*(bi,ai); + z21 = z20-l*unitvector((ai,-bi)); + draw z20--z21; + drawoptions(); + draw z14 withpen pendot; + draw z15 withpen pendot; + draw z17 withpen pendot; +% dotlabels.bot( 17, 18, 20, 21 ); + picture tmppic; + tmppic = currentpicture; + currentpicture := nullpicture; + z16= (105mm,145mm); + draw tmppic rotated 90 shifted z16; + draw tmppic rotated -90 shifted z16; + label.rt( decimal((x14)/u), z14 rotated 90 shifted z16 ); + label.lft( decimal((x15)/u), z15 rotated 90 shifted z16 ); + label.rt( decimal((x17)/u), z17 rotated 90 shifted z16 ); + tmppic := currentpicture; + currentpicture := nullpicture; + draw tmppic shifted (-z16) rotated (-90) shifted z16; +endfig; + +verbatimtex \end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ellipticthing.mp b/Master/texmf-dist/doc/metapost/featpost/example/ellipticthing.mp new file mode 100644 index 00000000000..d681c99fe4d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ellipticthing.mp @@ -0,0 +1,47 @@ +% ellipticthing.mp +% L. Nobre G. +% 2011 + +prologues := 1; + +beginfig(1); + numeric u, a, b, i, n, astep; + u = 1cm; + a = 5u; + b = 3u; + n = 24; + astep = 360/n; + path elli, arcb; + elli = (a,0) for i=1 upto (n-1): + ..(a*cosd(i*astep),b*sind(i*astep)) + endfor ..cycle; + draw elli; + draw fullcircle scaled (2*b); + draw fullcircle scaled (a-b) shifted (0.5*(a+b),0); + draw fullcircle scaled (a-b) shifted (-0.5*(a+b),0); + pair refpoint, refslope, centerpo, focus; + refpoint = (a,b)/sqrt(2); + refslope = unitvector(b,a); + centerpo = refpoint + whatever*refslope; + xpart centerpo = 0; + draw centerpo--refpoint; + draw centerpo--(-xpart refpoint,ypart refpoint); + numeric len, ang, lenb, angb; + len = abs(refpoint-centerpo); + ang = angle(refpoint-centerpo); + draw refpoint for i=1 upto n: + ..(centerpo+len*dir(2*i*(90-ang)/n+ang)) + endfor; + focus = (4u,0); + lenb = abs(focus-centerpo); + angb = angle(focus-centerpo); + arcb = focus for i=1 upto n: + ..(centerpo+lenb*dir(2*i*(90-angb)/n+angb)) + endfor; + draw arcb; + draw arcb rotated 180; + draw centerpo--focus; + draw centerpo--(-xpart focus,ypart focus); +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/equilatrianglelines.mp b/Master/texmf-dist/doc/metapost/featpost/example/equilatrianglelines.mp new file mode 100644 index 00000000000..c77731e971b --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/equilatrianglelines.mp @@ -0,0 +1,40 @@ +% equilatrianglelines.mp +% L. Nobre G. +% 2009 + +prologues := 1; + +beginfig(1); + numeric u, factordown, ang, angl, angh, ydown, xl, xh, astep; + pen pendot; + path uline, rline, dline; + pair auxp; + u = 2cm; + factordown = 2.34; + astep = 2.75; + xl = -2u; + xh = 10u; + angl = 7; + angh = 38; + pendot = pencircle scaled (2.5mm); + ydown = -u*factordown; + uline = (xl,u)--(xh,u); + rline = uline rotated (-60); + dline = (xl,ydown)--(xh,ydown); + draw uline; + draw (xl,0)--(xh,0); + draw dline; + draw rline; + z1 = rline intersectionpoint dline; + draw z1 withpen pendot; + draw origin withpen pendot; + for ang=angl step astep until angh: + pair uapex; + ypart uapex = u; + uapex = whatever*dir(ang); + auxp := uapex+abs(uapex)*dir(ang-120); + draw origin--uapex--auxp--cycle; + endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/esteveslogo.mp b/Master/texmf-dist/doc/metapost/featpost/example/esteveslogo.mp new file mode 100644 index 00000000000..3525e4fc059 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/esteveslogo.mp @@ -0,0 +1,52 @@ + +prologues:=1; + +numeric u; +1u = 1mm; + + +beginfig (1); + + a = 40u; + g = 90; + + z1 = right rotated g scaled a; + z2 = z1 rotated 120; + z3 = z1 rotated 240; + + path c[]; + c1 = fullcircle rotated g scaled 1/2a; + for k = 2 upto 4: + c[k] = c1 scaled k; + endfor + + p = 2q; + p + q = 1/4a; + d = 2q; + + path r[], s[], s[]'; + for k = 1 upto 3: + r[k] = (0,0)--z[k]; + s[k] = r[k] shifted (down scaled (p/2+d) rotated angle z[k]); + s[k]' = r[k] shifted (up scaled (p/2+d) rotated angle z[k]); + endfor + + pen rpen, cpen; + cpen := pencircle scaled p; + rpen := pencircle scaled p; + + pickup cpen; + filldraw c1 withcolor 0.75 red; + + linecap := rounded; + draw c2 cutbefore s1' cutafter s1; + draw c3 cutbefore s1' cutafter s2; + draw c3 cutbefore s2' cutafter s1; + draw c4 cutbefore s1' cutafter s2; + draw c4 cutbefore s2' cutafter s3; + draw c4 cutbefore s3' cutafter s1; + +endfig; + + +end \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/experimental2Dsetup.mp b/Master/texmf-dist/doc/metapost/featpost/example/experimental2Dsetup.mp new file mode 100644 index 00000000000..d922453286e --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/experimental2Dsetup.mp @@ -0,0 +1,175 @@ +% experimental2Dsetup.mp +% L. Nobre G. +% 2002 + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +beginfig(1); +% linecap := squared; + + numeric salto, shif, rotang, cfac, posang; + numeric innerray, outerray, midleray, thebiray, otherray; + numeric midmidcir, midotharc, lblfac, wavecray, midwavarc; + path loricir, roricir, baserec, sampleh, wavecarc; + path innercirc, outercirc, midlecirc, otherarch; + path oridirh, oridirn, oridirp, oridirv, oridire; + path dirhoriz, dirnegat, dirposit, dirverti, direff; + path lowcut, higcut, glassre, wavecarch, field; + pair midmidcirpos, midotharcpos, midwavarcpos, mideffcirpos; + pen thickpen; + color samplecolor, magnetcolor, samplebordercolor; + picture lblpiplu, lblalpha, lblwavec, lblqu, lblno, lblfield; + numeric hei, wid, thi, pro, pol, mar; + path themagnet, effcirc, diry, oridiry; + numeric circleray, squareray, glasssize, effang, effraya, effrayb; + picture lblx, lbly, lbleff; + numeric mideffcir, yray; + pair lastoridire; + + pickup pencircle scaled 0.15mm; + thickpen = pencircle scaled 1.7bp; + + samplecolor = 0.88white; + magnetcolor = 0.37white; + samplebordercolor = 0.1white; +% samplecolor = (0.85,0.9,0.8); +% magnetcolor = (0.2,0.27,0.58); +% samplebordercolor = blue; + salto = 1mm; + rotang = 7; + posang = -28; + effang = -20; + shif = 50salto; + thi = 5salto; + pol = 25salto; + pro = 8salto; + wid = 58salto; + cfac = 0.5; + lblfac = 1.5; + innerray = 27salto; + circleray = 0.93innerray; + squareray = 0.93circleray; + glasssize = 0.42squareray; + outerray = 60salto; + midleray = 55salto; + yray = 53salto; + thebiray = 145salto; + otherray = 115salto; + wavecray = 0.5*(thebiray+otherray); + effraya = 0.45*(midleray+otherray); + effrayb = 0.56*(midleray+otherray); + innercirc = fullcircle scaled innerray; + outercirc = fullcircle scaled outerray; + midlecirc = (halfcircle cutbefore (origin--dir(90+posang))) + scaled midleray; + midmidcir = 0.5*length midlecirc; + midmidcirpos = point midmidcir of midlecirc; + effcirc = ((halfcircle cutbefore (origin--dir(90+effang))) + cutafter (origin--up)) + scaled effraya; + mideffcir = 0.5*length effcirc; + mideffcirpos = point mideffcir of effcirc; + otherarch = ((halfcircle cutbefore (origin--dir(90+posang))) + cutafter (origin--up)) + scaled otherray; + midotharc = 0.5*length otherarch; + midotharcpos = point midotharc of otherarch; + wavecarch = ((halfcircle cutafter (origin--dir(90+rotang))) + cutbefore (origin--up)) + scaled wavecray; + midwavarc = 0.5*length wavecarch; + midwavarcpos = point midwavarc of wavecarch; + oridirh = origin--0.5*outerray*left; + oridirv = origin--0.5*thebiray*up; + oridirn = origin--0.5*thebiray*dir(90+rotang); + oridirp = origin--0.5*wavecray*dir(90+posang); + oridiry = origin--0.5*yray*dir(180+posang); + lastoridire = 0.5*effrayb*dir(90+effang); + oridire = origin--lastoridire; + dirhoriz = oridirh cutbefore innercirc; + dirverti = oridirv cutbefore innercirc; + dirnegat = oridirn cutbefore innercirc; + dirposit = oridirp cutbefore innercirc; + direff = oridire cutbefore innercirc; + diry = oridiry cutbefore innercirc; + field = (0.5innerray,0)--(0.5wid-salto,0); + loricir = halfcircle scaled circleray rotated 90; + roricir = halfcircle scaled circleray rotated 270; + baserec = (unitsquare shifted (-0.5*(1,1))) + xscaled 2 + scaled squareray; + glassre = (unitsquare shifted (-0.5*(1,1))) + yscaled (13.0/6.0) + scaled glasssize; + lowcut = subpath (0,1) of baserec; + higcut = subpath (2,3) of baserec; + sampleh = buildcycle( higcut, loricir, reverse lowcut, roricir ); + draw glassre rotated 90 dashed evenly withcolor (cfac*white); +% draw glassre rotated rotang dashed evenly withcolor (cfac*(white-blue)); + fill glassre rotated posang withcolor samplecolor; + draw glassre rotated posang withcolor samplebordercolor; + draw sampleh rotated posang withpen thickpen withcolor blue; + drawarrow reverse midlecirc; + drawarrow reverse otherarch; + drawarrow wavecarch; + drawarrow reverse effcirc; + draw dirhoriz dashed evenly scaled 2; + draw dirverti dashed evenly scaled 2; + drawarrow dirnegat withpen thickpen; + drawarrow dirposit withpen thickpen; + drawarrow direff withpen thickpen; + drawarrow reverse field withpen thickpen; + drawarrow direff withpen thickpen; + drawarrow diry withpen thickpen; + lblpiplu = btex $\alpha = \frac{\pi}{2}+\beta$ etex scaled lblfac; + lblalpha = btex $\beta$ etex scaled lblfac; + lblwavec = btex $\Psi$ etex scaled lblfac; + lblqu = btex $\vec{q}\,$ etex scaled lblfac; + lblno = btex $\vec{n}_0$ etex scaled lblfac; + lblfield = btex $\vec{B}$ etex scaled lblfac; + lblx = btex $x$ etex scaled lblfac; + lbly = btex $y$ etex scaled lblfac; + lbleff = btex $\beta_{\mbox{\small eff}}$ etex scaled lblfac; + label.ulft( lblpiplu, midmidcirpos ); + label.top( lblalpha, midotharcpos ); + label.top( lblwavec, midwavarcpos ); + label.llft( lblqu, point 0.7 of dirnegat ); + label.lrt( lblx, point 0.7 of dirposit ); + label.top( lblfield, point 0.5 of field ); + label.llft( lbly, point 0.5 of diry ); + label.top( lbleff, mideffcirpos ); + label.top( lblno, lastoridire ); + hei = pol+4thi; + mar = (hei-2*thi-pol)*0.5; + z100 = (pro,mar); + z0 = (wid,pol)*0.5; + z1 = z0 + z100; + z2 = z1 + (thi,0); + z3 = (xpart z2, pol*0.5+mar-hei); + z4 = (-xpart z2, ypart z3); + z5 = (-xpart z2, ypart z2); + z6 = (-xpart z1, ypart z1); + z7 = (-xpart z0, ypart z0); + z8 = (xpart z7, -pol*0.5); + z9 = z8 - z100; + z10 = z9 - (0,thi); + z11= (xpart z1, ypart z10); + z12= z11+ (0,thi); + z13= (xpart z0, -ypart z0); + themagnet = z0--z1--z2--z3--z4--z5--z6--z7-- + z8--z9--z10--z11--z12--z13--cycle; + fill themagnet withcolor magnetcolor; + draw themagnet withpen thickpen; +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/f1aula03.mp b/Master/texmf-dist/doc/metapost/featpost/example/f1aula03.mp new file mode 100644 index 00000000000..2b82f4af231 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/f1aula03.mp @@ -0,0 +1,104 @@ +% f1aula03.mp +% L. Nobre G. +% 2010 removed package icomma + +verbatimtex +\documentclass{beamer} +\usepackage{amsmath,amssymb} +\usepackage[squaren]{SIunits} +\usepackage[latin1]{inputenc} +\usepackage[portuges]{babel} +\newcommand{\veri}{\ensuremath{\hat{\text{i}}}} +\newcommand{\verj}{\ensuremath{\hat{\text{j}}}} +\newcommand{\verk}{\ensuremath{\hat{\text{k}}}} +\newcommand{\veru}{\ensuremath{\hat{\text{u}}}} +\newcommand{\emf}{\ensuremath{\mathcal{E}}} +\newcommand{\vecnorm}[1]{\left|\left|\vec{#1}\right|\right|} +\renewcommand{\arraystretch}{1.45} +\begin{document} +\frame{ +etex + +ahangle := 36; +ahlength := 3.5mm; +labeloffset := 3.5mm; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {} [] +beginfig(1); + pen basepen, vecpen; + basepen = pencircle scaled 0.5mm; + vecpen = pencircle scaled 1.15mm; + path mainaxe; + numeric malen, mastep, matic, lscale; + malen = 10cm; + mastep = 5mm; + matic = 2mm; + lscale = 2.5; + mainaxe = origin--(malen,0); + drawarrow mainaxe withpen basepen; + label.bot( btex $x$ etex scaled lscale, (malen,0) ); + pair refpa, refpb, refpc; + refpa = (6mastep,0); + refpb = (12mastep,0); + refpc = (14mastep,0); + drawarrow refpb--refpa withpen vecpen withcolor red; + label.top( btex $\vec{v}$ etex scaled lscale, 0.5[refpa,refpb] ); + drawarrow refpb--refpc withpen vecpen withcolor blue; + label.top( btex \veri etex scaled lscale, 0.5[refpc,refpb] ); + numeric i; + for i=mastep step 2mastep until malen-2mastep: + draw (i,-0.5matic)--(i,0.5matic) withpen basepen; + draw (i+mastep,-matic)--(i+mastep,matic) withpen basepen; + endfor; + label.bot( btex -3 etex scaled lscale, refpa ); + label.bot( btex 0 etex scaled lscale, refpb ); + label.bot( btex 1 etex scaled lscale, refpc ); +endfig; + +beginfig(2); + drawarrow mainaxe withpen basepen; + label.bot( btex $x$ etex scaled lscale, (malen,0) ); + drawarrow refpb--refpa withpen vecpen withcolor red; + label.top( btex $\Delta x$ etex scaled lscale, 0.5[refpa,refpb] ); + draw (6mastep,-matic)--(6mastep,matic) withpen basepen; + draw (12mastep,-matic)--(12mastep,matic) withpen basepen; + label.bot( btex fim etex scaled lscale, refpa ); + label.bot( btex início etex scaled lscale, refpb ); +endfig; + +beginfig(3); + pair refpd; + refpd = (malen,-6mastep); + drawarrow refpb--refpa withpen vecpen withcolor red; + drawarrow refpd--refpa withpen basepen; + drawarrow refpd--refpb withpen basepen; + label.top( btex $\Delta \vec{x}$ etex scaled lscale, 0.5[refpa,refpb] ); + label.llft( btex $\vec{x}_2$ etex scaled lscale, 0.5[refpd,refpa] ); + label.urt( btex $\vec{x}_1$ etex scaled lscale, 0.5[refpd,refpb] ); +endfig; + +beginfig(4) + numeric an; + an = angle(refpd); + path angpa, cutp, calfa, cbeta; + angpa = refpd--origin--(malen,0); + cutp = origin--(28*mastep*dir(-an)); + calfa = halfcircle scaled (24mastep); + calfa := calfa cutafter cutp; + cbeta = halfcircle scaled (28mastep); + cbeta := cbeta cutafter cutp; + drawoptions( withpen basepen ); + drawarrow angpa; + drawarrow fullcircle scaled (12mastep) cutafter angpa; + drawarrow calfa rotated an; + drawarrow reverse (cbeta rotated an); + label.bot( btex $\theta$ etex scaled lscale, (0,-6mastep) ); + label.llft( btex $\alpha$ etex scaled lscale, refpb ); + label.lrt( btex $\beta$ etex scaled lscale, refpc ); +endfig; + +verbatimtex +} +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/f1aula05.mp b/Master/texmf-dist/doc/metapost/featpost/example/f1aula05.mp new file mode 100644 index 00000000000..00b14ba67c8 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/f1aula05.mp @@ -0,0 +1,98 @@ +% f1aula05.mp +% L. Nobre G. +% 2007 + +verbatimtex +\documentclass{beamer} +\usepackage{amsmath,amssymb} +\usepackage[squaren]{SIunits} +\usepackage[latin1]{inputenc} +\usepackage[portuges]{babel} +\newcommand{\veri}{\ensuremath{\hat{\text{i}}}} +\newcommand{\verj}{\ensuremath{\hat{\text{j}}}} +\newcommand{\verk}{\ensuremath{\hat{\text{k}}}} +\newcommand{\veru}{\ensuremath{\hat{\text{u}}}} +\newcommand{\emf}{\ensuremath{\mathcal{E}}} +\newcommand{\vecnorm}[1]{\left|\left|\vec{#1}\right|\right|} +\renewcommand{\arraystretch}{1.45} +\begin{document} +\frame{ +etex + +ahangle := 29; +ahlength := 4.7mm; +labeloffset := 3.5mm; +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% {} [] +beginfig(1); + pen basepen, vecpen; + basepen = pencircle scaled 0.5mm; + vecpen = pencircle scaled 1.15mm; + numeric ray, lscale, ang, stepang, rang, actang; + ray = 5cm; + lscale = 2.5; + rang = -9; + stepang = 18; + path thearc; + thearc = halfcircle scaled 2ray rotated rang; + for ang=0 step stepang until 180+rang: + drawarrow origin--(ray*dir(ang)) withpen vecpen; + actang := ang; + endfor; + draw thearc withpen basepen withcolor red; + label.llft( btex $\vec{r}$ etex scaled lscale, 0.5*ray*dir(actang) ); + for ang=0 step stepang until 180+rang: + drawarrow (ray,0)--(ray*dir(ang)) withpen vecpen withcolor blue; + endfor; + label.bot( btex $\vec{r}_0$ etex scaled lscale, (0.5ray,0) ); + picture colabel; + colabel = thelabel.urt( + btex $\Delta\vec{r}\rightarrow d\vec{r}\parallel\vec{v}\perp\vec{r}_0$ etex + scaled lscale, (ray,0) ); + draw colabel withcolor blue; +endfig; + +beginfig(2); + pen basepen, vecpen; + basepen = pencircle scaled 0.5mm; + vecpen = pencircle scaled 1.15mm; + numeric ray, lscale, ang, stepang, rang, actang, fac; + ray = 5cm; + lscale = 2.5; + rang = -9; + stepang = 18; + fac = 0.7; + path thearc, actv; + thearc = halfcircle scaled 2ray rotated rang; + for ang=0 step stepang until 180+rang: + drawarrow (ray,0)--((ray,0)+fac*ray*dir(ang+90)) withpen vecpen + withcolor green; + actv := ((ray*dir(ang))--(ray*(dir(ang)+fac*dir(ang+90)))); + drawarrow actv withpen basepen; + actang := ang; + endfor; + draw thearc withpen basepen withcolor red; + label.lrt( btex $\vec{v}$ etex scaled lscale, point 0.5 of actv ); + for ang=0 step stepang until 180+rang: + drawarrow (ray,fac*ray)--((ray,0)+fac*ray*dir(ang+90)) withpen vecpen + withcolor blue; + endfor; + label.rt( btex $\vec{v}_0$ etex scaled lscale, (ray,0.5*fac*ray) ); + picture colabel, relabel; + colabel = thelabel.rt( + btex $\Delta\vec{v}\rightarrow d\vec{v}\parallel\vec{a}\perp\vec{v}_0$ etex + scaled lscale, (ray,fac*ray) ); + draw colabel withcolor blue; +% drawarrow ((0,fac*ray)--(fac*ray*dir(stepang+90))) shifted (ray,-fac*ray) +% withpen vecpen withcolor blue+green; +% relabel = thelabel.rt( +% btex $\Delta\vec{v}\parallel\vec{a}$ etex scaled lscale, (ray,0) ); +% draw relabel withcolor blue+green; +endfig; + + +verbatimtex +} +\end{document} +etex + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/fis3prex7.mp b/Master/texmf-dist/doc/metapost/featpost/example/fis3prex7.mp new file mode 100644 index 00000000000..7fb22aad223 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/fis3prex7.mp @@ -0,0 +1,47 @@ +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex +beginfig(7); + path bobine, bobina, Right, Up, Left, Down; + numeric scal, outeray, inneray, rotange, rotanga, tens, dist; + pen grossa; + scal = 15; + inneray = 0.5; + outeray = 2.1; + rotange = 0; + rotanga = 12; + tens = 3.6; + grossa = pencircle scaled 1pt; + dist = scal*0.35*(inneray+outeray); + Right = (inneray*scal*right)--(outeray*scal*right); + Up = (outeray*scal*up)--(inneray*scal*up); + Left = (inneray*scal*left)--(outeray*scal*left); + Down = (outeray*scal*down)--(inneray*scal*down); + bobine = (Right..tension tens..Up..Left..tension tens..Down..cycle) + rotated rotange; + bobina = bobine rotated rotanga; + draw Right; + draw Up; + draw Left; + draw Down; + draw fullcircle scaled (2*inneray*scal); + draw fullcircle scaled (2*outeray*scal); +% draw bobine dashed evenly withpen grossa; + draw bobina withpen grossa; + z1 = dist*(right+up); + z2 = z1 rotated 90; + z3 = z1 rotated 180; + z4 = z1 rotated -90; + label( btex N etex, z1 ); + label( btex S etex, z2 ); + label( btex N etex, z3 ); + label( btex S etex, z4 ); +endfig; +verbatimtex +\end{document} +etex +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/gnupost.mp b/Master/texmf-dist/doc/metapost/featpost/example/gnupost.mp new file mode 100644 index 00000000000..9ee7d1d4328 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/gnupost.mp @@ -0,0 +1,110 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2003 Wolfgang Glunz + +% Generate structured PostScript +prologues := 1; + +% Display a given string with its *baseline* at a given location +% and with a given rotation angle +vardef showtext(expr origin)(expr angle)(expr string) = + draw string infont defaultfont scaled defaultscale + rotated angle shifted origin; +enddef; + +% Modified by L. Nobre G's Lex scanner %%%%%%%%%%% + +beginfig(1); + path PreeditedPath[]; + color bluecolor; + bluecolor = (0.607845,0.61569,0.823535); + + linecap := butt; + linejoin := mitered; + + PreeditedPath1 = hide(z1=(26.4846,113.11))z1..controls hide(z2=(47.8035,130.71))z2 and hide(z3=(67.1843,138.71))z3..hide(z4=(82.689,138.71))z4 + ..controls hide(z5=(98.1936,138.71))z5 and hide(z6=(123.389,117.91))z6..hide(z7=(144.708,117.91))z7 + ..controls hide(z8=(164.088,117.91))z8 and hide(z9=(173.719,138.71))z9..hide(z10=(204.788,138.71))z10 + ..controls hide(z11=(233.859,138.71))z11 and hide(z12=(241.615,116.244))z12..hide(z13=(290.064,117.91))z13 + ..controls hide(z14=(336.578,119.51))z14 and hide(z15=(342.304,140.311))z15..hide(z16=(363.711,140.311))z16 + ..controls hide(z17=(385.03,140.311))z17 and hide(z18=(408.181,129.21))z18..hide(z19=(419.916,111.51))z19 + ..controls hide(z20=(400.535,125.91))z20 and hide(z21=(376.046,119.227))z21..hide(z22=(354.021,109.91))z22 + ..controls hide(z23=(328.981,99.3196))z23 and hide(z24=(295.878,85.9104))z24..hide(z25=(268.745,95.5105))z25 + ..controls hide(z26=(241.612,105.11))z26 and hide(z27=(214.479,109.91))z27..hide(z28=(191.222,101.91))z28 + ..controls hide(z29=(167.965,93.9104))z29 and hide(z30=(127.265,85.9104))z30..hide(z31=(100.132,101.91))z31 + ..controls hide(z32=(72.9985,117.91))z32 and hide(z33=(55.5559,121.11))z33..cycle; + + filldraw PreeditedPath1 withcolor bluecolor; + + PreeditedPath3 = hide(z67=(101.492,205.833))z67..controls hide(z68=(114.075,219.402))z68 and hide(z69=(125.514,225.569))z69..hide(z70=(134.666,225.569))z70 + ..controls hide(z71=(143.817,225.569))z71 and hide(z72=(158.688,209.533))z72..hide(z73=(171.271,209.533))z73 + ..controls hide(z74=(182.71,209.533))z74 and hide(z75=(188.394,225.569))z75..hide(z76=(206.733,225.569))z76 + ..controls hide(z77=(223.892,225.569))z77 and hide(z78=(228.469,208.249))z78..hide(z79=(257.065,209.533))z79 + ..controls hide(z80=(284.52,210.767))z80 and hide(z81=(287.899,226.803))z81..hide(z82=(300.535,226.803))z82 + ..controls hide(z83=(313.118,226.803))z83 and hide(z84=(326.782,218.245))z84..hide(z85=(333.708,204.599))z85 + ..controls hide(z86=(322.269,215.701))z86 and hide(z87=(307.815,210.548))z87..hide(z88=(294.815,203.366))z88 + ..controls hide(z89=(280.036,195.201))z89 and hide(z90=(260.497,184.863))z90..hide(z91=(244.482,192.264))z91 + ..controls hide(z92=(228.467,199.665))z92 and hide(z93=(212.452,203.366))z93..hide(z94=(198.725,197.198))z94 + ..controls hide(z95=(184.998,191.031))z95 and hide(z96=(160.976,184.863))z96..hide(z97=(144.961,197.198))z97 + ..controls hide(z98=(128.946,209.533))z98 and hide(z99=(118.651,212))z99..cycle; + + filldraw PreeditedPath3 withcolor bluecolor; + + PreeditedPath4 = hide(z166=(217.85,207.797))z166 + ..controls hide(z167=(236.119,207.797))z167 and hide(z168=(249.691,188.745))z168..hide(z169=(249.691,162.646))z169 + ..controls hide(z170=(249.691,137.069))z170 and hide(z171=(236.38,119.583))z171..hide(z172=(217.328,119.583))z172 + ..controls hide(z173=(200.103,119.583))z173 and hide(z174=(188.097,137.069))z174..hide(z175=(188.097,162.646))z175 + ..controls hide(z176=(188.097,189.267))z176 and hide(z177=(200.103,207.797))z177..cycle; + + clip currentpicture to PreeditedPath4; + picture gthrough; + gthrough = currentpicture; + filldraw PreeditedPath1 withcolor bluecolor; + filldraw PreeditedPath3 withcolor bluecolor; + + PreeditedPath5 = hide(z133=(249.169,235.984))z133--hide(z134=(249.169,214.322))z134..controls hide(z135=(238.207,231.025))z135 and hide(z136=(226.201,238.333))z136..hide(z137=(210.02,238.333))z137 + ..controls hide(z138=(176.614,238.333))z138 and hide(z139=(151.558,205.709))z139..hide(z140=(151.558,162.124))z140 + ..controls hide(z141=(151.558,118.278))z141 and hide(z142=(174.526,89.0466))z142..hide(z143=(209.237,89.0466))z143 + ..controls hide(z144=(225.679,89.0466))z144 and hide(z145=(235.597,94.0056))z145..hide(z146=(249.169,109.404))z146 + --hide(z147=(249.169,90.3516))z147..controls hide(z148=(249.169,73.3872))z148 and hide(z149=(236.38,61.6428))z149..hide(z150=(218.111,61.6428))z150 + ..controls hide(z151=(204.278,61.6428))z151 and hide(z152=(195.144,67.3845))z152..hide(z153=(192.273,78.0852))z153 + --hide(z154=(154.429,78.0852))z154..controls hide(z155=(154.69,67.1235))z155 and hide(z156=(158.866,59.5549))z156..hide(z157=(168.262,51.7251))z157 + ..controls hide(z158=(179.484,42.5906))z158 and hide(z159=(195.144,38.1536))z159..hide(z160=(216.806,38.1536))z160 + ..controls hide(z161=(259.347,38.1536))z161 and hide(z162=(283.88,57.2061))z162..hide(z163=(283.88,90.3516))z163 + --hide(z164=(283.88,235.984))z164--hide(z165=(249.169,235.984))z165--cycle; + + filldraw PreeditedPath5; + + unfill PreeditedPath4; + draw gthrough; + + PreeditedPath6 = hide(z178=(58.4002,162.71))z178..controls hide(z179=(76,180.311))z179 and hide(z180=(92,188.311))z180..hide(z181=(104.8,188.311))z181 + ..controls hide(z182=(117.6,188.311))z182 and hide(z183=(138.4,167.51))z183..hide(z184=(156,167.51))z184 + ..controls hide(z185=(172,167.51))z185 and hide(z186=(179.95,188.311))z186..hide(z187=(205.6,188.311))z187 + ..controls hide(z188=(229.6,188.311))z188 and hide(z189=(236.003,165.844))z189..hide(z190=(276,167.51))z190 + ..controls hide(z191=(314.4,169.11))z191 and hide(z192=(319.127,189.91))z192..hide(z193=(336.8,189.91))z193 + ..controls hide(z194=(354.4,189.91))z194 and hide(z195=(373.512,178.81))z195..hide(z196=(383.2,161.11))z196 + ..controls hide(z197=(367.2,175.51))z197 and hide(z198=(346.983,168.826))z198..hide(z199=(328.8,159.51))z199 + ..controls hide(z200=(308.128,148.92))z200 and hide(z201=(280.8,135.51))z201..hide(z202=(258.4,145.11))z202 + ..controls hide(z203=(236,154.71))z203 and hide(z204=(213.6,159.51))z204..hide(z205=(194.4,151.51))z205 + ..controls hide(z206=(175.2,143.51))z206 and hide(z207=(141.6,135.51))z207..hide(z208=(119.2,151.51))z208 + ..controls hide(z209=(96.8001,167.51))z209 and hide(z210=(82.4002,170.71))z210..cycle; + + filldraw PreeditedPath6 withcolor bluecolor; + + PreeditedPath8 = hide(z244=(76,61.8328))z244..controls hide(z245=(93.6001,75.4011))z245 and hide(z246=(109.6,81.5686))z246..hide(z247=(122.4,81.5686))z247 + ..controls hide(z248=(135.2,81.5686))z248 and hide(z249=(156,65.5332))z249..hide(z250=(173.6,65.5332))z250 + ..controls hide(z251=(189.6,65.5332))z251 and hide(z252=(197.55,81.5686))z252..hide(z253=(223.2,81.5686))z253 + ..controls hide(z254=(247.2,81.5686))z254 and hide(z255=(253.603,64.2485))z255..hide(z256=(293.6,65.5332))z256 + ..controls hide(z257=(332,66.7668))z257 and hide(z258=(336.728,82.802))z258..hide(z259=(354.4,82.802))z259 + ..controls hide(z260=(372,82.802))z260 and hide(z261=(391.112,74.2446))z261..hide(z262=(400.8,60.5994))z262 + ..controls hide(z263=(384.8,71.7007))z263 and hide(z264=(364.583,66.5479))z264..hide(z265=(346.4,59.366))z265 + ..controls hide(z266=(325.728,51.2012))z266 and hide(z267=(298.4,40.8635))z267..hide(z268=(276,48.2644))z268 + ..controls hide(z269=(253.6,55.6653))z269 and hide(z270=(231.2,59.366))z270..hide(z271=(212,53.1985))z271 + ..controls hide(z272=(192.8,47.031))z272 and hide(z273=(159.2,40.8635))z273..hide(z274=(136.8,53.1985))z274 + ..controls hide(z275=(114.4,65.5332))z275 and hide(z276=(100,68.0002))z276..cycle; + + filldraw PreeditedPath8 withcolor bluecolor; + +endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/goldenellipse.mp b/Master/texmf-dist/doc/metapost/featpost/example/goldenellipse.mp new file mode 100644 index 00000000000..84bf24fc5f9 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/goldenellipse.mp @@ -0,0 +1,57 @@ +% goldenellipse.mp +% L. Nobre G. +% 2012 + +beginfig(1); + numeric u, phi, i, dstep, goldang; + pen thepen; + path ellia, ellib, ellic, ellid, ellip; + path evola, evolb, evolc, evold, evolu; + path squar; + pair paira, pairb, pairc, paird; + pair ellfa, squab, ellfc, squad; + pair goldp; + u = 5cm; + phi = 0.5*(1+sqrt(5)); + dstep = 5; + goldang = angle(1,1/phi); + thepen = pencircle scaled 0.05u; + paira = (phi,0); + pairb = (0,1); + pairc = (-phi,0); + paird = (0,-1); + ellfa = (1,0); + squab = (0,-phi); + ellfc = (-1,0); + squad = (0,phi); + goldp = (phi*cosd(goldang),sind(goldang)); + ellia = (phi*cosd(dstep),sind(dstep)) + for i=2dstep step dstep until 90-dstep: + ..(phi*cosd(i),sind(i)) + endfor; + ellib = reverse ellia xscaled -1; + ellic = ellia scaled -1; + ellid = reverse ellia yscaled -1; + ellip = paira--ellia--pairb--ellib--pairc--ellic--paird--ellid--cycle; + evola = (cosd(dstep)**3,-phi*(sind(dstep)**3)) + for i=2dstep step dstep until 90-dstep: + ..(cosd(i)**3,-phi*(sind(i)**3)) + endfor; + evolb = reverse evola xscaled -1; + evolc = evola scaled -1; + evold = reverse evola yscaled -1; + evolu = ellfa--evola--squab--evolb--ellfc--evolc--squad--evold--cycle; + squar = paira--squab--pairc--squad--cycle; + z1 = goldp+whatever*(1,-1); + y1 = 0; + fill (x1,0)--(0,x1)--(-x1,0)--(0,-x1)--cycle withcolor blue; + fill squar withcolor red; + fill ellip; + fill ellfa--pairb--ellfc--paird--cycle withcolor red; + draw evolu withcolor blue; + picture tmp; + tmp = currentpicture; + currentpicture := nullpicture; + draw tmp rotated 45 scaled u shifted (10.5cm,14cm) withpen thepen; +endfig; +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/graphs.mp b/Master/texmf-dist/doc/metapost/featpost/example/graphs.mp new file mode 100644 index 00000000000..b5c4dbb981d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/graphs.mp @@ -0,0 +1,65 @@ +% graphs.mp +% L. Nobre G. +% 2007 + +verbatimtex +\documentclass{article} +\usepackage{color,SIunits} +\begin{document} +etex + +input graph; + +beginfig(1); + picture thegraph, thedash, thestar; + path thecurve; + pen thepen; + numeric theu; + theu = 1.7cm; + z1 = (1,2); + z2 = (3,8); + z3 = (4,8); + z4 = (2,8); + z5 = (5,1); + z6 = (9,1); + z7 = (8,2); + z8 = (7,3); + z9 = (6,4); + thestar = btex $\star$ etex scaled (3.5theu/in); + thestar := thestar shifted -(center thestar); + thepen = pencircle scaled 2mm; + thedash = dashpattern( off 3mm on 1mm off 4mm on 2mm ); + thecurve = z1..z2..z3..z4..z5..z6..z7..z8..z9; + thegraph = begingraph(6theu,4theu); + glabel.bot( btex $\unit{t}{/\;\second}$ etex, OUT ); + glabel.lft( btex $\unit{v}{/\;\metre\per\second}$ etex, OUT ); + gdraw thecurve withpen thepen withcolor blue dashed thedash; + gdraw thecurve plot thestar; + autogrid(grid.bot,grid.lft) withcolor red dashed evenly; + endgraph; + draw thegraph; +endfig; + +beginfig(2); + draw begingraph(7cm,5cm); + pickup pencircle scaled 1pt; + path p; + for x = -20 step 0.2 until -0.2: + augment.p (x, sind(x*180/3.14159)/x); + endfor + augment.p (0, 1); + for x = 0.2 step 0.2 until 20: + augment.p (x, sind(x*180/3.14159)/x); + endfor + glabel.lrt (btex $\frac{\sin(x)}{x}$ etex, (-20,1)); + gdraw p; + endgraph; +endfig; + +verbatimtex +\end{document} +etex + +end. + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/hap.mp b/Master/texmf-dist/doc/metapost/featpost/example/hap.mp new file mode 100644 index 00000000000..269cc6ab682 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/hap.mp @@ -0,0 +1,137 @@ +% hap.mp +% L. Nobre G. +% IYP (2005) + +numeric HalfSideLength; +numeric ThicknesFactor, BorderThFactor; + +HalfSideLength = 6mm; +ThicknesFactor = 0.5; +BorderThFactor = 1.85; % Borders over TraceThickness + +def PickInteger( expr MaxNum ) = floor( uniformdeviate( MaxNum+1 ) ) enddef; + +def PickColor = + begingroup + numeric c[], i, min, max, ref; + ref = 0.76; + for i=1 upto 3: + c[i] = uniformdeviate(1); + endfor; + min = c1; + max = c1; + for i=2 upto 3: + if c[i] < min: min := c[i]; fi; + if c[i] > max: max := c[i]; fi; + endfor; + for i=1 upto 3: + c[i] := ref+(0.94-ref)*(c[i]-min)/(max-min); + endfor; + ( ( c1 , c2, c3 ) ) + endgroup +enddef; + +vardef LocateIndex[] = + dotlabel.urt( str @, z@ ) +enddef; + +beginfig(1); + numeric tracethickness, i, j, hexconst, angaux, cou, nupersi; + numeric ThisInd, ThatInd, dist[], ang[]; + color TheColor; + pen tracepen, bordepen; + path hexpath, ActualPath, FinalCut; + pair corn[], nco, aco, vec, Dir[], urCorner, ulCorner, llCorner, lrCorner; + boolean Filled[]; + picture Tile[]; + hexconst = sqrt(3)/2; + nupersi = PickInteger( 2 ); + tracethickness = ThicknesFactor* + (0.5+uniformdeviate(0.5))* + HalfSideLength/(nupersi+1); + TheColor = PickColor; + tracepen = pencircle scaled tracethickness; + bordepen = tracepen scaled BorderThFactor; + for i=0 upto 6: + corn[i] = 2*HalfSideLength*dir(i*60); + endfor; + hexpath = corn0--corn1--corn2--corn3--corn4--corn5--cycle; + dist0 = 0; + ang0 = 40+uniformdeviate( 100 ); + for i=1 upto nupersi: + dist[i] = dist[i-1]+(0.7+uniformdeviate(0.45))*HalfSideLength/(nupersi+1); + angaux := 40+20*i/nupersi; + ang[i] = angaux + uniformdeviate( 180-2*angaux ); + endfor; + for i=0 upto 5: + aco := corn[i]; + nco := corn[1+i]; + vec := nco-aco; + z[i] = aco+0.5*vec; + Dir[i] = dir(angle(vec)+ang0); + Filled[i] = false; + endfor; + cou = 5; + for i=0 upto 5: + aco := corn[i]; + nco := corn[i+1]; + vec := unitvector(nco-aco); + for j=1 upto nupersi: + cou := incr( cou ); + z[cou] = 0.5[aco,nco]+dist[j]*vec; + Dir[cou] = dir(angle(vec)+ang[j]); + Filled[cou] = false; + cou := incr( cou ); + z[cou] = 0.5[aco,nco]-dist[j]*vec; + Dir[cou] = dir(angle(vec)+ang[j]); + Filled[cou] = false; + endfor; + endfor; +% for i=0 upto cou: +% LocateIndex[i]; +% endfor; + for i=1 step 2 until cou: + forever: + ThisInd := PickInteger( cou ); + exitunless Filled[ThisInd]; + endfor; + Filled[ThisInd] := true; + forever: + ThatInd := PickInteger( cou ); + exitunless Filled[ThatInd]; + endfor; + Filled[ThatInd] := true; + ActualPath := z[ThisInd]{Dir[ThisInd]} + ...z[ThatInd]{-Dir[ThatInd]}; + draw ActualPath withcolor background withpen bordepen; + draw ActualPath withcolor TheColor withpen tracepen; + endfor; + clip currentpicture to hexpath; + urCorner = ( 8.13in, 11.533in ); + llCorner = ( 0.118in, 35.5bp ); + ulCorner = ( xpart llCorner, ypart urCorner ); + lrCorner = ( xpart urCorner, ypart llCorner ); + FinalCut = urCorner--ulCorner--llCorner--lrCorner--cycle; + for i=0 upto 5: + Tile[i] = currentpicture rotated (i*60); + endfor; + currentpicture := nullpicture; + numeric j, horizo, vertic, vertigo; + horizo = ( xpart urCorner ) + 2HalfSideLength; + vertic = ( ypart urCorner ) + 2HalfSideLength; + vertigo = 0.5*horizo; + pair paird, pairv; + pairv = up*4*HalfSideLength*hexconst; + paird = dir(30)*4*HalfSideLength*hexconst; + numeric numd, numv; + numv = (vertic+2*vertigo)/(4*HalfSideLength*hexconst); + numd = horizo/(3*HalfSideLength); + for i = 0 upto numd: + for j = 0 upto numv: + draw Tile[PickInteger( 5 )] shifted ( (0,-vertigo) + i*paird + j*pairv ); + endfor; + endfor; + clip currentpicture to FinalCut; +endfig; + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/heatfromroom.mp b/Master/texmf-dist/doc/metapost/featpost/example/heatfromroom.mp new file mode 100644 index 00000000000..a2ba917dc85 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/heatfromroom.mp @@ -0,0 +1,90 @@ +% heatfromroom.mp +% L. Nobre G. +% 2006 + +verbatimtex +\documentclass{article} +\usepackage{palatino,mathpazo} +\begin{document} +etex + +beginfig(1); + numeric l, gang; + path longp, shorp, roomp; + picture sp[]; + pen isol; + color mygrey; + mygrey = 0.75white; + gang = -angle( (3.5,1) ); + l = 1cm; + isol = pensquare scaled 2.2pt rotated gang; + z1 = (0,-l) rotated gang; + z2 = (l,-l) rotated gang; + z3 = (l,2*l) rotated gang; + z4 = (0,2*l) rotated gang; + z5 = (-3*l,l) rotated gang; + z6 = (-3*l,0) rotated gang; + z7 = (3*l,0) rotated gang; + z8 = (3*l,l) rotated gang; + z9 = (l,l) rotated gang; + z10 = (0,l) rotated gang; + z11 = (l,0) rotated gang; + z12 = (2*l,0.5*l) rotated gang; + z13 = (0.5*l,1.5*l) rotated gang; + z14 = (-1.5*l,0.5*l) rotated gang; + z15 = (0.5*l,-0.5*l) rotated gang; + z16 = (l,-0.5*l) rotated gang; + z17 = (2*l,l) rotated gang; + z18 = (0,1.5*l) rotated gang; + z19 = (-1.5*l,0) rotated gang; + z20 = (0.5*l,-l) rotated gang; + z21 = (3*l,0.5*l) rotated gang; + z22 = (0.5*l,2*l) rotated gang; + z23 = (-3*l,0.5*l) rotated gang; + z24 = (0.5*l,0.5*l) rotated gang; + longp = z5--z6--z7--z8--cycle; + shorp = z1--z2--z3--z4--cycle; + roomp = origin--z11--z9--z10--cycle; + fill longp withcolor mygrey; + fill shorp withcolor mygrey; + unfill roomp; + draw longp; + draw shorp; + drawoptions( withpen isol ); + draw z1--origin--z6; + draw z5--z10--z4; + draw z3--z9--z8; + draw z7--z11--z2; + drawoptions(); + sp12 = btex C etex; + label( sp12, z12 ); + sp13 = btex B etex; + label( sp13, z13 ); + sp14 = btex A etex; + label( sp14, z14 ); + sp15 = btex D etex; + label( sp15, z15 ); + sp16 = btex $L$ etex; + label.rt( sp16, z16 ); + sp17 = btex $2L$ etex; + label.top( sp17, z17 ); + sp18 = btex $L$ etex; + label.lft( sp18, z18 ); + sp19 = btex $3L$ etex; + label.bot( sp19, z19 ); + sp20 = btex $5^\circ$C etex; + label.bot( sp20, z20 ); + sp21 = btex -$25^\circ$C etex; + label.rt( sp21, z21 ); + sp22 = btex -$5^\circ$C etex; + label.top( sp22, z22 ); + sp23 = btex -$10^\circ$C etex; + label.lft( sp23, z23 ); + sp24 = btex $5^\circ$C etex; + label( sp24, z24 ); +endfig; + +verbatimtex \end{document} etex + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/hexacylon.mp b/Master/texmf-dist/doc/metapost/featpost/example/hexacylon.mp new file mode 100644 index 00000000000..ed388b938b0 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/hexacylon.mp @@ -0,0 +1,23 @@ +% hexacylon.mp +% L. Nobre G. +% 2006 + +beginfig(1); + numeric i, actang, hexdiam, curvray, myang; + path outerp, innerp; + hexdiam = 15cm; + curvray = 8.5mm; + myang = 36; + for i=1 upto 6: + actang := (i-1)*60-90; + z[2*i-1] = 0.5*hexdiam*dir( actang ) + curvray*dir( actang - 120 ); + z[2*i] = 0.5*hexdiam*dir( actang ) + curvray*dir( actang + 120 ); + z[20+i] = 0.5[z[2*i-1],z[2*i]] - curvray*dir( actang ); + endfor; + outerp = for i=1 upto 6: z[2*i-1]...z[2*i]--- endfor cycle; + innerp = z22---z23{dir(myang+180)}..{dir(myang+180)}z25--- + z26{dir(myang)}..{dir(myang)}cycle; + fill outerp withcolor (0.87,0.12,0.08); + fill innerp withcolor (0.08,0.12,0.87); +endfig; +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/iamsorrykarl.mp b/Master/texmf-dist/doc/metapost/featpost/example/iamsorrykarl.mp new file mode 100644 index 00000000000..7e233047c44 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/iamsorrykarl.mp @@ -0,0 +1,94 @@ +% iamsorrykarl.mp +% 2006 +% L. Nobre G. + +%input featpost3Dplus2D; + +% bash: export TEX=latex +% tcsh: setenv TEX latex + +prologues := 1; + +beginfig(1); + numeric u, nstripes, aspecratio, minskip, maxskip, shiftlim, shiftmin; + numeric nbreaks, i, j, ymax, shiftx, lefh, righ, actualx, newx; + numeric prevlefh, prevrigh, xmax, auxan, auxr, cdiam; + path lefp[], rigp[], strp[]; + pair shif, reflef, refrig, auxa, auxb; + boolean exitcondition; + u = 1cm; + nstripes = 7; + aspecratio = 1.7; + minskip = 0.5u; % must not be too small + maxskip = 4u; + shiftlim = 0.7u; + shiftmin = 0.25u; + cdiam = 0.65u; + xmax = (2*nstripes-1)*u; + ymax = aspecratio*xmax; + prevlefh = ymax; + prevrigh = ymax; + actualx = u; + for i=1 upto nstripes: + lefp[i] = ((2*i-1)*u,ymax); + rigp[i] = ((2*i-1)*u,ymax)--(2*i*u,ymax); + endfor; + exitcondition = false; + forever: + auxr := uniformdeviate(2)-1; + if auxr > 0: + newx := actualx + shiftmin + (shiftlim-shiftmin)*auxr; + else: + newx := actualx - shiftmin + (shiftlim-shiftmin)*auxr; + fi; + lefh := prevlefh - minskip - uniformdeviate(maxskip-minskip); + righ := prevrigh - minskip - uniformdeviate(maxskip-minskip); + if lefh < minskip: + lefh := minskip; + exitcondition := true; + fi; + if righ < minskip: + righ := minskip; + exitcondition := true; + fi; + reflef := (newx,lefh); + refrig := (newx+xmax,righ); + auxan := angle(refrig-reflef); + shif := (newx-actualx)*(1,sind(auxan)/cosd(auxan)); + for i=1 upto nstripes: + auxa := point (length lefp[i]) of lefp[i]; + auxb := point (length rigp[i]) of rigp[i]; + pair poil, poir; + poil = auxa+whatever*down; + poil = whatever[reflef,refrig]; + poir = auxb+whatever*down; + poir = whatever[reflef,refrig]; + lefp[i] := lefp[i]--poil--(poil+shif); + rigp[i] := rigp[i]--poir--(poir+shif); + endfor; + actualx := newx; + prevlefh := lefh; + prevrigh := righ; + exitif exitcondition; + endfor; + for i=1 upto nstripes: + auxa := point (length lefp[i]) of lefp[i]; + auxb := point (length rigp[i]) of rigp[i]; + pair poil, poir; + poil = auxa+whatever*down; + poil = whatever[origin,right]; + poir = auxb+whatever*down; + poir = whatever[origin,right]; + lefp[i] := lefp[i]--poil--poir; + rigp[i] := rigp[i]--poir; + strp[i] = buildcycle( lefp[i], reverse rigp[i] ); + fill strp[i] withcolor red; + endfor; +% for i=nstripes+1 upto nstripes+50: +% strp[i] = fullcircle scaled cdiam shifted +% (uniformdeviate(xmax),uniformdeviate(ymax)); +% fill strp[i]; +% endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/jd44.mp b/Master/texmf-dist/doc/metapost/featpost/example/jd44.mp new file mode 100644 index 00000000000..0ad532a3741 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/jd44.mp @@ -0,0 +1,172 @@ +% jd44.mp +% J. Dinis +% long ago +% BUG: With MetaPost, version 1.208 (kpathsea version 5.0.0) points z5 and z7 +% (the "elbows") produce wrong figures !!!! + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +% prologues := 2; + + +def drawpoints(expr a, b)= + for i=a upto b: + label(decimal i, z[i]); + endfor +enddef; + + +def drawtopic expr p = addto pic doublepath p withpen currentpen enddef; + + +vardef climber(expr sc) = + clearxy; + save a,b,c,d,e,f, pic; + picture pic; + pic := nullpicture; + + a := .8 sc; + b := 1 sc; + c := 1.2 sc; + d := .8 sc; + e := .3 sc; + f := .6 sc; + + z4 = z3 + (e,0) rotated 45; + z1 = z4 + (c,0) rotated 150; + z1 - z2 = z3 - z4; + z13 = .5[z1,z2]; + z5 = z13 + (0,a); + z6 = z5 + (0,a); + z7 = z2 + (f,0) rotated 45; + z8 = z7 + (a,0) rotated 45; + z9 = z3 + (b,0); + z10 = z9 + (b,0) rotated -45; + z11 = z4 + (a,0) rotated 70; + z12 = z11 + (b,0) rotated -30; + z0 = z1 + (d,0) rotated (100+angle(z2-z1)); + + x4-(.25pt*sc) = 0; + y4-(.25pt*sc) = 0; + + pickup pencircle scaled (.5pt*sc); + drawtopic z13--z6; + drawtopic z3--z9--z10; + + pickup pencircle scaled (.6pt*sc); + drawtopic z2--z8 withcolor white; + drawtopic z4--z11--z12 withcolor white; + drawtopic z1--z2--z4--z3--cycle withcolor white; + + pickup pencircle scaled (.5pt*sc); + drawtopic z1--z2--z4--z3--cycle; + drawtopic z2--z7--z8; + drawtopic z4--z11--z12; + + pickup pencircle scaled (1pt*sc); + drawtopic z0; + +% drawpoints(0,12); + pic +enddef; + + +vardef windsurfer(expr sc) = + clearxy; + save a,b,c,d,e,f, pic; + picture pic; + pic := nullpicture; + + a := .9 sc; + b := .6 sc; + c := 1.2 sc; + d := .8 sc; + e := .3 sc; + f := .6 sc; + + z3 = z4 + (e,0) rotated 170; + z2 = z4 + (c,0) rotated 80; + z1-z2 = z3-z4; + + z7 = z2 + (b,0) rotated 200; + z8 = z7 + (a,0) rotated 200; + z5 = z1 + (b,0) rotated 200; + z6 = z5 + (a,0) rotated 200; + + z9 = z3 + (d,0) rotated 195; + z10 = z9 + (a,0) rotated 240; + z11 = z4 + (d,0) rotated 195; + z12 = z11 + (a,0) rotated 240; + + z0 = z2 + (d,0) rotated 90; + + x10-(.25pt*sc) = 0; + y12-(.25pt*sc) = 0; + + pickup pencircle scaled (.5pt*sc); + drawtopic z1--z5--z6; + drawtopic z3--z9--z10; + + pickup pencircle scaled (.6pt*sc); + drawtopic z2--z7--z8 withcolor white; + drawtopic z4--z11--z12 withcolor white; + drawtopic z1--z2--z4--z3--cycle withcolor white; + + pickup pencircle scaled (.5pt*sc); + drawtopic z2--z7--z8; + drawtopic z4--z11--z12; + drawtopic z1--z2--z4--z3--cycle; + + pickup pencircle scaled (1pt*sc); + drawtopic z0; + + % drawpoints(0,12); + pic +enddef; + + +vardef fourtyfour(expr sc)= + save f, p; + picture f, p; + f := btex 4 etex scaled sc; + f := f yscaled 1.5 rotated 35 yscaled .85 rotated -39.4803; + p := nullpicture; + addto p also (f shifted -.44(lrcorner f - llcorner f)); + addto p also (f shifted .44(lrcorner f - llcorner f)); + p +enddef; + + +beginfig(1); + draw climber(100) shifted (288,144); +endfig; + + +beginfig(2); + draw windsurfer(100) shifted (72,72); +endfig; + + +beginfig(3); + draw fourtyfour(40) shifted (144,144); +endfig; + + +% e à quarta é de vez. +% +beginfig(4); + draw fourtyfour(40); + draw climber(50) shifted llcorner currentpicture; + draw windsurfer(50) shifted (0.8*(lrcorner currentpicture)); +% currentpicture := currentpicture shifted (80mm,120mm); +endfig; + +verbatimtex +\end{document} +etex + +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/kopptrammel.mp b/Master/texmf-dist/doc/metapost/featpost/example/kopptrammel.mp new file mode 100644 index 00000000000..8a22defba27 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/kopptrammel.mp @@ -0,0 +1,39 @@ +% kopptrammel.mp +% L. Nobre G. +% IYP (2005) + +beginfig(1); + numeric i, u, astep, pfrac, ra, rb, totray, adiff, astart; + pair ca, cb, pa, pb, pc; + path cir; + ra = 0.3; + rb = 0.9; + astep = 10; + adiff = -20; + pfrac = 3; + astart = 20; + u = 2cm; + ca = (2u,4u); + cb = (4u,4u); + totray = 0.5*abs(cb-ca); + cir = fullcircle scaled (2*totray); + draw cir shifted ca; + draw cir shifted cb; + pickup pencircle scaled (u/20); + for i=0 step astep until 360: + pa := ca + ra*totray*dir( astart+i ); + pb := cb + rb*totray*dir( astart-i-adiff ); + pc := pfrac[pa,pb]; + draw pa; + draw pb; + draw pc withcolor red; + endfor; + pickup pencircle scaled (u/40); + draw pa--pc withcolor blue; + draw pb--pc; + draw ca; + draw cb; + draw pfrac[ca,cb]; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/lamarquejaune.mp b/Master/texmf-dist/doc/metapost/featpost/example/lamarquejaune.mp new file mode 100644 index 00000000000..d95a72e1638 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/lamarquejaune.mp @@ -0,0 +1,100 @@ + +beginfig(1); + numeric ulimi,rlimi; + path p[]; + color jaune; + pen brushpen; + bboxmargin := 2cm; + jaune = 0.87*(0.97,0.84,0.01); + brushpen = pencircle scaled 3mm; + ulimi = 687; + rlimi = 784; + drawoptions( withcolor jaune withpen brushpen ); + z1 = (671,ulimi-34); + z2 = (644,ulimi-61); + z3 = (472,ulimi-79); + z4 = (484,ulimi-98); + z5 = (417,ulimi-108); + z6 = (460,ulimi-117); + z7 = (186,ulimi-517); + z8 = (358,ulimi-368); + z9 = (301,ulimi-427); + z10 = (598,ulimi-80); + z11 = (526,ulimi-150); + z12 = (557,ulimi-192); + z13 = (581,ulimi-194); + z14 = (556,ulimi-215); + z15 = (532,ulimi-253); + z50 = (310,ulimi-280); + z51 = (365,ulimi-280); + z52 = (452,ulimi-312); + z53 = (472,ulimi-334); + z16 = (603,ulimi-233); + z17 = (578,ulimi-273); + z18 = (579,ulimi-239); + z19 = (604,ulimi-257); + z20 = (423,ulimi-420); + z21 = (515,ulimi-402); + z22 = (544,ulimi-420); + z23 = (532,ulimi-433); + z24 = (570,ulimi-454); + z25 = (528,ulimi-497); + z26 = (595,ulimi-3); + z27 = (266,ulimi-7); + z28 = (102,ulimi-115); + z29 = (7,ulimi-352); + z30 = (51,ulimi-532); + z54 = (509,ulimi-331); + z55 = (554,ulimi-347); + z31 = (178,ulimi-642); + z32 = (414,ulimi-668); + z33 = (601,ulimi-602); + z34 = (772,ulimi-301); + z35 = (730,ulimi-174); + z36 = (658,ulimi-219); + z37 = (699,ulimi-321); + z38 = (590,ulimi-536); + z39 = (406,ulimi-626); + z40 = (203,ulimi-594); + z41 = (108,ulimi-482); + z42 = (84,ulimi-339); + z43 = (131,ulimi-191); + z44 = (309,ulimi-45); + z45 = (539,ulimi-27); + z46 = (314,ulimi-152); + z47 = (171,ulimi-364); + z48 = (205,ulimi-368); + z49 = (345,ulimi-187); + p1 = z2--z1; + p2 = z1...z26...z27...z28...z29...z30...z31...z32...z34...z35...z10; + p3 = z10--z11; + p4 = z11...z36...z37...z38...z39...z40...z41...z42...z43...z44...z45...z2; + p5 = buildcycle( p1, p2, p3, p4 ); + filldraw p5; + p6 = z3--z4; + p7 = z4...z49...z48...z7; + p8 = z7...z47...z46...z3; + p9 = buildcycle( p6, p7, p8 ); + filldraw p9; + p10 = z5--z6; + p11 = z6...z51...z8; + p12 = z8...z52...z12; + p13 = z12--z13; + p14 = z13...z53...z9; + p15 = z9...z50...z5; + p16 = buildcycle( p10, p11, p12, p13, p14, p15 ); + filldraw p16; + p17 = z14--z16--z17--z15--cycle; + filldraw p17; + p18 = z18--z19; + p19 = z19...z55...z21; + p20 = z21--z22--z23--z24--z25--z20; + p21 = z20..z54..z18; + p22 = buildcycle( p18, p19, p20, p21 ); + filldraw p22; + drawoptions( withcolor white ); + draw bbox currentpicture; +endfig; + +end. + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/latexboxes.mp b/Master/texmf-dist/doc/metapost/featpost/example/latexboxes.mp new file mode 100644 index 00000000000..bbfdc0487f6 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/latexboxes.mp @@ -0,0 +1,25 @@ +% used many times in LaTeX documents (\usebox{}) +% L. Nobre G. +% 2001 + +beginfig(0); % grayrectanglebox + numeric u, Nu; + u = 0.5mm; + Nu = 20; + transform T; + T = identity scaled (Nu*u) xscaled 1.33; + pickup pensquare scaled u; + draw (unitsquare transformed T) withcolor 0.7white; +endfig; + +beginfig(1); % bigrectanglebox + numeric u, Nu; + u = 0.5mm; + Nu = 70; + transform T; + T = identity scaled (Nu*u) xscaled 1.33; + pickup pensquare scaled u; + draw (unitsquare transformed T) withcolor 0.7white; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/lawofcosines.mp b/Master/texmf-dist/doc/metapost/featpost/example/lawofcosines.mp new file mode 100644 index 00000000000..5d49e0adcdd --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/lawofcosines.mp @@ -0,0 +1,167 @@ +% lawofcosines.mp +% L. Nobre G. +% 2007 + +prologues := 1; + +beginfig(1); + numeric u, limit, major, minor, abvcos, blwcos; + color gridc; + pen gridpmaj, gridpmin, dotp; + u=0.7mm; + limit=64; + major=20; + minor=2; + abvcos=0.5; + blwcos=1/3; + gridc=0.5white; + gridpmaj=pencircle scaled 2pt; + gridpmin=pencircle scaled 1.3pt; + dotp=pencircle scaled 2.7pt; +% labeloffset := 3u; + numeric i,j, abvsin, blwsin, stpmaj, stpmin; + abvsin=1 +-+ abvcos; + blwsin=1 +-+ blwcos; + stpmaj=major*u; + stpmin=minor*u; + pair abvdir, blwdir, thedir; + abvdir=(abvcos,abvsin); + blwdir=(blwcos,-blwsin); + boolean ismajor, isaxe; + drawoptions( withpen gridpmin withcolor gridc ); + for i=-limit step minor until limit: + ismajor := not ((i mod major)<>0); + if ismajor: + isaxe := not (i <> 0); + if isaxe: + drawoptions( withpen gridpmaj ); + else: + drawoptions( withpen gridpmaj withcolor gridc ); + fi; + fi; + draw ((i*u,0)+limit*u*blwdir)--(i*u,0)--((i*u,0)+limit*u*abvdir); + if i<0: + thedir := -blwdir; + else: + thedir := abvdir; + fi; + draw ((-limit*u,0)+i*u*thedir)--((limit*u,0)+i*u*thedir); + if ismajor: + drawoptions( ); + label.bot( decimal( abs( i ) ), (i*u,0)+limit*u*blwdir ); + if i<0: + label.llft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + elseif not (i<>0): + label.lft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + else: + label.ulft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + fi; + label.top( decimal( abs( i ) ), (i*u,0)+limit*u*abvdir ); + drawoptions( withpen gridpmin withcolor gridc ); + fi; + endfor; + drawoptions( withpen dotp withcolor red ); + numeric signal; + for i=-limit upto limit: + if i <> 0: + if i<0: + signal := -1; + else: + signal := 1; + fi; + for j=-limit upto -2: + if not ( ( sqrt((i**2)+(j**2)+signal*2*abs(i*j)/3) mod 1 ) <> 0 ): + draw (i*u,0)-j*u*blwdir; + fi; + endfor; + for j=limit downto 2: + if not ( ( sqrt((i**2)+(j**2)+signal*2*abs(i*j)*abvcos) mod 1 ) <> 0 ): + draw (i*u,0)+j*u*abvdir; + fi; + endfor; + fi; + endfor; + +endfig; + +beginfig(2); + numeric u, limit, major, minor, abvcos, blwcos; + color gridc; + pen gridpmaj, gridpmin, dotp; + u=0.7mm; + limit=24; + major=20; + minor=2; + abvcos=0.8; + blwcos=0.9; + gridc=0.5white; + gridpmaj=pencircle scaled 1.3pt; + gridpmin=pencircle scaled 0.7pt; + dotp=pencircle scaled 1.4pt; +% labeloffset := 3u; + numeric i,j, abvsin, blwsin, stpmaj, stpmin; + abvsin=1 +-+ abvcos; + blwsin=1 +-+ blwcos; + stpmaj=major*u; + stpmin=minor*u; + pair abvdir, blwdir, thedir; + abvdir=(abvcos,abvsin); + blwdir=(blwcos,-blwsin); + boolean ismajor, isaxe; + drawoptions( withpen gridpmin withcolor gridc ); + for i=-limit step minor until limit: + ismajor := not ((i mod major)<>0); + if ismajor: + isaxe := not (i <> 0); + if isaxe: + drawoptions( withpen gridpmaj ); + else: + drawoptions( withpen gridpmaj withcolor gridc ); + fi; + fi; + draw ((i*u,0)+limit*u*blwdir)--(i*u,0)--((i*u,0)+limit*u*abvdir); + if i<0: + thedir := -blwdir; + else: + thedir := abvdir; + fi; + draw ((-limit*u,0)+i*u*thedir)--((limit*u,0)+i*u*thedir); + if ismajor: + drawoptions( ); + label.bot( decimal( abs( i ) ), (i*u,0)+limit*u*blwdir ); + if i<0: + label.llft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + elseif not (i<>0): + label.lft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + else: + label.ulft( decimal( abs( i ) ), (-limit*u,0)+i*u*thedir ); + fi; + label.top( decimal( abs( i ) ), (i*u,0)+limit*u*abvdir ); + drawoptions( withpen gridpmin withcolor gridc ); + fi; + endfor; + drawoptions( withpen dotp withcolor red ); + numeric signal; + for i=-limit upto limit: + if i <> 0: + if i<0: + signal := -1; + else: + signal := 1; + fi; + for j=-limit upto -2: + if not ( ( sqrt((i**2)+(j**2)+signal*18*abs(i*j)/10) mod 1 ) <> 0 ): + draw (i*u,0)-j*u*blwdir; + fi; + endfor; + for j=limit downto 2: + if not ( ( sqrt((i**2)+(j**2)+signal*8*abs(i*j)/5) mod 1 ) <> 0 ): + draw (i*u,0)+j*u*abvdir; + fi; + endfor; + fi; + endfor; + draw origin withcolor blue withpen dotp; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ledlogo.mp b/Master/texmf-dist/doc/metapost/featpost/example/ledlogo.mp new file mode 100644 index 00000000000..7a00407d60d --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ledlogo.mp @@ -0,0 +1,202 @@ +% ledlogo.mp +% L. Nobre G. +% 2007 + +beginfig(1); + numeric u, penangle, peneccen, penminor, letterheig, letterwid, letterang; + u=2mm; + penangle=112; + peneccen=2.1; + penminor=2u; + letterheig=15u; + letterwid=12u; + letterang=-25; + numeric hdist, vdist, letterslantang, margindist, humanang, humanfactor; + hdist=7u; + vdist=7u; + letterslantang=20; + margindist=4.7u; + humanang=7; + humanfactor=0.2; + pen paintpen; + paintpen = pencircle scaled penminor xscaled peneccen rotated penangle; + pickup paintpen; + pair letterup, letterig, dirabove, dirbelow; + letterup=dir(90+letterang-letterslantang); + letterig=dir(letterang); + dirabove=dir(90+letterang-letterslantang+humanang); + dirbelow=dir(90+letterang-letterslantang-humanang); + z0=origin; + z1=z0-letterheig*letterup; + z2=z1+letterwid*letterig; + z3=z0+hdist*letterig+0.5*letterheig*letterup; + z4=z3-letterheig*letterup; + z5=z4+letterwid*letterig; + z6=z3+hdist*letterig+0.5*letterheig*letterup; + z7=z6-letterheig*letterup; + z8=z6-(letterheig-margindist)*letterup; + z9=z3+letterwid*letterig; + z10=z9+margindist*letterig; + z11=z0-(letterheig-humanfactor*margindist)*letterup; + z12=z1+humanfactor*margindist*letterig; + z13=z3-(letterheig-humanfactor*margindist)*letterup; + z14=z4+humanfactor*margindist*letterig; + z15=z7-2*humanfactor*hdist*letterig; + drawoptions( withcolor 0.876*red+0.7*green ); +% draw z0--z1--z2; +% draw z9--z3--z4--z5; +% draw z8---z6{letterig}..{unitvector(z2-z5)}z10..z7; + draw z0{-dirabove}..z11...z12..{letterig}z2; + draw z9--z3{-dirabove}..z13...z14..{letterig}z5; + draw z8{dirbelow}..z6{letterig}..{unitvector(z2-z5)}z10..z15; +endfig; + +verbatimtex +\documentclass{article} +\usepackage[T1]{fontenc} +\renewcommand*\rmdefault{cmdh} +\begin{document} +etex + +beginfig(2); + picture led; + led = thelabel( btex led etex, origin ); + pair ledshift; + ledshift = (0.3pt,-4.4pt); + numeric dc, db, da; + dc = 24pt; + db = 6.9pt; + da = 4.98pt; + fill fullcircle scaled dc withcolor red; +% fill fullcircle scaled db withcolor (red+green); + fill fullcircle scaled db withcolor 0.5green; + draw led shifted ledshift withcolor (red+green); +endfig; + +prologues := 1; + +beginfig(3); + numeric u, altur, diam, espessum, margem, distdisp, separ, frac; + color vermel, amarel; + vermel = 0.75red; + amarel = 0.876*red+0.7*green; + u = 5cm; + diam = 0.23u; + margem = 0.85diam; + altur = u-margem; + frac = 0.7; + numeric auxdist, lencirc, orientang, limitshift, i; + limitshift = 1.6u; + auxdist = (1u-2margem)*0.5; + distdisp = auxdist*sqrt(2) - diam; + 3*separ+2*espessum = distdisp; + separ = frac*espessum; + lencirc = length fullcircle; + path uma, umb; + uma = (0.5separ,-0.5diam)--(0.5separ+espessum,-0.5diam) + --(0.5separ+espessum,0.5diam)--(0.5separ,0.5diam)--cycle; + umb = uma rotated 180; + fill uma withcolor amarel; + fill umb withcolor amarel; + picture parduns; + parduns = currentpicture; + currentpicture := nullpicture; + path botcirc, caminhescudo, circulbase; + circulbase = fullcircle scaled diam; + botcirc = subpath (0.5*lencirc,lencirc) of fullcircle scaled u; + caminhescudo = botcirc--(0.5u,altur)--(-0.5u,altur)--cycle; + fill caminhescudo withcolor vermel; + z1 = ( auxdist, altur-margem ); + z2 = ( -auxdist, altur-margem ); + z3 = ( auxdist, 0 ); + z4 = ( -auxdist, 0 ); + z5 = ( 0, auxdist ); + fill circulbase shifted z1 withcolor amarel; + fill circulbase shifted z2 withcolor amarel; + fill circulbase shifted z3 withcolor amarel; + fill circulbase shifted z4 withcolor amarel; + fill circulbase shifted z5 withcolor amarel; + z6 = 0.5[z5,z1]; + z7 = 0.5[z5,z2]; + z8 = 0.5[z5,z3]; + z9 = 0.5[z5,z4]; + draw parduns rotated 45 shifted z6; + draw parduns rotated -45 shifted z7; + draw parduns rotated -45 shifted z8; + draw parduns rotated 45 shifted z9; + numeric actshift; + for orientang=45 step 90 until 360: + actshift := auxdist*sqrt(2) + 0.5diam + separ; + forever: + if uniformdeviate(1)<0.5: + actshift := actshift + espessum + 0.5separ; + draw parduns shifted (actshift,0) rotated orientang shifted z5; + exitif actshift>limitshift; + actshift := actshift + espessum + 0.5separ; + else: + actshift := actshift + 0.5diam; + fill circulbase shifted (actshift,0) rotated orientang shifted z5 + withcolor amarel; + exitif actshift>limitshift; + actshift := actshift + 0.5diam; + fi; + actshift := actshift + separ; + endfor; + endfor; +endfig; + +beginfig(4); + numeric u, hthick, vthick, lspace, espace, dspace, h, lbase, dbase; + numeric dinray, halfh, diffe; + u = 0.5mm; + hthick = 20u; + vthick = 10u; + lspace = 15u; + espace = 8u; + dspace = 8u; + h = 3*vthick+2*espace; + lbase = 38u; + dbase = 16u; + halfh = h/2; + dinray = halfh-vthick; + diffe = 2*vthick+espace-halfh; + path pathl, pathe, pathd, pathu; + z0 = (0,0); + z1 = (lbase,0); + z2 = (lbase,vthick); + z3 = (hthick,vthick); + z4 = (hthick,h); + z5 = (0,h); + pathl = z0--z1--z2--z3--z4--z5--cycle; + z6 = (lbase+lspace,0); + z7 = z6 + (h,0); + z8 = z7 + (0,vthick); + z9 = z6 + (vthick,vthick); + z10= z9 + (0,espace); + z11= z10+ (vthick,0); + z12= z11+ (-vthick,vthick); + z13= z6 + (-diffe,2*vthick+espace); + z14=z13+(diffe,-diffe); + pathe = z6--z7--z8--z9--z10--z11--z12--z13--z14--cycle; + z15= z7 + (dspace,0); + z16= z15+ (halfh,halfh); + z17= z15+ (0,h); + z18= z17- (halfh,0); + z19= z18+ (halfh,-halfh); + z20= z15+ (0,h-vthick); + z21= z20+ (dinray,-dinray); + z22= z15+ (0,vthick); + pathd = z15..z16..z17---z18--z19--z20..z21..z22--cycle; + z24= z6 + (-halfh,h); + z25= z24+ (h,0); + z26= z25+ (vthick,-vthick); + z27= z26- (h,0); + pathu = z24--z25--z26--z27--cycle; + fill pathl withcolor 0.78red; + fill pathe; + fill pathd; + fill pathu; +endfig; + +end. + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp b/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp new file mode 100644 index 00000000000..4d00c11df99 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/loglogpaper.mp @@ -0,0 +1,47 @@ +% loglogpaper.mp +% L. Nobre G. +% 2009 + +vardef logten( expr Arg )= + (1.696463*mlog( Arg )/1000) +enddef; + +beginfig(1); + numeric xdecs, ydecs, xdecsiz, ydecsiz, llcornx, llcorny, i, j; + numeric tmpvalx, tmpvaly; + color colormain, coloraux; + picture singledec; + xdecs = 5; + ydecs = 4; + xdecsiz = 35mm; + ydecsiz = 35mm; + llcornx = 20mm; + llcorny = 60mm; + colormain = 0.15white; + coloraux = 0.6white; + drawoptions( withcolor coloraux ); + for i=0 upto 10: + tmpvalx := xdecsiz*(logten(10+i*2)-1); + draw (tmpvalx,0)--(tmpvalx,ydecsiz); + tmpvaly := ydecsiz*(logten(10+i*2)-1); + draw (0,tmpvaly)--(xdecsiz,tmpvaly); + endfor; + drawoptions( withcolor colormain ); + for i=1 upto 10: + tmpvalx := xdecsiz*(logten(10*i)-1); + draw (tmpvalx,0)--(tmpvalx,ydecsiz); + tmpvaly := ydecsiz*(logten(10*i)-1); + draw (0,tmpvaly)--(xdecsiz,tmpvaly); + endfor; + singledec = currentpicture; + currentpicture := nullpicture; + drawoptions(); + for i=1 upto xdecs: + for j=1 upto ydecs: + draw singledec shifted (llcornx+(i-1)*xdecsiz,llcorny+(j-1)*ydecsiz); + endfor; + endfor; +endfig; + +end. + \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/logofontest.mp b/Master/texmf-dist/doc/metapost/featpost/example/logofontest.mp new file mode 100644 index 00000000000..ddccb82f27f --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/logofontest.mp @@ -0,0 +1,35 @@ +% logofontest.mp +% L. Nobre G. +% 2004 + +input boxes; + +verbatimtex +\documentclass{article} +%\usepackage{charter}% no bold +\usepackage{newcent} +%\usepackage{palatino} +\pagestyle{empty} +\begin{document} +etex + +beginfig(0); + picture thestatement; + thestatement = thelabel( btex + \begin{tabular}{c} + \textbf{\texttt{{\Large T}$\!$ecnumbria}} \\ + \texttt{\scriptsize a sombra da tecnologia} + \end{tabular} + etex, origin); + circleit.state( thestatement ); + state.dx = state.dy; + pickup pencircle scaled 1pt; + fill bpath.state withcolor (0.25,0.33,0.75); + draw bpath.state; + draw thestatement; +endfig; + +verbatimtex \end{document} etex + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/manjusha.mp b/Master/texmf-dist/doc/metapost/featpost/example/manjusha.mp new file mode 100644 index 00000000000..0fa9d556089 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/manjusha.mp @@ -0,0 +1,76 @@ + +numeric u; +u = 1cm; +pen thin, thick; +thin = pencircle scaled 1pt; +thick= pencircle scaled 3pt; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + pair a, b, c, d; + a = origin; + b = (1u,2u); + c = (4u,2u); + d = (6u,0); + path lines, curve; + lines = a--b--c--d; + curve = a..controls b and c..d; %%%%%%%%%%% This is quite powerfull. + draw lines withpen thin withcolor red+blue; + draw curve withpen thin withcolor blue; + drawoptions( withpen thick ); + draw a; + draw b; + draw c; + draw d; +endfig; + +beginfig(4); + pair a, b, c, d, e; + a = origin; + b = (2.5u,0.5u); + c = (4u,2u); + d = (6u,0); + e = (4u,-0.5u); + drawoptions( withcolor blue ); + picture thecaption; + thecaption = btex Degree 3 etex; + label( thecaption, e ); + path lines, curve; + lines = a--b--c--d; + curve = a..controls b and c..d; + draw lines withpen thin withcolor red+blue; + draw curve withpen thin withcolor blue; + drawoptions( withpen thick withcolor red+green ); + draw a; + draw b; + draw c; + draw d; +endfig; + +beginfig(6); + numeric n, i; + n = 100; + pair p[]; + for i=1 upto n: + p[i] = (uniformdeviate(4u),uniformdeviate(3u)); + draw p[i] withpen thick withcolor green; + endfor; + path everywhere, convexhull; + everywhere = p1 for i=2 upto n: --p[i] endfor --cycle; + convexhull = makepath makepen everywhere; %%%%%%%%%%%%%% Wow! + draw convexhull withpen thin withcolor red+green; + for i=1 upto length convexhull: + draw point i of convexhull withpen thick withcolor blue; + endfor; +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp b/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp new file mode 100644 index 00000000000..0dc5891171a --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/mce-lng.mp @@ -0,0 +1,89 @@ +% mce-lng.mp +% L. Nobre G. +% 2009 + +prologues := 1; + +beginfig(1); + numeric u, anga, angb, posa, posb, thic, marg, angm, stwo, rest; + numeric plac, n; + path pta, ptb, ptc, ptd, pte, ptf, ptfa, ptfb, pa, pb; + picture trib, half, unib; + transform ta, tb; + u = 10cm; + anga = 120; + angb = 135; + posa = 0.8; + posb = 0.23; + thic = 0.15; + marg = 0.07; + angm = 10; + plac = 0.5; + stwo = u*sqrt(2); + rest = u/sqrt(2); + z1 = u*(0,posa+marg); + z2 = u*(0,posa); + z3 = u*(0,posa-thic); + z4 = u*(0,posa-thic-marg); + z6 = u*(0,-posb+0.5*thic); + z7 = u*(0,-posb-0.5*thic); + z8 = (posb-0.5*thic)[(0,u),(u,0)]; + z9 = (posb+0.5*thic)[(0,u),(u,0)]; + z12 = posb[(0,u),(u,0)]; + z11 = z12+rest*(marg,marg); + z13 = z12-rest*(thic,thic); + z14 = z12-rest*(marg+thic,marg+thic); + z22 = posa[(0,-u),(u,0)]; + z21 = z22+rest*(marg,-marg); + z23 = z22-rest*(thic,-thic); + z24 = z22-rest*(marg+thic,-marg-thic); + z33 = (plac*x43,y43); + z34 = (plac*x43+stwo*marg,y43); + z32 = (plac*x43-stwo*thic,y43); + z31 = (plac*x43-stwo*(thic+marg),y43); + z43 = (posa-thic)[(0,-u),(u,0)]; + pta = z6{dir(angb+0.5*angm-90)}..{dir(angb+0.5*angm-45)}z8; + ptb = z7{dir(angb-0.5*angm-90)}..{dir(angb-0.5*angm-45)}z9; + ptc = z4{dir(anga-angm-90)}..{dir(-45)}z14..{dir(-135)}z24..z34; + ptd = z3{dir(anga-angm-90)}..{dir(-45)}z13..{dir(-135)}z23..{up}z33 + ..{dir(anga-angm-135)}z43; + pte = z2{dir(anga-90)}..{dir(-45)}z12..{dir(-135)}z22..{up}z32 + ..{dir(anga-135)}z22; + ptf = z1{dir(anga-90)}..{dir(-45)}z11..{dir(-135)}z21..{up}z31; + ta = identity scaled (1/sqrt(2)) shifted (0,rest) rotated 45; + tb = identity scaled (1/sqrt(2)) shifted (0,-rest) rotated -45; + ptfa = ptf transformed ta; + ptfb = ptf transformed tb; + pa = buildcycle( pte, ptc, reverse ptd, reverse ptfa ); +% draw pta; +% draw ptb; +% draw ptc; +% draw ptd; +% draw pte; +% draw ptf; +% draw ptfb; + pb = buildcycle( pta, ptc, reverse ptb, reverse ptfb ); + fill pa; + fill pb; +% draw (0,-u)--(u,0)--(0,u)--cycle; + trib = currentpicture; + currentpicture := nullpicture; + drawoptions( shifted (u,0) ); + draw trib; + draw trib transformed ta; + draw trib transformed tb; + drawoptions(); + draw trib scaled 0.5 shifted (0.5u,0) rotated 90; + draw trib scaled 0.5 shifted (0.5u,0) rotated (-90); + half = currentpicture; + draw half rotated 180; + unib := currentpicture; + draw currentpicture scaled 0.5; + draw unib scaled 0.25; +% draw currentpicture scaled 0.25; +% draw unib scaled 0.0625 withcolor blue; +% dotlabels.urt( 1,2,3,4,6,7,8,9,11,12,13,14,21,22,23,24,31,32,33,34,43); +% dotlabels.urt(31,32,33,34,43); +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/micromu.mp b/Master/texmf-dist/doc/metapost/featpost/example/micromu.mp new file mode 100644 index 00000000000..01b10e8c649 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/micromu.mp @@ -0,0 +1,34 @@ +% micromu.mp +% L. Nobre G., Ryan Van Wagoner, Jens-Uwe Morawski +% 2006 + +verbatimtex +%&latex +\documentclass{article} +\usepackage[T1]{fontenc} +\usepackage[latin1]{inputenc} +\usepackage{textcomp} +\usepackage{pifont} +\newcommand{\upmu}{\Pisymbol{psy}{109}} +\begin{document} +etex + +beginfig(1); + transform T; + numeric referenceangle, tangentd, shiftlen; + picture micromu; + referenceangle = 14; + shiftlen = 5mm; + tangentd = sind(referenceangle)/cosd(referenceangle); + T = identity slanted (-tangentd); + micromu = thelabel( btex \framebox{\upmu\ \textmu\ $\mu$.} etex, origin ); + draw micromu shifted (0,shiftlen); + draw micromu transformed T; +endfig; + +verbatimtex +\end{document} +etex + +end. + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/milimetricpaper.mp b/Master/texmf-dist/doc/metapost/featpost/example/milimetricpaper.mp new file mode 100644 index 00000000000..d05d36e6491 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/milimetricpaper.mp @@ -0,0 +1,43 @@ +% milimetricpaper.mp +% L. Nobre G. +% 2005 + +%%input mp-tool; + +beginfig(1); + numeric u, xsize, ysize, i; + numeric minstep, majstep, bigstep; + pen minpen, majpen, bigpen; + color mincolor, majcolor, bigcolor; + u = 1mm; + xsize = 15cm; + ysize = 11cm; + minstep = 2u; + majstep = 10u; + bigstep = 50u; + minpen = pencircle scaled 0pt; + majpen = pencircle scaled 0.3pt; + bigpen = pencircle scaled 0.8pt; + mincolor = 0.5white; + majcolor = 0.2white; + bigcolor = 0.5white; + for i=0 step minstep until xsize: + draw (i,0)--(i,ysize) withpen minpen withcolor mincolor; + endfor; + for i=0 step minstep until ysize: + draw (0,i)--(xsize,i) withpen minpen withcolor mincolor; + endfor; + for i=0 step bigstep until xsize: + draw (i,0)--(i,ysize) withpen bigpen withcolor bigcolor; + endfor; + for i=0 step bigstep until ysize: + draw (0,i)--(xsize,i) withpen bigpen withcolor bigcolor; + endfor; + for i=0 step majstep until xsize: + draw (i,0)--(i,ysize) withpen majpen withcolor majcolor; + endfor; + for i=0 step majstep until ysize: + draw (0,i)--(xsize,i) withpen majpen withcolor majcolor; + endfor; +endfig; +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/mpfields.mp b/Master/texmf-dist/doc/metapost/featpost/example/mpfields.mp new file mode 100644 index 00000000000..6b877da5b1c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/mpfields.mp @@ -0,0 +1,160 @@ +%input mp-tool; + +def projectyz( expr theta, phi ) = + (cosd(theta)*sind(phi),sind(theta)) +enddef; + +numeric vertn, horin, grids, thex, they, varc, xcomp; +numeric ymax, xmax, i, j, size, u, ycomp, theta, phi; +numeric power; +pair actpos, direct, one, two; + +u := 0.5mm; +power := 0.8; +vertn := 20; +horin := 41; +size := 3u; +grids := 8u; +ymax := 0.5*(vertn-1); +xmax := 0.5*(horin-1); +varc := 90/ymax; + +beginfig(0); % splay + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=90*(cosd(they)**power); + phi:=0; + direct:=projectyz(theta,phi); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(2); % bend + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=90*((1-cosd(they))**(1/power)); + phi:=0; + direct:=projectyz(theta,phi); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(4); % twist + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=0; + phi:=90*(cosd(they)**power); + direct:=projectyz(theta,phi); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(3); % splaytwist in splay + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=90*cosd(they)*cosd(thex); + phi:=60*sind(2*they)*sind(thex); + direct:=projectyz(theta,phi); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(5); % splaytwist in twist + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=30*sind(2*they)*sind(thex); + phi:=-90*cosd(they)*cosd(thex); + direct:=projectyz(theta,phi); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(7); % splaytwist in bend + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=90*cosd(they)*sind(thex); + phi:=30*sind(2*they)*cosd(thex); + direct:=(cosd(theta)*sind(phi),cosd(theta)*cosd(phi)); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +beginfig(1); % splay-bend wall + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*varc; + they:=j*varc; + theta:=0; + phi:=2*angle(1,mexp(thex*9)); + direct:=(cosd(theta)*sind(phi),cosd(theta)*cosd(phi)); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +prologues := 1; + +beginfig(6); + pickup pencircle scaled u; + numeric rescal; + rescal = 0.15; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=grids*(i,j); + thex:=i*rescal; + they:=j*rescal; + direct:=unitvector((1,they-thex)); + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/muslimpattern.mp b/Master/texmf-dist/doc/metapost/featpost/example/muslimpattern.mp new file mode 100644 index 00000000000..6c40859b746 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/muslimpattern.mp @@ -0,0 +1,73 @@ +% muslimpattern.mp +% L. Nobre G. +% 2012 + +prologues := 1; +background := 0.9white; + +numeric u, pa, pb, hexf; +u = 35mm; +pa = 0.12u; +pb = 0.05u; +hexf = sqrt(3)/2; + +vardef markpath( expr Pat ) = + draw Pat withpen pencircle scaled pa; + undraw Pat withpen pencircle scaled pb; +enddef; + +vardef hc( expr Xindex, Yindex ) = + 2*u*hexf*(Xindex*right+Yindex*dir(60)) +enddef; + +beginfig(1); + numeric i, ang; + pair c, b, a, d; + a = (hexf,0); + b = (0.33hexf,-0.4); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% CHANGE only this. + c = (0,1.5); + d = 1.1[b,a]; + path seg[], aux, hex, auxa, auxb; + for i=0 upto 5: + seg[i] = (d--b--c) rotated (i*60) scaled u; + endfor; + seg6 = seg0; + ang = angle(c-b); + aux = ((a-dir(ang))--(a+dir(ang))) scaled u; + z1 = seg0 intersectionpoint seg5; + z2 = seg0 intersectiontimes seg5; + z3 = unitvector( direction xpart z2 of seg0 ); + for i=1 upto 6: + markpath( aux rotated (i*60) ); + markpath( seg[i-1] ); + endfor; + auxa = ((a-pb*dir(ang)/u)--(a+pb*dir(ang)/u)) scaled u; + auxb = ((a-pa*dir(ang)/u)--(a+pa*dir(ang)/u)) scaled u; + for i=1 upto 6: + draw auxa rotated ((i-1)*60) withpen pencircle scaled pa; + undraw auxb rotated ((i-1)*60) withpen pencircle scaled pb; + endfor; + auxa := ((z1-pb*z3)--(z1+pb*z3)); + auxb := ((z1-pa*z3)--(z1+pa*z3)); + draw auxa withpen pencircle scaled pa; + undraw auxb withpen pencircle scaled pb; + hex = for i=30 step 60 until 360: u*dir(i)-- endfor cycle; + clip currentpicture to hex; + picture tile; + tile = currentpicture; +endfig; + +beginfig(2); + numeric i, j; + path rect; + rect = hc(0,-1)--hc(1,-1)--hc(0,1)--hc(-1,1)--cycle; + fill rect withcolor (1,0.986,0.993); + for i=-1 upto 1: + for j=-1 upto 1: + draw tile shifted hc(i,j); + endfor; + endfor; + clip currentpicture to rect; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/naoestacionar.mp b/Master/texmf-dist/doc/metapost/featpost/example/naoestacionar.mp new file mode 100644 index 00000000000..e811368c414 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/naoestacionar.mp @@ -0,0 +1,39 @@ +% naoestacionar.mp +% L. Nobre G. +% 2008 + +prologues := 3; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + numeric stampnum, initang, i, stepang, stampoffset, amplfactor; + picture stamp; + bboxmargin := 9mm; + stampnum = 36; + stampoffset = 0.92mm; + amplfactor = 20; + label.urt( btex \begin{tabular}{c} + N\~{A}O \\ + estacionar + \end{tabular} etex scaled amplfactor, origin ); + stamp = currentpicture; + unfill bbox stamp; + initang = 180/stampnum; + stepang = 2*initang; + drawoptions(); + for i=0 upto (stampnum-1): + draw stamp shifted (stampoffset*dir(initang+i*stepang)); + endfor; + undraw stamp; +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/newcommunism.mp b/Master/texmf-dist/doc/metapost/featpost/example/newcommunism.mp new file mode 100644 index 00000000000..3887cdc280f --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/newcommunism.mp @@ -0,0 +1,237 @@ +% newcommunism.mp +% L. Nobre G. +% 2007 + +prologues := 2; + +beginfig(1); + numeric u, elhei, elwid, elpos, bawid, bahei, thstp, thdel, i; + numeric refang, reft, tfin, tini, spikang; + path el, ba, aux, cutel, horns; + pair reftpair; + color yellow, thered; + yellow = 0.87*(0.95*red+0.7*green); + thered = 0.66red; + u = 2mm; + thdel = 25; + thstp = 5; + elhei = 30u; + elwid = 44u; + elpos = 26u; + bawid = 27u; + bahei = 10u; + el = (elwid,elpos)..for i=thstp step thstp until 360-thstp: + (elwid*cosd(i),elpos+elhei*sind(i)).. endfor cycle; + ba = (bawid,-bahei){right}..{left}(bawid,0)-- + (elwid*cosd(90-thdel),elpos+elhei*sind(90-thdel))-- + (bawid/3.0,0)--(0,elpos+elhei)--(-bawid/3.0,0)-- + (elwid*cosd(90+thdel),elpos+elhei*sind(90+thdel))-- + (-bawid,0){left}..{right}(-bawid,-bahei)--cycle; + aux = (0,elpos)-- + 1.1[(0,elpos),(elwid*cosd(270+2thdel),elpos+elhei*sind(270+2thdel))]; + reftpair = el intersectiontimes aux; + reft = xpart reftpair; + refang = angle( direction reft of el ); + tfin = directiontime dir(180-refang) of el; + tini = directiontime dir(180+refang) of el - length el; + cutel = subpath (tini,tfin) of el; + spikang = (90-angle((0,elpos+elhei)-(-bawid,0))); + horns = cutel{dir(-refang-spikang)}.. + {left}(0,elpos-elhei+bawid/3.0).. + {dir(refang+spikang)}cycle; + fill ba withcolor yellow; + fill horns withcolor yellow; + picture storepic; + storepic = currentpicture; + currentpicture := nullpicture; + bboxmargin := bahei; + fill bbox storepic withcolor thered; + draw storepic; +endfig; + +beginfig(2); + numeric u; + color yellow, thered; + path martelo, foice, monitor, ecran, mar, foi; + u = 1pt; +% yellow = 0.87*(0.95*red+0.7*green); + thered = 0.66red; + yellow = 0.7blue; + picture storemf; + + numeric cabosal, cabesal, cabolar, cabelar; + numeric cabolen, cabeclen, cabecontrol, martelrot; + pair martelpos; + cabosal = 2u; + cabesal = 6u; + cabolar = 8u; + cabelar = 10u; + cabolen = 70u; + cabeclen = 7u; + cabecontrol = 4u; + martelrot = 50; + martelpos = dir(180)*0.03*cabolen; + z100 = origin; + z101 = ( cabesal, 0 ); + z102 = ( cabesal, cabosal+cabelar-cabolen ); + z103 = ( cabesal+cabolar, cabosal+cabelar-cabolen ); + z104 = ( cabesal+cabolar, 0 ); + z105 = ( cabesal+cabolar+cabeclen, 0 ); + z106 = ( cabesal+cabolar+cabecontrol, cabelar ); + z107 = ( cabesal+cabolar, cabelar ); + z108 = ( cabesal+cabolar, cabelar+cabosal ); + z109 = ( cabesal, cabelar+cabosal ); + z110 = ( cabesal, cabelar ); + z111 = ( 0, cabelar ); + martelo = z100-- + z101-- + z102-- + z103-- + z104-- + z105..controls z106.. + z107-- + z108-- + z109-- + z110-- + z111--cycle; + mar = martelo + rotated martelrot + shifted martelpos; + + filldraw mar withcolor yellow; + show mar; + numeric fcabolen, fcabolar, foicecontrol, laminang; + numeric foicerot, foicaber, flamilar, fcabomar, refang; + numeric fmaomarg, fmaorais, fmaospac, fprotrud, basangul; + pair foicepos; + laminang = 3; + refang = 10 + basangul = 23; + fcabomar = 3u; + fcabolar = 8u - fcabomar; + flamilar = 4u; + fcabolen = 22u; + foicecontrol = 2u; + fmaomarg = 6u; + fmaorais = 2u; + fmaospac = 14u; + fprotrud = 30u; + foicaber = 42u; + foicerot = -50; + foicepos = dir(270)*0.3*foicaber; + z200 = origin; + z201 = ( -fcabomar, 0 ); + z202 = ( -fcabomar, -fcabolen ); + z203 = ( fcabolar, -fcabolen ); + z204 = ( fcabolar+foicecontrol, -fcabolen ); + z205 = ( fcabolar+fmaomarg, fmaorais-fmaospac ); + z206 = ( fcabolar, -fmaospac ); + z207 = ( fcabolar, 0 ); + z208 = ( -fprotrud, foicaber ); + z209 = ( 0, flamilar ); + foice = z200-- + z201-- + z202-- + z203..controls z204.. + z205{dir(-160)}..{left} + z206-- + z207{dir(basangul)}..tension 0.8..{dir(180+refang+laminang)} + z208{dir(refang-laminang)}..tension 0.8..{dir(180+basangul)} + z209--cycle; + foi = foice + rotated foicerot + shifted foicepos; + + filldraw foi withcolor yellow; + show foi; + storemf = currentpicture shifted -(center currentpicture); + currentpicture := nullpicture; + + + + + + + numeric monith, monitw; + pair mll, mlr, mur, mul; + monith = 18u + ypart ((urcorner storemf)-(llcorner storemf)); + monitw = 1.34monith; + mll = (-0.5monitw, -0.5monith); + mlr = (0.5monitw, -0.5monith); + mur = (0.5monitw, 0.5monith); + mul = (-0.5monitw, 0.5monith); + ecran = mll-- + mlr-- + mur-- + mul--cycle; + + numeric bordthick, roundfrac, alturpe, borraspac, largupe; + numeric borralarg, apoiolarg, cornermarg, apoiothick; + bordthick = 13u; + roundfrac = 0.3; + alturpe = 15u; + borraspac = 0.95u; + largupe = 50u; + borralarg = 60u; + apoiolarg = 156u; + cornermarg = 2u; + apoiothick = 18u; + z301 = (0.5largupe,-0.5monith-bordthick); + z302 = (0.5monitw+roundfrac*bordthick,-0.5monith-bordthick); + z303 = (0.5monitw+bordthick,-0.5monith-roundfrac*bordthick); + z304 = (0.5monitw+bordthick,0.5monith+roundfrac*bordthick); + z305 = (0.5monitw+roundfrac*bordthick,0.5monith+bordthick); + z306 = (-0.5monitw-roundfrac*bordthick,0.5monith+bordthick); + z307 = (-0.5monitw-bordthick,0.5monith+roundfrac*bordthick); + z308 = (-0.5monitw-bordthick,-0.5monith-roundfrac*bordthick); + z309 = (-0.5monitw-roundfrac*bordthick,-0.5monith-bordthick); + z310 = (-0.5largupe,-0.5monith-bordthick); + z311 = (-0.5largupe,-0.5monith-bordthick-alturpe); + z312 = (-0.5apoiolarg+cornermarg, + -0.5monith-bordthick-alturpe-cornermarg); + z313 = (-0.5apoiolarg, + -0.5monith-bordthick-alturpe-apoiothick-borraspac); + z314 = (-0.5borralarg, + -0.5monith-bordthick-alturpe-apoiothick-borraspac); + z315 = (0,-0.5monith-bordthick-alturpe-apoiothick); + z316 = (0.5borralarg, + -0.5monith-bordthick-alturpe-apoiothick-borraspac); + z317 = (0.5apoiolarg, + -0.5monith-bordthick-alturpe-apoiothick-borraspac); + z318 = (0.5apoiolarg-cornermarg, + -0.5monith-bordthick-alturpe-cornermarg); + z319 = (0.5largupe,-0.5monith-bordthick-alturpe); + monitor = z301-- + z302{right}..{up} + z303-- + z304{up}..{left} + z305-- + z306{left}..{down} + z307-- + z308{down}..{right} + z309-- + z310-- + z311..controls z312.. + z313-- + z314{dir(73)}...{right} + z315{right}...{dir(-73)} + z316-- + z317..controls z318.. + z319--cycle; + draw monitor withcolor thered; + bboxmargin := monitw; + fill bbox monitor withcolor thered; + filldraw monitor withcolor yellow; + filldraw ecran withcolor thered; + show monitor; + show ecran; +% label.urt("New Communism", llcorner monitor); + draw storemf; + + + endfig; + + +end; + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/nosimples.mp b/Master/texmf-dist/doc/metapost/featpost/example/nosimples.mp new file mode 100644 index 00000000000..84fb96093f7 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/nosimples.mp @@ -0,0 +1,61 @@ +% nosimples.mp +% L. Nobre G. +% 2012 + +prologues := 1; + +beginfig(1); + numeric u, ray, side, i, pensize, ang, fac, mar; + u = 2mm; + ray = 2.9u; + size = 10u; + pensize = 0.45u; + fac = 2.5; + mar = 1.0; + pickup pencircle scaled pensize; + for i=1 upto 5: + ang := i*72+18; + z[i] = size*dir(ang); + endfor; + z6 = z1+ray*(dir(-36)+dir(54)); + z61 = z1+ray*(dir(-36)+dir(-18)); + z11 = z1+ray*(dir(216)+dir(126)); + z7 = z2+ray*(dir(216)+dir(126)); + z8 = z3+ray*(dir(216)+dir(198)); + z12 = z2+ray*(dir(216)+dir(198)); + z21 = z1+ray*(dir(216)+dir(198)); + z24 = z4+ray*(dir(216)+dir(198)); + z13 = z3+2*ray*down; + z9 = z4+2*ray*down; + z15 = z5+ray*(dir(-36)+dir(54)); + z10 = z5+ray*(dir(-36)+dir(-18)); + z14 = z4+ray*(dir(-36)+dir(-18)); + z63 = z3+ray*(dir(-36)+dir(-18)); + z16 = fac[z1,z2]; + z17 = (fac-mar)[z5,z3]; + z18 = (fac-mar)[z2,z4]; + z19 = fac[z1,z5]; + z35 = (z10--z14) intersectionpoint (z5--z19); + z34 = (z13---z9..z14---z10) intersectionpoint (z4--z18); + z33 = (z9---z13..z8---z12) intersectionpoint (z3--z17); + z32 = (z2--z16) intersectionpoint (z8--z12); + z31 = (z1--z2) intersectionpoint (z21--z24); + z50 = (z21--z24) intersectionpoint (z3--z5); + z55 = (z3--z5) intersectionpoint (z2--z4); + z70 = (z61--z63) intersectionpoint (z2--z4); + z75 = (z61--z63) intersectionpoint (z21--z24); + draw z9---z13..z8---z12..z7; + draw z55--z18--z19--z5; + draw (z1{dir(144)}..z11..z21---z24..z9..{dir(54)}z14) cutafter (z2--z18); + draw z35---z10..z15..z5---z50; + draw z33..z17--z16--z32; + draw z31---z1..z6--z15; + draw z7--z11; +% draw z1..z6..z61---z63..z13..z8; + draw z70--z75; +% dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,55); +% dotlabels.lft(21,24,31,32,33,34,35,50); +% dotlabels.bot(61,63,70,75); +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/nosuspension.mp b/Master/texmf-dist/doc/metapost/featpost/example/nosuspension.mp new file mode 100644 index 00000000000..2be03e82d71 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/nosuspension.mp @@ -0,0 +1,131 @@ +% nosuspension.mp +% the hard way to write + +beginfig(0); + picture l[], auxpic; + numeric gridsp, u, pensz, yprop, + altura, largura, small, big, thisjump, thatjump; + pen thispen, thatpen; + path auxpat, thispat, thatpat; + pair currpos, reforigin; + u = 1mm; + pensz = 0.5u; + yprop = 1.5; + gridsp = 6u; + altura = 3gridsp; + largura = 2gridsp; + small = 0.5gridsp; + big = 0.6667gridsp; + thisjump = 3gridsp; + thatjump = 4gridsp; + reforigin = (10cm,15cm) + left*9.5cm; + auxpat = (0,yprop*u)--(0.4u,yprop*u){right}..{down}(1u,0.9u)--(1u,0); + auxpat := auxpat--(auxpat reflectedabout(origin,right)); + thispat = auxpat--(auxpat reflectedabout(origin,up)); + thatpat = thispat rotated 90; + thispen = makepen(thispat) scaled pensz; + thatpen = makepen(thatpat) scaled pensz; + draw (big,0)--origin + --(0,altura) + --(largura,0) + --(largura,altura) + --(largura-big,altura) withpen thatpen; + l1 = currentpicture; + currentpicture := nullpicture; + draw (largura,largura)--(0,largura) + --origin + --(altura,largura) + --(altura,0) + --(altura-largura,0) withpen thatpen; + l2 = currentpicture; + currentpicture := nullpicture; + draw (altura,largura-small)--(altura,largura) + --(0,largura) + --(altura,0) + --origin + --(0,small) withpen thispen; + l3 = currentpicture; + currentpicture := nullpicture; + draw (small,altura)--(0,altura) + --origin + --(largura,0) + --(largura,altura) + --(largura-small,altura) withpen thispen; + l4 = currentpicture; + currentpicture := nullpicture; + draw (small,0)--origin + --(0,altura) + --(largura,altura) + --(largura,altura-gridsp) + --(0,altura-gridsp) withpen thispen; + l5 = currentpicture; + currentpicture := nullpicture; + draw (largura,small)--(largura,0) + --origin + --(0,altura) + --(largura,altura) + --(largura,altura-small) withpen thispen; + draw (0,largura)--(largura-small,largura) withpen thispen; + l6 = currentpicture; + currentpicture := nullpicture; + draw (-small,0)--origin + --(0,altura) + --(-small,altura) withpen thispen; + l7 = currentpicture; + currentpicture := nullpicture; + draw (largura-small,largura)--(largura-small,altura) + --(0,altura) + --origin + --(largura,0) + --(largura,largura) + --(0,largura) withpen thispen; + l8 = currentpicture; + currentpicture := nullpicture; + draw origin--(small,0) + --(small,largura) + --(0,largura) withpen thatpen; + draw (small,largura-big)--(largura,largura) + --(largura,largura-small) withpen thatpen; + draw (altura,small)--(altura,0) + --(largura-big,largura-small) withpen thatpen; + l9 = currentpicture; + currentpicture := nullpicture; + currpos = (thisjump,thatjump+gridsp)+reforigin; + draw l1 scaled 2 shifted currpos; + currpos := currpos+(2thisjump,0); + draw l2 scaled 2 shifted currpos withcolor 0.875red; + currpos := reforigin; + draw l3 shifted currpos; + currpos := currpos+(thatjump,0); + draw l4 shifted currpos; + currpos := currpos+(thisjump,gridsp); + draw l3 shifted currpos; + currpos := currpos+(thatjump,-gridsp); + draw l5 shifted currpos; + currpos := currpos+(thisjump,0); + draw l6 shifted currpos; + currpos := currpos+(thisjump,gridsp); + draw l1 shifted currpos; + currpos := currpos+(thisjump,-gridsp); + draw l3 shifted currpos; + currpos := currpos+(thatjump+small,0); + draw l7 shifted currpos; + currpos := currpos+(gridsp,gridsp); + draw l2 shifted currpos; + currpos := currpos+(thatjump,-gridsp); + draw l1 shifted currpos; + currpos := reforigin+(2thatjump,-thatjump); + draw l8 shifted currpos; + currpos := currpos+(thisjump+small,-gridsp); + draw l7 shifted currpos; + currpos := currpos+(gridsp,gridsp); + draw l9 shifted currpos; + currpos := currpos+(thatjump,-gridsp); + draw l6 shifted currpos; + currpos := currpos+(thisjump,gridsp); + draw l3 shifted currpos; +endfig; + +end; + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/nulldefectanglexample.mp b/Master/texmf-dist/doc/metapost/featpost/example/nulldefectanglexample.mp new file mode 100644 index 00000000000..182c6e4120e --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/nulldefectanglexample.mp @@ -0,0 +1,134 @@ +% nulldefectanglexample.mp +% L. Nobre G. +% 2012 + +input featpost3Dplus2D; + +prologues := 1; + +beginfig(1); + color po[]; + numeric ta, tb; + pen stroke; + stroke = pencircle scaled 3pt; + ta = sind(36)/cosd(36); + tb = sind(18)/cosd(18); + po1 = (1,ta,0); + po2 = (-1,ta,0); + po3 = (-1,tb,0); + po4 = (-1,-ta,0); + po5 = (0,-ta,0); + po6 = (1,-ta,0); + po7 = (1,0,0); + path frame; + frame = rp(po1)--rp(po2)--rp(po4)--rp(po6)--cycle; + unfill frame; + drawoptions( withpen stroke ); + draw frame; + drawoptions( dashed evenly ); + draw rp(black)--rp(po1); + draw rp(black)--rp(po3); + draw rp(black)--rp(po5); + draw rp(black)--rp(po7); +endfig; + +beginfig(2); + numeric parang, refdista, refdistb, auxa, auxb; + parang = 55; + refdista = conorm(po1-po3); + refdistb = 1 ++ ta; + auxa = (ta-tb)*sind(18); + auxb = (ta-tb)*cosd(18); + po7 := (cosd(parang),0,-sind(parang)); + po6 := po7+po5; + po1 := improvertex( black, refdistb, po7, ta, po3, refdista, po1 ); + po8 = po3+N(po3)*auxa; + po2 := po8+auxb*ncrossprod(po3,ccrossprod(po1,po3)); + drawoptions( withpen stroke ); + path a, b, c, d; + a = rp(black)--rp(po3)--rp(po4)--rp(po5)--cycle; + b = rp(black)--rp(po5)--rp(po6)--rp(po7)--cycle; + c = rp(black)--rp(po7)--rp(po1)--cycle; + d = rp(black)--rp(po1)--rp(po2)--rp(po3)--cycle; + unfill a; draw a; + unfill b; draw b; + unfill c; draw c; + unfill d; draw d; +endfig; + +beginfig(3); + numeric a, b, c, i, j; + a = 0.5; + b = 0.5*sqrt(3); + V1 := (b,-a,a); + V2 := (2*b,-a,0); + V3 := (b,a,a); + V4 := (2*b,a,0); + V5 := (b,a,0); + V6 := (0,1,0); + c = 6; + for j=1 upto 2: + for i=1 upto 6: + c := incr(c); + V[c] := rotvecaroundanother( j*120, V[i], blue ); + endfor; + endfor; + makeface1(1,3,7,9,13,15); + makeface2(1,2,4,3); + makeface3(3,4,5); + makeface4(3,5,6,7); + makeface5(7,6,8); + makeface6(7,8,10,9); + makeface7(9,10,11); + makeface8(9,11,12,13); + makeface9(13,12,14); + makeface10(13,14,16,15); + makeface11(15,16,17); + makeface12(15,17,18,1); + makeface13(1,18,2); + f := (5,0.9,9); + draw_invisible( false, false, white, black ); +endfig; + +beginfig(4); + numeric bsang, dista, distb, distc, distd, verdi, hordi, si, co; + color cauxa, cauxb, cauxd; + bsang = 15; + cauxa = (-1-sind(22),-1-cosd(22),1); + cauxb = (-1-cosd(22),-1-sind(22),1); + cauxd = (1+cosd(15),sind(15)-1,1); + V1 := (-1,1,1); + V2 := (-1,-1,1); + distc = conorm(V2-cauxb); + V3 := (1,-1,1); + dista = conorm(cauxa-V3); + V4 := (1,1,1); + distd = conorm(V4-cauxd); + V6 := (-1-cosd(bsang)*cosd(22),1+sind(22),1-sind(bsang)*cosd(22)); + V7 := (-1-cosd(bsang)*cosd(22),-1-sind(22),1-sind(bsang)*cosd(22)); + distb = conorm(cauxa-cauxb); + V8 := improvertex( V3, dista, V7, distb, V2, distc, cauxb-(0,0,0.5) ); + V5 := (X(V8),-Y(V8),Z(V8)); + verdi = 1-Z(V8); + hordi = Y(V8)+1; + si = verdi/(verdi++hordi); + co = hordi/(verdi++hordi); + V9 := (1+0.5*sqrt(2),-1+0.5*sqrt(2)*co,1-0.5*sqrt(2)*si); + V10 := improvertex( V9, 1, V3, 1, V4, distd, (1,-1,0) ); + V11 := (X(V10),-Y(V10),Z(V10)); + V12 := (X(V9),-Y(V9),Z(V9)); + NF := 0; + makeface1(1,2,3,4); + makeface2(1,5,6); + makeface3(1,2,7,6); + makeface4(2,7,8); + makeface5(2,3,9,8); + makeface6(3,9,10); + makeface7(3,4,11,10); + makeface8(4,11,12); + makeface9(1,5,12,4); + f := (9,2,5); + draw_invisible( false, false, white, black ); +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/onebigword.mp b/Master/texmf-dist/doc/metapost/featpost/example/onebigword.mp new file mode 100644 index 00000000000..c8621e7adb1 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/onebigword.mp @@ -0,0 +1,17 @@ + +beginfig(1); + picture topl; + color one, two, thr, fur; + string drawcommand; + drawcommand = "draw topl withcolor one;"; +% defaultfont := "putr8r"; +% defaultfont := "bchr8r"; + one = (0.13333,0.54510,0.13334); + two = (0.74118,0.71764,0.41961); + thr = (0.80000,0.20000,0.20000); + fur = (0.00000,0.85000,1.00000); + topl = thelabel( "40", origin) scaled 7; + scantokens( drawcommand ); +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/optest.mp b/Master/texmf-dist/doc/metapost/featpost/example/optest.mp new file mode 100644 index 00000000000..67a2099bf52 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/optest.mp @@ -0,0 +1,51 @@ +% optest.mp +% L. Nobre G. +% 2000 + +beginfig(1); +% linecap := squared; + pickup pencircle scaled 0.1mm; + numeric salto, i, shif; + pair cen; + shif = 2cm; + cen = (10.5cm,14.845cm); + draw ((-shif,0)--(shif,0)) shifted cen; + draw ((0,-shif)--(0,shif)) shifted cen; + pickup pencircle scaled 0.05mm; + salto = 1mm; + for i = 20 upto 22: + draw fullcircle scaled (i*salto) shifted cen; + endfor; + for i = 27 upto 28: + draw unitsquare shifted (-0.5,-0.5) + scaled (i*salto) + rotated 45 shifted cen; + endfor; + for i = 29 upto 31: + draw fullcircle scaled (i*salto) shifted cen; + endfor; + for i = -10 step 2 until 10: + draw (origin--shif*(1-0.0125*abs(i))*dir(i)) shifted cen; + endfor; +endfig; + +beginfig(2); + linecap := squared; + pickup pensquare scaled 0.15mm; + numeric salto, ix, iy; + path face; + picture descrit; + salto = 0.3in; + face = unitsquare xscaled 1.33 scaled 2; + fill face withcolor red; + draw face; + descrit = currentpicture; + currentpicture := nullpicture; + for iy = 1 upto 5: + for ix = 1 upto 5: + draw descrit shifted ( ix*salto, iy*salto ); + endfor; + endfor; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/pifpaf.mp b/Master/texmf-dist/doc/metapost/featpost/example/pifpaf.mp new file mode 100644 index 00000000000..f17d2852d02 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/pifpaf.mp @@ -0,0 +1,56 @@ +% pifpaf.mp +% L. Nobre G. +% 2010 + +prologues := 1; + +beginfig(1); + numeric u, siz, lena, lenb, lenc, anga, angb, angc, astep; + u = 7mm; + siz = 12u; + lena = 9u; + lenb = 8u; + lenc = 4u; + astep = 1.7; + z1 = (-lenb,siz-lena); + z2 = (lenb,siz-lena); + path circa, circb; + numeric auxa, auxb, auxc, lend; + auxa = 2*(lena+2*lenc); + auxb = 2*lena; + circa = fullcircle scaled auxa shifted z1; + circb = fullcircle scaled auxb shifted z2; + z3 = circa intersectionpoint circb; + anga = angle(z3-z1); + angb = 180-angle(z3-z2); + auxc = lena +-+ (lenb-lenc); + angc = angle(lenb-lenc,auxc); + show (anga,angc,angb); + z4 = z2+(lenc-lenb,auxc); + z5 = z1+(lenb-lenc,auxc); + draw z1--z2--z4--z5--cycle; + draw z1--z2--z3--cycle; + z6 = z1+lena*dir(anga); + z7 = z2+lena*dir(180-angb); + z8 = 0.5[z6,z7]; + lend = siz-lena+auxc; + z9 = z8+lend*dir(anga-90); + draw z8--z9; + draw origin withpen pencircle scaled 3pt; + numeric i, diamc; + pair parp, intp, pa, pb; + diamc = 4*lenc; + for i=anga step astep until angc: + parp := z1+lena*dir(i); + circa := fullcircle scaled diamc shifted parp; + intp := circa intersectionpoint circb; + pa := 0.5[parp,intp]; + pb := lend*unitvector((ypart (intp-parp),-xpart (intp-parp))); + draw pa--(pa+pb); + draw (-xpart (pa+pb),ypart (pa+pb)) withpen pencircle scaled 2pt; + draw (pa+pb) withpen pencircle scaled 2pt; + endfor; + +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/pixelgrid.mp b/Master/texmf-dist/doc/metapost/featpost/example/pixelgrid.mp new file mode 100644 index 00000000000..e6a1418485b --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/pixelgrid.mp @@ -0,0 +1,45 @@ +% pixelgrid.mp +% L. Nobre G. +% 2001 + +%input mp-tool; +path fullsquare; +fullsquare := unitsquare shifted - center unitsquare ; + +beginfig(1); + numeric u, ix, iy, s, h, v, i, j, n, f, r, l; + numeric last, angl, hori; + path frame; + pair cpos; + u = 2mm; + s = 1.2u; + n = 1; % 6 + f = 30; % 5 + h = f*n; + v = ceiling(h/sqrt(2)); + frame = fullsquare scaled 1u; +% for ix=0 upto h: +% for iy=-v upto v: +% draw frame shifted (ix*s,iy*s); +% endfor; +% endfor; + filldraw frame; + for i=1 upto n: + r := i*f; + l := round(r/sqrt(2)); + last := 0; + for j=0 upto l: + hori := round(sqrt(r*r-j*j)); + cpos := (hori*s,j*s); + angl := angle(cpos); + filldraw frame shifted cpos; + show angl-last; + last := angl; +% draw origin--cpos; + endfor; + endfor; +% draw fullcircle scaled (2*r*s) withcolor red; +% draw boundingbox currentpicture; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/plaintangency.mp b/Master/texmf-dist/doc/metapost/featpost/example/plaintangency.mp new file mode 100644 index 00000000000..6926ddb2256 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/plaintangency.mp @@ -0,0 +1,106 @@ +% plaintangency.mp +% L. Nobre G. +% IYP (2005) + +%input mp-tool; + +def paircrossprod(expr A, B) = + ( (xpart A)*(ypart B) - (xpart B)*(ypart A) ) +enddef; + +def firsttangencypoint( expr Path, Point, ResolvN ) = + begingroup + save auxp, i, cutp, va, vb; + path auxp; + numeric i; + pair cutp, va, vb; + auxp = + hide( va := unitvector( point 0 of Path - Point ); + vb := unitvector( direction 0 of Path ); ) + ( paircrossprod( va, vb ), 0 ) + for i=1/ResolvN step 1/ResolvN until length Path: + hide( va := unitvector( point i of Path - Point ); + vb := unitvector( direction i of Path ); ) + ...( paircrossprod( va, vb ), i ) + endfor; + cutp = auxp intersectionpoint ( origin--( 0, length Path ) ); + ( point ( ypart cutp ) of Path ) + endgroup +enddef; + +beginfig(0); + 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; + +beginfig(1); + numeric u; + u = 5mm; + pen a, b, c; + path auxp; + numeric i, auxn, yfact, sinfact, res; + pair cutp, vA, vB; + yfact = 30; + sinfact = 40; + res = 15; + 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,2.8u); + path cp; + cp = z1{up}..z2..z3..z4..z5..{up}z6; + draw z7 withpen b withcolor green; + draw cp withpen a; + auxp = hide( vA := unitvector(point 0 of cp - z7); + vB := unitvector(direction 0 of cp); ) + ( sinfact*((xpart vA)*(ypart vB) - (xpart vB)*(ypart vA)), 0 ) + for i=1/res step 1/res until length cp: + hide( vA := unitvector(point i of cp - z7); + vB := unitvector(direction i of cp); ) + ...(sinfact*((xpart vA)*(ypart vB)-(xpart vB)*(ypart vA)),i*yfact) + endfor; + draw auxp withcolor blue+green; + draw origin--(sinfact,0) withcolor red; + draw origin--( 0, yfact*length cp ) withcolor red+green; + cutp = auxp intersectionpoint ( origin--( 0, yfact*length cp ) ); + draw cutp withpen a; + auxn = ( ypart cutp )/yfact; + show auxn; + z8 = point auxn of cp; + draw z8 withpen b withcolor green; + draw z7--1.8[z7,z8] withpen c withcolor blue; +endfig; + +end. + + + + + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp b/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp new file mode 100644 index 00000000000..ed7ca2c7ff9 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/potenciadecicloeliptico.mp @@ -0,0 +1,46 @@ +% potenciadecicloeliptico.mp +% L. Nobre G. +% 2008 + +verbatimtex +\documentclass{article} +\usepackage{palatino,concmath,ccfonts} +\begin{document} +etex + +beginfig(1); + numeric u,w,h; + u = 5mm; + w = 11u; + h = 6u; + drawarrow origin--(0,h); + drawarrow origin--(w,0); + label.lft( btex $p$ etex, (0,h) ); + label.bot( btex $V$ etex, (w,0) ); + numeric wm, hm, tl; + tl = 0.05*h; + wm = 0.1+uniformdeviate(0.07); + hm = 0.1+uniformdeviate(0.07); + path elipse; + elipse = fullcircle xscaled (w-2*w*wm) yscaled (h-2*h*hm) + shifted (w/2,h/2); + draw elipse; + z1 = (w*wm,0); + z3 = (w*(1-wm),0); + z2 = (0,h*(1-hm)); + z4 = (0,h*hm); + draw z1--(z1+tl*up); + draw z3--(z3+tl*up); + draw z2--(z2+tl*right); + draw z4--(z4+tl*right); + label.lft( btex $p_b$ etex, z2 ); + label.bot( btex $V_a$ etex, z1 ); + label.lft( btex $p_d$ etex, z4 ); + label.bot( btex $V_c$ etex, z3 ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp b/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp new file mode 100644 index 00000000000..bd37e273b67 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/probtodooterr.mp @@ -0,0 +1,75 @@ +% probtodooterr.mp +% L. Nobre G. +% 2003 + +verbatimtex +\documentclass{article} +\begin{document} +etex + +beginfig(1); + ahangle := 30; + ahlength := 5mm; + currentpen := pencircle scaled 1mm; + numeric u, ray, delta, theta, tray, vlen; + numeric cray, clen, chig, cfra, cang; + path cpat, fall, vpat, tpat, apat, rpat; + picture cpic; + u = 1mm; + cray = 4u; + clen = 27u; + chig = 12u; + cfra = 1.3; + cang = 15; + theta = 38; + ray = 65u; + delta = 12u; + vlen = 39u; + tray = 0.3ray; + z1 = (-clen/2,0); + z2 = (-clen/2+cray,chig); + z3 = (cray,chig); + z4 = (clen/2,1.5*cray); + z5 = (clen/2,0); + z6 = (-clen/2+cfra*cray,0); + z7 = (clen/2-cfra*cray,0); + z8 = (ray,0); + z9 = (ray+delta,0); + z10 = (0,ray); + z11 = ray*(sind(theta),cosd(theta)); + z12 = z11+vlen*(cosd(theta),-sind(theta)); + cpat = z1{up}..{right}z2--z3{right}..z4..{down}z5{left}...{left}z1; +% dotlabels( 1,2,3,4,5); + fall = z11{dir(-theta)}..{dir(-85)}z9; + vpat = z11--z12; + rpat = origin--z11; + tpat = (halfcircle cutafter (origin--up)) scaled (2ray); + apat = ((halfcircle cutafter (origin--up)) + cutbefore rpat) scaled (2tray); + draw cpat; + filldraw fullcircle scaled cray shifted z6; + filldraw fullcircle scaled cray shifted z7; + cpic = currentpicture; + currentpicture := nullpicture; + draw z9--tpat; + draw fall dashed evenly; + drawarrow vpat; + drawarrow rpat; + draw apat; + draw cpic rotated (-cang) + shifted ((ray+0.5cray)*(sind(cang),cosd(cang))); + draw origin--z10 dashed evenly; + label.top(btex $\theta$ etex scaled 2, point 0.5 of apat ); + label.top(btex $l$ etex scaled 2, 0.5[z8,z9] ); + label.lrt(btex $R$ etex scaled 2, point 0.5 of rpat ); + label.urt(btex $\vec{v}_0$ etex scaled 2, point 0.5 of vpat ); + +endfig; + +verbatimtex +\end{document} +etex + +end; + + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/profaux.mp b/Master/texmf-dist/doc/metapost/featpost/example/profaux.mp new file mode 100644 index 00000000000..d9f8b5fbf91 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/profaux.mp @@ -0,0 +1,70 @@ +% profaux.mp +% L. Nobre G. +% 2005 + +beginfig(1); + numeric u, penbig, pensma, aangle, barhei, cirray, ularg, umarg, xhei, xcen; + numeric atray; + u = 1cm; + cirray = 5u; + atray = 6.7u; + aangle = 33; + penbig = 1.85u; + pensma = 0.75u; + barhei = -1u; + ularg = penbig-pensma; + umarg = 0.5*pensma; + color cux, coa; + cux = 0.78red; + coa = 0.78green; + pen bigpen, smapen; + bigpen = pencircle scaled penbig; + smapen = pencircle scaled pensma; + path theu; + z11 = (-0.5*ularg,0.5*ularg+umarg); + z12 = ( 0.5*ularg,0.5*ularg+umarg); + theu = (z11--(halfcircle scaled ularg rotated 180)--z12); + draw theu; + xhei = ularg+umarg; + xcen = 0.5*umarg; + z13 = (ularg+1.5*pensma)*right + xcen*up; + z14 = z13 + 0.5*(ularg,xhei); + z15 = z13 - 0.5*(ularg,xhei); + z16 = z13 + 0.5*(-ularg,xhei); + z17 = z13 - 0.5*(-ularg,xhei); + draw (z14--z15); + draw (z16--z17); + picture tmpic; + tmpic = currentpicture; + currentpicture := nullpicture; + path horba, theci, lsid, rsid; + theci = fullcircle scaled (2*cirray); + z2 = atray*up; + z1 = z2 - 2*atray*dir(90-0.5*aangle); + z3 = z2 + 2*atray*dir(0.5*aangle-90); + z5 = barhei*up; + z4 = z5 + cirray*left; + z6 = z5 + cirray*right; + z18= (z2--z1) intersectionpoint theci; + z19= (z2--z3) intersectionpoint theci; + lsid = z18--z1; + rsid = z19--z3; + z7 = (z4--z5) intersectionpoint lsid; + z8 = (z5--z6) intersectionpoint rsid; + horba = z7--z8; + z9 = (z7--z1) intersectionpoint theci; + z10= (z8--z3) intersectionpoint theci; + drawoptions( withpen bigpen withcolor coa ); + draw theci; + draw z18--z9; + draw z19--z10; + draw horba; + draw tmpic shifted (z10+umarg*(right+down)) withpen smapen withcolor cux; +% drawoptions( withcolor blue ); +% dotlabels.top(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19); +endfig; +end. + + + + \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/project.mp b/Master/texmf-dist/doc/metapost/featpost/example/project.mp new file mode 100644 index 00000000000..348a39321dd --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/project.mp @@ -0,0 +1,75 @@ + +verbatimtex +\documentclass{article} +\begin{document} +etex + +beginfig(1); + ahangle := 30; + numeric angthe, angalf, angpsi, xtopo, ytopo, xpoin; + numeric radthe, radalf, radpsi; + numeric ysize, xsize, margs, units, parac, i, dim; + pair vzer, incl, hori, topo; + path parab, plani, veloc, xaxis, yaxis, auxil; + pen thick, usual, vthin; + angpsi = 20; + dim = 50; + units = 1mm; + margs = 8units; + xsize = 70units; + ysize = 40units; + radthe = 22units; + radalf = 34units; + radpsi = 46units; + thick = pencircle scaled 0.5units; + usual = pencircle scaled 0.2units; + vthin = pencircle scaled 0.1units; + xtopo = xsize/2-margs; + ytopo = ysize-2*margs; + parac = ytopo/(xtopo*xtopo); + yaxis = ( 0, -margs/2 )--( 0, ysize-margs ); + xaxis = ( -margs, 0 )--( xsize-margs, 0 ); + plani = ( -margs*cosd( angpsi ), -margs*sind( angpsi ) ) + --( 2*xtopo, 2*xtopo*sind( angpsi )/cosd( angpsi ) ); + topo = ( xtopo, ytopo ); + parab = origin; + for i = 1 upto dim: + xpoin := 2*i*xtopo/dim; + parab := parab..(xpoin,ytopo-parac*(xpoin-xtopo)*(xpoin-xtopo)); + endfor; + ypart( vzer ) = ytopo; + vzer = whatever*( direction 0 of parab ); + veloc = origin--vzer; + hori = ( 2*xtopo, 0 ); + incl = plani intersectionpoint reverse parab; + auxil = origin--topo; + pickup thick; + draw parab cutafter reverse plani; + drawarrow veloc; + pickup usual; + drawarrow xaxis; + drawarrow yaxis; + draw plani; + draw parab cutbefore reverse plani dashed evenly; + draw auxil dashed evenly; + pickup vthin; + draw fullcircle scaled radthe cutafter veloc; + draw fullcircle scaled radalf cutafter auxil; + draw fullcircle scaled radpsi cutafter plani; + + dotlabel.urt( btex $H$ etex, hori ); + dotlabel.top( btex $I$ etex, incl ); + dotlabel.top( btex $T$ etex, topo ); + label.bot( btex $x$ etex, point 1 of xaxis ); + label.lft( btex $y$ etex, point 1 of yaxis ); + label.lft( btex $\vec{v}_0$ etex, vzer ); + label.urt( btex $\Theta$ etex, ( radthe/2, 0 ) ); + label.urt( btex $\alpha$ etex, ( radalf/2, 0 ) ); + label.urt( btex $\Psi$ etex, ( radpsi/2, 0 ) ); +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/qap.mp b/Master/texmf-dist/doc/metapost/featpost/example/qap.mp new file mode 100644 index 00000000000..c44419afd97 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/qap.mp @@ -0,0 +1,117 @@ +% qap.mp +% L. Nobre G. +% IYP (2005) + +def PickColor = + ( uniformdeviate(1) , uniformdeviate(1), uniformdeviate(1) ) +enddef; + +numeric HalfSideLength, ThinnessFactor; +numeric ThicknesFactor, BorderThFactor; + +HalfSideLength = 10mm; +ThicknesFactor = 0.17; % Maximum TraceThickness over Half Side +ThinnessFactor = 0.12; % Minimum TraceThickness over Half Side +BorderThFactor = 1.35; % Borders over TraceThickness + +def RandomStep = + begingroup + numeric margin; + margin = ThicknesFactor-ThinnessFactor; + ThinnessFactor*HalfSideLength + uniformdeviate( margin*HalfSideLength ) + endgroup +enddef; + +def PickInteger( expr MaxNum ) = + begingroup + save aux; + numeric aux; + aux = floor( uniformdeviate( MaxNum+0.995 ) ); + ( aux ) + endgroup +enddef; + +vardef LocateIndex[] = + dotlabel.urt( str @, z@ ) +enddef; + +beginfig(1); + numeric QNum; + QNum = 5 + PickInteger( 5 ); + numeric tracethickness, i, j, k, angadd, aa, ax, ay; + tracethickness = RandomStep; + pen tracepen, bordepen; + color TheColor; + tracepen = pencircle scaled tracethickness; + bordepen = tracepen scaled BorderThFactor; + path qpath; + aa = 360/QNum; + ax = HalfSideLength*2*cosd(0.5*aa); + ay = HalfSideLength*2*sind(0.5*aa); + z0 = (ax,0); + z1 = (0,ay); + z2 = (-ax,0); + z3 = (0,-ay); + z4 = z0; + qpath = z0--z1--z2--z3--cycle; + angadd = uniformdeviate( 20 ); + TheColor = PickColor; + pair Dir[], pos[]; + boolean Filled[]; + for i = 0 upto 11: + j := floor( i/3 ); + Dir[i] = dir(angle(z[j+1]-z[j])+80+angadd); + Filled[i] = false; + pos[i] = (0.25*(i-3*j+1))[z[j],z[j+1]]; + endfor; +% for i=0 upto 5: +% LocateIndex[i]; +% endfor; + numeric ThisInd, ThatInd; + path ActualPath; + for i=1 step 2 until 11: + forever: + ThisInd := PickInteger( 11 ); + exitunless Filled[ThisInd]; + endfor; + Filled[ThisInd] := true; + forever: + ThatInd := PickInteger( 11 ); + exitunless Filled[ThatInd]; + endfor; + Filled[ThatInd] := true; + ActualPath := pos[ThisInd]{Dir[ThisInd]}...pos[ThatInd]{-Dir[ThatInd]}; +% draw ActualPath withcolor background withpen bordepen; + draw ActualPath withcolor TheColor withpen tracepen; + endfor; +% draw qpath; +% clip currentpicture to qpath; + pair urCorner, ulCorner, llCorner, lrCorner, cent; + path FinalCut; + urCorner = ( 8.13in, 11.533in ); + llCorner = ( 0.118in, 35.5bp ); + ulCorner = ( xpart llCorner, ypart urCorner ); + lrCorner = ( xpart urCorner, ypart llCorner ); + FinalCut = urCorner--ulCorner--llCorner--lrCorner--cycle; + cent = 0.25*(urCorner+ulCorner+llCorner+lrCorner); + picture Tile[]; + for i=0 upto 1: + Tile[i] = currentpicture rotated (i*180); + endfor; + currentpicture := nullpicture; + pair pairh, pairv; + for k = 1 upto QNum: + pairh := HalfSideLength*2*dir((k-1)*aa); + pairv := HalfSideLength*2*dir(k*aa); + for i = 0 upto 11: + for j = 0 upto 11: + draw Tile[PickInteger( 1 )] + rotated ((k-0.5)*aa) + shifted ( cent + ax*dir((k-0.5)*aa) + i*pairh + j*pairv ); + endfor; + endfor; + endfor; + clip currentpicture to FinalCut; +endfig; + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/reeditedgoodquestionmark.mp b/Master/texmf-dist/doc/metapost/featpost/example/reeditedgoodquestionmark.mp new file mode 100644 index 00000000000..335edcb713c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/reeditedgoodquestionmark.mp @@ -0,0 +1,102 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2003 Wolfgang Glunz + +% Generate structured PostScript +prologues := 1; + +% Display a given string with its *baseline* at a given location +% and with a given rotation angle +vardef showtext(expr origin)(expr angle)(expr string) = + draw string infont defaultfont scaled defaultscale + rotated angle shifted origin; +enddef; + +beginfig(1); +linecap := butt; +linejoin := mitered; +color thisone; +thisone = 0.89(red+blue); +pickup pencircle scaled 5pt; +drawoptions( withcolor thisone ); +filldraw (195,530.844)..controls (194,530.601) and (189.028,529.735)..(184.031,528.933) + ..controls (160.022,525.082) and (142.601,518.642)..(132.966,510.056) + ..controls (130.528,507.884) and (126.845,505.26)..(124.678,504.152) + ..controls (115.044,499.224) and (91.4084,469.097)..(83.408,451.547) + ..controls (66.5737,414.619) and (66.9285,381.467)..(84.3374,364.679) + ..controls (92.625,356.687) and (97.4766,357.767)..(90.2266,365.99) + ..controls (73.2048,385.297) and (71.7183,405.6)..(84.7207,441.188) + ..controls (99.7271,482.259) and (141.832,518.625)..(180.984,524.329) + ..controls (244.987,523.896) and (256.669,521.674)..(268.734,519.947) + ..controls (292.744,516.51) and (334.881,498.66)..(338.69,496.672) + ..controls (376.837,476.77) and (405.55,442.959)..(406.819,416.447) + ..controls (408.823,374.609) and (371.353,343.266)..(297.375,324.9) + ..controls (263.494,316.488) and (250.776,311.818)..(249.303,307.247) + ..controls (248.367,304.34) and (255.869,279.337)..(268.611,242.897) + ..controls (271.04,235.95) and (274.116,225.037)..(275.498,218.461) + ..controls (276.882,211.88) and (278.513,204.947)..(279.155,202.922) + ..controls (279.795,200.9) and (281.1,194.634)..(282.074,188.906) + ..controls (284.296,175.845) and (284.091,175.611)..(269.831,174.957) + ..controls (247.097,173.915) and (235.95,171.325)..(210.844,161.254) + ..controls (203.166,158.174) and (199.133,155.911)..(198.871,154.537) + ..controls (198.311,151.595) and (203.653,151.668)..(210.112,154.689) + ..controls (234.244,165.977) and (259.768,171.819)..(277.753,170.169) + ..controls (288.844,169.152) and (290.062,169.692)..(290.062,175.622) + ..controls (290.062,183.808) and (277.33,239.484)..(273.368,248.625) + ..controls (270.621,254.962) and (254.719,302.351)..(254.719,304.2) + ..controls (254.719,308) and (275.559,315.337)..(308.344,323.08) + ..controls (398.409,344.349) and (437.595,404.251)..(396.529,457.884) + ..controls (389.064,467.634) and (373.547,482.865)..(366.234,487.62) + ..controls (363.553,489.364) and (358.069,492.902)..(354.047,495.483) + ..controls (350.025,498.063) and (345.089,501.08)..(343.078,502.186) + ..controls (341.006,503.325) and (337.837,505.05)..(335.766,506.167) + ..controls (318.953,515.225) and (290.794,523.811)..(264.469,527.906) + ..controls (250.575,530.067) and (200.517,532.184)..(195,530.844) + --cycle; +filldraw (207.919,482.644) + ..controls (190.49,480.417) and (174.226,468.547)..(166.644,452.522) + ..controls (158.769,435.876) and (162.565,402.675)..(176.05,370.256) + ..controls (176.557,369.037) and (176.421,368.062)..(175.744,368.062) + ..controls (155.391,368.062) and (107.786,376.341)..(104.962,380.372) + ..controls (103.031,383.127) and (97.9873,383.353)..(91.4062,380.979) + ..controls (85.0771,378.697) and (85.1904,375.807)..(91.6499,374.761) + ..controls (94.5247,374.296) and (106.519,372.042)..(118.219,369.769) + ..controls (129.919,367.496) and (145.874,365.09)..(153.562,364.439) + ..controls (169.65,363.078) and (183.916,360.511)..(190.247,357.837) + ..controls (195.853,355.469) and (201.463,358.246)..(196.95,361.155) + ..controls (180.512,371.751) and (173.322,386.587)..(168.735,419.372) + ..controls (159.784,483.356) and (238.737,502.071)..(302.372,451.048) + ..controls (337.594,422.807) and (344.183,400.627)..(327.098,367.819) + ...(309.562,351.174) + ...(245.578,316.83) + ..controls (184.519,293.169) and (164.516,279.869)..(166.279,264.103) + ..controls (167.475,253.397) and (174.636,230.831)..(182.406,213.281) + ..controls (186.11,204.913) and (192.253,190.247)..(196.036,180.74) + ..controls (200.934,168.431) and (203.485,163.419)..(204.872,163.382) + ..controls (210.979,163.217) and (208.414,171.112)..(186.009,221.447) + ..controls (176.46,242.897) and (170,265.054)..(171.867,269.953) + ..controls (175.621,279.807) and (203.287,295.989)..(240.094,309.859) + ..controls (247.162,312.523) and (254.8,315.411)..(257.156,316.313) + ..controls (266.722,319.972) and (293.962,335.564)..(305.053,343.729) + ..controls (323.095,360.133) and (325.242,360.506)..(330.599,368.428) + ..controls (344.446,388.903) and (345.294,408.567)..(333.207,428.878) + ..controls (328.783,436.312) and (317.602,448.621)..(310.659,453.7) + ..controls (308.208,455.492) and (303.286,459.626)..(299.508,463.064) + ..controls (295.364,466.834) and (285.776,470.003)..(284.456,470.93) + ..controls (273.975,478.287) and (222.257,488.798)..cycle; +filldraw (245.578,139.528)..controls (197.072,122.423) and (188.173,72.8887)..(232.537,66.9353) + ..controls (260.447,63.1902) and (291.088,75.9546)..(303.276,96.4031) + ..controls (307.416,103.35) and (305.387,112.123)..(298.837,115.594) + ..controls (297.619,116.24) and (295.869,118.219)..(294.9,120.047) + ..controls (292.05,125.425) and (276.291,130.802)..(263.981,130.596) + ..controls (255.572,130.456) and (254.418,128.462)..(262.275,127.647) + ..controls (282.75,125.524) and (301.914,109.731)..(297.378,98.7188) + ..controls (294.129,90.8328) and (276.047,78.313)..(262.884,74.8367) + ..controls (221.081,63.7959) and (195.092,89.2812)..(220.011,116.878) + ..controls (235.529,134.062) and (261.064,142.538)..(275.803,135.397) + ..controls (281.653,132.562) and (284.6,132.206)..(285.824,134.184) + ..controls (289.847,140.69) and (260.081,144.642)..(245.578,139.528) + --cycle; +draw origin--(480,0)--(480,600)--(0,600) withcolor white; +endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/roadincline.mp b/Master/texmf-dist/doc/metapost/featpost/example/roadincline.mp new file mode 100644 index 00000000000..2532aaceb51 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/roadincline.mp @@ -0,0 +1,67 @@ +% roadincline.mp +% L. Nobre G. +% 2004 +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex +beginfig(1); + numeric u, size, halfs, parcel, bordlarg, bordtotal, backdiaglen, backang; + numeric backdown, labelmarg, backauxil, backauyil, angray; + path triborder, backtri, angline; + picture labelalfa, labelv, labelh, labeld; + + u = 1mm; + size = 25u; + bordlarg = 3u; + bordtotal = 4u; + backdiaglen = 55u; + backang = 29; + backdown = 2u; + labelmarg = -1u; + angray = 5u; + + parcel = 0.16667*sqrt(3)*size; + halfs = 0.5size; + z1 = (-halfs,-parcel); + z2 = ( halfs,-parcel); + z3 = ( 0, 2*parcel ); + triborder = z1--z2--z3--cycle; + + backauxil = backdiaglen*cosd(backang)*0.5; + backauyil = backdiaglen*sind(backang)*0.5; + z4 = (-backauxil,-backauyil); + z5 = ( backauxil,-backauyil); + z6 = ( backauxil, backauyil); + backtri = z4--z5--z6--cycle; + + angline = halfcircle scaled 2angray shifted z4 cutafter z4--z6; + z7 = z4+(angray,0); + z8 = 0.5[z5,z6]; + z9 = z5-(angray,0); + z0 = z6-angray*(cosd(backang),sind(backang)); + + labelalfa = thelabel.urt( btex $\alpha$ etex, z7 ); + labelv = thelabel.lft( btex $v$ etex, z8 ); + labelh = thelabel.top( btex $h$ etex, z9 ); + labeld = thelabel.bot( btex $d$ etex, z0 ); + + filldraw backtri; + draw angline withcolor background; + draw labelalfa withcolor background; + draw labelv withcolor background; + draw labelh withcolor background; + draw labeld withcolor background; + + draw triborder withcolor background withpen pencircle scaled bordtotal; + draw triborder withcolor red withpen pencircle scaled bordlarg; + + label.top( btex X\% etex rotated backang, labelmarg*up ); +endfig; +verbatimtex +\end{document} +etex +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/rodarolaremplaninc.mp b/Master/texmf-dist/doc/metapost/featpost/example/rodarolaremplaninc.mp new file mode 100644 index 00000000000..c90b8888695 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/rodarolaremplaninc.mp @@ -0,0 +1,52 @@ +% rodarolaremplaninc.mp +% L. Nobre G. +% 2008 + +verbatimtex +\documentclass{article} +\usepackage{palatino,concmath,ccfonts} +\begin{document} +etex + +beginfig(1); + numeric Anginc; + Anginc = 10+uniformdeviate(30); + numeric ray; ray = 7mm; + pickup pencircle scaled 1pt; + numeric dh; dh = ray/sind( Anginc ); + numeric roll; roll = ray*(270-Anginc)*1.74533/100.0; + numeric i, N; + N = 10+floor(uniformdeviate(10)); + z0 = dir(-Anginc); + z1 = (-dh,0); + z2 = z1+z0*(dh*cosd(Anginc)+roll+ray); + z3 = z1+z0*dh*cosd(Anginc); + z4 = z0*roll+(ray,0); + path circ, arcangi, arca, spoke; + spoke = (0.07[origin,z3])--z3; + draw spoke; + picture roda; + circ = fullcircle scaled (2*ray); + draw circ; + roda = currentpicture; + for i = 1 upto N-1: + draw spoke rotated ((Anginc-270)*i/N) shifted (z0*i*roll/N) withcolor + 0.5white; + endfor; + draw z1--z2--(-dh, ypart z2)--cycle; + draw roda rotated (Anginc-270) shifted (z0*roll); + arcangi = halfcircle scaled roll cutbefore (origin--roll*dir(180-Anginc)); + arca = arcangi shifted z2; + z5 = point (0.5*(length arca)) of arca; + pickup pencircle scaled 0.7pt; + draw arca; + label.lft( btex $\alpha$ etex, z5 ); + label.llft( btex $P_1$ etex, z3 ); + label.rt( btex $P_2$ etex, z4 ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/rothexagrid.mp b/Master/texmf-dist/doc/metapost/featpost/example/rothexagrid.mp new file mode 100644 index 00000000000..41ab83d61ae --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/rothexagrid.mp @@ -0,0 +1,45 @@ +% rothexagrid.mp +% L. Nobre G. +% IYP (2005) + +vardef locator( expr Indi, Indj ) = + ((Indi+0.5*Indj)*5mm,0.5*sqrt(3)*Indj*5mm) +enddef; + +vardef gridmark( expr Loc ) = + draw Loc--(Loc+sqrt(3)*down*5mm/3); + draw Loc--(Loc+( 0.5,sqrt(3)/6)*5mm); + draw Loc--(Loc+(-0.5,sqrt(3)/6)*5mm); +enddef; + +beginfig(1); + numeric i, j, fdist; + picture tmppic; + path clipper; + color forec, backc; + transform T; + fdist = 10cm; + forec = (0.8,1,0.8); + backc = (0.8,0.8,0.8); + z1 = locator( 0, 11 ); + z2 = locator( 4, 22 ); + z3 = locator( 19, 11 ); + z4 = locator( 15, 0 ); + origin = z1 transformed T; + (0,fdist) = z2 transformed T; + (fdist,fdist) = z3 transformed T; + clipper = (z1--z2--z3--z4--cycle) transformed T ; + drawoptions( withpen pencircle scaled 1pt ); + for i = 0 upto 19: + for j = 0 upto 22: + gridmark( locator( i, j ) ); + endfor; + endfor; + tmppic = currentpicture; + currentpicture := nullpicture; + fill clipper withcolor backc; + draw tmppic transformed T withcolor forec; + clip currentpicture to clipper; +% dotlabels.top( 1,2,3,4 ); +endfig; +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/sap.mp b/Master/texmf-dist/doc/metapost/featpost/example/sap.mp new file mode 100644 index 00000000000..003abcd59cb --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/sap.mp @@ -0,0 +1,179 @@ +% sap.mp +% L. Nobre G. +% 2002 + +numeric NumberOfColors, HalfSideLength; +numeric ThicknesFactor, TolerancFactor; +NumberOfColors = 7; +HalfSideLength = 15mm; +ThicknesFactor = 0.2; % Maximum TraceThickness over Half Side +ThinnessFactor = 0.1; % Minimum TraceThickness over Half Side +TolerancFactor = 0.5 + 0.02; % Side Gaps over Thickness + +def RandomStep = + begingroup + numeric margin; + margin = ThicknesFactor-ThinnessFactor; + ThinnessFactor*HalfSideLength + uniformdeviate( margin*HalfSideLength ) + endgroup +enddef; + +def PickInteger( expr MaxNum ) = + begingroup + save aux; + numeric aux; + aux = ceiling( uniformdeviate( MaxNum ) ); + if aux = 0: + aux := 1; + fi; + ( aux ) + endgroup +enddef; + +def PickColor = + ( uniformdeviate(1) , uniformdeviate(1), uniformdeviate(1) ) +enddef; + +vardef LocateIndex[] = + dotlabel.urt( str @, z@ ) +enddef; + +def SpreadAllOver = + begingroup + pair urCorner, ulCorner, llCorner, lrCorner; + path FinalCut; + urCorner = ( 8.13in, 11.533in ); + llCorner = ( 0.118in, 35.5bp ); + ulCorner = ( xpart llCorner, ypart urCorner ); + lrCorner = ( xpart urCorner, ypart llCorner ); + FinalCut = urCorner--ulCorner--llCorner--lrCorner--cycle; + + picture Tile[]; + Tile[1] = currentpicture; + Tile[2] = currentpicture rotated 90; + Tile[3] = currentpicture rotated 180; + Tile[4] = currentpicture rotated 270; + currentpicture := nullpicture; + numeric i, j, horizo, vertic; + horizo = ( xpart urCorner ) + HalfSideLength; + vertic = ( ypart urCorner ) + HalfSideLength; + for i = 0 step 2HalfSideLength until horizo: + for j = 0 step 2HalfSideLength until vertic: + draw Tile[PickInteger( 4 )] shifted ( i, j ); + endfor; + endfor; + clip currentpicture to FinalCut + endgroup +enddef; + +beginfig(1); + linecap := butt; + + numeric tracethickness; + tracethickness = RandomStep; + currentpen := pensquare rotated 45 scaled tracethickness; + + numeric i, currentcoord, maincoords[], numaincoords, toleranc; + i = 0; + currentcoord = 2TolerancFactor*tracethickness; + toleranc = HalfSideLength - currentcoord; + forever: + i := incr( i ); + maincoords[i] = currentcoord; + currentcoord := currentcoord + 4TolerancFactor*tracethickness; + currentcoord := currentcoord + + uniformdeviate( ThicknesFactor*HalfSideLength ); + exitif currentcoord > toleranc; + endfor; + numaincoords = i; + + numeric j; + pair Dir[]; + for i = 1 upto numaincoords: + j := i; + z[j] = ( HalfSideLength, maincoords[i] ); + Dir[j] = left; + j := i + numaincoords; + z[j] = ( maincoords[i], HalfSideLength ); + Dir[j] = down; + j := i + 2numaincoords; + z[j] = ( -maincoords[i], HalfSideLength ); + Dir[j] = down; + j := i + 3numaincoords; + z[j] = ( -HalfSideLength, maincoords[i] ); + Dir[j] = right; + j := i + 4numaincoords; + z[j] = ( -HalfSideLength, -maincoords[i] ); + Dir[j] = right; + j := i + 5numaincoords; + z[j] = ( -maincoords[i], -HalfSideLength ); + Dir[j] = up; + j := i + 6numaincoords; + z[j] = ( maincoords[i], -HalfSideLength ); + Dir[j] = up; + j := i + 7numaincoords; + z[j] = ( HalfSideLength, -maincoords[i] ); + Dir[j] = left; + endfor; + +% for i=1 upto 8numaincoords: +% LocateIndex[i]; +% endfor; + + boolean Filled[]; + for i=1 upto 8numaincoords: + Filled[i] = false; + endfor; + numeric Chosen[]; + for i=0 upto numaincoords-1: + Chosen[i] = 0; + endfor; + color LookUpColor[]; + for i=1 upto NumberOfColors: + LookUpColor[i] = PickColor; + endfor; + + numeric ThisInd, ThatInd, ThisCoo, ThatCoo; + color ThisColor, ThatColor; + path ActualPath; + for j=2 step 2 until 8numaincoords: + + forever: + ThisInd := PickInteger( 8numaincoords ); + exitunless Filled[ThisInd]; + endfor; + Filled[ThisInd] := true; + ThisCoo := ThisInd mod numaincoords; + if Chosen[ThisCoo] = 0: + i := PickInteger( NumberOfColors ); + ThisColor := LookUpColor[i]; + Chosen[ThisCoo] := i; + else: + ThisColor := LookUpColor[Chosen[ThisCoo]]; + fi; + + forever: + ThatInd := PickInteger( 8numaincoords ); + exitunless Filled[ThatInd]; + endfor; + Filled[ThatInd] := true; + ThatCoo := ThatInd mod numaincoords; + if Chosen[ThatCoo] = 0: + i := PickInteger( NumberOfColors ); + ThatColor := LookUpColor[i]; + Chosen[ThatCoo] := i; + else: + ThatColor := LookUpColor[Chosen[ThatCoo]]; + fi; + + ActualPath := z[ThisInd]{Dir[ThisInd]} + ...z[ThatInd]{-Dir[ThatInd]}; + draw subpath (0,0.6) of ActualPath withcolor ThisColor; + draw subpath (0.4,1) of ActualPath withcolor ThatColor; + + endfor; + + SpreadAllOver; +endfig; + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/sincityredesigned.mp b/Master/texmf-dist/doc/metapost/featpost/example/sincityredesigned.mp new file mode 100644 index 00000000000..83adbd0f03e --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/sincityredesigned.mp @@ -0,0 +1,264 @@ + +prologues := 1; + +beginfig(1); + linejoin := mitered; + numeric controlparam; + controlparam = 5mm; + path PreeditedPath[]; + PreeditedPath1 = hide(z1=(304.883,266.453))z1..controls + hide(z2=(303.009,265.609))z2 and + hide(z3=(297.112,264.877))z3..hide(z4=(291.817,264.83))z4 + --hide(z5=(282.167,264.745))z5--hide(z6=(280.885,249.372))z6..controls + hide(z7=(280.174,240.832))z7 and + hide(z8=(279.111,234))z8..hide(z9=(278.494,234))z9 + ..controls hide(z10=(277.871,234))z10 and + hide(z11=(274.31,236.621))z11..hide(z12=(270.381,239.971))z12 + ..controls hide(z13=(262.387,246.786))z13 and + hide(z14=(259.108,247.209))z14..hide(z15=(245.785,243.138))z15 + ..controls hide(z16=(240.661,241.572))z16 and + hide(z17=(234.133,240.4))z17..hide(z18=(231.096,240.5))z18 + ..controls hide(z19=(221.716,240.809))z19 and + hide(z20=(220.916,238.612))z20..hide(z21=(219.534,208.721))z21 + ..controls hide(z22=(218.847,193.861))z22 and + hide(z23=(218.823,178.971))z23..hide(z24=(219.482,175.585))z24 + ..controls hide(z25=(220.592,169.876))z25 and + hide(z26=(221.19,169.381))z26..hide(z27=(227.851,168.665))z27 + ..controls hide(z28=(235.366,167.856))z28 and + hide(z29=(247.664,172.576))z29..hide(z30=(247.664,176.269))z30 + ..controls hide(z31=(247.664,180.709))z31 and + hide(z32=(255.027,204.963))z32..hide(z33=(256.375,204.963))z33 + ..controls hide(z34=(257.214,204.963))z34 and + hide(z35=(262.182,202.207))z35..hide(z36=(267.307,198.899))z36 + ..controls hide(z37=(280.629,190.298))z37 and + hide(z38=(287.926,188.002))z38..hide(z39=(297.368,189.437))z39 + ..controls hide(z40=(310.542,191.44))z40 and + hide(z41=(314.953,195.911))z41..hide(z42=(318.083,210.429))z42 + ..controls hide(z43=(323.752,236.733))z43 and + hide(z44=(324.666,242.082))z44..hide(z45=(325.697,255.009))z45 + --hide(z46=(326.746,268.161))z46 + --hide(z47=(317.523,268.075))z47..controls hide(z48=(312.398,268.028))z48 + and hide(z49=(306.781,267.307))z49..cycle; + PreeditedPath2 = hide(z50=(182.759,231.97))z50..controls + hide(z51=(174.744,229.708))z51 and + hide(z52=(174.156,228.876))z52..hide(z53=(173.193,218.457))z53 + ..controls hide(z54=(172.721,213.357))z54 and + hide(z55=(171.267,202.743))z55..hide(z56=(169.941,194.715))z56 + ..controls hide(z57=(163.9,158.163))z57 and + hide(z58=(164.703,149.053))z58..hide(z59=(173.707,151.991))z59 + ..controls hide(z60=(176.323,152.845))z60 and + hide(z61=(182.588,153.88))z61..hide(z62=(187.542,154.276))z62 + ..controls hide(z63=(201.233,155.371))z63 and + hide(z64=(204.848,159.872))z64..hide(z65=(208.362,180.197))z65 + ..controls hide(z66=(209.514,186.858))z66 and + hide(z67=(211.473,197.07))z67..hide(z68=(212.786,203.255))z68 + ..controls hide(z69=(219.311,234))z69 and + hide(z70=(219.311,234))z70..hide(z71=(201.889,233.805))z71 + ..controls hide(z72=(194.715,233.725))z72 and + hide(z73=(186.02,232.891))z73..cycle; + PreeditedPath3 = hide(z74=(127.248,220.173))z74..controls + hide(z75=(107.435,213.404))z75 and + hide(z76=(79.562,199.048))z76..hide(z77=(74.5039,193.007))z77 + ..controls hide(z78=(68.4971,185.833))z78 and + hide(z79=(61.489,170.106))z79..hide(z80=(61.489,163.8))z80 + ..controls hide(z81=(61.489,159.558))z81 and + hide(z82=(62.5991,158.602))z82..hide(z83=(71.3101,155.345))z83 + ..controls hide(z84=(76.7759,153.302))z84 and + hide(z85=(85.1082,150.878))z85..hide(z86=(90.0984,149.879))z86 + ..controls hide(z87=(95.0518,148.889))z87 and + hide(z88=(99.0657,147.551))z88..hide(z89=(99.0657,146.89))z89 + ..controls hide(z90=(99.0657,146.226))z90 and + hide(z91=(94.2832,143.342))z91..hide(z92=(88.3049,140.401))z92 + ..controls hide(z93=(76.178,134.435))z93 and + hide(z94=(63.4753,131.962))z94..hide(z95=(58.5852,134.617))z95 + ..controls hide(z96=(56.0232,136.008))z96 and + hide(z97=(54.4861,135.947))z97..hide(z98=(52.4363,134.375))z98 + ..controls hide(z99=(49.1121,131.825))z99 and + hide(z100=(51.0422,117.683))z100..hide(z101=(55.3677,112.901))z101 + ..controls hide(z102=(59.9397,107.845))z102 and + hide(z103=(71.7371,105.477))z103..hide(z104=(81.4729,107.659))z104 + ..controls hide(z105=(100.944,112.023))z105 and + hide(z106=(124.681,122.025))z106..hide(z107=(142.791,133.498))z107 + ..controls hide(z108=(155.26,141.396))z108 and + hide(z109=(156.223,142.747))z109..hide(z110=(157.815,154.577))z110 + ..controls hide(z111=(159.443,166.668))z111 and + hide(z112=(156.455,169.328))z112..hide(z113=(135.959,174.038))z113 + ..controls hide(z114=(126.906,176.118))z114 and + hide(z115=(119.187,178.418))z115..hide(z116=(118.724,179.172))z116 + ..controls hide(z117=(117.77,180.728))z117 and + hide(z118=(147.232,198.131))z118..hide(z119=(150.819,198.131))z119 + ..controls hide(z120=(152.271,198.131))z120 and + hide(z121=(154.38,195.911))z121..hide(z122=(155.687,193.007))z122 + ..controls hide(z123=(156.993,190.104))z123 and + hide(z124=(158.437,187.883))z124..hide(z125=(159.018,187.883))z125 + ..controls hide(z126=(159.582,187.883))z126 and + hide(z127=(162.09,191.641))z127..hide(z128=(164.603,196.252))z128 + ..controls hide(z129=(170.373,206.842))z129 and + hide(z130=(170.682,217.263))z130..hide(z131=(165.337,221.03))z131 + ..controls hide(z132=(159.717,224.992))z132 and + hide(z133=(140.058,224.549))z133..cycle; + PreeditedPath4 = hide(z134=(373.29,181.905))z134..controls + hide(z135=(367.765,173.877))z135 and + hide(z136=(363.069,167.387))z136..hide(z137=(362.785,167.387))z137 + ..controls hide(z138=(361.491,167.387))z138 and + hide(z139=(348.78,175.029))z139..hide(z140=(343.826,178.785))z140 + --hide(z141=(338.361,182.93))z141 + --hide(z142=(331.529,176.098))z142..controls + hide(z143=(327.771,172.34))z143 and + hide(z144=(323.39,167.267))z144..hide(z145=(321.793,164.825))z145 + ..controls hide(z146=(318.889,160.384))z146 and + hide(z147=(318.889,160.384))z147..hide(z148=(327.429,151.909))z148 + ..controls hide(z149=(340.46,138.978))z149 and + hide(z150=(341.004,137.325))z150..hide(z151=(336.781,123.49))z151 + ..controls hide(z152=(334.853,117.171))z152 and + hide(z153=(333.626,109.929))z153..hide(z154=(334.091,107.606))z154 + ..controls hide(z155=(334.924,103.437))z155 and + hide(z156=(335.286,103.338))z156..hide(z157=(349.292,103.421))z157 + ..controls hide(z158=(357.149,103.468))z158 and + hide(z159=(363.91,103.854))z159..hide(z160=(364.237,104.275))z160 + ..controls hide(z161=(364.569,104.701))z161 and + hide(z162=(368.408,113.413))z162..hide(z163=(372.856,123.832))z163 + ..controls hide(z164=(380.732,142.279))z164 and + hide(z165=(388.471,155.431))z165..hide(z166=(400.498,170.803))z166 + ..controls hide(z167=(403.838,175.073))z167 and + hide(z168=(406.511,179.628))z168..hide(z169=(406.511,181.051))z169 + ..controls hide(z170=(406.511,183.073))z170 and + hide(z171=(394.042,191.439))z171..hide(z172=(384.307,195.948))z172 + ..controls hide(z173=(383.74,196.211))z173 and + hide(z174=(378.815,189.933))z174..cycle; + PreeditedPath5 = hide(z175=(306.591,170.416))z175..controls + hide(z176=(284.045,163.442))z176 and + hide(z177=(261.654,155.676))z177..hide(z178=(250.226,150.864))z178 + ..controls hide(z179=(242.882,147.771))z179 and + hide(z180=(235.916,145.182))z180..hide(z181=(234.939,145.182))z181 + ..controls hide(z182=(233.842,145.182))z182 and + hide(z183=(232.98,137.496))z183..hide(z184=(232.719,125.369))z184 + --hide(z185=(232.292,105.556))z185 + --hide(z186=(238.697,106.666))z186..controls + hide(z187=(242.284,107.288))z187 and + hide(z188=(246.53,108.19))z188..hide(z189=(248.347,108.716))z189 + ..controls hide(z190=(251.392,109.597))z190 and + hide(z191=(251.532,108.801))z191..hide(z192=(250.615,95.8203))z192 + ..controls hide(z193=(249.493,79.9358))z193 and + hide(z194=(250.483,78.3792))z194..hide(z195=(260.816,79.7881))z195 + ..controls hide(z196=(270.245,81.074))z196 and + hide(z197=(273.79,85.0598))z197..hide(z198=(284.336,106.239))z198 + ..controls hide(z199=(292.162,121.953))z199 and + hide(z200=(293.65,123.879))z200..hide(z201=(301.04,127.846))z201 + ..controls hide(z202=(308.217,131.699))z202 and + hide(z203=(309.449,133.226))z203..hide(z204=(311.715,141.083))z204 + ..controls hide(z205=(313.144,146.036))z205 and + hide(z206=(314.277,151.74))z206..hide(z207=(314.277,153.979))z207 + ..controls hide(z208=(314.277,156.237))z208 and + hide(z209=(314.957,160.384))z209..hide(z210=(315.831,163.458))z210 + ..controls hide(z211=(317.785,170.333))z211 and + hide(z212=(314.448,172.845))z212..cycle; + PreeditedPath6 = hide(z213=(200.352,136.887))z213..controls + hide(z214=(194.544,135.348))z214 and + hide(z215=(189.243,133.54))z215..hide(z216=(188.612,132.885))z216 + ..controls hide(z217=(187.443,131.669))z217 and + hide(z218=(185.57,95.9912))z218..hide(z219=(185.617,75.8364))z219 + ..controls hide(z220=(185.647,63.0261))z220 and + hide(z221=(188.351,57.2344))z221..hide(z222=(193.52,58.9067))z222 + ..controls hide(z223=(195.607,59.5823))z223 and + hide(z224=(199.327,60.5022))z224..hide(z225=(201.889,60.9766))z225 + ..controls hide(z226=(204.405,61.4424))z226 and + hide(z227=(208.467,64.3926))z227..hide(z228=(210.827,67.467))z228 + ..controls hide(z229=(218.335,77.2478))z229 and + hide(z230=(226.481,103.677))z230..hide(z231=(227.989,123.149))z231 + ..controls hide(z232=(228.823,133.909))z232 and + hide(z233=(228.631,134.752))z233..hide(z234=(224.777,137.26))z234 + ..controls hide(z235=(219.588,140.637))z235 and + hide(z236=(214.187,140.554))z236..cycle; + PreeditedPath7 = hide(z237=(147.232,125.456))z237..controls + hide(z238=(124.174,119.222))z238 and + hide(z239=(97.5039,98.374))z239..hide(z240=(88.1265,79.2524))z240 + --hide(z241=(83.3518,69.5166))z241 + --hide(z242=(88.6506,59.0977))z242..controls + hide(z243=(97.6846,41.3342))z243 and + hide(z244=(99.9316,39.4353))z244..hide(z245=(114.267,37.449))z245 + ..controls hide(z246=(125.814,35.8491))z246 and + hide(z247=(128.102,36.0742))z247..hide(z248=(140.741,40.0542))z248 + ..controls hide(z249=(160.896,46.4009))z249 and + hide(z250=(167.846,50.8127))z250..hide(z251=(170.471,58.927))z251 + ..controls hide(z252=(171.687,62.6846))z252 and + hide(z253=(174.603,67.5432))z253..hide(z254=(176.952,69.7241))z254 + ..controls hide(z255=(181.734,74.165))z255 and + hide(z256=(181.908,75.1035))z256..hide(z257=(178.752,79.4233))z257 + ..controls hide(z258=(176.002,83.186))z258 and + hide(z259=(173.877,82.7844))z259..hide(z260=(152.869,74.531))z260 + ..controls hide(z261=(142.108,70.3037))z261 and + hide(z262=(134.704,68.4663))z262..hide(z263=(128.188,68.4065))z263 + --hide(z264=(118.879,68.321))z264 + --hide(z265=(123.902,73.616))z265..controls + hide(z266=(135.407,85.7429))z266 and + hide(z267=(158.517,97.1145))z267..hide(z268=(164.654,93.6689))z268 + ..controls hide(z269=(168.903,91.2834))z269 and + hide(z270=(170.716,93.4292))z270..hide(z271=(173.831,104.531))z271 + ..controls hide(z272=(178.624,121.612))z272 and + hide(z273=(178.563,124.468))z273..hide(z274=(173.365,126.432))z274 + ..controls hide(z275=(167.23,128.75))z275 and + hide(z276=(158.163,128.411))z276..cycle; + numeric i, j; + for i=1 upto 7: + PreeditedPath[7+i] = point 0 of PreeditedPath[i] + for j=controlparam step controlparam until arclength PreeditedPath[i]: + --point (arctime j of PreeditedPath[i]) of PreeditedPath[i] + endfor --cycle; + fill PreeditedPath[7+i]; + endfor; + picture sincitytext; + sincitytext = currentpicture; + currentpicture := nullpicture; + bboxmargin := 1cm; + fill bbox sincitytext; + draw sincitytext withcolor (0.99,0.05,0.05); +endfig; + +beginfig(2); + pair shif; + shif = (87mm,61.5mm); + color madred; + madred = (0.99,0.05,0.05); + linejoin := mitered; + numeric controlparam, devparam, ranparam; + controlparam = 0.95mm; + devparam = 1mm; + ranparam = 1.5mm; + pickup pencircle scaled 2mm; + numeric i, j, t; + pair aux, dev, tdr; + for i=1 upto 7: + aux := point 0 of PreeditedPath[i]; + tdr := unitvector( direction 0 of PreeditedPath[i] ); + dev := normaldeviate*ranparam*(ypart tdr,-xpart tdr); + dev := dev+devparam*(ypart tdr,-xpart tdr); + PreeditedPath[14+i] = (dev+aux) + for j=controlparam step controlparam until arclength PreeditedPath[i]: + hide( t := arctime j of PreeditedPath[i]; + aux := point t of PreeditedPath[i]; + tdr := unitvector( direction t of PreeditedPath[i] ); + dev := normaldeviate*ranparam*(ypart tdr,-xpart tdr) ; + dev := dev+devparam*(ypart tdr,-xpart tdr) ) + --(dev+aux) + endfor --cycle; + endfor; + for i=1 upto 3: + fill PreeditedPath[14+i] withcolor madred; + fill PreeditedPath[i] withcolor black; + draw PreeditedPath[i] withcolor madred; + endfor; + for i=4 upto 7: + fill PreeditedPath[14+i] shifted shif withcolor madred; + fill PreeditedPath[i] shifted shif withcolor black; + draw PreeditedPath[i] shifted shif withcolor madred; + endfor; + picture sincitytext; + sincitytext = currentpicture rotated -14.5; + currentpicture := nullpicture; + bboxmargin := 1cm; + fill bbox sincitytext; + draw sincitytext; +endfig; + +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp b/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp new file mode 100644 index 00000000000..138a94293aa --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/some2Dvecs.mp @@ -0,0 +1,77 @@ +% some2Dvecs.mp +% L. Nobre G. +% 2002 + +verbatimtex +\documentclass{article} +\begin{document} +etex + +beginfig(1); + numeric hsize, qsize, nsize, ldist; + numeric alray, beray, alang, beang; + numeric stampnum, initang, i, stepang, stampoffset; + pair hvec, qvec, nvec; + path Hvec, Qvec, Nvec, alarc, bearc, vertic; + picture labelstr, labelpic; + color mycolor; + picture stamp; + bboxmargin := 4mm; + stampnum = 36; + stampoffset = 0.42mm; + alang = 6; + beang = 17; + hsize = 6mm; + qsize = 3*hsize; + nsize = 4*hsize; + ldist = 3.17*hsize; + alray = 2*0.735*nsize; + beray = 2*0.6*qsize; + mycolor = (0.8,0.7,1); +% drawoptions( withcolor mycolor ); + hvec = hsize*left; + qvec = qsize*(-sind(beang),cosd(beang)); + nvec = nsize*(-sind(alang),cosd(alang)); + Hvec = origin--hvec; + Qvec = origin--qvec; + Nvec = origin--nvec; + vertic = origin--ldist*up; + alarc = fullcircle scaled alray + cutbefore vertic cutafter Nvec; + bearc = fullcircle scaled beray + cutbefore vertic cutafter Qvec; + drawarrow Hvec; + drawarrow Qvec; + drawarrow Nvec; + draw alarc; + draw bearc; + draw vertic dashed evenly; + draw unitsquare scaled (0.2*hsize); + labelstr = btex + $2,\!4\times 1,\!8\,\mbox{mm}^2$ + etex; + label.rt( labelstr, ldist*right ); +% label.lft( btex $\vec{n}_0$ etex, nvec ); + label.lft( btex $x$ etex, nvec ); + label.lft( btex $\vec{q}$ etex, qvec ); + label.top( btex $\vec{B}$ etex, hvec ); + label.urt( btex $-0.48^\circ$ etex, point 1 of alarc ); + label.lft( btex $6^\circ$ etex, point 1 of bearc ); + stamp = currentpicture; + fill bbox stamp withcolor (0.85,0.85,0); + initang = 180/stampnum; + stepang = 2*initang; + drawoptions(); + for i=0 upto (stampnum-1): + draw stamp + shifted (stampoffset*dir(initang+i*stepang)) + withcolor white; + endfor; + draw stamp; +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/statement.mp b/Master/texmf-dist/doc/metapost/featpost/example/statement.mp new file mode 100644 index 00000000000..f04781583b4 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/statement.mp @@ -0,0 +1,51 @@ +% statement.mp +% L. Nobre G. +% 2007 + +% prologues := 3; + +input boxes; + +verbatimtex \documentclass{article}\usepackage{palatino}\begin{document} etex + +beginfig(1); + picture topl, midd, botl; + numeric tl, ml, bl; +% topl = thelabel(btex \mbox{G E T T ' N ' R E A D Y} etex, origin); +% midd = thelabel(btex \mbox{4D} etex, origin); +% botl = thelabel(btex \mbox{c l i m b} etex, origin); +% defaultfont := "putr8r"; +% defaultfont := "bchr8r"; + topl = thelabel( "G E T T ' N ' R E A D Y", origin) yscaled 0.3; + midd = thelabel( "4D", origin) scaled 1; + botl = thelabel( "C L I M B", origin) yscaled 0.6; + tl = abs( urcorner topl - ulcorner topl ); + ml = abs( urcorner midd - ulcorner midd ); + bl = abs( urcorner botl - ulcorner botl ); + boxjoin( a.se=b.ne; a.sw=b.nw ); + boxit.topli(topl); + boxit.middl(midd scaled (tl/ml) ); + boxit.botli(botl xscaled (tl/bl) ); + drawunboxed( topli, middl, botli ); +endfig; + +beginfig(2); + picture topl, midd, botl; + numeric tl, ml, bl, sc; + sc = 10; + topl = thelabel( btex o\ n\ e\ \ l\ i\ f\ e etex scaled sc, origin) yscaled 0.3; + midd = thelabel( btex {\huge 40} etex scaled sc, origin) scaled 1; + botl = thelabel( btex D\ R\ I\ L\ L\ S etex scaled sc, origin) yscaled 0.6; + tl = abs( urcorner topl - ulcorner topl ); + ml = abs( urcorner midd - ulcorner midd ); + bl = abs( urcorner botl - ulcorner botl ); + boxjoin( a.se=b.ne; a.sw=b.nw ); + boxit.topli(topl); + boxit.middl(midd scaled (tl/ml) ); + boxit.botli(botl xscaled (tl/bl) ); + drawunboxed( topli, middl, botli ); +endfig; + +verbatimtex \end{document} etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/statethreelines.mp b/Master/texmf-dist/doc/metapost/featpost/example/statethreelines.mp new file mode 100644 index 00000000000..c2221d20e35 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/statethreelines.mp @@ -0,0 +1,21 @@ +input boxes; + +beginfig(0); + picture topl, midd, botl; + numeric tl, ml, bl; + defaultfont := "bchbo8r"; +% defaultfont := "putro8r"; + topl = thelabel( "Eu Vivo", origin) yscaled 1; + midd = thelabel( "na", origin) scaled 1; + botl = thelabel( "Cauda da Europa", origin) yscaled 1; + tl = abs( urcorner topl - ulcorner topl ); + ml = abs( urcorner midd - ulcorner midd ); + bl = abs( urcorner botl - ulcorner botl ); + boxjoin( a.se=b.ne; a.sw=b.nw ); + boxit.topli(topl); + boxit.middl(midd); + boxit.botli(botl); + drawunboxed( topli, middl, botli ); +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/strength1defect.mp b/Master/texmf-dist/doc/metapost/featpost/example/strength1defect.mp new file mode 100644 index 00000000000..fe0bee08e01 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/strength1defect.mp @@ -0,0 +1,85 @@ +% strength1defect.mp +% L. Nobre G. +% 2002 + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +color col[],cyan, magenta, yellow; +cyan=blue+green; magenta=red+blue;yellow=green+red; +col[-2]:=col[-1]:=col0:=black; +col1:=red; +col2:=(.2,.2,1); %blue +col3:=(1,.66,0); %orange +col4:=.85*green; +col5:=.9*magenta; +col6:=0.85*cyan; +col7:=.85*yellow; + +beginfig(1); + numeric ymax, xmax, i, j, noise, twist, grid, size, u, actsize; + numeric extral, yposa, yposb, yposc; + pair actpos, direct, one, two; + path linea, lineb, linec, linex, liney; + color cola, colb, colc, colx; + picture pica, picb, picc; + u = 0.3mm; + xmax = 9; + ymax = 9; + noise = 1u; + extral = 1; + size = 5u; + yposa = 8; + yposb = 5; + yposc = 2; +% cola = (0.78,0.32,0.12); +% colb = (0.18,0.82,0.12); +% colc = (0.18,0.22,0.92); + colx = (0.78,0.75,0.72); + cola = col5; + colb = col4; + colc = col3; + grid = size + 3*noise; + linea = (grid*(-xmax-extral,yposa))--(grid*(xmax+extral,yposa)); + lineb = (grid*(-xmax-extral,yposb))--(grid*(xmax+extral,yposb)); + linec = (grid*(-xmax-extral,yposc))--(grid*(xmax+extral,yposc)); + linex = (grid*(-xmax-2*extral,0))--(grid*(xmax+2*extral,0)); + liney = (grid*(0,-ymax-2*extral))--(grid*(0,ymax+2*extral)); + pica = thelabel.rt( btex A etex, grid*(xmax+extral,yposa) ); + picb = thelabel.rt( btex B etex, grid*(xmax+extral,yposb) ); + picc = thelabel.rt( btex C etex, grid*(xmax+extral,yposc) ); + draw pica withcolor cola; + draw picb withcolor colb; + draw picc withcolor colc; + label.llft( btex $x$ etex, grid*(xmax+2*extral,0) ); + label.llft( btex $y$ etex, grid*(0,ymax+2*extral) ); + pickup pencircle scaled 2u; + draw linea withcolor cola; + draw lineb withcolor colb; + draw linec withcolor colc; + pickup pencircle scaled 0.5u; + drawarrow linex withcolor colx; + drawarrow liney withcolor colx; + pickup pencircle scaled u; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=(grid*i+noise*normaldeviate,grid*j+noise*normaldeviate); + direct:=unitvector(actpos); + actsize:=size/2; + one:=actpos-actsize*direct; + two:=actpos+actsize*direct; + draw one--two; + endfor; + endfor; +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/symbol.mp b/Master/texmf-dist/doc/metapost/featpost/example/symbol.mp new file mode 100644 index 00000000000..1389b89d1c9 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/symbol.mp @@ -0,0 +1,97 @@ +% symbol.mp +% G. Morais +% 2008 + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +prologues := 3; + +beginfig(1) + + numeric u ; u = 110 ; + numeric int ; int = .053u ; + numeric ext ; ext = .1u ; + + color mycolor ; + mycolor := (.45 , .45 , .45 ) ; + + color intcontorno ; + intcontorno := (.23 ,.23 ,.23 ) ; + + color ground ; + ground := ( .09 , .19 , .25 ) ; + + color sky ; + sky := ( .24 , .30 , .86 ) ; + + path contorno[] ; + contorno[1] := (-2,2)*u..(0,-1)*u..(2,3)*u ; + + z0 = point 0 of contorno[1] ; + z1 = point 1.8 of contorno[1] ; + z2 = point 0.5 of contorno[1] ; + z3 = point 2 of contorno[1] ; + + contorno[2] := z0{(1,2)}..z3 ; + + path interior[] ; + interior[1] := z1..(1,0)*u..z2 ; + z4 = point 1.5 of interior[1] ; + + interior[2] := z4{right}..{right}z3 ; + z5 = point 0.4 of interior[2] ; + + interior[3] := z0{(1,2)}..(.5,.35)*u..{(1,2)}z5 ; + + path auxiliar[] ; + auxiliar[1] := (2,3)*u .. (0,-1)*u .. (-2,2)*u ; + + auxiliar[2] := interior[2] .. subpath(2,1.8) of contorno[1] .. + interior[1] cutafter z4 .. cycle ; + + path ciclo[] ; + + ciclo[1] := interior[1] .. ( contorno[1] cutbefore z2 ) cutafter z1 ..cycle ; + ciclo[2] := interior[2] .. subpath(2,1.8) of contorno[1] .. + interior[1] cutafter z4 .. cycle ; + ciclo[3] := buildcycle ( interior[3] , interior[2] , interior[1] , contorno[1] ) ; + ciclo[4] := buildcycle ( interior[3] , interior[2] , contorno[2] ) ; + + fill ciclo[1] withcolor ground ; + fill ciclo[2] withcolor .2blue ; + fill ciclo[3] withcolor .3red ; + fill ciclo[4] withcolor sky ; + + pickup pencircle scaled int ; + draw interior[1] withcolor intcontorno ; + draw interior[2] withcolor intcontorno ; + draw interior[3] withcolor intcontorno ; + + pickup pencircle scaled ext ; + draw contorno[1] withcolor mycolor ; + draw contorno[2] withcolor mycolor ; + + color letras[] ; + letras[1] := ( .59 , .11 , .06 ) ; + letras[2] := ( .07 , .02 , .43 ) ; + draw btex GNUPOST etex + xscaled .112u yscaled .06u + shifted ( -2.8u , -1.6u ) + withcolor letras[1] ; + draw btex WE SHARE OUR VISION etex scaled .052u + shifted ( -2.75u , -2.05u ) + withcolor letras[2] ; + +% setbounds currentpicture to boundingbox currentpicture enlarged .05u ; + +endfig; + +verbatimtex +\end{document} +etex + +end ; \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/telemira.mp b/Master/texmf-dist/doc/metapost/featpost/example/telemira.mp new file mode 100644 index 00000000000..9f37b8dc6de --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/telemira.mp @@ -0,0 +1,22 @@ +pair thecenter; +thecenter = (105mm,150mm); + +vardef instructio( expr rayc ) = + draw fullcircle scaled rayc shifted thecenter +enddef; + +beginfig(1); + numeric i, u, maxray; + u = 1mm; + maxray = 85u; + for i=30u step 1u until 40u: + instructio( i ); + endfor; + for i=153u step 1u until 165u: + instructio( i ); + endfor; + for i=0 step 90 until 270: + draw thecenter--(thecenter+maxray*dir(i)); + endfor; +endfig; +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tete.mp b/Master/texmf-dist/doc/metapost/featpost/example/tete.mp new file mode 100644 index 00000000000..e669065eb3c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tete.mp @@ -0,0 +1,24 @@ + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + picture embroncordada; + embroncordada = thelabel( btex + \begin{tabular}{c} + \TeX \\ + \& \\ + \LaTeX + \end{tabular} + etex scaled 8, (105mm,150mm) ); + draw embroncordada; +endfig; + +verbatimtex +\end{document} +etex + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/theHURD.mp b/Master/texmf-dist/doc/metapost/featpost/example/theHURD.mp new file mode 100644 index 00000000000..e59e686214c --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/theHURD.mp @@ -0,0 +1,102 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2006 Wolfgang Glunz + +% Generate structured PostScript +prologues := 1; + +% Display a given string with its *baseline* at a given location +% and with a given rotation angle +vardef showtext(expr origin)(expr angle)(expr string) = + draw string infont defaultfont scaled defaultscale + rotated angle shifted origin; +enddef; + +% Modified by L. Nobre G's Lex scanner %%%%%%%%%%% +randomseed := 1010; +vardef renewcolore = + color tmpcolo; + tmpcolo = (uniformdeviate(0.8),uniformdeviate(0.8),uniformdeviate(0.8)); + drawoptions( withcolor tmpcolo ); +enddef; +defaultscale := 0.16; +beginfig(1); + path PreeditedPath[]; +linecap := butt; +linejoin := mitered; + PreeditedPath1 = hide(z1=(9.82422,68.9492))z1--hide(z2=(9.82422,12.8594))z2--hide(z3=(17.6836,11.7891))z3 + ..controls hide(z4=(21.9688,11.2031))z4 and hide(z5=(26.6367,10.7148))z5..hide(z6=(27.9531,10.7148))z6 + ..controls hide(z7=(29.8477,10.7148))z7 and hide(z8=(30.3633,15.4492))z8..hide(z9=(30.3633,32.7773))z9 + --hide(z10=(30.3633,54.8359))z10--hide(z11=(55.8203,54.6562))z11..controls hide(z12=(69.75,54.5586))z12 and hide(z13=(83.5781,55.125))z13..hide(z14=(86.3633,55.9062))z14 + --hide(z15=(91.4531,57.3359))z15--hide(z16=(90.2031,38.0469))z16..controls hide(z17=(89.5195,27.5078))z17 and hide(z18=(88.6602,18.2656))z18..hide(z19=(88.3125,17.6836))z19 + ..controls hide(z20=(86.7109,15.0156))z20 and hide(z21=(91.2773,12.7227))z21..hide(z22=(100.387,11.6172))z22 + --hide(z23=(110.746,10.3594))z23--hide(z24=(110.477,65.0195))z24--hide(z25=(110.211,119.676))z25 + --hide(z26=(101.191,122.355))z26..controls hide(z27=(96.1875,123.844))z27 and hide(z28=(91.4531,125.035))z28..hide(z29=(90.5625,125.035))z29 + ..controls hide(z30=(89.625,125.035))z30 and hide(z31=(89.4766,115.391))z31..hide(z32=(90.2031,101.992))z32 + --hide(z33=(91.4531,78.9492))z33--hide(z34=(82.7031,77.5547))z34..controls hide(z35=(71.9844,75.8438))z35 and hide(z36=(45.9961,75.8281))z36..hide(z37=(36.9727,77.5273))z37 + --hide(z38=(30.3633,78.7734))z38--hide(z39=(30.3633,99.1367))z39--hide(z40=(30.3633,119.5))z40 + --hide(z41=(21.0742,122.266))z41..controls hide(z42=(15.8945,123.812))z42 and hide(z43=(11.3516,125.035))z43..hide(z44=(10.8047,125.035))z44 + ..controls hide(z45=(10.2617,125.035))z45 and hide(z46=(9.82422,99.8516))z46..cycle; +% renewcolore; + fill PreeditedPath1; +% dotlabels.rt(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46); + PreeditedPath2 = hide(z47=(126.375,82.7031))z47..controls hide(z48=(126.719,59.3008))z48 and hide(z49=(127.871,37.457))z49..hide(z50=(128.941,34.1172))z50 + ..controls hide(z51=(131.738,25.3555))z51 and hide(z52=(141.648,15.3555))z52..hide(z53=(152.367,10.4766))z53 + ..controls hide(z54=(159.797,7.09375))z54 and hide(z55=(164.691,6.26562))z55..hide(z56=(176.836,6.32031))z56 + ..controls hide(z57=(194.344,6.39844))z57 and hide(z58=(204.965,10.4414))z58..hide(z59=(215.602,21.0742))z59 + ..controls hide(z60=(226.223,31.6953))z60 and hide(z61=(226.871,35.0078))z61..hide(z62=(227.145,80.0234))z62 + --hide(z63=(227.391,120.57))z63--hide(z64=(220.422,121.91))z64..controls hide(z65=(216.672,122.633))z65 and hide(z66=(211.602,123.664))z66..hide(z67=(209.438,124.145))z67 + --hide(z68=(205.418,125.035))z68--hide(z69=(205.418,84.668))z69..controls hide(z70=(205.418,37.1523))z70 and hide(z71=(204.617,33.9414))z71..hide(z72=(191.305,28.043))z72 + ..controls hide(z73=(175.586,21.0781))z73 and hide(z74=(156.254,24.7109))z74..hide(z75=(150.438,35.7227))z75 + ..controls hide(z76=(148.648,39.1133))z76 and hide(z77=(148.25,49.9258))z77..hide(z78=(148.793,80.6484))z78 + --hide(z79=(149.508,121.105))z79--hide(z80=(139.684,122.355))z80..controls hide(z81=(134.324,123.039))z81 and hide(z82=(128.926,123.973))z82..hide(z83=(127.805,124.41))z83 + ..controls hide(z84=(126.285,125.004))z84 and hide(z85=(125.914,114.141))z85..cycle; +% renewcolore; + fill PreeditedPath2; +% dotlabels.rt(47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85); + PreeditedPath3 = hide(z86=(241.305,122.18))z86..controls hide(z87=(243.297,119.777))z87 and hide(z88=(243.898,107.887))z88..hide(z89=(244.18,65.375))z89 + ..controls hide(z90=(244.375,35.7227))z90 and hide(z91=(244.578,11.0898))z91..hide(z92=(244.625,10.4492))z92 + ..controls hide(z93=(244.676,9.78906))z93 and hide(z94=(247.039,8.82031))z94..hide(z95=(250.074,8.21484))z95 + ..controls hide(z96=(253.109,7.60938))z96 and hide(z97=(257.754,6.67969))z97..hide(z98=(260.793,6.07031))z98 + --hide(z99=(266.152,5))z99--hide(z100=(266.152,26.6133))z100..controls hide(z101=(266.152,38.582))z101 and hide(z102=(266.707,48.2188))z102..hide(z103=(267.402,48.207))z103 + ..controls hide(z104=(275.438,48.0781))z104 and hide(z105=(299.418,38.2695))z105..hide(z106=(306.164,32.3555))z106 + ..controls hide(z107=(310.332,28.6953))z107 and hide(z108=(316.168,17.3242))z108..hide(z109=(316.168,12.8594))z109 + ..controls hide(z110=(316.168,10.3594))z110 and hide(z111=(317.773,8.96484))z111..hide(z112=(321.523,8.21484))z112 + ..controls hide(z113=(324.418,7.63672))z113 and hide(z114=(329.473,6.64844))z114..hide(z115=(332.512,6.07031))z115 + --hide(z116=(338.137,5))z116--hide(z117=(337.016,13.2148))z117..controls hide(z118=(335.402,25.0039))z118 and hide(z119=(330.18,34.0078))z119..hide(z120=(319.023,44.2305))z120 + --hide(z121=(309.199,53.2305))z121--hide(z122=(314.379,55.3711))z122..controls hide(z123=(321.926,58.4883))z123 and hide(z124=(333.449,71.6289))z124..hide(z125=(335.691,79.6641))z125 + ..controls hide(z126=(339.273,92.5273))z126 and hide(z127=(338.176,101.074))z127..hide(z128=(332.043,108.066))z128 + ..controls hide(z129=(324.508,116.656))z129 and hide(z130=(312.594,119.887))z130..hide(z131=(288.121,119.969))z131 + ..controls hide(z132=(277.582,120.004))z132 and hide(z133=(263.32,121.176))z133..hide(z134=(256.684,122.547))z134 + ..controls hide(z135=(240.07,125.984))z135 and hide(z136=(238.184,125.941))z136..cycle; +% renewcolore; + fill PreeditedPath3; +% dotlabels.rt(86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136); + PreeditedPath4 = hide(z137=(308.305,101.707))z137..controls hide(z138=(316.125,99.1367))z138 and hide(z139=(317.668,93.5977))z139..hide(z140=(313.555,82.8789))z140 + ..controls hide(z141=(307.645,67.4766))z141 and hide(z142=(288.836,60.0312))z142..hide(z143=(272.762,66.7305))z143 + --hide(z144=(266.152,69.4844))z144--hide(z145=(266.152,85.3828))z145..controls hide(z146=(266.152,94.1328))z146 and hide(z147=(266.551,101.672))z147..hide(z148=(267.043,102.156))z148 + ..controls hide(z149=(268.93,104.012))z149 and hide(z150=(302.41,103.648))z150..cycle; +% renewcolore; +unfill PreeditedPath4; +% dotlabels.rt(137,138,139,140,141,142,143,144,145,146,147,148,149,150); + PreeditedPath5 = hide(z151=(354.57,65.6445))z151--hide(z152=(354.57,7.14453))z152--hide(z153=(376.898,7.14453))z153 + ..controls hide(z154=(401.727,7.14453))z154 and hide(z155=(412.688,9.31641))z155..hide(z156=(426.914,17.0547))z156 + ..controls hide(z157=(438.168,23.1797))z157 and hide(z158=(445.777,31.6133))z158..hide(z159=(451.641,44.4766))z159 + ..controls hide(z160=(466.125,76.2461))z160 and hide(z161=(444.777,112.316))z161..hide(z162=(406.73,120.355))z162 + ..controls hide(z163=(399.598,121.859))z163 and hide(z164=(385.117,123.309))z164..hide(z165=(374.219,123.605))z165 + --hide(z166=(354.57,124.145))z166--cycle; +% renewcolore; +fill PreeditedPath5; +% dotlabels.rt(151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166); + PreeditedPath6 = hide(z167=(413.695,95.0625))z167..controls hide(z168=(428.523,87.418))z168 and hide(z169=(436.469,71.9844))z169..hide(z170=(433.215,57.1602))z170 + ..controls hide(z171=(431.301,48.418))z171 and hide(z172=(419.41,36.4961))z172..hide(z173=(409.23,33.1016))z173 + ..controls hide(z174=(399.941,30.0078))z174 and hide(z175=(383.602,28.1562))z175..hide(z176=(379.398,29.7227))z176 + ..controls hide(z177=(377.191,30.5469))z177 and hide(z178=(376.766,36.6172))z178..hide(z179=(376.988,64.3047))z179 + ..controls hide(z180=(377.137,82.7031))z180 and hide(z181=(377.793,98.4492))z181..hide(z182=(378.445,99.1367))z182 + ..controls hide(z183=(381.016,101.84))z183 and hide(z184=(406.195,98.9297))z184..cycle; +% renewcolore; +unfill PreeditedPath6; +% dotlabels.rt(167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184); + + endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp b/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp new file mode 100644 index 00000000000..cd5ec29dbfe --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/thunderproblem.mp @@ -0,0 +1,37 @@ +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +beginfig(1); + numeric u, dist, desv, rayf, aux; + u = 1cm; + dist = 2u; + desv = 1.5u; + rayf = 1.2; + ahangle := 30; + aux = (rayf-1.0)*u; + z1 = (dist,desv); + z2 = (dist,-0.5u); + z3 = (dist-aux,0.33*desv); + z4 = (dist-aux,0.67*desv); + drawdblarrow origin--(dist,0); + drawarrow subpath (1,2) of fullcircle scaled (rayf*u); + drawarrow z3--z4; + pickup pencircle scaled 2pt; + draw fullcircle scaled u; + pickup pencircle scaled 5pt; + draw z2--z1 withcolor 0.5white; + label.urt(btex $i_2$ etex, (0,0.5*rayf*u) ); + label.llft(btex $i_1$ etex, z4 ); + label.top(btex $l$ etex, (0.5*dist,0) ); +endfig; + +verbatimtex +\end{document} +etex + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tiposdetrans.mp b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetrans.mp new file mode 100644 index 00000000000..c9db83e65a2 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetrans.mp @@ -0,0 +1,71 @@ +% tiposdetransb.mp +% L. Nobre G. +% 2003 + +input expressg; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + picture pi[]; + numeric altura, lagura, unid, i, alt, lag, magura; + unid = 5mm; + altura = 7unid; + lagura = 14unid; + lag = 5.6unid; + smoothrad := 3unid; + alt = lag; + magura = 0.5*lagura; + pi1 = btex \shortstack{{\Huge U}\\ uniforme} etex; + pi2 = btex \shortstack{{\Huge H}\\ homog\'enea (0)} etex; + pi3 = btex \shortstack{{\Huge B}\\ bandas (1)} etex; + pi4 = btex \shortstack{{\Huge D}\\ defeitos} etex; + pi5 = btex \shortstack{{\Huge P}\\ paredes} etex; + pi6 = btex \shortstack{{\Huge O}\\ outra (2)} etex; + z1 = ( -lagura, altura ); + z2 = ( lagura, altura ); + z3 = ( -magura, 0 ); + z4 = ( magura, 0 ); + z5 = ( 0, -altura ); + z6 = ( -lagura, -altura ); + pickup thickpen; + drawPREF( 1, lag, alt )( pi1 ); + drawPREF( 2, lag, alt )( pi2 ); + drawPREF( 3, lag, alt )( pi3 ); + drawPREF( 4, lag, alt )( pi4 ); + drawPREF( 5, lag, alt )( pi5 ); + drawPREF( 6, lag, alt )( pi6 ); + z8 = ( xpart z1c, ypart z3c ); + z9 = ( xpart z2c, ypart z4c ); + z7 = ( xpart z3c, ypart z2c ); + z10= ( xpart z3c, ypart z5c ); + z11= ( xpart z4c, ypart z5c ); + drawnormalthree( 1bm, 8, 3ml ); + drawnormalthree( 3tm, 7, 2ml ); + drawnormalthree( 4mr, 9, 2bm ); + drawnormalthree( 3bm, 10,5ml ); + drawnormalthree( 5mr, 11,4bm ); + smooth( 1bm, 8, 3ml ); + smooth( 3tm, 7, 2ml ); + smooth( 4mr, 9, 2bm ); + smooth( 3bm, 10,5ml ); + smooth( 5mr, 11,4bm ); + drawnormalOA( 1mr, 2ml ); + drawnormalOA( 3mr, 4ml ); + drawnormalOA( 1bm, 6tm ); + drawOA( 8, 3ml ); + drawOA( 7, 2ml ); + drawOA( 9, 2bm ); + drawOA( 10,5ml ); + drawOA( 11,4bm ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tiposdetransb.mp b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetransb.mp new file mode 100644 index 00000000000..f91f603ac59 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetransb.mp @@ -0,0 +1,57 @@ +% tiposdetransb.mp +% L. Nobre G. +% 2003 + +input expressg; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + picture pi[]; + numeric altura, lagura, unid, i, alt, lag, magura, RaD; + unid = 5mm; + altura = 7unid; + lagura = 14unid; + lag = 5.6unid; + smoothrad := 3unid; + alt = lag; + RaD = lag; + magura = 0.5*lagura; + pi1 = btex \shortstack{{\Huge U}\\ uniforme} etex; + pi2 = btex \shortstack{{\Huge H}\\ homog\'enea (0)} etex; + pi3 = btex \shortstack{{\Huge B}\\ bandas (1)} etex; + pi4 = btex \shortstack{{\Huge D}\\ defeitos} etex; + pi5 = btex \shortstack{{\Huge P}\\ paredes} etex; + pi6 = btex \shortstack{{\Huge O}\\ outra (2)} etex; + z1 = ( -lagura, altura ); + z2 = ( lagura, altura ); + z3 = ( -magura, 0 ); + z4 = ( magura, 0 ); + z5 = ( 0, -altura ); + z6 = ( -lagura, -altura ); + pickup thickpen; + drawcirclebox( 1, RaD )( pi1 ); + drawcirclebox( 2, RaD )( pi2 ); + drawcirclebox( 3, RaD )( pi3 ); + drawcirclebox( 4, RaD )( pi4 ); + drawcirclebox( 5, RaD )( pi5 ); + drawcirclebox( 6, RaD )( pi6 ); + drawnormalOA( 1br, 3tl ); + drawnormalOA( 3tr, 2ml ); + drawnormalOA( 4tr, 2bl ); + drawnormalOA( 3br, 5tl ); + drawnormalOA( 5tr, 4bl ); + drawnormalOA( 1mr, 2ml ); + drawnormalOA( 3mr, 4ml ); + drawnormalOA( 1bm, 6tm ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/tiposdetranst.mp b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetranst.mp new file mode 100644 index 00000000000..d8225a66bb4 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/tiposdetranst.mp @@ -0,0 +1,43 @@ +% tiposdetranst.mp +% L. Nobre G. +% 2003 + +input expressg; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\begin{document} +etex + +beginfig(1); + picture pi[]; + numeric altura, lagura, unid, i, alt, lag, magura, RaD; + unid = 5mm; + altura = 7unid; + lagura = 14unid; + lag = 5.6unid; + smoothrad := 3unid; + alt = lag; + RaD = lag; + magura = 0.5lagura; + pi1 = btex \shortstack{{\Huge U}\\ uniforme} etex; + pi2 = btex \shortstack{{\Huge H}\\ homog\'enea} etex; + pi3 = btex \shortstack{{\Huge B}\\ bandas} etex; + z1 = ( -magura, altura ); + z2 = ( magura, altura ); + z3 = ( 0, 0 ); + pickup thickpen; + drawcirclebox( 1, RaD )( pi1 ); + drawcirclebox( 2, RaD )( pi2 ); + drawcirclebox( 3, RaD )( pi3 ); + drawnormalOA( 1br, 3tl ); + drawnormalOA( 3tr, 2bl ); + drawnormalOA( 1mr, 2ml ); +endfig; + +verbatimtex +\end{document} +etex + +end. diff --git a/Master/texmf-dist/doc/metapost/featpost/example/trianglecenterofmass.mp b/Master/texmf-dist/doc/metapost/featpost/example/trianglecenterofmass.mp new file mode 100644 index 00000000000..5074aae8a5b --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/trianglecenterofmass.mp @@ -0,0 +1,43 @@ +% trianglecenterofmass.mp +% L. Nobre G. +% 2010 + +% + +prologues := 1; + +beginfig(1); + numeric u; + u = 1cm; + z1 = origin; + z2 = (1u,0); + z3 = (1+uniformdeviate(4))*dir(5+uniformdeviate(80))*u; + draw z1--z2--z3--cycle withpen pencircle scaled 2pt; + numeric a, b, c, d; + a = (ypart z3)/3; + z4 = (0,a); + if (xpart z3) < (xpart z2): + d = xpart z2; + else: + d = xpart z3; + fi; + z5 = (d,a); + draw z4--z5 withcolor red; + z12 = (xpart z3,0); + z23 = whatever[z2,z3]; + z230 = unitvector((-ypart (z3-z2),xpart (z3-z2))); + z23 = whatever[z1,z230]; + z13 = whatever[z1,z3]; + z130 = unitvector((ypart (z3-z1),-xpart (z3-z1))); + z13 = whatever[z2,z2+z130]; + b = abs(z23)/3; + c = abs(z13-z2)/3; + z6 = z2+b*z230; + z7 = z3+b*z230; + draw z6--z7 withcolor green; + z8 = z3+c*z130; + z9 = z1+c*z130; + draw z8--z9 withcolor blue; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/trigonometry.mp b/Master/texmf-dist/doc/metapost/featpost/example/trigonometry.mp new file mode 100644 index 00000000000..fb7299ddaaa --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/trigonometry.mp @@ -0,0 +1,89 @@ +% trigonometry.mp +% L. Nobre G. +% 2002 + +% %input mp-tool; + +verbatimtex +\documentclass{article} +\usepackage{palatino} +\usepackage{concmath} +\usepackage{ccfonts} +\begin{document} +etex + +def PickColor = + ( uniformdeviate(1) , uniformdeviate(1), 0 ) +enddef; + +beginfig(1); + picture sin, cos, tan, ctg, sec, csc; + color sincol, coscol, tancol, ctgcol, seccol, csccol; + pair sinl, cosl, tanl, ctgl, secl, cscl; + path sinp, cosp, tanp, ctgp, secp; + numeric Ang, U, len, labelscale; + path diag, fram, quar; + pair urc, ulc, lrc, tgc, sic, coc, btg; + pen basepen, thikpen, thinpen; + Ang = 21; % Ang < 45 + U = 1.8in; + labelscale = 2; + basepen = pencircle scaled 1.2pt; + thikpen = pencircle scaled 3.4pt; + thinpen = pencircle scaled 1.2pt; + sincol = PickColor; + coscol = PickColor; + tancol = PickColor; + ctgcol = PickColor; + seccol = PickColor; + csccol = PickColor; + len = U * cosd( Ang ) / sind( Ang ); + urc = ( len, U ); + ulc = ( 0, U ); + lrc = ( len, 0 ); + tgc = ( U, U * sind( Ang ) / cosd( Ang ) ); + sic = ( U * cosd( Ang ), U * sind( Ang ) ); + coc = ( U * cosd( Ang ), 0 ); + btg = ( U, 0 ); + diag = origin--urc; + fram = origin--lrc--urc--ulc--cycle; + quar = halfcircle cutafter ( origin--up ); + quar := quar scaled 2U; + draw fram withpen basepen; + draw quar withpen basepen; + sinl = 0.5[coc,sic]; + sinp = coc--sic; + cosl = 0.5[origin,coc]; + cosp = origin--coc; + tanl = 0.5[btg,tgc]; + tanp = btg--tgc; + ctgl = 0.5[ulc,urc]; + ctgp = ulc--urc; + secl = 0.5[origin,sic]; + secp = origin--tgc; + cscl = 0.5[origin,urc]; + draw diag withcolor csccol withpen thikpen; + draw secp withcolor seccol withpen thinpen; + draw ctgp withcolor ctgcol withpen thinpen; + draw tanp withcolor tancol withpen thinpen; + draw cosp withcolor coscol withpen thinpen; + draw sinp withcolor sincol withpen thinpen; + sin = thelabel.lft( btex sin etex scaled labelscale, sinl ); + cos = thelabel.top( btex cos etex scaled labelscale, cosl ); + tan = thelabel.rt( btex tan etex scaled labelscale, tanl ); + ctg = thelabel.bot( btex cotan etex scaled labelscale, ctgl ); + sec = thelabel.top( btex sec etex scaled labelscale, origin ); + csc = thelabel.top( btex cosec etex scaled labelscale, origin ); + draw sin withcolor sincol; + draw cos withcolor coscol; + draw tan withcolor tancol; + draw ctg withcolor ctgcol; + draw sec rotated Ang shifted secl withcolor seccol; + draw csc rotated Ang shifted cscl withcolor csccol; +endfig; + +verbatimtex +\end{document} +etex + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/twoplustwo.mp b/Master/texmf-dist/doc/metapost/featpost/example/twoplustwo.mp new file mode 100644 index 00000000000..0aeb2f916d6 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/twoplustwo.mp @@ -0,0 +1,59 @@ +% twoplustwo.mp +% L. Nobre G. +% 2006 + +def screenpath( expr CentrePoi, Width, Height, CorneRay ) = + begingroup + pair sp[]; + sp0 = CentrePoi - 0.5*( Width*right + Height*up ) + CorneRay*down; + sp1 = CentrePoi + 0.5*( Width*right - Height*up ) + CorneRay*down; + sp2 = CentrePoi + 0.5*( Width*right - Height*up ) + CorneRay*right; + sp3 = CentrePoi + 0.5*( Width*right + Height*up ) + CorneRay*right; + sp4 = CentrePoi + 0.5*( Width*right + Height*up ) + CorneRay*up; + sp5 = CentrePoi - 0.5*( Width*right - Height*up ) + CorneRay*up; + sp6 = CentrePoi - 0.5*( Width*right - Height*up ) + CorneRay*left; + sp7 = CentrePoi - 0.5*( Width*right + Height*up ) + CorneRay*left; + ( sp0---sp1..sp2---sp3..sp4---sp5..sp6---sp7..cycle ) + endgroup +enddef; + +beginfig(1); + numeric u, i, j, k, l; + pen stdpen; + color bgcol, fgcol; + bgcol = 0.7white; + fgcol = 0.85*(blue+green); + stdpen = pencircle scaled 9pt; + u = 5cm; + for i=1 upto 5: + j := 90-72+i*72; + k := i+5; + l := k+5; + z[i] = u*dir(j); + z[k] = u*sind(18)*dir(j); + z[l] = u*sind(18)*dir(j+36)/cosd(36); + endfor; + path inip, inis, init, iniq, scrbord; + scrbord = screenpath( origin, 1.7u, 1.1u, 0.7u ); + inip = z5---z2--z12{unitvector(z8-z2)}..{unitvector(z5-z9)}z14--cycle; +% inis = ( inip ) rotated 72; +% init = ( ( ( inip ) shifted -z5 ) yscaled -1 ) shifted z4; +% iniq = ( ( ( ( inip ) shifted -z2 ) yscaled -1 ) rotated 72 ) shifted z4; +% draw inip withpen pencircle scaled 3pt; +% draw inis; +% draw init; +% draw iniq; + fill inip withcolor fgcol; + draw inip withpen stdpen withcolor bgcol; + picture unitpic; + unitpic = currentpicture; + currentpicture := nullpicture; + fill scrbord withcolor bgcol; + draw ( ( ( ( unitpic ) shifted -z2 ) yscaled -1 ) rotated 72 ) shifted z4; + draw unitpic; + draw ( ( ( unitpic ) shifted -z5 ) yscaled -1 ) shifted z4; + draw ( unitpic ) rotated 72; +endfig; + +end; + diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ubhtransients.mp b/Master/texmf-dist/doc/metapost/featpost/example/ubhtransients.mp new file mode 100644 index 00000000000..27d39c5dea4 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ubhtransients.mp @@ -0,0 +1,139 @@ +% ubhtransients.mp +% L. Nobre G. +% 2003 + +numeric SingleContinuosParameter; +SingleContinuosParameter = 0.95; + +numeric vertn, horin, grids, thex, they, varx, xcomp; +numeric ymax, xmax, i, j, size, u, ycomp, theta, phi; +numeric power, xlim, ylim, frax, fray, allang, shift; +numeric perang, ampper, velang, displamp, hdk; +numeric velfunc, auxfunc, homang, vpower; +pair actpos, direct, one, two, displvec; +path cirma; +color thedark; +path VGAborder; + +u := 0.5mm; +size := 1.14u; +grids := 4u; +hdk := 0.47; + +% This is for the sudden rotation +%allang := SingleContinuosParameter[0,80]; +%homang := 0; + +% This is for the UH evolution +% allang := 80; +% homang := SingleContinuosParameter[0,80]; +% ampper := 0; +% displamp := 0; +% frax := 1.2; +% fray := 1.6; +% velang := 0; +% power := 1; +% vpower := 1; + +% The next homang parameter when in UBH evolution +% has two parts: +% Part1 - SingleContinuosParameter from 0 to 1 [0,45] +% Part2 - SingleContinuosParameter from 1 to 0 [85,45] +% homang := SingleContinuosParameter[0,45]; +% allang := 85; +% ampper := SingleContinuosParameter[0,33]; +% velang := 15; +% displamp := SingleContinuosParameter[0,5u]; +% frax := 1.2; +% fray := 2.0; +% power := 1; +% vpower := 1; + +% This is for the UB evolution + allang := 90; + homang := 0; + ampper := SingleContinuosParameter[0,84]; + displamp := SingleContinuosParameter[0,9u]; + frax := 0.8; + fray := 1.5; + velang := 0; + power := 1; + vpower := 1; + +%power := SingleContinuosParameter[1,0.47]; +%vpower := 1.0/power; + +xlim := 115.00; +ylim := 86.025; +vertn := 2.0*ylim/grids; +horin := 2.0*xlim/grids; +ymax := floor(0.5*(vertn*fray-1)); +xmax := floor(0.5*(horin*frax-1)); +%varx := 450/(0.5*(vertn-1));% in UH and UBH +varx := 350/(0.5*(vertn-1));% in UB + + VGAborder := (-xlim,-ylim)-- % + ( xlim,-ylim)-- % + ( xlim, ylim)-- % + (-xlim, ylim)--cycle; % + + def mypower( expr base, expo ) = + begingroup + save aux; + numeric aux; + if base=0: + aux = 1; + else: + aux = abs(base)/base; + fi; + ( aux*(abs(base)**expo) ) + endgroup + enddef; + + def produce_vga_border = + begingroup + draw VGAborder withcolor background withpen pencircle scaled 0; + clip currentpicture to VGAborder + endgroup + enddef; + + beginfig(0); + pickup pencircle scaled u; + cirma := fullcircle scaled (1.43*grids); + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=(grids*(i,j)) rotated (-allang); + thex:=i*varx; + they:=j*varx; + auxfunc:=dir(velang) dotprod (thex,they); + perang :=ampper*mypower(sind(auxfunc),power); + theta:=180-allang+perang+homang; + direct:=dir(theta); + velfunc:=-displamp*mypower(cosd(auxfunc),vpower); + displvec:=dir(velang)*velfunc; + actpos := actpos+displvec; + thedark := (1-hdk*(ypart direct))*white; + fill cirma shifted actpos withcolor thedark; + endfor; + endfor; + for i=-xmax upto xmax: + for j=-ymax upto ymax: + actpos:=(grids*(i,j)) rotated (-allang); + thex:=i*varx; + they:=j*varx; + auxfunc:=dir(velang) dotprod (thex,they); + perang :=ampper*mypower(sind(auxfunc),power); + theta:=180-allang+perang+homang; + direct:=dir(theta); + velfunc:=-displamp*mypower(cosd(auxfunc),vpower); + displvec:=dir(velang)*velfunc; + actpos := actpos+displvec; + one:=actpos-size*direct; + two:=actpos+size*direct; + draw one--two; + endfor; + endfor; + produce_vga_border; +endfig; + +end; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ultraeye.mp b/Master/texmf-dist/doc/metapost/featpost/example/ultraeye.mp new file mode 100644 index 00000000000..a93847c7736 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ultraeye.mp @@ -0,0 +1,16 @@ +% ultraeye.mp +% L. Nobre G. +% 2007 + +prologues := 1; +beginfig(1); + LaTeX_unitlength := 14.22636pt; % from the emp LaTeX package + w := 15*LaTeX_unitlength; + h := 10*LaTeX_unitlength; + for i=h step -h/20 until h/20: + fill fullcircle scaled i xscaled (w/h) withcolor blue; + fill fullcircle scaled i withcolor red; + endfor; +endfig; +end. +endinput; diff --git a/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp new file mode 100644 index 00000000000..0c33f09cb57 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/ultraimprovertex.mp @@ -0,0 +1,26 @@ +% ultraimprovertex.mp +% L. Nobre G. +% 2012 + +input featpost3Dplus2D; + +beginfig(1); + numeric r, i, ste; + r = 0.65; + ste = 4; + color cc, cl, sc, sl, pdir, inip; + cl = (3*r,0,0); + cc = (-1.5*r,0,-0.5*r); + sl = (0,1.7*r,0); + sc = (0,0,0.5*r); + rigorousdisc( 0, true, cc, r, cl); + spheroid( sc, sl, r ); + drawoptions( withpen pencircle scaled 3pt ); + for i=ste step ste until 360: + pdir := (-sind(i),cosd(i),0); + inip := r*(cosd(i),sind(i),0); + draw rp(ultraimprovertex( black, pdir, cc, r, cl, sc, sl, r, inip )); + endfor; +endfig; + +end. \ No newline at end of file diff --git a/Master/texmf-dist/doc/metapost/featpost/example/wwfpmp.mp b/Master/texmf-dist/doc/metapost/featpost/example/wwfpmp.mp new file mode 100644 index 00000000000..cac886fd4e8 --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/wwfpmp.mp @@ -0,0 +1,154 @@ +% Converted from PostScript(TM) to MetaPost by pstoedit +% MetaPost backend contributed by Scott Pakin +% pstoedit is Copyright (C) 1993 - 2003 Wolfgang Glunz + +% Generate structured PostScript +prologues := 1; + +% Display a given string with its *baseline* at a given location +% and with a given rotation angle +vardef showtext(expr origin)(expr angle)(expr string) = + draw string infont defaultfont scaled defaultscale + rotated angle shifted origin; +enddef; + +% Modified by L. Nobre G's Lex scanner %%%%%%%%%%% +randomseed := 1010; +vardef renewcolore = + color tmpcolo; + tmpcolo = (uniformdeviate(0.8),uniformdeviate(0.8),uniformdeviate(0.8)); + drawoptions( withcolor tmpcolo ); +enddef; +defaultscale := 0.16; +beginfig(1); + path PreeditedPath[]; +linecap := butt; +linejoin := mitered; + PreeditedPath1 = hide(z1=(209.192,405.337))z1..controls hide(z2=(193.976,401.343))z2 and hide(z3=(180.8,387.983))z3..hide(z4=(178.3,374.014))z4 + ..controls hide(z5=(176.925,366.33))z5 and hide(z6=(179.259,357.391))z6..hide(z7=(184.709,349.463))z7 + ..controls hide(z8=(185.808,347.865))z8 and hide(z9=(186.687,346.288))z9..hide(z10=(186.687,345.915))z10 + ..controls hide(z11=(186.687,345.544))z11 and hide(z12=(184.513,343.637))z12..hide(z13=(181.828,341.652))z13 + ..controls hide(z14=(156.708,323.087))z14 and hide(z15=(140.969,300.809))z15..hide(z16=(134.227,274.277))z16 + ..controls hide(z17=(131.23,262.485))z17 and hide(z18=(130.362,253.818))z18..hide(z19=(130.125,233.359))z19 + ..controls hide(z20=(129.983,221.147))z20 and hide(z21=(129.563,212.396))z21..hide(z22=(128.852,206.826))z22 + ..controls hide(z23=(127.635,197.3))z23 and hide(z24=(127.497,188.834))z24..hide(z25=(128.461,182.787))z25 + ..controls hide(z26=(129.206,178.12))z26 and hide(z27=(131.726,168.007))z27..hide(z28=(133.225,163.671))z28 + ..controls hide(z29=(135.196,157.97))z29 and hide(z30=(133.11,157.822))z30..hide(z31=(125.95,163.155))z31 + ..controls hide(z32=(103.858,179.608))z32 and hide(z33=(87.1804,209.064))z33..hide(z34=(82.4009,240.072))z34 + ..controls hide(z35=(81.376,246.721))z35 and hide(z36=(81.3604,265.495))z36..hide(z37=(82.3743,272.039))z37 + ..controls hide(z38=(85.2769,290.772))z38 and hide(z39=(92.6594,308.476))z39..hide(z40=(103.623,322.994))z40 + ..controls hide(z41=(108.759,329.797))z41 and hide(z42=(119.045,339.931))z42..hide(z43=(126.845,345.874))z43 + ..controls hide(z44=(130.233,348.455))z44 and hide(z45=(132.983,350.779))z45..hide(z46=(132.983,351.062))z46 + ..controls hide(z47=(132.983,352.33))z47 and hide(z48=(129.85,351.42))z48..hide(z49=(124.735,348.665))z49 + ..controls hide(z50=(88.8674,329.346))z50 and hide(z51=(66.1748,297.613))z51..hide(z52=(58.7385,256.375))z52 + ..controls hide(z53=(57.7061,250.65))z53 and hide(z54=(57.3645,245.698))z54..hide(z55=(57.1956,233.998))z55 + ..controls hide(z56=(56.9331,215.816))z56 and hide(z57=(57.4407,211.238))z57..hide(z58=(61.8733,191.802))z58 + ..controls hide(z59=(63.4004,185.106))z59 and hide(z60=(63.5593,183.107))z60..hide(z61=(63.6526,169.425))z61 + ..controls hide(z62=(63.7874,149.669))z62 and hide(z63=(64.5361,144.671))z63..hide(z64=(69.7825,128.507))z64 + ..controls hide(z65=(82.0679,90.6582))z65 and hide(z66=(95.7263,71.4067))z66..hide(z67=(114.186,65.9214))z67 + ..controls hide(z68=(127.101,62.0835))z68 and hide(z69=(142.784,62.0671))z69..hide(z70=(150.309,65.8833))z70 + ..controls hide(z71=(157.396,69.4775))z71 and hide(z72=(157.994,74.8027))z72..hide(z73=(153.107,90.7861))z73 + ..controls hide(z74=(149.823,101.527))z74 and hide(z75=(148.291,108.503))z75..hide(z76=(147.898,114.506))z76 + ..controls hide(z77=(147.6,119.045))z77 and hide(z78=(147.695,120.765))z78..hide(z79=(148.263,121.112))z79 + ..controls hide(z80=(149.597,121.927))z80 and hide(z81=(150.525,120.388))z81..hide(z82=(155.367,109.327))z82 + ..controls hide(z83=(168.496,79.342))z83 and hide(z84=(173.615,68.8303))z84..hide(z85=(180.494,57.7322))z85 + ..controls hide(z86=(195.237,33.9487))z86 and hide(z87=(212.187,21.4004))z87..hide(z88=(235.661,16.8931))z88 + ..controls hide(z89=(244.036,15.2849))z89 and hide(z90=(260.11,15.4221))z90..hide(z91=(266.669,17.1577))z91 + ..controls hide(z92=(275.747,19.5603))z92 and hide(z93=(280.789,23.1016))z93..hide(z94=(281.655,27.6833))z94 + ..controls hide(z95=(282.208,30.6094))z95 and hide(z96=(281.006,35.2915))z96..hide(z97=(278.358,40.5339))z97 + ..controls hide(z98=(274.26,48.6443))z98 and hide(z99=(272.498,54.0881))z99..hide(z100=(269.85,66.8108))z100 + ..controls hide(z101=(267.725,77.0188))z101 and hide(z102=(267.096,84.4568))z102..hide(z103=(267.408,95.709))z103 + ..controls hide(z104=(267.868,112.332))z104 and hide(z105=(270.992,122.729))z105..hide(z106=(277.473,129.21))z106 + ..controls hide(z107=(282.46,134.197))z107 and hide(z108=(287.223,134.241))z108..hide(z109=(291.524,129.338))z109 + ..controls hide(z110=(298.515,121.37))z110 and hide(z111=(299.705,101.144))z111..hide(z112=(294.629,76.5288))z112 + ..controls hide(z113=(292.969,68.4731))z113 and hide(z114=(292.615,65.2798))z114..hide(z115=(292.562,57.8601))z115 + ..controls hide(z116=(292.501,49.293))z116 and hide(z117=(292.578,48.7368))z117..hide(z118=(294.36,44.8816))z118 + ..controls hide(z119=(297.995,37.0154))z119 and hide(z120=(303.878,33.7029))z120..hide(z121=(314.172,33.7263))z121 + ..controls hide(z122=(323.351,33.7471))z122 and hide(z123=(333.416,36.9553))z123..hide(z124=(345.052,43.5701))z124 + ..controls hide(z125=(355.021,49.2373))z125 and hide(z126=(361.587,57.4126))z126..hide(z127=(369.879,74.4829))z127 + ..controls hide(z128=(382.573,100.614))z128 and hide(z129=(391.848,133.047))z129..hide(z130=(397.011,169.361))z130 + ..controls hide(z131=(399.774,188.797))z131 and hide(z132=(400.469,200.293))z132..hide(z133=(400,218.846))z133 + ..controls hide(z134=(399.546,236.875))z134 and hide(z135=(398.304,246.849))z135..hide(z136=(394.996,259.061))z136 + ..controls hide(z137=(392.594,267.928))z137 and hide(z138=(390.68,267.308))z138..hide(z139=(390.653,257.654))z139 + ..controls hide(z140=(390.644,254.313))z140 and hide(z141=(390.221,248.703))z141..hide(z142=(389.713,245.187))z142 + ..controls hide(z143=(384.752,210.854))z143 and hide(z144=(364.418,184.698))z144..hide(z145=(335.781,175.811))z145 + ..controls hide(z146=(329.771,173.946))z146 and hide(z147=(317.834,171.982))z147..hide(z148=(312.509,171.982))z148 + ..controls hide(z149=(310.08,171.982))z149 and hide(z150=(307.164,171.594))z150..hide(z151=(306.02,171.119))z151 + ..controls hide(z152=(304.886,170.648))z152 and hide(z153=(301.777,167.859))z153..hide(z154=(299.179,164.981))z154 + ..controls hide(z155=(296.581,162.104))z155 and hide(z156=(293.341,159.158))z156..hide(z157=(292.05,158.5))z157 + ..controls hide(z158=(287.492,156.174))z158 and hide(z159=(280.734,157.216))z159..hide(z160=(272.167,161.566))z160 + ..controls hide(z161=(266.568,164.409))z161 and hide(z162=(262.001,164.863))z162..hide(z163=(254.457,163.325))z163 + ..controls hide(z164=(246.785,161.761))z164 and hide(z165=(243.566,161.882))z165..hide(z166=(240.2,163.861))z166 + ..controls hide(z167=(237.131,165.665))z167 and hide(z168=(233.232,170.832))z168..hide(z169=(230.451,176.777))z169 + ..controls hide(z170=(227.492,183.105))z170 and hide(z171=(224.6,185.336))z171..hide(z172=(215.649,188.197))z172 + ..controls hide(z173=(193.43,195.298))z173 and hide(z174=(177.714,211.11))z174..hide(z175=(169.999,234.126))z175 + ..controls hide(z176=(167.233,242.379))z176 and hide(z177=(166.281,247.808))z177..hide(z178=(165.809,258.038))z178 + ..controls hide(z179=(165.317,268.691))z179 and hide(z180=(166.114,276.45))z180..hide(z181=(168.842,287.575))z181 + ..controls hide(z182=(172.354,301.896))z182 and hide(z183=(178.804,316.336))z183..hide(z184=(187.433,329.196))z184 + ..controls hide(z185=(194.726,340.065))z185 and hide(z186=(193.628,339.248))z186..hide(z187=(198.003,337.06))z187 + ..controls hide(z188=(205.601,333.261))z188 and hide(z189=(208.425,333.986))z189..hide(z190=(218.334,342.279))z190 + ..controls hide(z191=(224.603,347.525))z191 and hide(z192=(231.441,351.833))z192..hide(z193=(237.834,354.565))z193 + ..controls hide(z194=(251.781,360.524))z194 and hide(z195=(253.271,368.324))z195..hide(z196=(244.111,387.44))z196 + ..controls hide(z197=(236.574,403.168))z197 and hide(z198=(224.501,409.355))z198..cycle; + renewcolore; + draw PreeditedPath1; + dotlabels.rt(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198); + PreeditedPath2 = hide(z199=(257.974,155.725))z199..controls hide(z200=(263.28,154.78))z200 and hide(z201=(271.076,153.845))z201..hide(z202=(275.427,153.633))z202 + ..controls hide(z203=(279.775,153.421))z203 and hide(z204=(283.412,153.05))z204..hide(z205=(283.56,152.802))z205 + ..controls hide(z206=(284.051,151.985))z206 and hide(z207=(280.606,147.349))z207..hide(z208=(278.368,145.815))z208 + ..controls hide(z209=(275.629,143.938))z209 and hide(z210=(270.569,142.573))z210..hide(z211=(266.349,142.573))z211 + ..controls hide(z212=(262.833,142.573))z212 and hide(z213=(255.786,144.135))z213..hide(z214=(253.051,145.52))z214 + ..controls hide(z215=(248.639,147.754))z215 and hide(z216=(244.228,153.345))z216..hide(z217=(244.228,156.702))z217 + ..controls hide(z218=(244.228,158.268))z218 and hide(z219=(243.333,158.332))z219..cycle; + renewcolore; + draw PreeditedPath2; + dotlabels.rt(199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219); + PreeditedPath3 = hide(z220=(357.135,385.448))z220..controls hide(z221=(345.75,382.778))z221 and hide(z222=(333.16,368.004))z222..hide(z223=(331.428,355.281))z223 + ..controls hide(z224=(330.516,348.575))z224 and hide(z225=(332.776,345.015))z225..hide(z226=(340.64,340.775))z226 + ..controls hide(z227=(347.237,337.218))z227 and hide(z228=(352.682,332.712))z228..hide(z229=(360.197,324.593))z229 + ..controls hide(z230=(364.872,319.542))z230 and hide(z231=(367.186,317.542))z231..hide(z232=(369.283,316.742))z232 + ..controls hide(z233=(372.885,315.367))z233 and hide(z234=(377.21,315.818))z234..hide(z235=(381.558,318.022))z235 + ..controls hide(z236=(388.047,321.312))z236 and hide(z237=(396.27,330.475))z237..hide(z238=(400.019,338.594))z238 + ..controls hide(z239=(401.562,341.935))z239 and hide(z240=(401.765,343.134))z240..hide(z241=(401.793,349.08))z241 + ..controls hide(z242=(401.821,354.897))z242 and hide(z243=(401.601,356.33))z243..hide(z244=(400.143,359.82))z244 + ..controls hide(z245=(393.363,376.06))z245 and hide(z246=(379.602,386.294))z246..hide(z247=(364.807,386.101))z247 + ..controls hide(z248=(361.93,386.063))z248 and hide(z249=(358.521,385.773))z249..cycle; + renewcolore; + draw PreeditedPath3; + dotlabels.rt(220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249); + PreeditedPath4 = hide(z250=(230.29,279.386))z250..controls hide(z251=(220.653,277.409))z251 and hide(z252=(210.078,268.587))z252..hide(z253=(204.855,258.165))z253 + ..controls hide(z254=(201.592,251.655))z254 and hide(z255=(200.56,246.913))z255..hide(z256=(200.918,240.072))z256 + ..controls hide(z257=(201.417,230.546))z257 and hide(z258=(205.557,222.672))z258..hide(z259=(212.069,218.865))z259 + ..controls hide(z260=(214.237,217.598))z260 and hide(z261=(216.097,217.11))z261..hide(z262=(219.613,216.886))z262 + ..controls hide(z263=(228.86,216.297))z263 and hide(z264=(233.455,219.421))z264..hide(z265=(244.122,233.551))z265 + ..controls hide(z266=(247.646,238.218))z266 and hide(z267=(251.522,242.976))z267..hide(z268=(252.795,244.196))z268 + ..controls hide(z269=(254.993,246.303))z269 and hide(z270=(255.096,246.593))z270..hide(z271=(255.096,250.685))z271 + ..controls hide(z272=(255.096,255.736))z272 and hide(z273=(253.262,263.325))z273..hide(z274=(250.847,268.267))z274 + ..controls hide(z275=(246.692,276.77))z275 and hide(z276=(238.676,281.105))z276..cycle; + renewcolore; + draw PreeditedPath4; + dotlabels.rt(250,251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276); + PreeditedPath5 = hide(z277=(315.706,267.3))z277..controls hide(z278=(310.07,265.498))z278 and hide(z279=(305.137,260.211))z279..hide(z280=(300.623,251.133))z280 + ..controls hide(z281=(296.045,241.926))z281 and hide(z282=(295.968,241.259))z282..hide(z283=(298.965,236.748))z283 + ..controls hide(z284=(300.304,234.73))z284 and hide(z285=(302.736,229.906))z285..hide(z286=(304.412,225.943))z286 + ..controls hide(z287=(310.819,210.79))z287 and hide(z288=(314.433,205.338))z288..hide(z289=(319.926,202.542))z289 + ..controls hide(z290=(325.542,199.684))z290 and hide(z291=(335.821,202.351))z291..hide(z292=(341.611,208.169))z292 + ..controls hide(z293=(350.474,217.073))z293 and hide(z294=(351.424,236.3))z294..hide(z295=(343.725,250.941))z295 + ..controls hide(z296=(337.909,262.001))z296 and hide(z297=(324.189,270.012))z297..cycle; + renewcolore; + draw PreeditedPath5; + dotlabels.rt(277,278,279,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294,295,296,297); + PreeditedPath6 = hide(z298=(251.708,195.581))z298..controls hide(z299=(245.954,194.662))z299 and hide(z300=(242.601,191.25))z300..hide(z301=(243.409,187.135))z301 + ..controls hide(z302=(243.88,184.73))z302 and hide(z303=(245.89,183.255))z303..hide(z304=(251.516,181.182))z304 + ..controls hide(z305=(256.887,179.204))z305 and hide(z306=(261.102,176.061))z306..hide(z307=(263.429,172.302))z307 + ..controls hide(z308=(264.181,171.087))z308 and hide(z309=(265.18,170.064))z309..hide(z310=(265.614,170.064))z310 + ..controls hide(z311=(266.044,170.064))z311 and hide(z312=(267.564,170.977))z312..hide(z313=(268.906,172.042))z313 + ..controls hide(z314=(272.56,174.94))z314 and hide(z315=(275.427,176.235))z315..hide(z316=(280.031,177.066))z316 + ..controls hide(z317=(285.146,177.99))z317 and hide(z318=(288.846,179.502))z318..hide(z319=(289.653,180.997))z319 + ..controls hide(z320=(291.597,184.6))z320 and hide(z321=(289.237,189.242))z321..hide(z322=(284.314,191.499))z322 + ..controls hide(z323=(278.305,194.254))z323 and hide(z324=(258.741,196.703))z324..cycle; + renewcolore; + draw PreeditedPath6; + dotlabels.rt(298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324); +endfig; +end diff --git a/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp b/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp new file mode 100644 index 00000000000..45b31f78dec --- /dev/null +++ b/Master/texmf-dist/doc/metapost/featpost/example/xcmplaca2buraquads.mp @@ -0,0 +1,69 @@ +% xcmplaca2buraquads.mp +% L. Nobre G. +% 2008 + +verbatimtex +\documentclass{article} +\usepackage{palatino,concmath,ccfonts} +\begin{document} +etex + +beginfig(1); + numeric fy, tf, fl, tk, fu, fd; + fy = 0.25+uniformdeviate( 0.35 ); + tf = 0.4*fy/sqrt(2.0); + fl = 0.3*tf+uniformdeviate( 0.7*tf ); + tk = fl/sqrt(2.0); + fu = tk+uniformdeviate( 0.24-tk ); + fd = 0.26+uniformdeviate( 0.24-tk ); + numeric u,h,w; + u = 5mm; + w = 10u; + h = 11*u*fy; + drawarrow origin--(0,h); + drawarrow origin--(w,0); + label.lft( btex $y$ etex, (0,h) ); + label.bot( btex $x$ etex, (w,0) ); + numeric marg, tl; + tl = 0.05*h; + marg = 0.1*w; + numeric xzero, yzero, xum, xdois, yum, ydois, lado, ang; + xzero = w-marg; + yzero = h-marg; + xum = fu * xzero; + xdois = fd * xzero; + yum = 0.7 * yzero; + ydois = 0.3 * yzero; + lado = fl * xzero; + ang = 10+uniformdeviate( 26 ); + path placa, quadrad, quadrum, quadois; + placa = origin--(xzero,0)--(xzero,yzero)--(0,yzero)--cycle; + fill placa withcolor 0.5white; + draw placa; + quadrad = (origin--(lado,0)--(lado,lado)--(0,lado)--cycle) + shifted (-0.5*lado*(1,1)) rotated ang; + quadrum = quadrad shifted (xum,yum); + quadois = quadrad shifted (xdois,ydois); + unfill quadrum; + draw quadrum; + unfill quadois; + draw quadois; + z1 = (xum,0); + z2 = (xdois,0); + z3 = (xzero,0); + z4 = (0,yzero); + draw z1--(z1+tl*up); + draw z2--(z2+tl*up); + draw z3--(z3+tl*up); + draw z4--(z4+tl*right); + label.lft( btex $y_0$ etex, z4 ); + label.bot( btex $x_1$ etex, z1 ); + label.bot( btex $x_2$ etex, z2 ); + label.bot( btex $x_0$ etex, z3 ); +endfig; + +verbatimtex +\end{document} +etex + +end. -- cgit v1.2.3