diff options
| -rw-r--r-- | Master/texmf-dist/doc/metapost/roundrect/README | 28 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/metapost/roundrect/lppl.txt | 416 | ||||
| -rw-r--r-- | Master/texmf-dist/doc/metapost/roundrect/roundrect.pdf | bin | 0 -> 193250 bytes | |||
| -rw-r--r-- | Master/texmf-dist/metapost/roundrect/roundrect.mp | 192 | ||||
| -rw-r--r-- | Master/texmf-dist/source/metapost/roundrect/roundrect.dtx | 591 | ||||
| -rw-r--r-- | Master/texmf-dist/source/metapost/roundrect/roundrect.ins | 69 | ||||
| -rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 2 | ||||
| -rw-r--r-- | Master/tlpkg/tlpsrc/collection-metapost.tlpsrc | 1 | ||||
| -rw-r--r-- | Master/tlpkg/tlpsrc/roundrect.tlpsrc | 0 |
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 Binary files differnew file mode 100644 index 00000000000..f0e1bc1455b --- /dev/null +++ b/Master/texmf-dist/doc/metapost/roundrect/roundrect.pdf 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 |