summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/metapost
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-07-19 21:37:29 +0000
committerKarl Berry <karl@freefriends.org>2015-07-19 21:37:29 +0000
commit4bc3a08de1ae586a4b6720e713cae3f8f0b316f2 (patch)
treeecd113af32e34c3640e3ceff7752f40e3d7f5517 /Master/texmf-dist/source/metapost
parentacb8a22da59f0c6472de1d6369fb555f45e8f1ee (diff)
shapes (19jul15)
git-svn-id: svn://tug.org/texlive/trunk@37898 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/metapost')
-rw-r--r--Master/texmf-dist/source/metapost/shapes/shapes.dtx402
-rw-r--r--Master/texmf-dist/source/metapost/shapes/shapes.ins69
2 files changed, 471 insertions, 0 deletions
diff --git a/Master/texmf-dist/source/metapost/shapes/shapes.dtx b/Master/texmf-dist/source/metapost/shapes/shapes.dtx
new file mode 100644
index 00000000000..ab1b14cfb28
--- /dev/null
+++ b/Master/texmf-dist/source/metapost/shapes/shapes.dtx
@@ -0,0 +1,402 @@
+% \iffalse
+% +AMDG This document was begun on 1E June 11EE, the vigil
+% of the Nativity of St. John the Baptist, and it is humbly
+% dedicated to him and to the Immaculate Heart of Mary, for
+% their prayers, and to the Sacred Heart of Jesus, for His
+% mercy.
+%
+% This document is copyright 2015 by Donald P. Goodman, and is
+% released publicly under the LaTeX Project Public License. The
+% distribution and modification of this work is constrained by the
+% conditions of that license. See
+% http://www.latex-project.org/lppl.txt
+% for the text of the license. This document is released
+% under version 1.3 of that license, and this work may be distributed
+% or modified under the terms of that license or, at your option, any
+% later version.
+%
+% This work has the LPPL maintenance status 'maintained'.
+%
+% The Current Maintainer of this work is Donald P. Goodman
+% (dgoodmaniii@gmail.com).
+%
+% This work consists of the files shapes.dtx and
+% shapes.ins, along with the generated file shapes.mp
+% and shapes.pdf, and the README.
+% \fi
+
+% \iffalse
+%<*driver>
+
+\documentclass{ltxdoc}
+\usepackage{docmfp}
+\usepackage{url}
+\usepackage[typeone]{dozenal}
+\usepackage{verbatim}
+\usepackage{mflogo}
+\usepackage[everymp={input shapes;},latex]{gmp}
+\usepackage{makeidx}
+\makeindex
+\long\def\demonstrate#1#2{%
+ \bigskip%
+ \hrule%
+ \hbox to\linewidth{%
+ \hbox to0.65\linewidth{%
+ \vbox to1.4in{\vfil#1\vfil}%
+ }\hbox to0.35\linewidth{%
+ \vbox to1.4in{\vfil#2\vfil}%
+ }%
+ }%
+ \hrule%
+ \bigskip%
+}
+
+\begin{document}
+\DocInput{shapes.dtx}
+\end{document}
+%</driver>
+% \fi
+% \title{The \texttt{shapes} Macros, v1.0}
+% \author{Donald P.\ Goodman III}
+% \date{\today}
+%
+% \maketitle
+% \begin{abstract}\noindent
+% The |shapes| macros for \MP\ provide regular polygons,
+% their corresponding reentrant stars, and images
+% demonstrating fractions. These macros are quite
+% configurable.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section{Introduction}
+%
+% The |shapes| macros are not revolutionary, and in fact are
+% quite simple; however, I spent some time generalizing them
+% for a text I'm currently working on, and so I thought they
+% might be useful for the general populace. They are
+% divided into two main groups: regular polygons and their
+% corresponding reentrant star shapes; and fractionals,
+% circles divided into a certain number of parts with the
+% desired fraction filled in.
+%
+% This document was typeset in accordance with the
+% |docstrip| utility, which allows the automatic extraction
+% of code and documentation from the same document.
+%
+% \section{Prerequisites and Conventions}
+%
+% Some prerequesites for using this package are \MP\ itself
+% (obviously). If you're using the package with \LaTeX, the
+% |gmp| package would probably be helpful; be sure to use
+% the |latex| package option.
+% These should be packaged in any
+% reasonably modern \LaTeX\ system, such as \TeX Live or
+% Mik\TeX.
+%
+% This documentation assumes nothing about your personal
+% \TeX\ or \MP\ environment. Con\TeX t and the various
+% forms of Lua\TeX\ have \MP\ built-in; with pdf\LaTeX, the
+% author's choice, one can use the |gmp| package to
+% include the source directly in one's document (that's
+% what's been done in this documentation) or develop a
+% simple script to compile them afterwards and include them
+% in the source via |\includegraphics| (probably the
+% quickest option, since compilation is done in advance).
+% Here, we simply post the plain vanilla \MP\ code, and let
+% you work out those details however you prefer.
+%
+% \section{The Shapes Macros}
+%
+% We begin with the simple shapes macros, which are about as
+% basic as they can be.
+%
+% All of these shapes default to
+% circles with a one inch diameter, so you can scaled them
+% with that kept in mind.
+%
+% The simplest case is with a regular
+% polygon, like so:
+%
+% \demonstrate{%
+% \hbox{|modfig(6,0);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modfig(6,0); draw modfigure;
+% \end{mpost}
+% }%
+%
+% Of course, these drawn figures can be manipulated in the
+% usual ways:
+%
+% \demonstrate{%
+% \hbox{|modfig(6,0);|}
+% \hbox{|draw modfigure rotated (45) withcolor red;|}
+% }{%
+% \begin{mpost}
+% modfig(6,0); draw modfigure rotated (45) withcolor red;
+% \end{mpost}
+% }%
+%
+% The two arguments to |modfig| are simple: the first tells
+% the number of sides desired, while the second means
+% \emph{no numbers are printed} if 0, and \emph{print
+% numbers} if 1:
+%
+% \demonstrate{%
+% \hbox{|modfig(8,1);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modfig(8,1); draw modfigure;
+% \end{mpost}
+% }%
+%
+% If you don't want the circle to be printed, simply tell
+% \MP\ with |modcircle := false;| and it will not print it:
+%
+% \demonstrate{%
+% \hbox{|modcircle := false;|}
+% \hbox{|modfig(8,1);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modcircle := false;
+% modfig(8,1); draw modfigure;
+% \end{mpost}
+% }%
+%
+% |modcircle| defaults to |true|.
+%
+% Notice that |modfig| doesn't care if there's a circle or
+% not; if you want numbers on the vertices, it will print
+% them there.
+%
+% You can adjust the width of the lines by specifying
+% |modcirclepen| and |modshapepen|:
+%
+% \demonstrate{%
+% \hbox{|modcirclepen := pencircle scaled 3;|}
+% \hbox{|modshapepen := pencircle scaled 2;|}
+% \hbox{|modfig(4,0);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modcirclepen := pencircle scaled 3;
+% modshapepen := pencircle scaled 2;
+% modfig(4,0); draw modfigure;
+% \end{mpost}
+% }%
+%
+% Both |modcirclepen| and |modshapepen| default to
+% |pencircle scaled 1|.
+%
+% We can do essentially the same thing with reentrant star
+% figures with |modstar|. Unlike |modfig|, |modstar| takes
+% \emph{three} arguments: the number of vertices, whether
+% or not you want those vertices numbered, and how many
+% points you want to skip as you go around the circle.
+%
+% \demonstrate{%
+% \hbox{|modstar(11,1,3);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modstar(11,1,3); draw modfigure;
+% \end{mpost}
+% }%
+%
+% Note that the third argument actually skips $n - 1$
+% points, not $n$ points. But all the same parameters we
+% saw when looking at |modfig| will still work in the same
+% way:
+%
+% \demonstrate{%
+% \hbox{|modcirclepen := pencircle scaled 1;|}
+% \hbox{|modshapepen := pencircle scaled 2;|}
+% \hbox{|modstar(11,1,4);|}
+% \hbox{|draw modfigure;|}
+% }{%
+% \begin{mpost}
+% modcirclepen := pencircle scaled 1;
+% modshapepen := pencircle scaled 2;
+% modstar(11,1,4); draw modfigure;
+% \end{mpost}
+% }%
+%
+% And that's about all there is to it.
+%
+% \section{Fraction Images}
+% \label{sect:fraimg}
+%
+% The following macros are useful for demonstrating the
+% nature and size of fractions in a visible way. The name
+% of the game here is |fraccirc|, which takes two arguments:
+% the number of parts to be filled, and the number of parts
+% in the whole:
+%
+% \demonstrate{%
+% \hbox{|fraccirc(7)(12);|}
+% \hbox{|draw thefrac;|}
+% }{%
+% \begin{mpost}
+% fraccirc(7)(12);
+% draw thefrac;
+% \end{mpost}
+% }
+%
+% Note that, due to the internal implementation, these two
+% arguments must each be enclosed in their own parentheses.
+%
+% We can adjust these things as appropriate. For example,
+% we can fill with blue rather than red, and use thicker
+% lines:
+%
+% \demonstrate{%
+% \hbox{|fracfillcolor := blue;|}
+% \hbox{|fraccirclepen := pencircle scaled 1;|}
+% \hbox{|fractionpen := pencircle scaled 2;|}
+% \hbox{|fraccirc(4)(7);|}
+% \hbox{|draw thefrac;|}
+% }{%
+% \begin{mpost}
+% fracfillcolor := blue;
+% fraccirclepen := pencircle scaled 1;
+% fractionpen := pencircle scaled 2;
+% fraccirc(4)(7);
+% draw thefrac;
+% \end{mpost}
+% }
+%
+% As the above example suggests, |fracfillcolor| gives the
+% color with which the portion of the fraction should be
+% filled; it defaults to |red|. |fraccirclepen| is the pen
+% used to draw the circle around the fraction; it defaults
+% to |pencircle scaled 1.5|. Finally, |fractionpen| is the
+% pen used to draw the partition and the circle immediately
+% surrounding them; it defaults to |pencircle scaled 1|.
+%
+% \section{Implementation}
+% \label{sect:implem}
+%
+% \begin{macrocode}
+color fracfillcolor; fracfillcolor := red;
+pen fraccirclepen; fraccirclepen := pencircle scaled 1.5;
+pen fractionpen; fractionpen := pencircle scaled 1;
+def fraccirc(suffix x)(expr y) =
+ radius := 1in;
+ ticklen := radius/24;
+ path circ; circ := fullcircle scaled radius;
+ pair p[]; pair q[]; pair r[]; pair s[];
+ p[0] := (0,0) shifted (0,radius/2);
+ q[0] := p[0] shifted (0,ticklen);
+ r[0] := p[0] shifted (0,-ticklen);
+ s[0] := r[0];
+ picture thefrac;
+ picture addition;
+ thefrac := image(pickup fraccirclepen; draw circ;);
+ addition := image(pickup fractionpen; draw p[0]--q[0];);
+ addto thefrac also addition;
+ for i=1 upto 12:
+ p[i] := p[i-1] rotatedaround ((0,0),-30);
+ q[i] := q[i-1] rotatedaround ((0,0),-30);
+ addition := image(pickup fractionpen; draw p[i]--q[i];);
+ addto thefrac also addition;
+ endfor;
+ addition := image(pickup fractionpen; draw (0,0)--r[0];);
+ addto thefrac also addition;
+ pair t; pair q;
+ addition := image(
+ t = r[0] rotatedaround ((0,0),-((360/y)*x)/2);
+ q = r[0] rotatedaround ((0,0),-((360/y)*x));
+ fill r[0]--(0,0)--q..t..cycle withcolor fracfillcolor;
+ draw r[0]--(0,0)--q..t..cycle;
+ );
+ addto thefrac also addition;
+ for i=1 upto y:
+ r[i] := r[i-1] rotatedaround ((0,0),-(360/y));
+ s[i] := r[i-1] rotatedaround ((0,0),-(360/y)/2);
+ addition := image(%
+ pickup fractionpen;%
+ draw (0,0)--r[i];
+ draw r[i-1]..s[i]..r[i];
+ );
+ addto thefrac also addition;
+ endfor;
+enddef;
+% put in the pens for the modular shapes
+boolean modcircle; modcircle := true;
+pen modcirclepen; modcirclepen := pencircle scaled 1;
+pen modshapepen; modshapepen := pencircle scaled 1;
+def modstar(expr numpoints,numbers,numstar) =
+ picture modfigure;
+ if (modcircle = true):
+ modfigure := image(draw fullcircle scaled 1in withpen modcirclepen;);
+ else:
+ modfigure := image();
+ fi;
+ pickup modshapepen;
+ pair p[]; pair q[];
+ picture addition;
+ p[0] = (0,0.5in);
+ q[0] = (0,0.6in);
+ if (numbers = 1):
+ addition := image(label("0",q[0]));
+ addto modfigure also addition;
+ fi
+ for i=1 upto numpoints:
+ p[i] = p[i-1] rotatedaround ((0,0),-(360/numpoints));
+ q[i] = q[i-1] rotatedaround ((0,0),-(360/numpoints));
+ if (numbers = 1):
+ if (i <> numpoints):
+ addition := image(label(decimal i,q[i]));
+ addto modfigure also addition;
+ fi
+ fi
+ endfor
+ for i=0 upto numpoints:
+ if (i < numstar):
+ addition := image(%
+ draw p[i]--p[i+numstar];
+ draw p[i]--p[numpoints - numstar + i];
+ );
+ addto modfigure also addition;
+ elseif (i >= (numstar*2)):
+ addition := image(draw p[i-numstar]--p[i]);
+ addto modfigure also addition;
+ fi
+ endfor
+ addto modfigure also addition;
+enddef;
+def modfig(expr numpoints,numbers) =
+ picture modfigure;
+ if (modcircle = true):
+ modfigure := image(draw fullcircle scaled 1in withpen modcirclepen);
+ else:
+ modfigure := image();
+ fi
+ pair p[]; pair q[];
+ picture addition;
+ pickup modshapepen;
+ p[0] = (0,0.5in);
+ q[0] = (0,0.6in);
+ if (numbers = 1):
+ addition := image(label("0",q[0]));
+ addto modfigure also addition;
+ fi
+ for i=1 upto numpoints:
+ p[i] = p[i-1] rotatedaround ((0,0),-(360/numpoints));
+ q[i] = q[i-1] rotatedaround ((0,0),-(360/numpoints));
+ addition := image(draw p[i-1]--p[i]);
+ addto modfigure also addition;
+ if (numbers = 1):
+ if (i <> numpoints):
+ addition := image(label(decimal i,q[i]));
+ addto modfigure also addition;
+ fi
+ fi
+ endfor;
+enddef;
+% \end{macrocode}
diff --git a/Master/texmf-dist/source/metapost/shapes/shapes.ins b/Master/texmf-dist/source/metapost/shapes/shapes.ins
new file mode 100644
index 00000000000..d7c4a2f537d
--- /dev/null
+++ b/Master/texmf-dist/source/metapost/shapes/shapes.ins
@@ -0,0 +1,69 @@
+% +AMDG This document was begun on 1E June 11EE, the vigil
+% of the Nativity of St. John the Baptist, and it is humbly
+% dedicated to him and to the Immaculate Heart of Mary, for
+% their prayers, and to the Sacred Heart of Jesus, for His
+% mercy.
+%
+% This document is copyright 2015 by Donald P. Goodman, and is
+% released publicly under the LaTeX Project Public License. The
+% distribution and modification of this work is constrained by the
+% conditions of that license. See
+% http://www.latex-project.org/lppl.txt
+% for the text of the license. This document is released
+% under version 1.3 of that license, and this work may be distributed
+% or modified under the terms of that license or, at your option, any
+% later version.
+%
+% This work has the LPPL maintenance status 'maintained'.
+%
+% The Current Maintainer of this work is Donald P. Goodman
+% (dgoodmaniii@gmail.com).
+%
+% This work consists of the files shapes.dtx and
+% shapes.ins, along with the generated file shapes.mp
+% and shapes.pdf, and the README.
+
+\def\batchfile{shapes.ins}
+\input docstrip.tex
+
+\preamble
+This is a generated file.
+
+This document is copyright 2015 by Donald P. Goodman, and is
+released publicly under the LaTeX Project Public License. The
+distribution and modification of this work is constrained by the
+conditions of that license. See
+ http://www.latex-project.org/lppl.txt
+for the text of the license. This document is released
+under version 1.3 of that license, and this work may be distributed
+or modified under the terms of that license or, at your option, any
+later version.
+
+This work has the LPPL maintenance status 'maintained'.
+
+The Current Maintainer of this work is Donald P. Goodman
+(dgoodmaniii@gmail.com).
+
+This work consists of the files shapes.dtx and
+shapes.ins, along with the generated file shapes.mp
+and shapes.pdf, and the README.
+\endpreamble
+
+\keepsilent
+\generate{\file{shapes.mp}{\from{shapes.dtx}{package}}}
+
+\Msg{******************************************************}
+\Msg{*}
+\Msg{* To finish the installation you have to move the}
+\Msg{* following file into a directory searched by Metapost:}
+\Msg{*}
+\Msg{* \space\space shapes.mp}
+\Msg{*}
+\Msg{* To produce the documentation run the file shapes.dtx}
+\Msg{* through LaTeX.}
+\Msg{*}
+\Msg{* Happy Metaposting!}
+\Msg{******************************************************}
+
+\endbatchfile
+\endinput