summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-07-29 20:44:49 +0000
committerKarl Berry <karl@freefriends.org>2015-07-29 20:44:49 +0000
commit476e23fc645b7f0eb1ffcaae59622b9f62bf198b (patch)
treef61dc390a811accf13cdadebde8d84fcfb089c44 /Master
parent9a477aa1877f9f798c26d3bee9d239db61fc7838 (diff)
roundrect (29jul15)
git-svn-id: svn://tug.org/texlive/trunk@37994 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/texmf-dist/doc/metapost/roundrect/README28
-rw-r--r--Master/texmf-dist/doc/metapost/roundrect/lppl.txt416
-rw-r--r--Master/texmf-dist/doc/metapost/roundrect/roundrect.pdfbin0 -> 193250 bytes
-rw-r--r--Master/texmf-dist/metapost/roundrect/roundrect.mp192
-rw-r--r--Master/texmf-dist/source/metapost/roundrect/roundrect.dtx591
-rw-r--r--Master/texmf-dist/source/metapost/roundrect/roundrect.ins69
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check2
-rw-r--r--Master/tlpkg/tlpsrc/collection-metapost.tlpsrc1
-rw-r--r--Master/tlpkg/tlpsrc/roundrect.tlpsrc0
9 files changed, 1298 insertions, 1 deletions
diff --git a/Master/texmf-dist/doc/metapost/roundrect/README b/Master/texmf-dist/doc/metapost/roundrect/README
new file mode 100644
index 00000000000..65e0a60e919
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/roundrect/README
@@ -0,0 +1,28 @@
++AMDG
+
+This document is copyright 11EE (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 roundrect.dtx and roundrect.ins,
+along with the generated files roundrect.mp and roundrect.pdf,
+along with this README.
+
+The roundrect macros for Metapost provide ways to produce
+rounded rectangles, which may or may not contain a title bar
+or text (the title bar may itself contain text). They are
+extremely configurable.
+
+v1.0, released on 29 July 2015: initial release. All basic
+functionality implemented.
diff --git a/Master/texmf-dist/doc/metapost/roundrect/lppl.txt b/Master/texmf-dist/doc/metapost/roundrect/lppl.txt
new file mode 100644
index 00000000000..22443139013
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/roundrect/lppl.txt
@@ -0,0 +1,416 @@
+The LaTeX Project Public License
+=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
+
+LPPL Version 1.3c 2008-05-04
+
+Copyright 1999 2002-2008 LaTeX3 Project
+ Everyone is allowed to distribute verbatim copies of this
+ license document, but modification of it is not allowed.
+
+
+PREAMBLE
+========
+
+The LaTeX Project Public License (LPPL) is the primary license under
+which the LaTeX kernel and the base LaTeX packages are distributed.
+
+You may use this license for any work of which you hold the copyright
+and which you wish to distribute. This license may be particularly
+suitable if your work is TeX-related (such as a LaTeX package), but
+it is written in such a way that you can use it even if your work is
+unrelated to TeX.
+
+The section `WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE',
+below, gives instructions, examples, and recommendations for authors
+who are considering distributing their works under this license.
+
+This license gives conditions under which a work may be distributed
+and modified, as well as conditions under which modified versions of
+that work may be distributed.
+
+We, the LaTeX3 Project, believe that the conditions below give you
+the freedom to make and distribute modified versions of your work
+that conform with whatever technical specifications you wish while
+maintaining the availability, integrity, and reliability of
+that work. If you do not see how to achieve your goal while
+meeting these conditions, then read the document `cfgguide.tex'
+and `modguide.tex' in the base LaTeX distribution for suggestions.
+
+
+DEFINITIONS
+===========
+
+In this license document the following terms are used:
+
+ `Work'
+ Any work being distributed under this License.
+
+ `Derived Work'
+ Any work that under any applicable law is derived from the Work.
+
+ `Modification'
+ Any procedure that produces a Derived Work under any applicable
+ law -- for example, the production of a file containing an
+ original file associated with the Work or a significant portion of
+ such a file, either verbatim or with modifications and/or
+ translated into another language.
+
+ `Modify'
+ To apply any procedure that produces a Derived Work under any
+ applicable law.
+
+ `Distribution'
+ Making copies of the Work available from one person to another, in
+ whole or in part. Distribution includes (but is not limited to)
+ making any electronic components of the Work accessible by
+ file transfer protocols such as FTP or HTTP or by shared file
+ systems such as Sun's Network File System (NFS).
+
+ `Compiled Work'
+ A version of the Work that has been processed into a form where it
+ is directly usable on a computer system. This processing may
+ include using installation facilities provided by the Work,
+ transformations of the Work, copying of components of the Work, or
+ other activities. Note that modification of any installation
+ facilities provided by the Work constitutes modification of the Work.
+
+ `Current Maintainer'
+ A person or persons nominated as such within the Work. If there is
+ no such explicit nomination then it is the `Copyright Holder' under
+ any applicable law.
+
+ `Base Interpreter'
+ A program or process that is normally needed for running or
+ interpreting a part or the whole of the Work.
+
+ A Base Interpreter may depend on external components but these
+ are not considered part of the Base Interpreter provided that each
+ external component clearly identifies itself whenever it is used
+ interactively. Unless explicitly specified when applying the
+ license to the Work, the only applicable Base Interpreter is a
+ `LaTeX-Format' or in the case of files belonging to the
+ `LaTeX-format' a program implementing the `TeX language'.
+
+
+
+CONDITIONS ON DISTRIBUTION AND MODIFICATION
+===========================================
+
+1. Activities other than distribution and/or modification of the Work
+are not covered by this license; they are outside its scope. In
+particular, the act of running the Work is not restricted and no
+requirements are made concerning any offers of support for the Work.
+
+2. You may distribute a complete, unmodified copy of the Work as you
+received it. Distribution of only part of the Work is considered
+modification of the Work, and no right to distribute such a Derived
+Work may be assumed under the terms of this clause.
+
+3. You may distribute a Compiled Work that has been generated from a
+complete, unmodified copy of the Work as distributed under Clause 2
+above, as long as that Compiled Work is distributed in such a way that
+the recipients may install the Compiled Work on their system exactly
+as it would have been installed if they generated a Compiled Work
+directly from the Work.
+
+4. If you are the Current Maintainer of the Work, you may, without
+restriction, modify the Work, thus creating a Derived Work. You may
+also distribute the Derived Work without restriction, including
+Compiled Works generated from the Derived Work. Derived Works
+distributed in this manner by the Current Maintainer are considered to
+be updated versions of the Work.
+
+5. If you are not the Current Maintainer of the Work, you may modify
+your copy of the Work, thus creating a Derived Work based on the Work,
+and compile this Derived Work, thus creating a Compiled Work based on
+the Derived Work.
+
+6. If you are not the Current Maintainer of the Work, you may
+distribute a Derived Work provided the following conditions are met
+for every component of the Work unless that component clearly states
+in the copyright notice that it is exempt from that condition. Only
+the Current Maintainer is allowed to add such statements of exemption
+to a component of the Work.
+
+ a. If a component of this Derived Work can be a direct replacement
+ for a component of the Work when that component is used with the
+ Base Interpreter, then, wherever this component of the Work
+ identifies itself to the user when used interactively with that
+ Base Interpreter, the replacement component of this Derived Work
+ clearly and unambiguously identifies itself as a modified version
+ of this component to the user when used interactively with that
+ Base Interpreter.
+
+ b. Every component of the Derived Work contains prominent notices
+ detailing the nature of the changes to that component, or a
+ prominent reference to another file that is distributed as part
+ of the Derived Work and that contains a complete and accurate log
+ of the changes.
+
+ c. No information in the Derived Work implies that any persons,
+ including (but not limited to) the authors of the original version
+ of the Work, provide any support, including (but not limited to)
+ the reporting and handling of errors, to recipients of the
+ Derived Work unless those persons have stated explicitly that
+ they do provide such support for the Derived Work.
+
+ d. You distribute at least one of the following with the Derived Work:
+
+ 1. A complete, unmodified copy of the Work;
+ if your distribution of a modified component is made by
+ offering access to copy the modified component from a
+ designated place, then offering equivalent access to copy
+ the Work from the same or some similar place meets this
+ condition, even though third parties are not compelled to
+ copy the Work along with the modified component;
+
+ 2. Information that is sufficient to obtain a complete,
+ unmodified copy of the Work.
+
+7. If you are not the Current Maintainer of the Work, you may
+distribute a Compiled Work generated from a Derived Work, as long as
+the Derived Work is distributed to all recipients of the Compiled
+Work, and as long as the conditions of Clause 6, above, are met with
+regard to the Derived Work.
+
+8. The conditions above are not intended to prohibit, and hence do not
+apply to, the modification, by any method, of any component so that it
+becomes identical to an updated version of that component of the Work as
+it is distributed by the Current Maintainer under Clause 4, above.
+
+9. Distribution of the Work or any Derived Work in an alternative
+format, where the Work or that Derived Work (in whole or in part) is
+then produced by applying some process to that format, does not relax or
+nullify any sections of this license as they pertain to the results of
+applying that process.
+
+10. a. A Derived Work may be distributed under a different license
+ provided that license itself honors the conditions listed in
+ Clause 6 above, in regard to the Work, though it does not have
+ to honor the rest of the conditions in this license.
+
+ b. If a Derived Work is distributed under a different license, that
+ Derived Work must provide sufficient documentation as part of
+ itself to allow each recipient of that Derived Work to honor the
+ restrictions in Clause 6 above, concerning changes from the Work.
+
+11. This license places no restrictions on works that are unrelated to
+the Work, nor does this license place any restrictions on aggregating
+such works with the Work by any means.
+
+12. Nothing in this license is intended to, or may be used to, prevent
+complete compliance by all parties with all applicable laws.
+
+
+NO WARRANTY
+===========
+
+There is no warranty for the Work. Except when otherwise stated in
+writing, the Copyright Holder provides the Work `as is', without
+warranty of any kind, either expressed or implied, including, but not
+limited to, the implied warranties of merchantability and fitness for a
+particular purpose. The entire risk as to the quality and performance
+of the Work is with you. Should the Work prove defective, you assume
+the cost of all necessary servicing, repair, or correction.
+
+In no event unless required by applicable law or agreed to in writing
+will The Copyright Holder, or any author named in the components of the
+Work, or any other party who may distribute and/or modify the Work as
+permitted above, be liable to you for damages, including any general,
+special, incidental or consequential damages arising out of any use of
+the Work or out of inability to use the Work (including, but not limited
+to, loss of data, data being rendered inaccurate, or losses sustained by
+anyone as a result of any failure of the Work to operate with any other
+programs), even if the Copyright Holder or said author or said other
+party has been advised of the possibility of such damages.
+
+
+MAINTENANCE OF THE WORK
+=======================
+
+The Work has the status `author-maintained' if the Copyright Holder
+explicitly and prominently states near the primary copyright notice in
+the Work that the Work can only be maintained by the Copyright Holder
+or simply that it is `author-maintained'.
+
+The Work has the status `maintained' if there is a Current Maintainer
+who has indicated in the Work that they are willing to receive error
+reports for the Work (for example, by supplying a valid e-mail
+address). It is not required for the Current Maintainer to acknowledge
+or act upon these error reports.
+
+The Work changes from status `maintained' to `unmaintained' if there
+is no Current Maintainer, or the person stated to be Current
+Maintainer of the work cannot be reached through the indicated means
+of communication for a period of six months, and there are no other
+significant signs of active maintenance.
+
+You can become the Current Maintainer of the Work by agreement with
+any existing Current Maintainer to take over this role.
+
+If the Work is unmaintained, you can become the Current Maintainer of
+the Work through the following steps:
+
+ 1. Make a reasonable attempt to trace the Current Maintainer (and
+ the Copyright Holder, if the two differ) through the means of
+ an Internet or similar search.
+
+ 2. If this search is successful, then enquire whether the Work
+ is still maintained.
+
+ a. If it is being maintained, then ask the Current Maintainer
+ to update their communication data within one month.
+
+ b. If the search is unsuccessful or no action to resume active
+ maintenance is taken by the Current Maintainer, then announce
+ within the pertinent community your intention to take over
+ maintenance. (If the Work is a LaTeX work, this could be
+ done, for example, by posting to comp.text.tex.)
+
+ 3a. If the Current Maintainer is reachable and agrees to pass
+ maintenance of the Work to you, then this takes effect
+ immediately upon announcement.
+
+ b. If the Current Maintainer is not reachable and the Copyright
+ Holder agrees that maintenance of the Work be passed to you,
+ then this takes effect immediately upon announcement.
+
+ 4. If you make an `intention announcement' as described in 2b. above
+ and after three months your intention is challenged neither by
+ the Current Maintainer nor by the Copyright Holder nor by other
+ people, then you may arrange for the Work to be changed so as
+ to name you as the (new) Current Maintainer.
+
+ 5. If the previously unreachable Current Maintainer becomes
+ reachable once more within three months of a change completed
+ under the terms of 3b) or 4), then that Current Maintainer must
+ become or remain the Current Maintainer upon request provided
+ they then update their communication data within one month.
+
+A change in the Current Maintainer does not, of itself, alter the fact
+that the Work is distributed under the LPPL license.
+
+If you become the Current Maintainer of the Work, you should
+immediately provide, within the Work, a prominent and unambiguous
+statement of your status as Current Maintainer. You should also
+announce your new status to the same pertinent community as
+in 2b) above.
+
+
+WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE
+======================================================
+
+This section contains important instructions, examples, and
+recommendations for authors who are considering distributing their
+works under this license. These authors are addressed as `you' in
+this section.
+
+Choosing This License or Another License
+----------------------------------------
+
+If for any part of your work you want or need to use *distribution*
+conditions that differ significantly from those in this license, then
+do not refer to this license anywhere in your work but, instead,
+distribute your work under a different license. You may use the text
+of this license as a model for your own license, but your license
+should not refer to the LPPL or otherwise give the impression that
+your work is distributed under the LPPL.
+
+The document `modguide.tex' in the base LaTeX distribution explains
+the motivation behind the conditions of this license. It explains,
+for example, why distributing LaTeX under the GNU General Public
+License (GPL) was considered inappropriate. Even if your work is
+unrelated to LaTeX, the discussion in `modguide.tex' may still be
+relevant, and authors intending to distribute their works under any
+license are encouraged to read it.
+
+A Recommendation on Modification Without Distribution
+-----------------------------------------------------
+
+It is wise never to modify a component of the Work, even for your own
+personal use, without also meeting the above conditions for
+distributing the modified component. While you might intend that such
+modifications will never be distributed, often this will happen by
+accident -- you may forget that you have modified that component; or
+it may not occur to you when allowing others to access the modified
+version that you are thus distributing it and violating the conditions
+of this license in ways that could have legal implications and, worse,
+cause problems for the community. It is therefore usually in your
+best interest to keep your copy of the Work identical with the public
+one. Many works provide ways to control the behavior of that work
+without altering any of its licensed components.
+
+How to Use This License
+-----------------------
+
+To use this license, place in each of the components of your work both
+an explicit copyright notice including your name and the year the work
+was authored and/or last substantially modified. Include also a
+statement that the distribution and/or modification of that
+component is constrained by the conditions in this license.
+
+Here is an example of such a notice and statement:
+
+ %% pig.dtx
+ %% Copyright 2005 M. Y. Name
+ %
+ % This work may be distributed and/or modified under the
+ % conditions of the LaTeX Project Public License, either version 1.3
+ % of this license or (at your option) any later version.
+ % The latest version of this license is in
+ % http://www.latex-project.org/lppl.txt
+ % and version 1.3 or later is part of all distributions of LaTeX
+ % version 2005/12/01 or later.
+ %
+ % This work has the LPPL maintenance status `maintained'.
+ %
+ % The Current Maintainer of this work is M. Y. Name.
+ %
+ % This work consists of the files pig.dtx and pig.ins
+ % and the derived file pig.sty.
+
+Given such a notice and statement in a file, the conditions
+given in this license document would apply, with the `Work' referring
+to the three files `pig.dtx', `pig.ins', and `pig.sty' (the last being
+generated from `pig.dtx' using `pig.ins'), the `Base Interpreter'
+referring to any `LaTeX-Format', and both `Copyright Holder' and
+`Current Maintainer' referring to the person `M. Y. Name'.
+
+If you do not want the Maintenance section of LPPL to apply to your
+Work, change `maintained' above into `author-maintained'.
+However, we recommend that you use `maintained', as the Maintenance
+section was added in order to ensure that your Work remains useful to
+the community even when you can no longer maintain and support it
+yourself.
+
+Derived Works That Are Not Replacements
+---------------------------------------
+
+Several clauses of the LPPL specify means to provide reliability and
+stability for the user community. They therefore concern themselves
+with the case that a Derived Work is intended to be used as a
+(compatible or incompatible) replacement of the original Work. If
+this is not the case (e.g., if a few lines of code are reused for a
+completely different task), then clauses 6b and 6d shall not apply.
+
+
+Important Recommendations
+-------------------------
+
+ Defining What Constitutes the Work
+
+ The LPPL requires that distributions of the Work contain all the
+ files of the Work. It is therefore important that you provide a
+ way for the licensee to determine which files constitute the Work.
+ This could, for example, be achieved by explicitly listing all the
+ files of the Work near the copyright notice of each file or by
+ using a line such as:
+
+ % This work consists of all files listed in manifest.txt.
+
+ in that place. In the absence of an unequivocal list it might be
+ impossible for the licensee to determine what is considered by you
+ to comprise the Work and, in such a case, the licensee would be
+ entitled to make reasonable conjectures as to which files comprise
+ the Work.
+
diff --git a/Master/texmf-dist/doc/metapost/roundrect/roundrect.pdf b/Master/texmf-dist/doc/metapost/roundrect/roundrect.pdf
new file mode 100644
index 00000000000..f0e1bc1455b
--- /dev/null
+++ b/Master/texmf-dist/doc/metapost/roundrect/roundrect.pdf
Binary files differ
diff --git a/Master/texmf-dist/metapost/roundrect/roundrect.mp b/Master/texmf-dist/metapost/roundrect/roundrect.mp
new file mode 100644
index 00000000000..e14be7511e4
--- /dev/null
+++ b/Master/texmf-dist/metapost/roundrect/roundrect.mp
@@ -0,0 +1,192 @@
+%%
+%% This is file `roundrect.mp',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% roundrect.dtx (with options: `package')
+%% 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 roundrect.dtx and
+%% roundrect.ins, along with the generated file roundrect.mp
+%% and roundrect.pdf, and the README.
+
+
+input TEX;
+color rrinnercolor; rrinnercolor := white;
+color rrbordercolor; rrbordercolor := black;
+numeric rrborderwd; rrborderwd := 2pt;
+numeric rrborderrad; rrborderrad := 40pt;
+string rrtitlefont; rrtitlefont := "\fontsize{14pt}{17pt}\selectfont ";
+string rrtextfont; rrtextfont := "\fontsize{10pt}{12pt}\selectfont ";
+color rrtitlecolor; rrtitlecolor := black;
+color rrtextcolor; rrtextcolor := black;
+color rrtitlebgcolor; rrtitlebgcolor := white;
+color rrtitlebordercolor; rrtitlebordercolor := black;
+boolean rrtitlebar; rrtitlebar := false;
+string rrtitleside; rrtitleside := "top";
+numeric rrtitleht; rrtitleht := 0pt;
+string rrtitlepos; rrtitlepos := "center";
+boolean rrtitlebotborder; rrtitlebotborder := true;
+color rrtitlebotbordercolor; rrtitlebotbordercolor := black;
+string rrtitletext; rrtitletext := "";
+string rrbodytext; rrbodytext := "";
+string rrbodyalign; rrbodyalign := "justify";
+string rrbodyaligncom; rrbodyaligncom := "";
+def rrrestorevals =
+rrinnercolor := white;
+rrbordercolor := black;
+rrborderwd := 2pt;
+rrborderrad := 40pt;
+rrtitlefont := "\fontsize{14pt}{17pt}\selectfont ";
+rrtextfont := "\fontsize{10pt}{12pt}\selectfont ";
+rrtitlecolor := black;
+rrtextcolor := black;
+rrtitlebgcolor := white;
+rrtitlebordercolor := black;
+rrtitlebar := false;
+rrtitleside := "top";
+rrtitleht := 0pt;
+rrtitlepos := "center";
+rrtitlebotborder := true;
+rrtitlebotbordercolor := black;
+rrtitletext := "";
+rrbodytext := "";
+rrbodyalign := "justify";
+rrbodyaligncom := "";
+enddef;
+def roundrect(expr rrht, rrwd)(suffix name) =
+TEXPRE("%&latex" & char(10) & "\documentclass{article}\begin{document}");
+TEXPOST("\end{document}");
+if (rrtitleht = 0pt):
+rrtitleht := rrht/6;
+fi
+path rra; path rrb; path rrc; path rrd;
+pair a; pair b; pair c; pair d;
+a := (0,0) shifted (-rrwd/2,-rrht/2);
+b := (0,0) shifted (rrwd/2,-rrht/2);
+c := (0,0) shifted (rrwd/2,rrht/2);
+d := (0,0) shifted (-rrwd/2,rrht/2);
+rra := fullcircle scaled rrborderrad shifted (xpart a +
+(rrborderrad/2),ypart a + (rrborderrad/2));
+rrb := fullcircle scaled rrborderrad shifted (xpart b -
+(rrborderrad/2),ypart b + (rrborderrad/2));
+rrd := fullcircle scaled rrborderrad shifted (xpart d +
+(rrborderrad/2),ypart d - (rrborderrad/2));
+rrc := fullcircle scaled rrborderrad shifted (xpart c -
+(rrborderrad/2),ypart c - (rrborderrad/2));
+pair f; f := (a--b) intersectionpoint rra;
+pair g; g := (a--b) intersectionpoint rrb;
+pair h; h := (b--c) intersectionpoint rrb;
+pair i; i := (b--c) intersectionpoint rrc;
+pair j; j := (c--d) intersectionpoint rrc;
+pair k; k := (c--d) intersectionpoint rrd;
+pair l; l := (d--a) intersectionpoint rrd;
+pair m; m := (d--a) intersectionpoint rra;
+picture name;
+picture border;
+pair n; pair o; path rrtitlepath; path rrfinalline;
+name := image(fill f--g{right}..{up}h--i{up}..{left}j--
+k{left}..{down}l--m{down}..{right}f--cycle
+withcolor rrinnercolor);
+border := image(pickup pencircle scaled rrborderwd;
+draw f--g{right}..{up}h--i{up}..{left}j--
+k{left}..{down}l--m{down}..{right}f--cycle
+withcolor rrbordercolor);
+addto name also border;
+pair rrtitlestation;
+picture rrtitlelabel;
+if (rrtitlebar):
+if (rrtitleside = "top"):
+n := (xpart m,ypart k - (rrtitleht));
+o := (xpart i,ypart k - (rrtitleht));
+defaultscale := 4;
+if (ypart n > ypart l):
+n := (xpart n,ypart l);
+o := (xpart o,ypart l);
+fi
+rrtitlepath := o--i{up}..{left}j--k{left}..{down}l--n;
+if (rrtitlepos = "center"):
+rrtitlestation := 0.5[n,o] shifted (0,rrtitleht/2);
+elseif (rrtitlepos = "left"):
+rrtitlestation := n shifted (rrborderrad/4,rrtitleht/2);
+elseif (rrtitlepos = "right"):
+rrtitlestation := o shifted (-rrborderrad/4,rrtitleht/2);
+fi
+elseif (rrtitleside = "bot"):
+n := (xpart m,ypart f + (rrtitleht));
+o := (xpart i,ypart f + (rrtitleht));
+if (ypart n < ypart m):
+n := (xpart n,ypart m);
+o := (xpart o,ypart m);
+fi
+rrtitlepath := o--h{down}..{left}g--f{left}..{up}m--n;
+if (rrtitlepos = "center"):
+rrtitlestation := 0.5[n,o] shifted (0,-rrtitleht/2);
+elseif (rrtitlepos = "left"):
+rrtitlestation := n shifted (rrborderrad/4,-rrtitleht/2);
+elseif (rrtitlepos = "right"):
+rrtitlestation := o shifted (-rrborderrad/4,-rrtitleht/2);
+fi
+fi
+rrfinalline = n--o;
+picture rrtitlepic;
+picture rrtitlepicb;
+picture rrtitlebotborderpic;
+rrtitlebotborderpic := image (draw rrfinalline
+withcolor rrtitlebotbordercolor);
+rrtitlepicb := image(draw rrtitlepath withcolor rrtitlebordercolor);
+if (rrtitlebotborder = true):
+addto rrtitlepicb also rrtitlebotborderpic;
+fi
+rrtitlepath := buildcycle(rrtitlepath,rrfinalline);
+rrtitlepic := image(fill rrtitlepath withcolor rrtitlebgcolor);
+if (rrtitlepos = "center"):
+rrtitlelabel := image(label(TEX(rrtitlefont&" "&rrtitletext),
+rrtitlestation) withcolor rrtitlecolor);
+elseif (rrtitlepos = "left"):
+rrtitlelabel := image(label.rt(TEX(rrtitlefont&" "&rrtitletext),
+rrtitlestation) withcolor rrtitlecolor);
+elseif (rrtitlepos = "right"):
+rrtitlelabel := image(label.lft(TEX(rrtitlefont&" "&rrtitletext),
+rrtitlestation) withcolor rrtitlecolor);
+fi
+if (rrbodyalign = "center"):
+rrbodyaligncom := "\centering ";
+elseif (rrbodyalign = "left"):
+rrbodyaligncom := "\flushleft\vskip-\baselineskip ";
+elseif (rrbodyalign = "right"):
+rrbodyaligncom := "\flushright\vskip-\baselineskip ";
+fi
+picture rrbodytextpic;
+if (rrtitleside = "top"):
+rrbodytextpic :=
+image(label.lrt(TEX("\parbox{"&decimal(rrwd-2rrborderwd-rrborderrad/2)&"bp}{"&rrbodyaligncom&rrtextfont&rrbodytext&"}"),n) withcolor rrtextcolor) shifted (rrborderrad/4,0);
+elseif (rrtitleside = "bot"):
+rrbodytextpic :=
+image(label.urt(TEX("\parbox{"&decimal(rrwd-2rrborderwd-rrborderrad/2)&"bp}{"&rrbodyaligncom&rrtextfont&rrbodytext&"}"),n) withcolor rrtextcolor) shifted (rrborderrad/4,0);
+fi
+addto name also rrtitlepic;
+addto name also rrtitlepicb;
+addto name also rrtitlelabel;
+addto name also rrbodytextpic;
+fi
+enddef;
+\endinput
+%%
+%% End of file `roundrect.mp'.
diff --git a/Master/texmf-dist/source/metapost/roundrect/roundrect.dtx b/Master/texmf-dist/source/metapost/roundrect/roundrect.dtx
new file mode 100644
index 00000000000..4a00a6a33b5
--- /dev/null
+++ b/Master/texmf-dist/source/metapost/roundrect/roundrect.dtx
@@ -0,0 +1,591 @@
+% \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 roundrect.dtx and
+% roundrect.ins, along with the generated file roundrect.mp
+% and roundrect.pdf, and the README.
+% \fi
+
+% \iffalse
+%<*driver>
+
+\documentclass{ltxdoc}
+\usepackage{docmfp}
+\usepackage{url}
+\usepackage[typeone]{dozenal}
+\usepackage{verbatim}
+\usepackage{mflogo}
+\usepackage[everymp={input roundrect;},latex]{gmp}
+\usepackage{makeidx}
+\makeindex
+\long\def\demonstrate#1#2{%
+ \bigskip%
+ \hrule%
+ \hbox to\linewidth{%
+ \hbox to0.5\linewidth{%
+ \vbox to2in{\vfil#1\vfil}%
+ }\hbox to0.5\linewidth{%
+ \vbox to2in{\vfil#2\vfil}%
+ }%
+ }%
+ \hrule%
+ \bigskip%
+}
+
+\begin{document}
+\DocInput{roundrect.dtx}
+\end{document}
+%</driver>
+% \fi
+% \title{The \texttt{roundrect} Macros, v1.0}
+% \author{Donald P.\ Goodman III}
+% \date{\today}
+%
+% \maketitle
+% \begin{abstract}\noindent
+% The |roundrect| macros for \MP\ provide extremely
+% configurable, extremely versatile rectangles (including
+% rounded corners), intended primarily for inclusion in
+% documents produced by \TeX\ and friends. The idea was to
+% provide a \MP-based replacement for the incredibly
+% versatile |tcolorbox| package; the macros are far from
+% achieving that goal. But they are nevertheless extremely
+% useful.
+% \end{abstract}
+%
+% \tableofcontents
+%
+% \section{Introduction}
+%
+% While Ti\textit{k}Z and its many accompanying packages,
+% particularly |tcolorbox|, are wonderful and powerful
+% tools, whenever using them I inevitably feel completely
+% lost, and I exert great effort doing comparatively simple
+% things. Contrariwise, thanks to my experience with the
+% |drm| and |dozenal| packages, writing in \MP\ is quite
+% straightforward for me. So I decided to try to write some
+% generalized macros to provide functionality similar to
+% that of |tcolorbox|. It's not even close to that kind of
+% flexibility or power, but it's still quite useful and
+% versatile, so I make it available for anyone who might be
+% interested.
+%
+% 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. Finally, the
+% package internally calls |TEX.mp|, so that is also
+% required. All of 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{Basic Usage}
+%
+% The core of all the action is the |roundrect| macro; this
+% will set up your rounded rectangle in the plainest
+% way possible. The first argument is the box's height, the
+% second its width, and the third its name, by which you
+% will draw it later:
+%
+% \demonstrate{%
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% We have some options with this. If you want a title bar
+% in your box, say
+% \DescribeMacro{rrtitlebar}|rrtitlebar := true;|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% By default, |roundrect| displays a lower border for the
+% title bar; if you don't like this, say
+% \DescribeMacro{rrtitlebotborder}
+% |rrtitlebotborder := false;|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrtitlebotborder := false;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebotborder := false;
+% rrtitlebar := true;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% The command is called |rrtitlebotborder| because it's
+% usually on the bottom of the title bar; however, it
+% retains this name even when the title bar is elsewhere.
+%
+% Although it's impossible to tell whether this box still
+% has a title bar, we can verify it (if we don't believe it)
+% by changing the background color with
+% \DescribeMacro{rrtitlebgcolor}|rrtitlebgcolor|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrtitlebotborder := false;|}
+% \hbox{|rrtitlebgcolor := green;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebotborder := false;
+% rrtitlebar := true;
+% rrtitlebgcolor := green;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% And while we're at it, we may as well color the background
+% of the main part of the box with
+% \DescribeMacro{rrinnercolor}|rrinnercolor|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrtitlebotborder := false;|}
+% \hbox{|rrinnercolor := blue;|}
+% \hbox{|rrtitlebgcolor := green;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrtitlebotborder := false;
+% rrinnercolor := blue;
+% rrtitlebgcolor := green;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% We can also change the colors of the border around the box
+% (\DescribeMacro{rrbordercolor}|rrbordercolor|), the colors
+% of the title bar's border
+% (\DescribeMacro{rrtitlebordercolor}|rrtitlebordercolor|),
+% and the line between the title bar and the body, if any
+% (\DescribeMacro{rrtitlebotbordercolor}|rrtitlebotbordercolor|):
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrtitlebotborder := false;|}
+% \hbox{|rrinnercolor := blue;|}
+% \hbox{|rrbordercolor := (0,1,1);|}
+% \hbox{|rrtitlebordercolor := (1,1,0);|}
+% \hbox{|rrtitlebotbordercolor := red;|}
+% \hbox{|rrtitlebotbordercolor := red;|}
+% \hbox{|rrtitlebgcolor := green;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrtitlebotborder := true;
+% rrinnercolor := blue;
+% rrbordercolor := (0,1,1);
+% rrtitlebordercolor := (1,1,0);
+% rrtitlebotbordercolor := red;
+% rrtitlebgcolor := green;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% If there is no title bar, then |rrinnercolor| and
+% |rrbordercolor| will affect the entire box:
+%
+% \demonstrate{%
+% \hbox{|rrinnercolor := red;|}
+% \hbox{|rrbordercolor := blue;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrinnercolor := red;
+% rrbordercolor := blue;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% We can put text in the title bar with
+% \DescribeMacro{rrtitletext}|rrtitletext| (which is colored
+% by \DescribeMacro{rrtitlecolor}|rrtitlecolor|) and
+% \DescribeMacro{rrbodytext}|rrbodytext| (which is colored
+% by \DescribeMacro{rrtextcolor}|rrbodytextcolor|):
+%
+% \demonstrate{%
+% \hbox{|rrinnercolor := red;|}
+% \hbox{|rrtitlebgcolor := blue;|}
+% \hbox{|rrtitlecolor := black;|}
+% \hbox{|rrtextcolor := white;|}
+% \hbox{|rrbodytext := "Checking to see what happens when lines wrap";|}
+% \hbox{|rrtitletext := "TITLE";|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrinnercolor := red;
+% rrtitlebgcolor := blue;
+% rrtitlecolor := black;
+% rrtextcolor := white;
+% rrbodytext := "Checking to see what happens when lines wrap";
+% rrtitletext := "TITLE";
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% We see we should raise the title text; the default value
+% is $\frac{1}{6}$ of the box's height, which is too large
+% for this small box. So we adjust it with
+% \DescribeMacro{rrtitleht}|rrtitleht|; this is expressed as
+% a distance up from the bottom border of the title bar:
+%
+% \demonstrate{%
+% \hbox{|rrinnercolor := red;|}
+% \hbox{|rrtitlebgcolor := blue;|}
+% \hbox{|rrtitlecolor := black;|}
+% \hbox{|rrtextcolor := white;|}
+% \hbox{|rrbodytext := "Checking to see what happens when lines wrap";|}
+% \hbox{|rrtitletext := "TITLE";|}
+% \hbox{|rrtitleht := 0.3in;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrinnercolor := red;
+% rrtitlebgcolor := blue;
+% rrtitlecolor := black;
+% rrtextcolor := white;
+% rrbodytext := "Checking to see what happens when lines wrap";
+% rrtitletext := "TITLE";
+% rrtitleht := 0.3in;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% Plainly, this is terrible style; but the principles are
+% accurately shown here.
+%
+% We can easily change the font separately for both title
+% and body with \DescribeMacro{rrtitlefont}|rrtitlefont| and
+% \DescribeMacro{rrtextfont}, with the usual font-changing
+% commands that we would use in our text. We've also been
+% using rectangles with extremely rounded borders; this
+% reflects the default ``border radius'' of |roundrect|,
+% which is |40pt|. We can change how rounded our corners
+% are with \DescribeMacro{rrborderrad}|rrborderrad|, and how
+% wide our border is with
+% \DescribeMacro{rrborderwd}|rrborderwd|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrborderrad := 20pt;|}
+% \hbox{|rrborderwd := 5pt;|}
+% \hbox{|rrbodytext := "Checking to see what happens when lines wrap";|}
+% \hbox{|rrtitletext := "TITLE";|}
+% \hbox{|rrtitlefont := "$\backslash$fontsize\{14pt\}\{17pt\}$\backslash$selectfont$\backslash$ bfseries$\backslash$ sffamily";|}
+% \hbox{|rrtextfont := "$\backslash$fontsize\{14pt\}\{17pt\}$\backslash$selectfont$\backslash$itshape";|}
+% \hbox{|rrtitleht := 0.3in;|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrborderrad := 20pt;
+% rrborderwd := 5pt;
+% rrbodytext := "Checking to see what happens when lines wrap";
+% rrtitletext := "TITLE";
+% rrtitlefont := "\unexpanded{\fontsize{14pt}{17pt}\selectfont\bfseries\sffamily} ";
+% rrtextfont := "\unexpanded{\fontsize{14pt}{17pt}\selectfont\itshape} ";
+% rrtitleht := 0.3in;
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }%
+%
+% Be sure, if you are calling \MP\ from \LaTeX\ via |gmp| or
+% some similar package, that you wrap any \LaTeX\ commands
+% in an |\unexpanded| environment; otherwise \LaTeX\ will
+% expand them in a way that \MP\ won't be able to process.
+%
+% We can even tell |roundrect| that we want our title bar on
+% the bottom, with \DescribeMacro{rrtitleside}|rrtitleside|,
+% or aligned right or left rather than centered, with
+% \DescribeMacro{rrtitlepos}|rrtitlepos|:
+%
+% \demonstrate{%
+% \hbox{|rrtitlebar := true;|}
+% \hbox{|rrbodytext := "Checking to see what happens when lines wrap a lot; will it overlap the title bar or not";|}
+% \hbox{|rrtitletext := "TITLE";|}
+% \hbox{|rrtitletext := "TITLE";|}
+% \hbox{|rrtitleht := 0.3in;|}
+% \hbox{|rrtitleside := "bot";|}
+% \hbox{|rrtitlepos := "right";|}
+% \hbox{|roundrect(1in,2in)(rectangle);|}
+% \hbox{|draw rectangle;|}
+% }{%
+% \begin{mpost}
+% rrtitlebar := true;
+% rrbodytext := "Checking to see what happens when lines wrap a lot; will it overlap the title bar or not";
+% rrtitletext := "TITLE";
+% rrtitleht := 0.3in;
+% rrtitleside := "bot";
+% rrtitlepos := "right";
+% roundrect(1in,2in)(rectangle);
+% draw rectangle;
+% \end{mpost}
+% }
+%
+% At present, the only options for |rrtitleside| are ``top''
+% and ``bot''; ``right'' and ``left'' should be added soon,
+% once the code is refactored to make it easier. The
+% options for |rrtitlepos| are, predictably, ``left'',
+% ``right'', and ``center''.
+%
+% To restore all these values to the defaults, simply issue
+% the directive
+% \DescribeMacro{rrrestorevals}|rrrestorevals;|; this macro
+% does nothing but replace the default values in all these
+% parameters.
+%
+% And those are the |roundrect| macros; I hope they are useful
+% for someone. Happy \MP ing!
+%
+% \section{Further Work Needed}
+%
+% This really boils down to just one thing: code
+% refactoring. There's too much duplication here; that's
+% what made it hard to add in different values for
+% |rrtitleside|, where it should have been quite easy. At
+% the moment, I don't really have time, so I just put this
+% together as it was and sent it out; but once I move some
+% other projects off my plate, this will get done. But for
+% those who look at the code here and are disgusted by the
+% unnecessary duplication: I know, and I want to fix it.
+
+% \section{Implementation}
+%
+% \begin{macrocode}
+input TEX;
+color rrinnercolor; rrinnercolor := white;
+color rrbordercolor; rrbordercolor := black;
+numeric rrborderwd; rrborderwd := 2pt;
+numeric rrborderrad; rrborderrad := 40pt;
+string rrtitlefont; rrtitlefont := "\fontsize{14pt}{17pt}\selectfont ";
+string rrtextfont; rrtextfont := "\fontsize{10pt}{12pt}\selectfont ";
+color rrtitlecolor; rrtitlecolor := black;
+color rrtextcolor; rrtextcolor := black;
+color rrtitlebgcolor; rrtitlebgcolor := white;
+color rrtitlebordercolor; rrtitlebordercolor := black;
+boolean rrtitlebar; rrtitlebar := false;
+string rrtitleside; rrtitleside := "top";
+numeric rrtitleht; rrtitleht := 0pt;
+string rrtitlepos; rrtitlepos := "center";
+boolean rrtitlebotborder; rrtitlebotborder := true;
+color rrtitlebotbordercolor; rrtitlebotbordercolor := black;
+string rrtitletext; rrtitletext := "";
+string rrbodytext; rrbodytext := "";
+string rrbodyalign; rrbodyalign := "justify";
+string rrbodyaligncom; rrbodyaligncom := "";
+def rrrestorevals =
+ rrinnercolor := white;
+ rrbordercolor := black;
+ rrborderwd := 2pt;
+ rrborderrad := 40pt;
+ rrtitlefont := "\fontsize{14pt}{17pt}\selectfont ";
+ rrtextfont := "\fontsize{10pt}{12pt}\selectfont ";
+ rrtitlecolor := black;
+ rrtextcolor := black;
+ rrtitlebgcolor := white;
+ rrtitlebordercolor := black;
+ rrtitlebar := false;
+ rrtitleside := "top";
+ rrtitleht := 0pt;
+ rrtitlepos := "center";
+ rrtitlebotborder := true;
+ rrtitlebotbordercolor := black;
+ rrtitletext := "";
+ rrbodytext := "";
+ rrbodyalign := "justify";
+ rrbodyaligncom := "";
+enddef;
+def roundrect(expr rrht, rrwd)(suffix name) =
+ TEXPRE("%&latex" & char(10) & "\documentclass{article}\begin{document}");
+ TEXPOST("\end{document}");
+ if (rrtitleht = 0pt):
+ rrtitleht := rrht/6;
+ fi
+ path rra; path rrb; path rrc; path rrd;
+ pair a; pair b; pair c; pair d;
+ a := (0,0) shifted (-rrwd/2,-rrht/2);
+ b := (0,0) shifted (rrwd/2,-rrht/2);
+ c := (0,0) shifted (rrwd/2,rrht/2);
+ d := (0,0) shifted (-rrwd/2,rrht/2);
+ rra := fullcircle scaled rrborderrad shifted (xpart a +
+ (rrborderrad/2),ypart a + (rrborderrad/2));
+ rrb := fullcircle scaled rrborderrad shifted (xpart b -
+ (rrborderrad/2),ypart b + (rrborderrad/2));
+ rrd := fullcircle scaled rrborderrad shifted (xpart d +
+ (rrborderrad/2),ypart d - (rrborderrad/2));
+ rrc := fullcircle scaled rrborderrad shifted (xpart c -
+ (rrborderrad/2),ypart c - (rrborderrad/2));
+ pair f; f := (a--b) intersectionpoint rra;
+ pair g; g := (a--b) intersectionpoint rrb;
+ pair h; h := (b--c) intersectionpoint rrb;
+ pair i; i := (b--c) intersectionpoint rrc;
+ pair j; j := (c--d) intersectionpoint rrc;
+ pair k; k := (c--d) intersectionpoint rrd;
+ pair l; l := (d--a) intersectionpoint rrd;
+ pair m; m := (d--a) intersectionpoint rra;
+ picture name;
+ picture border;
+ pair n; pair o; path rrtitlepath; path rrfinalline;
+ name := image(fill f--g{right}..{up}h--i{up}..{left}j--
+ k{left}..{down}l--m{down}..{right}f--cycle
+ withcolor rrinnercolor);
+ border := image(pickup pencircle scaled rrborderwd;
+ draw f--g{right}..{up}h--i{up}..{left}j--
+ k{left}..{down}l--m{down}..{right}f--cycle
+ withcolor rrbordercolor);
+ addto name also border;
+ pair rrtitlestation;
+ picture rrtitlelabel;
+ if (rrtitlebar):
+ if (rrtitleside = "top"):
+ n := (xpart m,ypart k - (rrtitleht));
+ o := (xpart i,ypart k - (rrtitleht));
+ defaultscale := 4;
+ if (ypart n > ypart l):
+ n := (xpart n,ypart l);
+ o := (xpart o,ypart l);
+ fi
+ rrtitlepath := o--i{up}..{left}j--k{left}..{down}l--n;
+ if (rrtitlepos = "center"):
+ rrtitlestation := 0.5[n,o] shifted (0,rrtitleht/2);
+ elseif (rrtitlepos = "left"):
+ rrtitlestation := n shifted (rrborderrad/4,rrtitleht/2);
+ elseif (rrtitlepos = "right"):
+ rrtitlestation := o shifted (-rrborderrad/4,rrtitleht/2);
+ fi
+ elseif (rrtitleside = "bot"):
+ n := (xpart m,ypart f + (rrtitleht));
+ o := (xpart i,ypart f + (rrtitleht));
+ if (ypart n < ypart m):
+ n := (xpart n,ypart m);
+ o := (xpart o,ypart m);
+ fi
+ rrtitlepath := o--h{down}..{left}g--f{left}..{up}m--n;
+ if (rrtitlepos = "center"):
+ rrtitlestation := 0.5[n,o] shifted (0,-rrtitleht/2);
+ elseif (rrtitlepos = "left"):
+ rrtitlestation := n shifted (rrborderrad/4,-rrtitleht/2);
+ elseif (rrtitlepos = "right"):
+ rrtitlestation := o shifted (-rrborderrad/4,-rrtitleht/2);
+ fi
+ fi
+ rrfinalline = n--o;
+ picture rrtitlepic;
+ picture rrtitlepicb;
+ picture rrtitlebotborderpic;
+ rrtitlebotborderpic := image (draw rrfinalline
+ withcolor rrtitlebotbordercolor);
+ rrtitlepicb := image(draw rrtitlepath withcolor rrtitlebordercolor);
+ if (rrtitlebotborder = true):
+ addto rrtitlepicb also rrtitlebotborderpic;
+ fi
+ rrtitlepath := buildcycle(rrtitlepath,rrfinalline);
+ rrtitlepic := image(fill rrtitlepath withcolor rrtitlebgcolor);
+ if (rrtitlepos = "center"):
+ rrtitlelabel := image(label(TEX(rrtitlefont&" "&rrtitletext),
+ rrtitlestation) withcolor rrtitlecolor);
+ elseif (rrtitlepos = "left"):
+ rrtitlelabel := image(label.rt(TEX(rrtitlefont&" "&rrtitletext),
+ rrtitlestation) withcolor rrtitlecolor);
+ elseif (rrtitlepos = "right"):
+ rrtitlelabel := image(label.lft(TEX(rrtitlefont&" "&rrtitletext),
+ rrtitlestation) withcolor rrtitlecolor);
+ fi
+ if (rrbodyalign = "center"):
+ rrbodyaligncom := "\centering ";
+ elseif (rrbodyalign = "left"):
+ rrbodyaligncom := "\flushleft\vskip-\baselineskip ";
+ elseif (rrbodyalign = "right"):
+ rrbodyaligncom := "\flushright\vskip-\baselineskip ";
+ fi
+ picture rrbodytextpic;
+ if (rrtitleside = "top"):
+ rrbodytextpic :=
+ image(label.lrt(TEX("\parbox{"&decimal(rrwd-2rrborderwd-rrborderrad/2)&"bp}{"&rrbodyaligncom&rrtextfont&rrbodytext&"}"),n) withcolor rrtextcolor) shifted (rrborderrad/4,0);
+ elseif (rrtitleside = "bot"):
+ rrbodytextpic :=
+ image(label.urt(TEX("\parbox{"&decimal(rrwd-2rrborderwd-rrborderrad/2)&"bp}{"&rrbodyaligncom&rrtextfont&rrbodytext&"}"),n) withcolor rrtextcolor) shifted (rrborderrad/4,0);
+ fi
+ addto name also rrtitlepic;
+ addto name also rrtitlepicb;
+ addto name also rrtitlelabel;
+ addto name also rrbodytextpic;
+ fi
+enddef;
+% \end{macrocode}
diff --git a/Master/texmf-dist/source/metapost/roundrect/roundrect.ins b/Master/texmf-dist/source/metapost/roundrect/roundrect.ins
new file mode 100644
index 00000000000..df936f03838
--- /dev/null
+++ b/Master/texmf-dist/source/metapost/roundrect/roundrect.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 roundrect.dtx and
+% roundrect.ins, along with the generated file roundrect.mp
+% and roundrect.pdf, and the README.
+
+\def\batchfile{roundrect.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 roundrect.dtx and
+roundrect.ins, along with the generated file roundrect.mp
+and roundrect.pdf, and the README.
+\endpreamble
+
+\keepsilent
+\generate{\file{roundrect.mp}{\from{roundrect.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 roundrect.mp}
+\Msg{*}
+\Msg{* To produce the documentation run the file roundrect.dtx}
+\Msg{* through LaTeX.}
+\Msg{*}
+\Msg{* Happy Metaposting!}
+\Msg{******************************************************}
+
+\endbatchfile
+\endinput
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index d70543c488d..7066d74cc02 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -473,7 +473,7 @@ my @TLP_working = qw(
ribbonproofs rjlparshap rlepsf rmathbr rmpage
roboto robustcommand robustindex
romanbar romanbarpagenumber romande romanneg romannum
- rotating rotfloat rotpages roundbox
+ rotating rotfloat rotpages roundbox roundrect
rrgtrees rsc rsfs rsfso
rterface rtkinenc rtklage rubik ruhyphen rulercompass russ
rviewport rvwrite ryethesis
diff --git a/Master/tlpkg/tlpsrc/collection-metapost.tlpsrc b/Master/tlpkg/tlpsrc/collection-metapost.tlpsrc
index 02e7acc77d2..bee9ca78e18 100644
--- a/Master/tlpkg/tlpsrc/collection-metapost.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-metapost.tlpsrc
@@ -36,6 +36,7 @@ depend mpgraphics
depend piechartmp
depend repere
depend roex
+depend roundrect
depend shapes
depend slideshow
depend splines
diff --git a/Master/tlpkg/tlpsrc/roundrect.tlpsrc b/Master/tlpkg/tlpsrc/roundrect.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/roundrect.tlpsrc