diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /usergrps/uktug/baskervi/5_5 |
Initial commit
Diffstat (limited to 'usergrps/uktug/baskervi/5_5')
51 files changed, 12786 insertions, 0 deletions
diff --git a/usergrps/uktug/baskervi/5_5/TS1cmr.fd b/usergrps/uktug/baskervi/5_5/TS1cmr.fd new file mode 100644 index 0000000000..af60f55b94 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/TS1cmr.fd @@ -0,0 +1,22 @@ +% TS1cmr.fd +\ProvidesFile{TS1cmr.fd}% Argh! Mixed case file name + [1995/09/09 Customised version for dc-fonts release 1.2 (JK)] +% +\providecommand{\ec@family}[5]{% + \DeclareFontShape{#1}{#2}{#4}{#5} + { <5> #30500 <6> #30600 <7> #30700 <8> #30800 <9> #30900 + <10> #31000 <10.95> #31095 <12> #31200 <14.4> #31440 + <17.28> #31728 <20.74> #32074 <24.88> #32488 + }{}% +} +% +\DeclareFontFamily{TS1}{cmr}{\hyphenchar\font=\m@ne} +\ec@family{TS1}{cmr}{tcr}{m}{n} +\ec@family{TS1}{cmr}{tcsl}{m}{sl} +\ec@family{TS1}{cmr}{tcti}{m}{it} +\ec@family{TS1}{cmr}{tcbx}{bx}{n} +\ec@family{TS1}{cmr}{tcb}{b}{n} +\ec@family{TS1}{cmr}{tcbi}{bx}{it} +\ec@family{TS1}{cmr}{tcbl}{bx}{sl} +% +\endinput diff --git a/usergrps/uktug/baskervi/5_5/TS1mbvx.fd b/usergrps/uktug/baskervi/5_5/TS1mbvx.fd new file mode 100644 index 0000000000..38fd234c21 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/TS1mbvx.fd @@ -0,0 +1,60 @@ +%Filename: TS1mbvx.fd +%Created by: tex makets1 +%Created using fontinst v1.500 + +%THIS FILE SHOULD BE PUT IN A TEX INPUTS DIRECTORY + +\ProvidesFile{TS1mbvx.fd} + [1995/10/18 Fontinst v1.500 font definitions for TS1/mbvx.] + +\DeclareFontFamily{TS1}{mbvx}{} + +\DeclareFontShape{TS1}{mbvx}{b}{n}{ + <-> mbvb9c +}{} + +\DeclareFontShape{TS1}{mbvx}{b}{sl}{ + <-> mbvbo9c +}{} + +\DeclareFontShape{TS1}{mbvx}{b}{it}{ + <-> mbvbi9c +}{} + +\DeclareFontShape{TS1}{mbvx}{sb}{n}{ + <-> mbvs9c +}{} + +\DeclareFontShape{TS1}{mbvx}{sb}{sl}{ + <-> mbvso9c +}{} + +\DeclareFontShape{TS1}{mbvx}{sb}{it}{ + <-> mbvsi9c +}{} + +\DeclareFontShape{TS1}{mbvx}{m}{n}{ + <-> mbvr9c +}{} + +\DeclareFontShape{TS1}{mbvx}{m}{sl}{ + <-> mbvro9c +}{} + +\DeclareFontShape{TS1}{mbvx}{m}{it}{ + <-> mbvri9c +}{} + +\DeclareFontShape{TS1}{mbvx}{bx}{n}{<->ssub * mbvx/b/n}{} +\DeclareFontShape{TS1}{mbvx}{bx}{sl}{<->ssub * mbvx/b/sl}{} +\DeclareFontShape{TS1}{mbvx}{bx}{it}{<->ssub * mbvx/b/it}{} +\DeclareFontShape{TS1}{mbvx}{b}{ui}{<->sub * mbvx/b/it}{} +\DeclareFontShape{TS1}{mbvx}{bx}{ui}{<->ssub * mbvx/b/ui}{} +\DeclareFontShape{TS1}{mbvx}{sb}{ui}{<->sub * mbvx/sb/it}{} +\DeclareFontShape{TS1}{mbvx}{l}{n}{<->ssub * mbvx/m/n}{} +\DeclareFontShape{TS1}{mbvx}{l}{sl}{<->ssub * mbvx/m/sl}{} +\DeclareFontShape{TS1}{mbvx}{l}{it}{<->ssub * mbvx/m/it}{} +\DeclareFontShape{TS1}{mbvx}{m}{ui}{<->sub * mbvx/m/it}{} +\DeclareFontShape{TS1}{mbvx}{l}{ui}{<->ssub * mbvx/m/ui}{} + +\endinput diff --git a/usergrps/uktug/baskervi/5_5/agm.tex b/usergrps/uktug/baskervi/5_5/agm.tex new file mode 100644 index 0000000000..e2b9375af5 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/agm.tex @@ -0,0 +1,365 @@ + +\title{Report of the 1995 UKTUG AGM} +\author[R. A. Bailey\\Hon.\ Secretary, 1991--95]{R.~A.~Bailey} +% Template for voting table: could be macroised. % RRR +% \begin{tabular}{lr} +% For& \\ +% Against & \\ +% Abstentions & \\ +% \end{tabular} +\newcommand{\voting}[4]{\begin{quote}% + \begin{tabular}{lr@{}l} + For& #1 & \\ + Against & #2 & \\ + Abstentions & #3 & #4 + \end{tabular}\end{quote} +} +\newcommand{\nemcon}{{\it nem.\ con}} +%%% +%%% +%and here is a macro left over from Chris's days as secretary! +\def\ithead#1{{\bf #1 \ }\ignorespaces} + +%%%% more Chris stuff! +%%%\parindent 0pt +%%%\parskip 6pt +\begin{Article} +\subsubsection*{Official report of the AGM of the UK \TeX\ Users +Group, held at Queen Mary and Westfield College, University of London +(Room~G2 in the School of Mathematical Sciences) on Wednesday +18~October 1995 at 1130 hours} + +There were twelve members present. +In the absence of C.~A.~Rowley, the chair was taken by S.~P.~Q.~Rahtz. +The following is a +brief summary of the business transacted; it is categorized by, +roughly, the numbered agenda items. + +\begin{enumerate} + \item \ithead{Report of the 1994 AGM} +This report had already been published in \BV~5.1. +Copies were also available at the meeting. The report +was received as correct. + +\item \ithead{Chairman's Report} The Group's Chairman, C.~A.~Rowley, +had sent his written report, which was read out to the meeting. It is published +following this article. + + +\item \ithead{Approval of Accounts} +The Treasurer, P.~Abbott, gave his report. +Copies of the audited accounts for +1994--95 were presented. +These accounts appear elsewhere in this issue. + +The following points were made during the discussion of the report. +%\marginpar{Peter should check these facts} +\begin{itemize} +\item The bank account had been changed to one which gave a higher rate of +interest but on which there was a charge for cheques in excess of eight per +month. The change gives the Group a net benefit. +\item The Committee had authorized the purchase of various equipment for Peter +Abbott during the year so that he could carry out his duties as Membership +Secretary and as provider of membership services such as discs and books. +\item Now that TUG is no longer paying the Group for production of TTN or \TeX +hax, the income due from TUG to \ukt\ is not of the same order of +magnitude as the payments due from \ukt\ to TUG. In 1995--96 it is likely +that real money will have to be transferred from \ukt\ to TUG. +\item The accounts for the meetings in April 1995 and June 1995 are not yet +closed. +\item \ukt\ donated some money to bursary funds to enable less well-off +people to attend various \TeX\ user group meetings in 1995; it also gave Cathy +Booth Memorial prizes at some of these meetings. These items of expenditure do +not yet show in the accounts, as the financial year ended on 31~July 1995. +\item As reported in \BV~5.3, the Committee sent Robin Fairbairns as its +delegate to the April 1995 GUTenberg meeting on the $\Omega$~project, paying +his expenses from the Group's funds. It was not clear which heading in the +accounts included this item. +\end{itemize} + +The meeting thanked the Treasurer for his hard work on behalf of the Group. + +\item \ithead{Appointment of Auditor(s)} +The Treasurer reported that Colin Smith had audited the accounts for 1994--95, +was happy with them, and had made some helpful suggestions. The meeting gave +formal thanks to Colin Smith and reappointed him auditor for 1995--6. + +\item \ithead{Membership Fees} +The Treasurer proposed the following motion, on behalf of the committee: +\begin{quote} +\it The membership fee for 1996 shall be \pounds 20.00 for full membership or +\pounds 10.00 for full-time student membership. +\end{quote} + +D.~P.~Carlisle then proposed an amendment: that the +membership fee for full-time students be \pounds 5.00. The purpose of this +amendment was to encourage students to join. +M.~Clark seconded the amendment, which was passed \nemcon. The amended +motion was then passed \nemcon. + +\item \ithead{Inducement to pay subscriptions early} +The Treasurer proposed the following motion, on behalf of the committee: +\begin{quote} +\it Any individual member who pays his or her subscription for one + calendar year before the end of the previous calendar year shall + be entitled to a discount of 10\%. +\end{quote} +The motion was then passed \nemcon. + +\item \ithead{Approval of the annual subscription for institutional members} +The Treasurer proposed the following motion, on behalf of the committee: +\begin{quote} +\it The membership fee for 1996 shall be \pounds 100.00 for institutional +membership. +\end{quote} +This was passed \nemcon. + +It was also decided that \BV\ should include a list of current institutional +members of \ukt\ whenever it mentioned institutional membership. + + +\item \ithead{Announcement of new Chairman} +The Committee Secretary announced that, as a result of the election, the new +Chairman of \ukt\ would be R.~Fairbairns. She reported details of the +vote-counting, which have already been published in \BV~5.5. +The meeting thanked both candidates +for standing for election and B.~A.~F.~Wehrfritz for his help in counting the +votes. +\item \ithead{Election of Committee} + Of the previous committee, P.~Abbott (as Treasurer), +D.~P.~Carlisle and C.~Hewlett +continued. Of those retiring, +M.~Clark and A.~S.~A.~Jeffrey +stood for re-election. One further nomination for +committee membership had been received for K.~Bazargan. +These three people were all elected to the committee, bringing the total size of +the committee to six (excluding the Chair). + + +\item\ithead{Report on \BV} +S.~P.~Q.~Rahtz, +the current editor of +the Group's newsletter \BV, gave a report on the second full year in which +\BV\ had appeared at intervals of approximately two months. +Issue~4.6, devoted to `Frequently Asked Questions' and edited by R.~Fairbairns, +had been a great success. It had been reprinted by NTG, and translated to +appear in GUTenberg and the newsletters of CSTUG, CyrTUG and \textsc{Dante}. +%\marginpar{macros for these?} +Any FAQ gets out of date and needs correcting, so \BV~5.6 will be a new FAQ +issue, and it may become an annual publication. + +The editor thanked all contributors to \BV, particularly R.~A.~Bailey for her +series on `Maths in LaTeX' and M.~Clark for his ongoing `Gleanings' column. +Having regular contributions like this gives the editor a big psychological +boost when he starts work on each issue. He asked other members to consider +writing regular contributions for \BV. + +The editor also thanked R.~Fairbairns and J.~Fine for their sterling work in +producing and distributing \BV. It was noted that J.~Fine had withdrawn from +this in May 1995, since when R.~Fairbairns had carried the whole burden of both +jobs. + +The editor reported +that he cooperates with the editor of MAPS, the newsletter of NTG, +so that MAPS and \BV\ republish articles from each other that will be of +interest to both memberships. He recommended continued such cooperation with +other \TeX\ users' groups. + +\BV\ had figured in discussions at the annual TUG meeting in Florida in July +1995. There had been two sessions in which the editors of the various +newsletters exchanged information and problems. In addition, D.~E.~Knuth had been +presented with a copy of \BV: he had enjoyed reading it so much that he had +asked for a subscription to it. + +S.~P.~Q.~Rahtz had now become Secretary of TUG. He was continuing his work on +CTAN, and so could not continue to edit \BV\ beyond the end of 1995. A new +editor for \BV\ was therefore desperately needed. + +The meeting thanked the outgoing editor for his success in making \BV\ such an +interesting and regular publication during the two-and-a-half years in which he +had edited it. + + \item \ithead{Topics for Meetings} +The Meetings Secretary, M.~Clark, reported that the following meetings were in +various stages of preparation, and welcomed any volunteers to help with their +organization. +\begin{itemize} +\item A meeting on scientific publishing with \TeX, to involve various learned +societies and publishers of scientific journals. This had been very much the +idea of J.~Fine, and might not go forward now that he had left the Committee. +\item A meeting for university academic registrars +to address such issues as regulations for the appearance of +PhD theses set in (La)\TeX. The appropriate body UCISA had been approached but +was being slow to respond. +\item A meeting on `\TeX\ and the Internet' would definitely take place at +Warwick University at Easter 1996. +\item There will be another joint meeting with BCSEP on portable documents. It +will take place in January or February 1996 and will be organized by BCSEP. +\end{itemize} + +The Meetings Secretary reported his disappointment at the poor take-up at +training meetings. At Easter 1995 a training meeting had been held on MakeIndex +and BiB\TeX\ with the top trainers in each subject. In spite of members' +expressed desire for such training, less than half a dozen people had attended +the meeting. Why? A training meeting on emtex had been advertised for later in +the year, but had been cancelled after only two enquiries had been made about +it. + +The meeting discussed why the attendance at the AGM is always so poor. A +possible reason is that many potential attenders are academic staff, for whom +October is one of the busiest times of year. + +The possibility of a meeting aimed specifically at publishers (and priced +accordingly!) was also discussed. + + +\item \ithead{Services to Members} +P.~Abbott reported that \ukt\ gets a steady modest income from the sale of +books, in spite of the discount to members. It was agreed that the members' +discount should be increased from 10\% to 20\%. The remaining 5\% still covers +the administrative costs of the service (25\% is the discount to \ukt). + +The meeting congratulated P.~Abbott on updating disc sets for emtex and sending +them out. He +reported that the majority of requests are for emtex, \LaTeXe\ and their +updates: their is little demand for other material from the archive. + +There was some discussion of the feasibility of producing a CDROM of \TeX-ware +for unix or for the Macintosh. It was left to the new Committee to consider +this in more detail. + +\item \ithead{Honorary Member} +It was agreed to award honorary membership to D.~E.~Knuth. + +\item \ithead{Other Users' Groups} +It was agreed that one free copy of each issue of \BV\ should be sent to each +other \TeX\ users' group. + +\item \ithead{Afternoon Meeting} +It was announced that the meeting on `\TeX\ for the +non-technical' advertised for that afternoon had had to be cancelled, as there +had been only five applications to attend by the deadline of one week in +advance. The acting chairman apologized to the meeting organizers, speakers and +those who had hoped to attend the meeting. + +\item \ithead{Thanks} +The meeting thanked the retiring Chairman C.~A.~Rowley for running the \UKTUG\ +so successfully for two years, and, in particular, steering the Group through +a difficult patch. It also thanked R.~A.~Bailey for her four years' work as +Committee Secretary. +\end{enumerate} + + +The meeting closed at about 1310 hours. + +\end{Article} +\newpage +\title{\UKTUG\ Chair's report on 1994--95} +\author{Chris Rowley} +\begin{Article} +First, a big thank you to all my colleagues who have been on the +Committee at various times for all their hard work during the last two +years, which have certainly included some good and some interesting +times. + +The continued timeliness and success of \BV\ is again due to the +inexhaustible editorship of Sebastian Rahtz, with Robin Fairbairns and +Jonathan Fine as publisher and distributor. So, many thanks to them +and all the authors, conscious, willing or otherwise. + +As part of this publishing enterprise we, by which I mean largely +Robin Fairbairns with help from several quarters, revived and updated the +\TeX{} FAQ, originally set up by Bobby Bodenheimer. +This has been another of our +activities whose benefits are spread throughout the world and which +have made the combination of UK and \TeX{} mean `timely and useful +information' much as Peter Abbott's UK\TeX{} did \ldots\ how many +years ago is it now? + +Alan Jeffrey +and Robin Fairbairns have +been busy making our presence felt in the vast ocean +of information on the World Wide Web, including an on-line version of +the FAQ. + +Rosemary Bailey has kept things running efficiently and in line with +the constitution (as much as possible). Recently she has been +assisted both by Malcolm +Clark, who took this on +in addition to his prime role as Meetings Officer, and by Carol Hewlett. + +Four meetings were held during the year. A meeting on `What's new in \TeX?' +was held at Warwick University on 19~October 1994, after the AGM; it was +organized by Robin Fairbairns and Malcolm Clark +%% programme organizer then local organizer +and was attended by about $20$~people. +Talks +and demonstrations were given by +%%alphabetical order for speakers +David Carlisle, +Angus Duggan, +Jonathan Fine, +Ulrich Jahnz and +Philip Taylor. + +On $19$~January 1995 a joint meeting with the British Computer Society +Electronic Publishing Special Group (BCS-EP) +was held at the Bridewell Theatre, Bride Lane +in London +on `Portable documents: Acrobat, SGML and \TeX' +organized by Malcolm Clark, Jonathan Fine and Carol Hewlett. +Their enthusiasm and +hard work ensured an excellent programme and +a full house (about 125 people attended). +The speakers were +David Barron, +David Brailsford, +Jonathan Fine, +Peter Flynn, +Geeti Granger, +Martin Key and +Michael Popham. + +We also had a very successful meeting on +$7$~June 1995 +at Queen Mary and Westfield College, London, +where Michael Downes from the American +Mathematical Society provided much useful +information about the AMS's new \LaTeX{} packages. He was assisted by other +members of the \LaTeX3 project team. +Ben Garling and Rod Mulvey explained the work being done to enable authors to +submit papers to the London Mathematical Society as \LaTeX\ files. +At the end of the day there was a lively discussion +of many related topics in the area of mathematical typesetting. + +Yet again our efforts to organise training sessions have resulted in a +lot of excellent teaching for very small audiences. It does seem to be +difficult to match the needs of our membership in this area: could it +be that they already know everything that is to be knowed? + +Much thanks are also due to Peter Abbott for running all the many services +to members, and managing to balance the books, keeping our financial +position healthy. + +The UK node of the CTAN archive continues its quietly and efficiently +effective existence; this is something I personally can appreciate to +the full now that I can access it as easily as if it were physically +on my desk. + +% UPdate? +% +Thanks for this are to Roger Needham at +Cambridge for authorizing this; and to Robin Fairbairns, Martyn +Johnson and Sebastian Rahtz for keeping it going. + +Finally, I should say something about TUG and our relationship with +it. Well, I hope not finally, but as I write we have no formal +relationship with TUG because the last three remaining Special +Directors, which included me, jointly decided that the future of the +\TeX{} community would be best served by their resigning (did they +jump or were they pushed?). As I said about this subject a year ago, +the picture of TUG as an international organisation is still far from +clear (to me at least), but I am sure that Sebastian Rahtz, the new +secretary of TUG, will keep members of \ukt\ informed of any +developments. +\end{Article} diff --git a/usergrps/uktug/baskervi/5_5/bask5_5.expslist b/usergrps/uktug/baskervi/5_5/bask5_5.expslist new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/bask5_5.expslist diff --git a/usergrps/uktug/baskervi/5_5/bask5_5.rep b/usergrps/uktug/baskervi/5_5/bask5_5.rep new file mode 100644 index 0000000000..e69de29bb2 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/bask5_5.rep diff --git a/usergrps/uktug/baskervi/5_5/bask5_5.tex b/usergrps/uktug/baskervi/5_5/bask5_5.tex new file mode 100644 index 0000000000..3123cecce0 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/bask5_5.tex @@ -0,0 +1,88 @@ +\errorcontextlines=10 +\documentclass[]{baskrep} +\newcommand{\etex}{$\varepsilon$-\TeX} +\usepackage{fancyvrb,textcomp} +%\usepackage{version} +%\excludeversion{notBV} +\usepackage{amsmath} +\usepackage{hhparmrk} % for presentation +\usepackage{hhcount} +\usepackage{epic,curves} +\usepackage{verbatim} % for verbatim displaying of examples +\usepackage{xspace} % for ease of typing +\usepackage{hhmuf,hhflxbox} % used in examples +\usepackage{amssymb} % used in examples +% The following are document specific macros defined for ease of typing: + +\makeatletter + +% The following has been copied from my personal tools style file hhutils.sty +% (NB: This is _not_ the same file as the public style file hhutils0.sty!) + +\showboxdepth=10 % For ease of debugging. +\showboxbreadth=100 % For ease of debugging. +\def\0#1.{\oldstylenums{#1}} % For ease of typing. +\def\packagename#1{{\sffamily\upshape #1}} % For consistent displaying of + % package names. To be redefined + % by the editor if desired. +\chardef\@ttbs="5C % This the only way I could figure +\def\macroname#1{{\ttfamily\upshape\@ttbs#1}} % out to get the right backslashes + % when displaying macro names + % (math \backspace is too thin). +\def\envirname#1{{\ttfamily\upshape #1}} % For consistent etc. +\def\scheiding{\par % Because I cannot help to show my + % `stamp' in and out of season. + % Remove the stamps it you cannot + % stand them. + \nobreak\addvspace{26pt plus 6pt minus 6pt}% + \nobreak\centerline{{\unitlength1pt\begin{picture}(0,0) + \thicklines + \put(-10,2.5){\line(1,-1){10}}\put(-10,2.5){\line(1,1){10}} + \put(10,2.5){\line(-1,-1){10}}\put(10,2.5){\line(-1,1){10}} + \put(-5,7.5){\line(0,-1){10}}\put(5,7.5){\line(0,-1){10}} + \put(-5,0){\line(2,1){10}}% + \qbezier(-31.8,-2.5)(-12.6,12.2)(0,12.5) + \qbezier(0,12.5)(14.2,12.8)(20.9,-2.5) + \qbezier(-31.8,-2.5)(-16.5,15.8)(0,16.1) + \qbezier(0,16.1)(16,16.4)(20.9,-2.5) + \end{picture}}}% + \addvspace{18pt plus 6pt minus 6pt}} +\def\hhparmrk{\packagename{hhparmrk}\xspace} +\def\hhflxbox{\packagename{hhflxbox}\xspace} +\def\hhunits{\packagename{hhunits}\xspace} +\def\hhutils0{\packagename{hhutils0}\xspace} +\def\hhqueue{\packagename{hhqueue}\xspace} +\def\hhmuf{\packagename{hhmuf}\xspace} +\def\hhfLxbox{\packagename{hhf\hbox{}lxbox}\xspace} +\def\hhcount{\packagename{hhcount}\xspace} + +\makeatother +\BASKvol{5} +\BASKno{5} +\def\thisyear{1995} +\def\thismonth{October} +\begin{document} +\vspace*{-1cm} +\begin{multicols}{2}[\makeBSKtitle] +\begin{raggedright} +\tableofcontents +\end{raggedright} +\input editor +\end{multicols} +\Dings +\input election +\newpage +\input hhpmark +\Dings +\input textcomp +\Dings +\input fine +\Dings +\input reese +\Dings +\input group +\newpage +\input agm +%\Dings +%\input word +\end{document} diff --git a/usergrps/uktug/baskervi/5_5/bask5_5.uni b/usergrps/uktug/baskervi/5_5/bask5_5.uni new file mode 100644 index 0000000000..f23e54680b --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/bask5_5.uni @@ -0,0 +1 @@ +\relax diff --git a/usergrps/uktug/baskervi/5_5/baskerv.cls b/usergrps/uktug/baskervi/5_5/baskerv.cls new file mode 100644 index 0000000000..930926322c --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/baskerv.cls @@ -0,0 +1,695 @@ +% Baskerville.cls: +% Adrian Clark +% Sue Brooks +% Sebastan Rahtz +% +% based on the original LaTeX ARTICLE DOCUMENT STYLE +% +% for LaTeX2e +% +\def\filedate{1995/07/30} +\def\fileversion{3.11} +% 29.5.94 added ISSN +% 2.6.94 corrected \ukt\ macro +% 7.6.94 centered captions +% 15.8.94 changed editor names etc +% 2.11.94 use Alan Jeffrey's code for paths, emails, URLs etc +% from faq.sty +% put PA address in mast head +% Journals use two-sided printing. +% 1.12.94 cleaned again for FAQ issue. +% 6.12.94 more little fixes for FAQ issue +% 14.3.95 parameterized date +% 12.6.95 removed JF +% 8.95 worked on to make HH run. color and array need to go back +\NeedsTeXFormat{LaTeX2e} +\ProvidesClass{baskerv}[\filedate, Baskerville newsletter class \fileversion] +\DeclareOption*{\PassOptionsToClass{\CurrentOption}{article}} +\ProcessOptions +\LoadClass{article} +\RequirePackage[noisy]{textfit} +\RequirePackage{pifont} +\RequirePackage{latexsym} +%\RequirePackage{calc} +\RequirePackage{ifthen} +\RequirePackage{longtable} +\RequirePackage{texnames} +%\RequirePackage{shortvrb} +%\DeleteShortVerb{\|} +\let\FAQverbFamily\ttfamily +\DeclareRobustCommand{\FAQverb}[2]{{% + \ifvmode\leavevmode\fi + \lefthyphenmin=256\setlanguage\language + \FAQverbFamily\hyphenchar\the\font`#1\relax + \def\@tempa{#2}% + \expandafter\@faq@strip\meaning\@tempa\@faq@strip + \hyphenchar\the\font\m@ne +}\setlanguage\language} +\def\@faq@strip#1->#2\@faq@strip{#2} +% +% Document markup: +% +\makeatother % because @ is a delimiter here, it had better have the + % same catcode as it will when the macro's invoked +\def\Email|#1@#2|{\FAQverb\-{#1@}\penalty10\FAQverb\.{#2}} % email +\makeatletter +\def\FTP|#1|{\FAQverb\.{#1}} % FTP site +\def\File|#1|{\FAQverb\/{#1}} % file name +\def\CTAN{\FAQverb\/} % CTAN path +\def\Newsgroup|#1|{\FAQverb\.{#1}} % newsgroup +\def\URL|#1://#2/#3|{\FAQverb\.{#1://#2/}\penalty10\FAQverb\/{#3}} +\def\path|#1|{\FAQverb\/{#1}} % generic path +\renewcommand{\rmdefault}{mbvx} +\renewcommand{\sfdefault}{cmss} +\renewcommand{\ttdefault}{cmtt} +\fontfamily{mbvx}\selectfont +\DeclareFontShape{T1}{mbvx}{m}{sl}{<->ssub * mbvx/m/it}{} +\RequirePackage{t1enc} +%\RequirePackage{array} +\RequirePackage{shortvrb} +\RequirePackage[dvips]{epsfig} +%\RequirePackage[dvips]{color} +\RequirePackage{multicol} +\RequirePackage{mflogo} +%\RequirePackage{footcols} +\newcommand\bs{{\ttfamily\upshape\char'134}} +%\def\arraybackslash{\let\\=\@arraycr} +%\newcolumntype{P}[1]{>{\raggedright\arraybackslash}p{#1}} +%\newcolumntype{C}[1]{>{\centering\arraybackslash}p{#1}} +\lineskip 1\p@ +\normallineskip 1\p@ +\def\baselinestretch{1} +\renewcommand\normalsize{% + \@setfontsize\normalsize\@xpt\@xiipt + \abovedisplayskip 8\p@ \@plus1\p@ \@minus1\p@ + \abovedisplayshortskip \z@ \@plus3\p@ + \belowdisplayshortskip 4\p@ \@plus3\p@ + \belowdisplayskip \abovedisplayskip + \let\@listi\@listI} +\let\@normalsize\normalsize +\normalsize +\renewcommand\small{% + \@setfontsize\small\@ixpt{10.5}% + \abovedisplayskip 4\p@ \@plus1\p@ \@minus1\p@ + \abovedisplayshortskip 4\p@ \@plus1\p@ + \belowdisplayshortskip \abovedisplayshortskip + \def\@listi{\leftmargin\leftmargini + \topsep 2\p@ \@plus1\p@ \@minus1\p@ + \parsep \z@ + \itemsep 2\p@}% + \belowdisplayskip \abovedisplayskip +} +\renewcommand\footnotesize{% + \@setfontsize\footnotesize\@viiipt{9}% + \abovedisplayskip 4\p@ \@plus1\p@ \@minus1\p@ + \abovedisplayshortskip \z@ \@plus\p@ + \belowdisplayshortskip 3\p@ \@plus\p@ \@minus2\p@ + \def\@listi{\leftmargin\leftmargini + \topsep 1\p@ \@plus1\p@ \@minus1\p@ + \parsep \z@ + \itemsep 2\p@}% + \belowdisplayskip \abovedisplayskip +} +\renewcommand\scriptsize{\@setfontsize\scriptsize\@viipt\@viiipt} +\renewcommand\tiny{\@setfontsize\tiny\@vpt\@vipt} +\renewcommand\large{\@setfontsize\large\@xipt{12}} +\renewcommand\Large{\@setfontsize\Large\@xiipt{14}} +\renewcommand\LARGE{\@setfontsize\LARGE\@xivpt{17}} +\renewcommand\huge{\@setfontsize\huge\@xviipt{20}} +\renewcommand\Huge{\@setfontsize\Huge\@xxpt{30}} +\normalsize +\DeclareOldFontCommand{\rm}{\normalfont\rmfamily}{\mathrm} +\DeclareOldFontCommand{\sf}{\normalfont\sffamily}{\mathsf} +\DeclareOldFontCommand{\tt}{\normalfont\ttfamily}{\mathtt} +\DeclareOldFontCommand{\bf}{\normalfont\bfseries}{\mathbf} +\DeclareOldFontCommand{\it}{\normalfont\itshape}{\mathit} +\DeclareOldFontCommand{\sl}{\normalfont\slshape}{\@nomath\sl} +\DeclareOldFontCommand{\sc}{\normalfont\scshape}{\@nomath\sc} + +% **************************************** +% * PAGE LAYOUT * +% **************************************** +% +% SIDE MARGINS: +\oddsidemargin -2.5pc \evensidemargin -2.5pc +\marginparwidth 4pc % don't use marginal notes... +\marginparsep 0.5pc % ...in the UK TUG newsletter + +% VERTICAL SPACING: +\topmargin -3pc +\headheight 12\p@ +\headsep 15\p@ +\topskip 10\p@ +\footskip 15\p@ + +% DIMENSION OF TEXT: + +\textheight 250mm % height of text on a page (A4 paper) +\textwidth 180mm % total width of a page +\columnseprule 0.5\p@ % width of line in the inter-column gutter +\columnsep 10mm % space between columns +\tolerance 9999 % make those columns justify + +% FOOTNOTES: +\footnotesep 6\p@ +\skip\footins 19.5\p@ plus 12\p@ \@minus 1\p@ + +% FLOATS: +\floatsep 12\p@ plus 5.5\p@ \@minus 1\p@ +\textfloatsep 15\p@ plus 4.5\p@ \@minus 3\p@ +\intextsep 12\p@ plus 5.5\p@ \@minus 2\p@ +\dblfloatsep 12\p@ plus 5.5\p@ \@minus 2\p@ +\dbltextfloatsep 15\p@ plus 4.5\p@ \@minus 3\p@ +\@fptop 0\p@ plus 0fil +\@fpsep 12\p@ plus 0fil +\@fpbot 0\p@ plus 3fil +\@dblfptop 0\p@ plus 0fil +\@dblfpsep 12\p@ plus 0fil +\@dblfpbot 0\p@ plus 3fil +\marginparpush 5\p@ + +% **************************************** +% * PARAGRAPHING * +% **************************************** +% +\parindent 12\p@ +\parskip \z@ plus .1\p@ +\partopsep 0\p@ plus 1\p@ +\@lowpenalty 51 +\@medpenalty 151 +\@highpenalty 301 +\@beginparpenalty -\@lowpenalty +\@endparpenalty -\@lowpenalty +\@itempenalty -\@lowpenalty +\clubpenalty=0 +\widowpenalty=10000 + +% **************************************** +% * SKIPS * +% **************************************** +% +\newskip\@indentskip +\newskip\smallindent +\newskip\@footindent +\newskip\@leftskip +\@indentskip=1.25pc +\smallindent=\parindent +\@footindent=\smallindent +\@leftskip=\z@ + + +% **************************************** +% * SECTIONS * +% **************************************** +% +\def\Section{\@startsection{newarticle}{0}{\z@} + {-24\p@ \@plus -12\p@ \@minus -.1\p@} + {12\p@ \@plus 1\p@} + {\raggedright\Large\bfseries}} +\def\SSection{\@startsection{newarticle}{0}{\z@} + {-24\p@ \@plus -12\p@ \@minus -.1\p@} + {12\p@ \@plus 1\p@} + {\raggedright\Large\bfseries}[\@title]} +\def\section{%\typeout{** section!}% +\@startsection {section}{1}{\z@} + {-12\p@ \@plus -6\p@ \@minus -.1\p@} + {6\p@} + {\raggedright\large\bfseries}} +\def\subsection{\@startsection{subsection}{2}{\z@} + {-4\p@ \@plus -2\p@ \@minus -.1\p@} + {0.1\p@ \@plus 2\p@} + {\raggedright\normalsize\itshape}} +\def\subsubsection{\@startsection{subsubsection}{3}{\z@} + {-6\p@ \@plus -3\p@ \@minus -1\p@} + {0.1\p@ \@plus 2\p@} + {\raggedright\normalsize\it}} +\def\paragraph{\@startsection{paragraph}{4}{\z@} + {12\p@ \@plus 2.25\p@ \@minus -1\p@} + {-0.5em} + {\normalsize\bfseries}} +\def\subparagraph{\@startsection{subparagraph}{5}{\z@} + {12\p@ \@plus 2.25\p@ \@minus 1\p@} + {-0.5em} + {\normalsize\it}} +\setcounter{secnumdepth}{-1} +% +\def\appendix{\par + \setcounter{section}{0} + \setcounter{subsection}{0} + \def\thesection{\Alph{section}}} + +% **************************************** +% * PARTS & SECTIONS NUMBERS * +% **************************************** +% +\newcounter{newarticle} +\@newctr{section}[newarticle] +\def\thenewarticle {\Alph{newarticle}} + +% **************************************** +% * LISTS * +% **************************************** +% +\leftmargini \@indentskip +\leftmarginii 1pc +\leftmarginiii 1pc +\leftmarginiv 1pc +\leftmarginv 1pc +\leftmarginvi 1pc +\leftmargin\leftmargini +\labelsep 0.5em +\labelwidth\leftmargini\advance\labelwidth-\labelsep +% +% label macros for Range-Left and Range-Right labels +\def\makeRLlabel#1{\rlap{#1}\hss} +\def\makeRRlabel#1{\hss\llap{#1}} +% +\def\@listI{\leftmargin\leftmargini + \parsep \z@ + \topsep 2\p@ \@plus 1\p@ \@minus 1\p@ + \itemsep \z@ \@plus .1\p@ +} +\let\@listi\@listI +\@listi +\def\@listii{\leftmargin\leftmarginii + \labelwidth\leftmarginii\advance\labelwidth-\labelsep + \topsep 2\p@ \@plus 1\p@ \@minus 1\p@ + \parsep \z@ + \itemsep \z@ \@plus .1\p@ +} +\def\@listiii{\leftmargin\leftmarginiii + \labelwidth\leftmarginiii\advance\labelwidth-\labelsep + \topsep 1\p@ \@plus 1\p@ \@minus 1\p@ + \parsep \z@ + \partopsep \z@ + \itemsep \topsep +} +\def\@listiv{\leftmargin\leftmarginiv + \labelwidth\leftmarginiv\advance\labelwidth-\labelsep +} +\def\@listv{\leftmargin\leftmarginv + \labelwidth\leftmarginv\advance\labelwidth-\labelsep +} +\def\@listvi{\leftmargin\leftmarginvi + \labelwidth\leftmarginvi\advance\labelwidth-\labelsep +} +% +% ITEMIZE +\def\itemize{\ifnum \@itemdepth >3 \@toodeep + \else \advance\@itemdepth \@ne + \edef\@itemitem{labelitem\romannumeral\the\@itemdepth}% + \list{\csname\@itemitem\endcsname}% + {\let\makelabel\makeRRlabel}% + \fi} +\def\labelitemi{$\bullet$} +\def\labelitemii{--} +\def\labelitemiii{$\cdot$} +\def\labelitemiv{*} +% +% ENUMERATE with optional argument to set left margin... +\def\enumerate{\ifnum \@enumdepth >3 \@toodeep \else + \advance\@enumdepth \@ne + \edef\@enumctr{enum\romannumeral\the\@enumdepth}% + \fi + \@ifnextchar [{\@enumeratetwo}{\@enumerateone}% +} +\def\@enumeratetwo[#1]{% + \list{\csname label\@enumctr\endcsname}% + {\settowidth\labelwidth{[#1]} + \leftmargin\labelwidth \advance\leftmargin\labelsep + \usecounter{\@enumctr} + \let\makelabel\makeRRlabel} +} +\def\@enumerateone{% + \list{\csname label\@enumctr\endcsname}% + {\usecounter{\@enumctr} + \let\makelabel\makeRRlabel}} +% +\def\labelenumi{\theenumi} +\def\theenumi{\arabic{enumi}.} +\def\labelenumii{(\theenumii)} +\def\theenumii{\alph{enumii}} +\def\p@enumii{\theenumi} +\def\labelenumiii{\theenumiii} +\def\theenumiii{\roman{enumiii}} +\def\p@enumiii{\theenumi(\theenumii)} +\def\labelenumiv{\theenumiv} +\def\theenumiv{\Alph{enumiv}} +\def\p@enumiv{\p@enumiii\theenumiii} +% ARRAY AND TABULAR +% +\arraycolsep 5\p@ +\tabcolsep 6\p@ +\arrayrulewidth .5\p@ +\doublerulesep 1.5\p@ + +% **************************************** +% * TITLES AND ABSTRACT * +% **************************************** +% +\def\BASKvol#1{\gdef\BASK@vol{#1}} +\gdef\BASK@vol{?} +\def\BASKno#1{\gdef\BASK@no{#1}} +\gdef\BASK@no{?} +\def\makeBSKtitle{\par + \begingroup + \vspace*{-\headheight}% + \@maketitle + \bigskip\hrule\bigskip + \thispagestyle{plain} + \endgroup + \let\maketitle\relax + \let\@maketitle\relax +} +\newbox\BSKbox +\def\@maketitle{% +\centerline{{\bfseries \scaletowidth{\textwidth}{B\,a\,s\,k\,e\,r\,v\,i\,l\,l\,e}}} + \medskip + \hbox to \textwidth{\bfseries The Annals of the UK \TeX\ Users' + Group\hfill Editor: Sebastian Rahtz\hfill Vol.~\BASK@vol\ No.~\BASK@no} + \smallskip\hbox to \textwidth{\bfseries ISSN 1354--5930 +\hfill \thismonth\ \thisyear} + \medskip + \noindent Articles may be submitted via electronic mail to + \texttt{baskerville@tex.ac.uk}, or on MSDOS-compatible discs, + to Sebastian Rahtz, Elsevier Science Ltd, The Boulevard, Langford +Lane, Kidlington, Oxford OX5 1GB, to whom any correspondence +concerning \BV\ should also be addressed. This \BV\ is set in Monotype +Baskerville, with Computer Modern Typewriter for literal +text, and printed on a Xerox Docutech. Production and distribution is +undertaken in Cambridge by Robin Fairbairns. Back +issues from the previous 12 months may be ordered from \ukt\ for +\pounds2 each; earlier issues are archived on \textsc{ctan} in +\texttt{usergrps/uktug}. + +Please send \ukt\ subscriptions, and book or software orders, to +Peter Abbott, 1 Eymore Close, Selly Oak, Birmingham B29 4LB. +Fax/telephone: 0121 476 2159. Email +enquiries about \ukt\ to \protect\texttt{uktug-enquiries@tex.ac.uk}. + } + +\def\and{\end{tabular}\vskip 6pt\par + \begin{tabular}[t]{@{}l@{}}} +% +\def\abstract{\@abstract} +\def\endabstract{\end{quote}} +\def\@abstract{\subsection*{Summary}\begin{quote}} + +% **************************************** +% * PAGE STYLES * +% **************************************** +% +\mark{{}{}} +\gdef\@author{} +\def\author{\@ifnextchar [{\@authortwo}{\@authorone}} +\def\@authortwo[#1]#2{\gdef\@author{#2}\gdef\@shortauthor{#1}} +\def\@authorone#1{\gdef\@author{#1}\gdef\@shortauthor{#1}} +\gdef\@shortauthor{Dummy Author} +\gdef\@title{} +\gdef\@longtitle{} +\def\title{\@ifnextchar [{\@titletwo}{\@titleone}} +\def\@titletwo[#1]#2{\gdef\@title{#1}\gdef\@longtitle{#2}} +\def\@titleone#1{\gdef\@title{#1}\gdef\@longtitle{#1}} +\gdef\@longtitle{Dummy Title} + +% +% \ps@empty defined in LATEX.TEX +% +\def\ps@plain{\let\@mkboth\markboth + \def\@oddhead{} + \def\@evenhead{} + \def\@oddfoot{\rm \hfil --\thepage--\hfil} + \def\@evenfoot{\rm \hfil --\thepage--\hfil} +} +\def\ps@headings{\let\@mkboth\markboth + \def\@oddhead{\hfill\emph{\@title}\hfill} + \def\@oddfoot{\rm \hfil --\thepage--\hfil} + \def\@evenhead{\it Baskerville \hfill Volume \BASK@vol, Number \BASK@no} + \def\@evenfoot{\rm \hfil --\thepage--\hfil} +} +\def\ps@myheadings{\let\@mkboth\@gobbletwo + \def\@oddhead{\it\@shortauthor \hfill \@title} + \def\@oddfoot{\rm \hfil --\thepage--\hfil} + \def\@evenhead{\it Baskerville \hfill Volume \BASK@vol, Number \BASK@no} + \def\@evenfoot{\rm \hfil --\thepage--\hfil} + \def\sectionmark##1{} + \def\subsectionmark##1{}} + +% **************************************** +% * TABLE OF CONTENTS, ETC. * +% **************************************** +% +\def\@pnumwidth{1.4pc} +\def\@tocrmarg {2pc} +\def\@dotsep{10} +\setcounter{tocdepth}{0} +%\def\tableofcontents{\@restonecolfalse +% \if@twocolumn\@restonecoltrue\onecolumn\fi +% \section*{Contents} \@starttoc{toc} +% \if@restonecol\twocolumn\fi \par\vspace{12\p@}} +\def\tableofcontents{\Section*{Contents}\@starttoc{toc}} +\def\l@part#1#2{\addpenalty{-\@highpenalty} + \addvspace{2.25em \@plus 1\p@} + \begingroup + \parindent \z@ \rightskip \@pnumwidth + \parfillskip -\@pnumwidth + {\normalsize\rm + \leavevmode \hspace*{3pc} + #1\hfil \hbox to\@pnumwidth{\hss \ }}\par + \nobreak \global\@nobreaktrue + \everypar{\global\@nobreakfalse\everypar{}}\endgroup} +\def\dotfil{\cleaders\hbox{$\m@th \mkern1.5mu.\mkern1.5mu$}\hfil\kern\z@} +\def\l@newarticle#1#2{\addpenalty{\@secpenalty} +% \addvspace{1.0em \@plus 1\p@} + \@tempdima 1.5em % width of box holding section number + \begingroup + \parindent \z@ \rightskip \@pnumwidth + \parfillskip -\@pnumwidth + \leavevmode + #1\dotfil \hbox to\@pnumwidth{\hss #2}\par + \endgroup} +\def\l@section{\@dottedtocline{1}{\z@}{1.5em}} +\def\l@subsection{\@dottedtocline{2}{1.5em}{2.3em}} +\def\l@subsubsection{\@dottedtocline{3}{3.8em}{3.2em}} +\def\l@paragraph{\@dottedtocline{4}{7.0em}{4.1em}} +\def\l@subparagraph{\@dottedtocline{5}{10em}{5em}} +\def\listoffigures{\@restonecolfalse + \if@twocolumn\@restonecoltrue\onecolumn\fi + \section*{List of Figures\@mkboth{List of Figures}{List of Figures}} + \@starttoc{lof} \if@restonecol\twocolumn\fi} +\def\l@figure{\@dottedtocline{1}{1.5em}{2.3em}} +\def\listoftables{\@restonecolfalse + \if@twocolumn\@restonecoltrue\onecolumn\fi + \section*{List of Tables\@mkboth{List of Tables}{List of Tables}} + \@starttoc{lot} \if@restonecol\twocolumn\fi} +\let\l@table\l@figure + +% **************************************** +% * BIBLIOGRAPHY * +% **************************************** +% +\def\thebibliography#1{\section*{\refname} + \small +\list + {\@biblabel{\arabic{enumiv}}}{\settowidth\labelwidth{\@biblabel{#1}}% + \leftmargin\labelwidth + \advance\leftmargin\labelsep + \usecounter{enumiv}% + \let\p@enumiv\@empty + \def\theenumiv{\arabic{enumiv}}}% + \def\newblock{\hskip .11em plus.33em minus.07em}% + \parskip\z@ \@plus .1pt\relax + \clubpenalty4000\widowpenalty4000\sfcode`\.=1000\relax} +\def\refname{References} +\def\endthebibliography{% + \def\@noitemerr{\@warning{Empty `thebibliography' environment}}% + \endlist} + +\setcounter{topnumber}{2} +\def\topfraction{.9} +\setcounter{bottomnumber}{1} +\def\bottomfraction{.9} +\setcounter{totalnumber}{3} +\def\textfraction{.1} +\def\floatpagefraction{.75} +\setcounter{dbltopnumber}{2} +\def\dbltopfraction{.9} +\def\dblfloatpagefraction{.75} + +\long\def\@makecaption#1#2{\vskip 6\p@ + \setbox\@tempboxa\hbox{\small{\bfseries #1.} #2} + \ifdim \wd\@tempboxa >.8\hsize + \hbox to\hsize{\hfill\parbox{.8\hsize}{\small{\bfseries #1.} #2\par}\hfill} + \else + \hbox to\hsize{\hfill\box\@tempboxa\hfill} + \fi + \vskip 6\p@ +} + + +% --- ----------------------------------------------------------------- +% --- Shorthands for non-English abbreviations and words. +% --- ----------------------------------------------------------------- + +\def\foreign{\em} +\def\etc{{\foreign etc.}} % etc. +\def\eg{{\foreign e.g.~}\ignorespaces} % e.g. +\def\egc{{\foreign e.g.,~}\ignorespaces} % e.g., +\def\ie{{\foreign i.e.~}\ignorespaces} % i.e. +\def\iec{{\foreign i.e.,~}\ignorespaces} % i.e., + +% --- ----------------------------------------------------------------- +% --- Tex-related mnemonics. +% --- ----------------------------------------------------------------- + + +\def\La{\protect\p@La} +\def\p@La{L% + {\setbox0\hbox{T}% + \setbox2\vbox to\ht0{\kern.07ex\hbox{% + \csname S@\f@size\endcsname + \math@fontsfalse + \fontsize\sf@size\z@\selectfont + A}% + \vss}% + \kern-.5\wd2 + \box2 + }} +\def\AllTeX{(\La)\TeX} +\def\AmSTeX{$\mathcal{A}\kern-.1667em\lower.5ex\hbox{$\mathcal{M}$}\kern-.125em S$\TeX} +\def\LamsTeX{$\mathcal{L}\mathcal{A}% +\kern-.1667em\lower.5ex\hbox{$\mathcal{M}$}\kern-.125em S$\TeX} +\def\BibTeX{{\rmfamily B\kern-.05em\textsc{i\kern-.025em b}\kern-.08em\TeX}} +\def\INRStex{T\kern-.1667em\lower.5ex\hbox{\^E}\kern-.125emX} +\def\JTeX{\leavevmode\hbox{\lower.5ex\hbox{J}\kern-.18em\TeX}} +\def\LAMSTeX{L\kern -0.4 em \raise 0.3 ex \hbox {$\scriptstyle \mathcal{A}$}% + \kern -0.25 em \lower 0.4 ex \hbox {$\cal M$}% + \kern -0.1 em \hbox {$\mathcal{S}$}-\TeX} +\def\AMSLaTeX{{$\mathcal{A}$\kern-.1667em\lower.5ex\hbox{$\mathcal{M}$}\kern-.125em + $\mathcal{S}$-\LaTeX}} +\def\AMS{{$\mathcal{A}$\kern-.1667em\lower.5ex\hbox{$\mathcal{M}$}\kern-.125em + $\mathcal{S}$}} +\def\MakeIndex{{\itshape MakeIndex}} +\def\PiC{P\kern-.12em\lower.5ex\hbox{I}\kern-.075emC} +\def\PiCTeX{\PiC\kern-.11em\TeX} +% SliTeX from the SliTeX Documentation +\def\SLiTeX{S\kern-.065em L\kern-.18em\raise.32ex\hbox{\textsc{i}}\kern-.03em\TeX} +\let\SliTeX\SLiTeX +\def\POBox{P.\thinspace O.~Box } +\def\TeXhax{\TeX hax} +\def\TeXXeT{\TeX--X\kern-.125em\lower.5ex\hbox{E}\kern-.1667emT} +\def\TUB{\emph{TUGboat}} +\def\DVI{\texttt{dvi}} +\def\VF{\textsc{vf}} +\def\BV{\emph{Baskerville}} +\def\UKTUG{UK \TeX\ Users' Group} +\def\ukt{{\footnotesize UK}TUG} +\let\shortuktug\ukt +\def\PS{\textsc{PostScript}} +\newcommand{\payuk}{UK TeX Users' Group} +\newcommand{\Newline}{\\[0.7\baselineskip]} +\newcommand{\FullLine}[1]{% + \makebox[\linewidth][l]{#1\hrulefill}\Newline} +\newcommand{\HalfLine}[1]{% + \makebox[0.5\linewidth][l]{#1\hrulefill}} + +\def\Dash{---} + + +% --- ----------------------------------------------------------------- +% --- Additional commands. +% --- ----------------------------------------------------------------- + +\let\maketitle\make@articletitle +\def\make@articletitle{\Section[\@title]{\@longtitle}} + +\def\article{% + \setcounter{figure}{0}% + \setcounter{table}{0}% + \Section[\@title]{\@longtitle}% + \let\maketitle\relax + \markright{\@shortauthor\hfill\@longtitle}% +} +% +% Article is when the title is double column +\def\Article{% + \setcounter{figure}{0}% + \setcounter{table}{0}% + \begin{multicols}{2}[\SSection{\@longtitle}]% + \let\maketitle\relax + \markright{\@shortauthor\hfill\@longtitle}% +} +% Article is when the title is double column +\def\FArticle{% + \setcounter{figure}{0}% + \setcounter{table}{0}% + \begin{multicols}{2}[\Section*{\@longtitle}]% +} +\def\endarticle{\@signature + \gdef\@author{\mbox{}}} + +\def\endArticle{\@signature + \gdef\@author{\mbox{}}\end{multicols}% +} +\let\endFArticle\endArticle +\def\newarticlemark#1{} + +% --- Macros for cross-referencing tables and figures. + +\def\figref#1{Figure~\ref{#1}} +\def\tabref#1{Table~\ref{#1}} + +% --- Output the attribution at the end of an article. +\def\emptysig{} +\def\@signature{% + \ifx\@author\emptysig\else + \begin{flushright}\begin{tabular}{@{}r@{}}\@author\end{tabular}% + \end{flushright}\fi} + +\def\signature#1{\begin{flushright} + \begin{tabular}{@{}r@{}}#1\end{tabular}% + \end{flushright}} + +% **************************************** +% * INITIALIZATION * +% **************************************** +% +\ps@headings +\pagenumbering{arabic} +\sloppy +\flushbottom +\frenchspacing + +%\extrarowheight2\p@ +\setlength{\multicolsep}{6\p@} +\let\sl\it +\newcommand{\meta}[1]{{$\langle$\itshape #1\/$\rangle$}} +\def\Gin@extensions{.eps,.ps,.eps.gz,.ps.gz,.eps.Z,.pz,.psz} +\def\Gin@sepdefault{.}% +\@namedef{Gin@rule@.psz}#1{{.eps}{.bb}{`gunzip -c #1}} + +% no rule in footcols + +\def\@makecol@ftn{% + \vskip \skip\footins + \footnoterule + \footnotesize + \multicolsep\z@\relax + \hsize\textwidth + \@parboxrestore + % {\showoutput\batchmode\showbox\footins}% + \raggedcolumns + \bgroup \columnseprule 0\p@ + \begin{multicols}{\the\ftn@col@number}% + \unvbox \footins + \end{multicols}% + \egroup +} +% +% available for inter-article dinglines +% +\def\Dings{\nopagebreak{\footnotesize\dingline{167}}} +% +\@twosidetrue \@mparswitchtrue +\endinput +%% diff --git a/usergrps/uktug/baskervi/5_5/dctc.mf b/usergrps/uktug/baskervi/5_5/dctc.mf new file mode 100644 index 0000000000..e041406929 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/dctc.mf @@ -0,0 +1,116 @@ +% dctc.mf +% +% (c) Copyright 1995 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Content: +% +% Parameter for +% +% European Computer Modern Typewritr Caps and Small Caps +% +% +font_identifier:="DCTCSC"; +font_size (gensize*pt#); +basedef ( 8, 9, 10, 12); +gendef [1/36pt#]( u# )( 17, 18.9, 21, 24.7); +gendef [1/36pt#]( width_adj# )( 0, 0, 0, 0); +gendef [1/36pt#]( serif_fit# )( 0, 0, 0, 0); +gendef [1/36pt#]( cap_serif_fit# )( 0, 0, 0, 0); +gendef [1/36pt#]( letter_fit# )( 0, 0, 0, 0); +gendef [1/36pt#]( body_height# )( 200, 225, 250, 300); +gendef [1/36pt#]( asc_height# )( 176, 198, 220, 264); +gendef [1/36pt#]( cap_height# )( 176, 198, 220, 264); +gendef [1/36pt#]( fig_height# )( 176, 198, 220, 264); +gendef [1/36pt#]( x_height# )( 124, 139.5, 155, 186); +gendef [1/36pt#]( math_axis# )( 88, 99, 110, 132); +gendef [1/36pt#]( bar_height# )( 63, 71, 79, 95); +gendef [1/36pt#]( comma_depth# )( 40, 45, 50, 60); +gendef [1/36pt#]( desc_depth# )( 64, 72, 80, 96); +gendef [1/36pt#]( acc_height# )( 60, 67.5, 75, 90); +gendef [1/36pt#]( dot_height# )( 60, 67.5, 75, 90); +gendef [1/36pt#]( udot_height# )( 47.2, 53.1, 59, 70.8); +gendef [1/36pt#]( crisp# )( 19, 21, 22, 25); +gendef [1/36pt#]( tiny# )( 19, 21, 22, 25); +gendef [1/36pt#]( fine# )( 18, 20, 21, 22); +gendef [1/36pt#]( thin_join# )( 18, 20, 21, 22); +gendef [1/36pt#]( hair# )( 22, 24, 25, 28); +gendef [1/36pt#]( stem# )( 22, 24, 25, 28); +gendef [1/36pt#]( curve# )( 22, 24, 25, 28); +gendef [1/36pt#]( ess# )( 19, 21, 22, 25); +gendef [1/36pt#]( flare# )( 28, 30, 32, 35); +gendef [1/36pt#]( dot_size# )( 31, 33, 36, 39); +gendef [1/36pt#]( cap_hair# )( 22, 24, 25, 28); +gendef [1/36pt#]( cap_stem# )( 22, 24, 25, 28); +gendef [1/36pt#]( cap_curve# )( 22, 24, 25, 28); +gendef [1/36pt#]( cap_ess# )( 22, 24, 25, 28); +gendef [1/36pt#]( rule_thickness#)( 22, 24, 25, 28); +gendef [1/36pt#]( dish# )( 0, 0, 0, 0); +gendef [1/36pt#]( bracket# )( 0, 0, 0, 0); +gendef [1/36pt#]( jut# )( 27, 31, 34, 39); +gendef [1/36pt#]( cap_jut# )( 27, 31, 34, 39); +gendef [1/36pt#]( beak_jut# )( 0, 0, 0, 0); +gendef [1/36pt#]( beak# )( 27, 31, 34, 39); +gendef [1/36pt#]( vair# )( 19, 21, 22, 25); +gendef [1/36pt#]( notch_cut# )( 22, 24, 25, 28); +gendef [1/36pt#]( bar# )( 19, 21, 22, 25); +gendef [1/36pt#]( slab# )( 19, 21, 22, 25); +gendef [1/36pt#]( cap_bar# )( 19, 21, 22, 25); +gendef [1/36pt#]( cap_band# )( 19, 21, 22, 25); +gendef [1/36pt#]( cap_notch_cut# )( 22, 24, 25, 28); +gendef [1/36pt#]( serif_drop# )( 0, 0, 0, 0); +gendef [1/36pt#]( stem_corr# )( 0, 0, 0, 0); +gendef [1/36pt#]( vair_corr# )( 0, 0, 0, 0); +gendef [1/36pt#]( apex_corr# )( 8, 9, 10, 11); +gendef [1/36pt#]( o# )( 3, 3.5, 4, 5); +gendef [1/36pt#]( apex_o# )( 3, 3, 3, 4); +gendef ( fudge )( .81, .81, .81, .81); +gendef ( math_spread )( [-1], [-1], [-1], [-1]); +gendef ( ligs )( 0, 0, 0, 0); +slant:=0; +superness:=1/sqrt 2; +superpull:=0; +beak_darkness:=0; +square_dots:=false; +hefty:=true; +serifs:=true; +monospace:=true; +variant_g:=false; +low_asterisk:=true; +math_fitting:=false; +gendef [1/36pt#]( lower.u# )( 17, 18.9, 21, 24.7); +gendef [1/36pt#]( lower.uu# )( 17, 18.9, 21, 24.7); +gendef [1/36pt#]( lower.width_adj# )( 0, 0, 0, 0); +gendef [1/36pt#]( lower.cap_serif_fit# )( 0, 0, 0, 0); +gendef [1/36pt#]( lower.letter_fit# )( 3, 3, 3, 3); +gendef [1/36pt#]( lower.body_height# )( 140, 165, 190, 240); +gendef [1/36pt#]( lower.cap_height# )( 126, 148, 170, 214); +gendef [1/36pt#]( lower.x_height# )( 89, 104.5, 120, 151); +gendef [1/36pt#]( lower.bar_height# )( 46, 54, 62, 78); +gendef [1/36pt#]( lower.comma_depth# )( 22, 30, 38, 54); +gendef [1/36pt#]( lower.flare# )( 26, 28, 30, 33); +gendef [1/36pt#]( lower.cap_hair# )( 22, 24, 25, 28); +gendef [1/36pt#]( lower.stem# )( 22, 24, 25, 28); +gendef [1/36pt#]( lower.cap_stem# )( 22, 24, 25, 28); +gendef [1/36pt#]( lower.cap_curve# )( 22, 24, 25, 28); +gendef [1/36pt#]( lower.cap_ess# )( 22, 24, 25, 28); +gendef [1/36pt#]( lower.cap_jut# )( 19, 23, 26, 31); +gendef [1/36pt#]( lower.beak_jut# )( 0, 0, 0, 0); +gendef [1/36pt#]( lower.beak# )( 19, 23, 26, 31); +gendef [1/36pt#]( lower.slab# )( 19, 21, 22, 25); +gendef [1/36pt#]( lower.cap_bar# )( 19, 21, 22, 25); +gendef [1/36pt#]( lower.cap_band# )( 19, 21, 22, 25); +gendef [1/36pt#]( lower.cap_notch_cut# )( 21, 23, 24, 27); +gendef [1/36pt#]( lower.o# )( 2, 2.5, 3, 4); +gendef [1/36pt#]( lower.apex_o# )( 2, 2, 2, 3); +gendef ( lower.fudge )( .85, .85, .85, .85); +generate dxcsc + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/dxaccess.mf b/usergrps/uktug/baskervi/5_5/dxaccess.mf new file mode 100644 index 0000000000..dfdaeec302 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/dxaccess.mf @@ -0,0 +1,878 @@ +% dxaccess.mf +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Accessories and special definitions for polish letters +% Adapted to dxbase and dcfont by J\"org Knappen +% Copyright (c) 1992 Bogus\l{}aw Jackowski \& Marek Ry\'cko +% Copyright (c) 1995 J"org Knappen +% --------------------------------------------------------------------------- +% This was PL_DOD.MF ({\bif{}dodatkowy}, i.e., additional file for the Polish +% extension of CM family) in text format. +% --------------------------------------------------------------------------- +%%{\let\:\sl +%\: This file provides accessories for making Polish diacritical characters: +%\: acute accent for |"C"|, |"N"|, |"L"|, |"S"|, |"Z"|, dot accent for |"Z"|, +%\: cross for |"L"| and ogonek for |"A"| and |"E"|. In order to avoid extra +%\: parameters (62 should be enough) the macros do a lot of ``clever'' stuff, +%\: trying to figure out needed dimensions. This is not always a trivial +%\: task and in some cases such extra parameters may prove to be unavoidable. +%\: Several additional parameters may be assigned a value, prior to reading +%\: the driver file, in order to override the default behaviour. + +%\: One of them is +%\: --- the factor controlling the slope of accents over majuscules, +%\: |cap_flat|; if the default slope is, say, $\beta$, the resulting +%\: slope is equal to |(1-cap_flat)*|$\beta$; this parameter is used +%\: in the sources of the following fonts: +%\ PLCSC10, PLDUNH10, PLTCSC10 + +%\: Unexpectedly difficult to program turned out to be ogoneks. We decided +%\: that the best looking are ogoneks such that a single B\`ezier segment +%\: describes each of ogonek's edges. This necessitated introducing many +%\: parameters controlling the positions of control points (for more details +%\: see comments in the section ``OGONEK ACCESSORIES''). All these +%\: (optional) parameters may be splitted into three groups of importance: +%\: primary, secondary and tertiary. The primary parameters are intended +%\: to be ``normally'' accessible to users, the secondary ones---only in +%\: case of emergency, the tertiary ones---rather not at all. + +%\: The primary parameters are: + +%\: --- the factor controlling the depth of ogoneks, |depth_corr|; the +%\: resulting depth is equal to |depth_corr*desc_depth#| if the value +%\: of |depth_corr| is known, |desc_depth#| otherwise +%\: --- the factor controlling the leftmost and tip positions +%\: of an ogonek, |left_corr|, |tip_xcorr| and |tip_ycorr|; +%\: the default distances are scaled using the values of the +%\: corresponding parameters +%\: --- the scaling factor for the top and tip breadths of an ogonek, +%\: |top_breadth_corr|, |tip_breadth_corr| + +%\: Some of the primary parameters are used in the sources of the following +%\: fonts: +% PLB10, PLBX5, PLBX6, PLBX7, PLBX8, PLFI10, PLITT10, PLR5, PLR6, PLR7, +% PLR8, PLR9, PLR12, PLR17, PLSL8, PLSL9, PLSL12, PLSSQ8, PLSSQI8, PLTI7, +% PLTI8, PLTI12, PLVTT10 + +%\: The following four parameters we regard as of a secondary importance: + +%\: --- the pen ogoneks are to be filled with, |ogonek_pen#| (this is +%\: the only sharp ogonek parameter and is used in the sources of +%\: the {\commfont{}PLFF10} and {\commfont{}PLFI10} fonts) +%\: --- the darkness of ogoneks may be controlled using two parameters, +%\: |0<pre_lightness<1| and |0<post_lightness<1|, referring to the top +%\: and tip of an ogonek, respectively; used in {\commfont{}PLB10.MF} +%\: --- next two parameters, |pre_deflexion| and |post_deflexion|, control +%\: a rather small deflexion angle (in degrees) of the inner ogonek +%\: outline as compared to the outer one; they refere to the top and +%\: tip of an ogonek, respectively + +%\: The complete list of `ogonek' parameters can be found in the section +%\: ``OGONEK ACCESSORIES.'' + +%\: There is one more (rather unimportant) parameter, |is_smoke|. If this +%\: variable is assigned a known value, `smoked' proofs will not contain +%\: a rule marking the height of accented letters. +%%} +% --------------------------------------------------------------------------- +% HISTORY +% 7 Feb 1992: version 1.00 +% 11 Feb 1992: version 1.01 +% (no changes; the new version number due to changes in \MeX{} format) +% 25 May 1992: version 1.02 +% The following two erroneous assignments: +%| z_a:=(x_down+the_left_pos,.5penkind); %| starting point +%| z_d:=(xpart(z_a)-.5penkind,y_right+.5penkind)+the_tip_pos; %| ending point +% changed to the following ones: +%| z_a:=(x_down+the_left_pos,ypart(ogonek_pos)); %| starting point +%| z_d:=(xpart(z_a)-.5penkind,y_right+ypart(ogonek_pos))+| +%| the_tip_pos; %| ending point +% Some comments changed. +% 18 Dec 1992: version 1.03 +% (no changes; the new version number due to changes in FIK_MIK.MF +% and some cosmetic changes in CMBX11.MF, CMR11.MF, CMTI11.MF, CMSL11.MF, +% CMSSBI10.MF, and POLAN.MF) +% 21 Apr 1995: Adaption for dxbase and dcfonts: +% Deleted character code (those are fixed by the Cork standard) +% Deleted |improve_kerns| +% Avoid double rounding in the definition of |fisp| by defining |fisp#| +% Made |the_ogonek_depth| explicitly sharp (|the_ogonek_depth#|) +% Changed definition of |is_cap| +% Replaced all occurences of |ogonked_a| and |ogonked_e| with the +% Cork code values |oct"241"| and |oct"246"| respectively +% Replaced |dotted_Z| and |dotted_z| with |oct"233"| and |oct"273"| +% respectively +% Renamed |expansion_factor| to |expansion_faktor| because of +% conflicting definition +% 7 May 1995 Appended material from czechoslovak fonts (csaccent.mf) +% 18 May 1995 Changed |put_accent| because I want to use it twice in +% one character. To achieve this, the variables |z.top| and |z.right| +% were renamed |z[jj].top| and |z[jj].right| respectively +% Changed |is_cap| again (included |168| for l with acute) +% 29 May 1995 Added accessories for the grave accent +% Changes one comment to point to dxcsc.mf instead of polkap.mf +% 18 Jun 1995 Made provision in |put_cross| for the blank symbol +% Made provision in |put_dot| for tukish dotted `I' +% 10 Jul 1995 Changed condition in |put_dot| to refer to |is_cap|. Needed +% with the tc fonts. +% 11 Jul 1995 Added another proviso to |put_dot| to produce floating dot +% 23 Jul 1995 Added proviso in |put_cross| for recipe sign +% 17 Aug 1995 Tuned height of accent again, added |hi.x_height@#+acc_height@#| +% to the minimum condition +% --------------------------------------------------------------------------- +% LAYOUT SETUP: +% (A MIXTURE OF EXTENDED CM, EXTENDED ASCII, AND ``LOCAL'') +% --------------------------------------------------------------------------- +% [deleted] +% --------------------------------------------------------------------------- +% EXTRA PARAMETERS +% --------------------------------------------------------------------------- +% [|improve_kerns| deleted] + +if unknown is_small_cap: boolean is_small_cap; is_small_cap=false; fi; + +% The variable |limit_dist| is set to |5/4u| in PL_DL.MF, PL_ML.MF and +% PL_MLK.MF, and used in |put_accent| and |put_cross|. It was introduced +% because of some funny (although troublesome) fonts. The value of |u| is +% changed by |mono_adjust|, hence it is set outside |beginchar| ... |endchar| +% rather than inside. +numeric limit_dist; +% --------------------------------------------------------------------------- +% GENERAL PURPOSE ACCESSORIES +% --------------------------------------------------------------------------- +vardef is_egyptian = +% |false| for most of the CM fonts, except funny fonts; +% |true| for the CC fonts + serifs and (1.4max(fine#,crisp#, tiny#)<slab#) and (1.6slab#>stem#) +enddef; + +vardef is_bold = if serifs: (hair#+.5stem#)>1.5u# else: stem#>2u# fi\\ enddef; + +vardef is_cap = + (((127 < charcode) and (charcode < 158)) or\\ + ((191 < charcode) and (charcode < 224))) or\\ + (charcode = 168) % true for l with acute +enddef; + +%%% top is_known +%%% top fix_virgin +vardef is_known z suffix $ = +% an auxiliary macro for |fix_virgin z|, used also while constructing ogoneks + (known x$) or (known x$l) or (known x$r)\\ or + (known y$) or (known y$l) or (known y$r) +enddef; + +vardef fix_virgin z = % find a pair of virgin pairs + numeric ii,jj; jj:=1; + forever: + if is_known z[jj] or is_known z[jj+1]: % unknown gaps may occur + jj:=incr jj else: jj=ii fi; exitif known ii; + endfor; + jj:=ii+1; +% now |ii| and |jj| are such that |z[ii]| and |z[jj]| are ``untouched'' +enddef; + +%%% italcorr corrital +% correction of italic correction (cf. D. E. Knuth, The \MF{}book, p. 105): +vardef corrital z suffix $ = +% |z$| is the rightmost position of a pen (in accent path) + if not monospace: + save charic_; charic_=(rt(x$)-r)/hppp+slant*y$/vppp+.5u#; + if charic_>charic: charic:=charic_; fi +%| else: %| |charic=mono_charic#|, do nothing + fi +enddef; + +%%% fine hi higher +% |higher| is a counterpart to |lower| (see the file dxcsc.mf), +% |hi| facilitates using higher values (which are reference points in +% the floating world of CM fonts) +def hi = if is_small_cap: higher fi\\ enddef; + +%%% top prepare_pen +def prepare_pen suffix $ = +%%% fine $ %%%% temporary MFT convention + if $>fudged.hair: $:=fudged.hair; fi + $.breadth:=$; + pickup if $=0: nullpen else: pencircle scaled $; $:=$-eps fi; + $.nib:=savepen; breadth_[$.nib]:=$; + forsuffixes $$=lft,rt,top,bot: shiftdef($.$$,$$ 0); endfor +%%% qq $ %%%% ordinary MFT convention +enddef; + +% The proportion of |vair/stem| depends drastically on resolution; +% e.g., for 300 dpi cmbx10 |vair=1| and |stem=5|, for 746 dpi cmbx10 +% (300 dpi, magstep 5) |vair=4| and |stem=12|, while, sharply speaking, +% |stem#/vair#=3.15381|; hence a new variable |xvair| has been introduced +% to be used in some crucial places instead of |vair|. +vardef xvair = stem*vair#/stem# enddef; +% --------------------------------------------------------------------------- +% ACCENT ACCESSORIES +% --------------------------------------------------------------------------- +% |the_cap_flat| is a factor controlling the flatness of accents over +% majuscules; a default value may be overriden by assigning a value to the +% variable |cap_flat| (cf. also |the_|... macros in ogonek accessories). +vardef the_cap_flat = + if known cap_flat: cap_flat elseif serifs and hefty: 1/5 else: 1/3 fi +enddef; +% --------------------------------------------------------------------------- +% The |hpos_corr| variable is an optional parameter to |put_ogonek|, meant +% to be set locally inside |beginchar| ... |endchar|, if a horizontal +% correction of the accent position is needed: +numeric hpos_corr; +% --------------------------------------------------------------------------- +%%%% temporary MFT convention: +%%% top x_height diam a_wd a_ht i_ht u asc_height cap_A_wd +% width of the acute accent: +vardef a_wd@# = 9hi.u@# enddef; +% height of the acute accent: +vardef a_ht@# = min(asc_height@#,2hi.x_height@#,hi.x_height@#+acc_height@#) enddef; +% height of the letter `i': +vardef i_ht@#(suffix diam) = + if is_small_cap: a_ht@# % usually there is no dot over a small cap `i' + else: min(asc_height@#, 10/7hi.x_height@#+.5diam@#) fi +enddef; +% width of the letter `A' (used in |put_ogonek|): +vardef cap_A_wd@# = 13u@# enddef; +%%%% ordinary MFT convention: +%%% qq x_height diam a_wd a_ht i_ht u asc_height cap_A_wd + +def mark_height(expr sharp_h)= +% |sharp_h| is the height of an accented minuscule + if\\ (proofing>0) and is_cap: +% BJ likes to have proofs vertically aligned (somehow): + proofoffset(0,h-charht*vppp-1mm); + fi + charht:=if is_cap: h/vppp else: sharp_h fi; +% say earlier, e.g., |is_smoke=1| if you're making `smoked' proofs +% and you don't like to have a rule marking the height + if unknown is_smoke: + if proofing>0: proofrule((l+w/2,charht*hppp)t_,(r+u,charht*hppp)t_); fi + if displaying>0: screenrule((l+w/2,charht*hppp)t_,(r+u,charht*hppp)t_); fi + fi +enddef; + +def fix_acc_pairs = + fix_virgin z; + begingroup +% excerpt from |beginchar|: + save w,h; w=round(a_wd); h=round(a_ht); +% excerpt from |mono_adjust|: + if monospace: + save u_; numeric u_; u_:=hi.u#; save u; u#:=u_; + numeric expansion_faktor; + mono_charwd#=2 hi.letter_fit#+expansion_faktor*a_wd#; + hi.u:=u#*expansion_faktor*hppp; + w:=mono_charwd-shrink_fit-2 hi.letter_fit; + fi +% end of the excerpts + numeric accent_gap,mid_stem; mid_stem=2/3[stem,hi.stem]; + if serifs: + pickup crisp.nib; + x[jj]'=hround(w-2hi.u)-.5mid_stem; x[jj]':=x[jj]'-2/3[x[jj]',w-x[jj]']; + y[jj]'=h-.5mid_stem+eps-max(2/3[h,hi.x_height],hi.x_height+o+hair); + accent_gap=a_ht-(y[jj]'+.5mid_stem)-hi.x_height; + bot z[ii]=round(accent_hpos, + accent_gap+if is_cap: cap_height else: hi.x_height fi); + z[jj]=z[ii]+(z[jj]' + if is_cap: rotated (-the_cap_flat*angle(z[jj]')) fi); + numeric theta; theta=angle(z[ii]-z[jj])+90; + pos[jj](mid_stem,theta); pos[ii](hair,theta); + else: + pickup fine.nib; + rt x[jj]'r=hround(.5w-1.25hi.u); + top y[jj]'=h-vround(2/3[h,hi.x_height]); + z[ii]'=origin; pos[jj]'(mid_stem,0); pos[ii]'(vair,0); + accent_gap=a_ht-y[jj]'-hi.x_height; + if is_cap: + numeric beta; beta=-the_cap_flat*angle(z[jj]'-z[ii]'); + z[ii]=round(accent_hpos,accent_gap+cap_height); + z[jj]=z[ii]+(z[jj]' rotated beta); + y[jj]r=y[jj]l=y[jj]; y[ii]r=y[ii]l=y[ii]; + for xx:=jj,ii: forsuffixes $:=l,r: + (z[xx]$-z[ii]) rotated -beta=whatever[z[jj]'$,z[ii]'$]; + endfor\\ endfor + else: + for xx:=jj,ii: forsuffixes $:=r, ,l: + z[xx]$=z[xx]'$+round(accent_hpos, + accent_gap+if is_small_cap: cap_height else: x_height fi); + endfor\\ endfor + fi + fi + endgroup; +enddef; + +def put_accent= + numeric accent_hpos; + accent_hpos=.5w - if is_cap: .75 else: .5 fi\\ u + if known hpos_corr: +hpos_corr fi; + fix_acc_pairs; % |fix_acc_pairs| uses private values of |w|, |h| \& |u| + numeric hpos_corr; % |hpos_corr| is local: forget its value +% draw the diagonal: + if serifs: + pickup crisp.nib; filldraw circ_stroke (z[jj]e--z[ii]e); + z[jj].right=directionpoint up of (z[jj]r{z[jj]r-z[ii]r}..{z[ii]l-z[jj]l}z[jj]l); + z[jj].top=directionpoint left of (z[jj]r{z[jj]r-z[ii]r}..{z[ii]l-z[jj]l}z[jj]l); + else: + pickup fine.nib; filldraw stroke (z[jj]e--z[ii]e); + z[jj].right=z[jj].top=z[jj]r; + fi + corrital z[jj].right; % correct italic correction +% adjust and save height (it is used in the program for the dotted `Z'): + h:=if is_cap: y[jj].top else: a_ht fi; saved_height:=h; mark_height(a_ht#); + penlabels([ii],[jj]); +enddef; +% --------------------------------------------------------------------------- +% GRAVE ACCENT ACCESSORIES +% --------------------------------------------------------------------------- +% This section borrows heavily from the (acute) accent accessories +def fix_grav_pairs = + fix_virgin z; + begingroup +% excerpt from |beginchar|: + save w,h; w=round(a_wd); h=round(a_ht); +% excerpt from |mono_adjust|: + if monospace: + save u_; numeric u_; u_:=hi.u#; save u; u#:=u_; + numeric expansion_faktor; + mono_charwd#=2 hi.letter_fit#+expansion_faktor*a_wd#; + hi.u:=u#*expansion_faktor*hppp; + w:=mono_charwd-shrink_fit-2 hi.letter_fit; + fi +% end of the excerpts + numeric accent_gap,mid_stem; mid_stem=2/3[stem,hi.stem]; + if serifs: + pickup crisp.nib; + x[jj]'=hround(w-2hi.u)-.5mid_stem; x[jj]':= -x[jj]'+ 2/3[x[jj]',w-x[jj]']; + y[jj]'=h-.5mid_stem+eps-max(2/3[h,hi.x_height],hi.x_height+o+hair); + accent_gap=a_ht-(y[jj]'+.5mid_stem)-hi.x_height; + bot z[ii]=round(accent_hpos, + accent_gap+if is_cap: cap_height else: hi.x_height fi); + z[jj]=z[ii]+(z[jj]' + if is_cap: rotated (-the_cap_flat*(angle(z[jj]')-180)) fi); + numeric theta; theta=angle(z[ii]-z[jj])+90; + pos[jj](mid_stem,theta); pos[ii](hair,theta); + else: + pickup fine.nib; + lft x[jj]'l=-hround(.5w-1.25hi.u); + top y[jj]'=h-vround(2/3[h,hi.x_height]); + z[ii]'=origin; pos[jj]'(mid_stem,0); pos[ii]'(vair,0); + accent_gap=a_ht-y[jj]'-hi.x_height; + if is_cap: + numeric beta; beta=-the_cap_flat*(angle(z[jj]'-z[ii]')-180); + z[ii]=round(accent_hpos,accent_gap+cap_height); + z[jj]=z[ii]+(z[jj]' rotated beta); + y[jj]r=y[jj]l=y[jj]; y[ii]r=y[ii]l=y[ii]; + for xx:=jj,ii: forsuffixes $:=l,r: + (z[xx]$-z[ii]) rotated -beta=whatever[z[jj]'$,z[ii]'$]; + endfor\\ endfor + else: + for xx:=jj,ii: forsuffixes $:=r, ,l: + z[xx]$=z[xx]'$+round(accent_hpos, + accent_gap+if is_small_cap: cap_height else: x_height fi); + endfor\\ endfor + fi + fi + endgroup; +enddef; + +def put_gravis= + numeric accent_hpos; + accent_hpos=.5w + if is_cap: .75 else: .5 fi\\ u + if known hpos_corr: +hpos_corr fi; + fix_grav_pairs; % |fix_grav_pairs| uses private values of |w|, |h| \& |u| + numeric hpos_corr; % |hpos_corr| is local: forget its value +% draw the diagonal: + if serifs: + pickup crisp.nib; filldraw circ_stroke (z[jj]e--z[ii]e); + z[jj].right=directionpoint down of (z[jj]r{z[jj]r-z[ii]r}..{z[ii]l-z[jj]l}z[jj]l); + z[jj].top=directionpoint left of (z[jj]r{z[jj]r-z[ii]r}..{z[ii]l-z[jj]l}z[jj]l); + else: + pickup fine.nib; filldraw stroke (z[jj]e--z[ii]e); + z[jj].right=z[jj].top=z[jj]r; + fi +% adjust and save height (tho the height is never needed): + h:=if is_cap: y[jj].top else: a_ht fi; saved_height:=h; mark_height(a_ht#); + penlabels([ii],[jj]); +enddef; +% --------------------------------------------------------------------------- +% DOT ACCENT ACCESSORIES +% --------------------------------------------------------------------------- +%%% good penkind +def put_dot (suffix penkind) (expr dd_) = % dot of the lowercase letter `i' + fix_virgin z; + numeric dd#; % sharp dot diameter + dd#=dd_; define_whole_blacker_pixels(dd); +% adjust height temporarily: + h:=vround(if is_cap: (cap_height#+1.5u#+dd#) + elseif (charcode=oct"273") or (charcode=oct"012"): i_ht#(dd) + fi\\ *hppp); + pickup penkind.nib; pos[jj](dd,90); pos[ii](dd,0); + x[jj]=x[ii]=good.x(.5w+if charcode=oct"233": .5 else: if charcode=oct"235": 0 + else: .25 fi\\fi\\ u); + top y[jj]r=h+1; y[ii]=.5[y[jj]l,y[jj]r]; +% draw the dot: + dot([ii],[jj]); +% dotted `Z' inherits the recently saved height (if known; usually the height +% of the accented `Z') which allows to decrease by one the number of different +% heights in a font; dotted `z' has the height of a lowercase `i' (exception: +% caps and small caps) + if known saved_height: h:=saved_height; fi\\ mark_height(i_ht#(dd)); + penlabels([ii],[jj]); +enddef; +% --------------------------------------------------------------------------- +% L's CROSS ACCESSORIES +% --------------------------------------------------------------------------- +def put_cross(expr l_jut,r_jut) = + fix_virgin z; + numeric dd; dd=if is_cap: cap_bar else: bar fi; + numeric theta; theta=angle(11u#,.3[x_height#,cap_height#]); + pickup crisp.nib; pos[ii](dd,theta+90); pos[jj](dd,theta+90); + lft x[ii]r = hround(x1-l_jut)-eps; + rt x[jj]l = hround(x1+r_jut)+eps; + z[ii]-z[jj]=whatever*dir theta; +% |.52| is one of CM (Computer Magic) numbers appearing in many CM programs, +% among others in the programs for B, F, and H: + whatever[z[ii],z[jj]]=if not is_cap and hefty: top fi\\ + (x1,if charcode=32: .3[x_height,asc_height-serif_drop] % tc blank sign + elseif charcode=147: .3x_height % tc recipe sign + else: .52cap_height fi\\); +% before drawing the stroke improve discretization: + save eps_; + eps_:=y[ii]l-good.y(y[ii]l); + forsuffixes $:=l, ,r: y[ii]$:=y[ii]$-eps_; endfor + eps_:=y[jj]r-good.y(y[jj]r); + forsuffixes $:=l, ,r: y[jj]$:=y[jj]$-eps_; endfor + filldraw stroke z[ii]e--z[jj]e; % now draw the stroke + corrital z[jj]l; % correct italic correction + penlabels([ii],[jj]); +enddef; +% --------------------------------------------------------------------------- +% OGONEK ACCESSORIES +% --------------------------------------------------------------------------- +% This part is admittedly sophisticated, however, a wide spectrum of +% different ogonek shapes is in fact to be programmed: one shape is needed +% for caps, another for `a' with ogonek, yet another for `e' with ogonek, +% as they all have different joins. Moreover, a sansserif ogonek differs +% significantly from a serif one, a bold ogonek from a non-bold, an ogonek +% for hefty fonts should still be different. And if you take into account +% that the basic font unit |u| may change during one session of font +% generation (monospace and caps-small-caps) and that a few different +% pens may be used to draw a single letter, you'll understand why so many +% |if| ... |else:| ... |fi| commands are used in the following code. +% +% Outer and inner edges of an ogonek (suffixed with |l| and |r|, resp.) +% are single B\`ezier segments; the outer one, a path +% |p=z_a..controls z_b and z_c ..z_d| +% is constructed as follows: given pairs |z_a|, |z_d|, angles |alpha_a|, +% |alpha_d| and two numbers |x_down|, |y_right|, find pairs |z_b| and |z_c| +% such that the path |p| has the following properties: +% (a) |direction p(z_a)=alpha_a| +% (b) |direction p(z_d)=alpha_d-180| +% (c) |direction p(x_down,some_y)=down| +% (d) |direction p(some_x,y_right)=right| +% The problem is solved using a ``double'' bisection method, provided +% that appropriate limits |z_b'|, |z_b''| and |z_c'|, |z_c''| for |z_b| +% and |z_c|, respectively, are given; more precisely, +% |z_b=|$\lambda_b$|[z_b',zb'']| and |z_c=|$\lambda_c$|[z_c',zc'']| +% is supposed to hold for given |z_b'|, |z_b''|, |z_c'|, |z_c''| and +% some $0<\lambda_b,\lambda_c<1$. +% +% The inner edge is constructed by a careful modification of the outer one. +% +% If a default behaviour of our program is not satisfying, the user may +% assign a value to the following ``emergency'' parameters (provided E knows +% what E is doing): +% |depth_corr|, |left_corr|, |top_breadth_corr|, |tip_breadth_corr|, +% |tip_xcorr|, |tip_ycorr|, |pre_angle|, |post_angle|, +% |pre_limit|, |post_limit|, |pre_lightness|, |post_lightness|, +% |pre_deflexion|, and |post_deflexion|. +% Any of these parameters, if known while generating a font, is used instead +% of a default setting. The parameters are accessed only via macros: +% |the_ogonek_depth#|, |the_left_pos|, |the_top_breadth_corr|, +% |the_tip_breadth_corr|, |the_tip_pos|, +% |the_pre_angle|, |the_post_angle|, |the_pre_limit|, |the_post_limit|, +% |the_pre_lightness|, |the_post_lightness|, +% |the_pre_deflexion|, and |the_post_deflexion|. +% There is one sharp ogonek parameter, |ogonek_pen#|; a respective pen is +% defined at the end of this file (and once again in POLKAP.MF after +% |font_setup|) and used in the files PL_DL.MF, PL_ML.MF, PL_MLK.MF. +% Any parameter may have its |lower| variant (see the file POLKAP.MF). +% --------------------------------------------------------------------------- +% two handy macros: +vardef cross_point(expr a,b) (expr c,d) = + save z_; pair z_; z_=whatever[a,b]; z_=whatever[c,d]; z_ +% the crossing point of lines (not segments) |a--b| and |c--d| is returned +enddef; + +vardef touch_time(expr p,q) = % a variant of |intersectionpoint| + save x_,y_; (x_,y_)=p intersectiontimes q; if x_<0: 0 else: y_ fi +enddef; +% --------------------------------------------------------------------------- +% the kernel routine for the ogonek: +numeric x_down,x_down',y_right,y_right',alpha_a,alpha_d; +pair z_a,z_b,z_b',z_b'',z_c,z_c',z_c'',z_d; + +pair nz_,pz_; +% with plain's |solve| embeded calls are not allowed, hence a bit tricky +% variation: +%%% known zsolve +vardef zsolve@#(suffix z_)= +% |@#| is the name of a real monotonic function; it is assumed that +% |@#(z_')<=0|, |@#(z_'')>0| holds for given |z_'| and |z_''| + save nz_,pz_; pair nz_,pz_; % recursive calls are possible + nz_:=z_'; pz_:=z_''; + forever: + z_:=.5[nz_,pz_]; exitif abs(nz_-pz_)<=tolerance; % by default |tolerance=.1| + if @#(z_)<=0: nz_ else: pz_ fi :=z_; + endfor +% on exit |z_| is (hopefully) near the point where |@#| changes from +% negative to positive +enddef; + +vardef down_dir(expr z_b)= + zsolve right_dir(z_c); % here |z_c| is computed + lft(xpart(directionpoint down of (z_a..controls z_b and z_c..z_d)))-x_down +enddef; + +vardef right_dir(expr z_c)= + bot(ypart(directionpoint right of (z_a..controls z_b and z_c..z_d)))-y_right +enddef; +% --------------------------------------------------------------------------- +% ogonek defaults: +vardef the_ogonek_depth# = % sharp value + if known depth_corr: depth_corr* fi\\ desc_depth# +enddef; + +vardef the_left_pos = + if known left_corr: left_corr* fi + if monospace: 3.75 elseif serifs: + if hefty: 2.3 elseif is_bold: 1.7 else: 1.9 fi + else: % sansserif + if is_bold: 1.65 else: 1.55 fi\\ fi\\ hi.u +enddef; + +vardef the_tip_pos = + (if monospace: 1.9 elseif serifs: if hefty: 1.85 + elseif is_bold: 1.75 else: 2 fi\\ else: % sansserif + if is_bold: 2.1 else: 1.95 fi\\ fi\\ hi.u, + if serifs: + if monospace: 1.25 elseif hefty: 1 elseif is_bold: .75 else: 1.45 fi + else: % sansserif + .45 fi\\ hi.u) + if known tip_xcorr: xscaled\\ tip_xcorr fi + if known tip_ycorr: yscaled\\ tip_ycorr fi +enddef; + +vardef the_top_breadth_corr = + if known top_breadth_corr: top_breadth_corr else: + if serifs: 1 elseif is_bold: 1.12 elseif is_cap: 1.06 else: .96 fi\\ fi +enddef; + +vardef the_tip_breadth_corr = + if known tip_breadth_corr: tip_breadth_corr else: 1 fi +enddef; + +vardef the_pre_angle = % refers to the outer edge + if known pre_angle: pre_angle else: + if serifs: if hefty: 208 elseif is_bold: 211 else: 214 fi\\ else: 211 fi + fi +enddef; + +vardef the_post_angle = % refers to the outer edge + if known post_angle: post_angle else: + if serifs: if monospace: 60 elseif hefty: 66 elseif is_bold: 55 else: 74 fi + else: 25 fi\\ fi +enddef; + +vardef the_pre_limit = % refers to the outer edge + if known pre_limit: pre_limit else: x_down-3.5hi.u fi +enddef; + +vardef the_post_limit = % refers to the outer edge + if known post_limit: post_limit else: x_down-2hi.u fi +enddef; + +vardef the_pre_lightness = % refers to the inner edge + if known pre_lightness: pre_lightness else: + if serifs and hefty: .97 elseif not serifs and is_bold: .6 + elseif is_bold: .66 else: .78 fi\\ fi +enddef; + +vardef the_post_lightness = % refers to the inner edge + if known post_lightness: post_lightness else: + if serifs: + if hefty: .95 elseif is_bold: .66 else: .82 fi + else: % sansserif + .75 fi\\ fi +enddef; + +vardef the_post_deflexion = % refers to the inner edge + if known post_deflexion: post_deflexion elseif serifs and hefty: 0 + else: -5 fi +enddef; + +vardef the_pre_deflexion = % refers to the inner edge + if known pre_deflexion: pre_deflexion + elseif known join_angle and not serifs: + if is_bold: -4 else: -2 fi\\ + elseif not serifs: if is_bold: -8 else: -4 fi\\ else: 0 fi +enddef; +% --------------------------------------------------------------------------- +%%% fine lo +vardef lo suffix z = % in a way |lo| is a counterpart to |hi| + if is_small_cap: z_a+((z-z_a) scaled sqrt(body_height#/higher.body_height#)) + else: z fi +enddef; +% --------------------------------------------------------------------------- +% parameters to |put_ogonek|: +numeric join_angle; % starting (inner) ogonek direction, if known +numeric ogonek_breadth; % ogonek breadth at the tip +% starting (inner for `e' with ogonek, otherwise outer) ogonek position: +pair ogonek_pos; +% --------------------------------------------------------------------------- +def put_ogonek(suffix penkind) = + begingroup + if monospace: +% excerpt from |mono_adjust|: + save u_; numeric u_; u_:=hi.u#; save u; u#:=u_; + numeric expansion_faktor; + mono_charwd#=2hi.letter_fit#+expansion_faktor*cap_A_wd#; % cap_A_wd=13u + hi.u:=u#*expansion_faktor*hppp; +% now |u| is like in the letter `A' + fi + + fix_virgin z; pickup penkind.nib; + +% `a' with ogonek attached to the hook deserves a special treatment: + if\\ (not is_small_cap) and (charcode=oct"241") and serifs and not is_bold: + if ypart(ogonek_pos)>.5penkind: + z[ii]~l=ogonek_pos; + pos[ii]~(max(the_top_breadth_corr*ogonek_breadth,penkind+epsilon),0); + ogonek_pos:=cross_point((0,.5penkind),(1,.5penkind)) + (z[ii]~l,z[ii]~l+dir(the_pre_angle)); + fi + fi + +% similarly, `e' with ogonek deserves a special treatment: + if\\ (not is_small_cap) and (charcode=oct"246"): + if ypart(ogonek_pos)>.5penkind: + z[ii]~r=ogonek_pos; + pos[ii]~(max(the_top_breadth_corr*ogonek_breadth,penkind+epsilon),0); + ogonek_pos:=cross_point((0,.5penkind),(1,.5penkind)) + (z[ii]~l,z[ii]~l+dir(join_angle)); + fi + fi + +% invariant: |ypart(ogonek_pos)|$\le$|.5penkind|; +% moreover, for `A' and `E': |ypart(ogonek_pos)=.5penkind| + +% OUTER EDGE: + alpha_a:=the_pre_angle; % starting direction + alpha_d:=180+the_post_angle; % ending direction + x_down:=if serifs: hround else: ceiling fi + (xpart(ogonek_pos)-the_left_pos); % left bound + y_right:=-vround(d+hi.o); % bottom bound + z_a:=(x_down+the_left_pos,ypart(ogonek_pos)); % starting point + z_d:=(xpart(z_a)-.5penkind,y_right+ypart(ogonek_pos))+ + the_tip_pos; % ending point +% guess the boundaries for control points: + z_b':=cross_point (z_a,z_a+dir alpha_a) + ((the_pre_limit,0),(the_pre_limit,1)); + z_b'':=cross_point (z_b',z_a)\\ ((x_down,0),(x_down,1)); + z_c':=cross_point (z_d,z_d+dir alpha_d) + ((the_post_limit,0),(the_post_limit,1)); + z_c'':=cross_point (z_c',z_d)\\ ((0,y_right),(1,y_right)); +% THE PIVOT STEP OF THE OGONEK PROCEDURE, i.e., +% determine the control points (|z_b| and |z_c|) of the outer path: + zsolve down_dir(z_b); % |down_dir| calls `|zsolve right_dir(z_c)|' + x_down':=xpart(lft(directionpoint down of + (z_a..controls z_b and z_c..z_d))); + y_right':=ypart(bot(directionpoint right of + (z_a..controls z_b and z_c..z_d))); + if abs(x_down'-x_down,y_right'-y_right)>sqrt2: + message "ERROR: `ogonek' iteration hasn't converged! Final values:"; + message "x_down="&decimal x_down'&" (should be "&decimal x_down&")"; + message "y_right="&decimal y_right'&" (should be "&decimal y_right&")"; + errhelp "Maybe Jackowski knows how to change them..."; + errmessage "Probably, you have to change somehow the boundary values"; + fi + +% small caps have ogoneks a bit smaller: + z[ii]l=z_a; z[ii]'l=lo.z_b; z[jj]'l=lo.z_c; z[jj]l=lo.z_d; + +% INNER EDGE: + pos[ii](max(the_top_breadth_corr*ogonek_breadth,penkind+epsilon),0); + pos[jj](max(the_tip_breadth_corr*ogonek_breadth,penkind+epsilon), + angle(direction 1 of (z_a..controls z_b and z_c..z_d))+ + if serifs: 90 else: 80 fi); + + z[ii]'r=z[ii]r+((z[ii]'l-z[ii]l) scaled the_pre_lightness + rotated the_pre_deflexion); + z[jj]'r=z[jj]r+((z[jj]'l-z[jj]l) scaled the_post_lightness + rotated the_post_deflexion); + +% trim the top of the ogonek, if necessary: + path ogonek.l, ogonek.r; numeric tt.r, tt.l; + + ogonek.l=if is_known z[ii]~: % minuscule with ogonek + z[ii]~l{dir if charcode=oct"241": the_pre_angle else: join_angle fi}..fi + z[ii]l..controls z[ii]'l and z[jj]'l..z[jj]l; + ogonek.r=if is_known z[ii]~: % ditto + z[ii]~r{dir if charcode=oct"241": the_pre_angle else: join_angle fi}..fi + z[ii]r..controls z[ii]'r and z[jj]'r..z[jj]r; + + tt.r=if serifs and (not is_small_cap) and (charcode=oct"241"): + touch_time(p.l,ogonek.r) else: 0 fi; + tt.l=if\\ (not is_small_cap) and (charcode=oct"246"): + touch_time(p.r,ogonek.l) else: 0 fi; +% at last, draw the ogonek: + if ogonek_breadth>.5: + interim turningcheck:=0; filldraw + if\\ (not is_small_cap) and (charcode=oct"246"): + (point tt.r of ogonek.r){direction tt.r of ogonek.r}..{curl 1} fi + subpath (tt.l,length ogonek.l) of ogonek.l-- + reverse(subpath (tt.r,length ogonek.r) of ogonek.r) + if is_small_cap or (charcode<>oct"246"): -- else: & fi\\ cycle; +% the |draw| command covers with ink unwanted breaks: + pickup pensquare scaled (.5*sqrt2) rotated 45; + draw .5[z[ii]l,z[ii]r]..controls .5[z[ii]'l,z[ii]'r] and + .5[z[jj]'l,z[jj]'r].. .5[z[jj]l,z[jj]r]; + else: % poor resolution: + pickup pensquare scaled (.5*sqrt2) rotated 45; + draw z[ii]l..controls z[ii]'l and z[jj]'l..z[jj]l; + fi + + numeric join_angle, ogonek_breadth; pair ogonek_pos; % all they are local + + penlabels([ii],[jj]); + + endgroup +enddef; +% --------------------------------------------------------------------------- +% LAST MINUTE EXTRA FONT SETUP (repeated in POLKAP.MF) +% --------------------------------------------------------------------------- +%%% define_pixels prepare_pen +if not serifs: fisp#:=1/3[fine#,crisp#]; define_whole_pixels(fisp); + prepare_pen fisp; fi +if known ogonek_pen#: + define_whole_pixels(ogonek_pen); prepare_pen ogonek_pen; +fi +%******************************************************************************* +% +% This was csaccent.mf in text format, as of 89/05/08 +% written by P. Novak, Prague +% Czech and Slovak letters with accents +% Changed paths for acute and hachek accent added 26/04/92, 11/08/92 +% Accent definitions |lc_circle_accent| modified +% |uc_Circle_accent| added for Duerer font +% +% 7 May 1995 did whole sale surgery to this part. Moved parameters to +% dxpseudo.mf to be able to manipulate them from there. The Acute +% accent is done the polish way, therefore removed all acute related +% macros. Pseudoparametrised all kinds of |dot_diam|. +% 17 Jun 1995 adjusted hachek height parameters to blend better with acute +% parameters. Removed lots of stuff not used by the dc and tc fonts. +% 17 Jul 1995 corrected uppercase hachek height for sans serif case +% Removed many macros, which aren't used anymore + +def lc_hachek_accent(expr ref) = + if serifs: + pickup crisp.nib; + pos52'(0.75[vair,curve],90); + pos52(0.75[vair,curve],90); + x52=good.x ref; + x52-x51=x53-x52=good.x if hach_sharp:2.5 else:3 fi + accent_u-accent_thin; +% top y52' = top y51 = top y53 = 0.9[x_height,lc_hachek_height]; + top y52' = top y51 = top y53 = lc_hachek_height; +% if hach_sharp: y52=.25[x_height,y52']; % lower point + if hach_sharp: + y52=max(2/3[h,hi.x_height],hi.x_height+o+hair); % lower point + pos51(1.5stem,0); pos53(accent_thin,180); + else: + 0.5[y52,y52r] = 0.5[x_height,y52']; + pos51(accent_thin,angle(z52-z51)+90); + pos53(accent_thin,angle(z53-z52)+90); + fi + filldraw stroke z51e -- z52e -- z53e; + else: + pickup fine.nib; + pos51(vair,0); + pos53(vair,0); + x52=good.x ref; + x52-lft x51=rt x53-x52= 1.75accent_u +.5vair; % lft, rt added + pos52(stem,0); +% bot y52=vround(0.3[x_height,lc_hachek_height]); + bot y52=vround(max(2/3[h,hi.x_height],hi.x_height+o+hair)); + top y51 = top y53 = lc_hachek_height; + z50 = whatever[z51r,z52r] = whatever[z52l,z53l]; + y54l=y54r=y52; + x54l=good.x .2[x52l,x52]; + x54r-x52 = x52-x54l; + filldraw z54l -- z51l-- z51r -- z50 -- z53l -- z53r -- z54r -- cycle; + fi + penlabels(50,51,52,52',53,54); +enddef; + +def dtl_hachek(text x_ref,y_ref) = +pickup fine.nib; + pickup fine.nib; + x51=hround(x_ref); y51=vround(y_ref); + comma(51,q,pdot_diam,.25accent_u,2/3comma_depth); + penlabels(51); +enddef; + +def uc_hachek_accent(expr ref) = + if serifs: + pickup crisp.nib; + pos52'(0.75[vair,curve],90); + pos52(0.75[vair,curve],90); + x52=good.x ref; + x52-x51=x53-x52=good.x 3accent_u-accent_thin; + top y52' = top y51 = top y53 = % upper points +% 0.55[x_height,lc_hachek_height]+uc_acc_shift; + h-.75[vair,curve]+eps-max(2/3[h,hi.x_height],hi.x_height+o+hair) + +cap_height; + if hach_sharp: +% y52=.1[x_height,y52']+uc_acc_shift; % lower point + y52=max(2/3[h,hi.x_height],hi.x_height+o+hair)-hi.x_height+cap_height; + pos51(1.5stem,0); pos53(2accent_thin,180); + else: +% 0.5[y52,y52r] = 0.5[x_height,y52'-uc_acc_shift]+uc_acc_shift; + 0.5[y52,y52r] = + if not hefty: + max(2/3[h,hi.x_height],hi.x_height+o+hair)-hi.x_height+cap_height; + else: + max(2/3[h,hi.x_height],hi.x_height+o)-hi.x_height+cap_height-hair; + fi + pos51(accent_thin,angle(z52-z51)+90); + pos53(accent_thin,angle(z53-z52)+90); + fi + filldraw stroke z51e -- z52e -- z53e; + else: + pickup fine.nib; + pos51(vair,0); + pos53(vair,0); + x52=good.x ref; + x52-x51=x53-x52= 1.75accent_u + .5vair; + pos52(stem,0); + bot y52= cap_height + .5 accent_gap; + top y51 = top y53 = cap_height + acc_height; + z50 = whatever[z51r,z52r] = whatever[z52l,z53l]; + y54l=y54r=y52; + x54l=good.x .2[x52l,x52]; + x54r-x52 = x52-x54l; + filldraw z54l -- z51l-- z51r -- z50 -- z53l -- z53r -- z54r -- cycle; + fi +penlabels(50,51,52,52',53,54); +enddef; + +endinput; +%% diff --git a/usergrps/uktug/baskervi/5_5/dxbase.mf b/usergrps/uktug/baskervi/5_5/dxbase.mf new file mode 100644 index 0000000000..8358d9f270 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/dxbase.mf @@ -0,0 +1,1224 @@ +% dxbase.mf +% +% (c) Copyright 1995 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Content: +% +% The base file needed for generation of the DC fonts + +dxbase:=1; % when |dcbase| or |dxbase| is known, this file has been input +dcbase:=1; + +boolean slitex; slitex := false; % |true| simulates behaviour of |sroman| +boolean one_serif; one_serif:=true; % |false| suppresses base serif on `1' +boolean classic_serif; classic_serif := false; +boolean suppress_i_dot; suppress_i_dot :=false; +boolean acute_sharp; acute_sharp:=false; +boolean hach_sharp; hach_sharp:=false; +boolean classic_sharp_s; classic_sharp_s:=false; + +let dcchar=\; % `|dcchar|' should precede each character +let generate=input; % `|generate|' should follow the parameters + +autorounding:=0; smoothing:=0; % we do our own rounding +def autorounded = interim autorounding:=2 enddef; + +newinternal slant,fudge,math_spread,superness,superpull,beak_darkness,ligs; +boolean square_dots,hefty,serifs, + monospace,variant_g,low_asterisk,math_fitting; + +boolean dark,dark.dark,skewed,skewed.skewed; % for fast option testing +dark=skewed=false; dark.dark=skewed.skewed=true; + +vardef Vround primary y = y_:=vround y; + if y_<min_Vround: min_Vround else: y_ fi enddef; +newinternal y_,min_Vround; + +vardef serif(suffix $,$$,@) % serif at |z$| for stroke from |z$$| + (expr darkness,jut) suffix modifier = + pickup crisp.nib; numeric bracket_height; pair downward; + bracket_height=if dark.modifier: 1.5 fi\\ bracket; + if y$<y$$: y@2=min(y$+bracket_height,y$$); + top y@1-slab=bot y@0+eps=tiny.bot y$; downward=z$-z$$; + if y@1>y@2: y@2:=y@1; fi + else: y@2=max(y$-bracket_height,y$$); + bot y@1+slab=top y@0-eps=tiny.top y$; downward=z$$-z$; + if y@1<y@2: y@2:=y@1; fi fi + y@3=y@2; z@3=whatever[z$,z$$]; + if jut<0: z@2+penoffset downward of currentpen = + z$l+penoffset downward of pen_[tiny.nib]+whatever*downward; + lft x@0=lft x@1=tiny.lft x$l+jut; + if x@3<x@2+eps: x@3:=x@2+eps; fi + else: z@2-penoffset downward of currentpen = + z$r-penoffset downward of pen_[tiny.nib]+whatever*downward; + rt x@0=rt x@1=tiny.rt x$r+jut; + if x@3>x@2-eps: x@3:=x@2-eps; fi fi + pair corner; ypart corner=y@1; corner=z@2+whatever*downward; + filldraw z@2{z$-z$$} + ...darkness[corner,.5[z@1,z@2] ]{z@1-z@2} + ...{jut,0}z@1--z@0--(x$,y@0)--z@3--cycle; % the serif + labels (@1,@2); enddef; + +def dish_serif(suffix $,$$,@)(expr left_darkness,left_jut) + (suffix @@)(expr right_darkness,right_jut) suffix modifier = + serif($,$$,@,left_darkness,-left_jut) modifier; + serif($,$$,@@,right_darkness,right_jut) modifier; + if dish>0: pickup tiny.nib; numeric dish_out,dish_in; + if y$<y$$: dish_out=bot y$; dish_in=dish_out+dish; let rev_=reverse; + else: dish_out=top y$; dish_in=dish_out-dish; let rev_=relax; fi + erase fill rev_ + ((x@1,dish_out)..(x$,dish_in){right}..(x@@1,dish_out)--cycle); + fi enddef; + +def nodish_serif(suffix $,$$,@)(expr left_darkness,left_jut) + (suffix @@)(expr right_darkness,right_jut) suffix modifier = + serif($,$$,@,left_darkness,-left_jut) modifier; + serif($,$$,@@,right_darkness,right_jut) modifier; enddef; + +vardef sloped_serif.l(suffix $,$$,@)(expr darkness,jut,drop) = + pickup crisp.nib; pos@2(slab,90); + lft x@0=tiny.lft x$l; rt x@1=tiny.rt x$r; top y@1=tiny.top y$r; + lft x@2=lft x@0-jut; y@2r=y@1-drop; + y@0=max(y@2l-bracket,y$$)-eps; + if drop>0: erase fill z@1--top z@1 + --(x@2r,top y@1)--z@2r--cycle; fi % erase excess at top + filldraw z@1--z@2r--z@2l{right} + ...darkness[(x@0,y@2l),.5[z@2l,z@0] ]{z@0-z@2l} + ...{down}z@0--(x@1,y@0)--cycle; % sloped serif + labels(@0,@1,@2); enddef; + +vardef sloped_serif.r(suffix $,$$,@)(expr darkness,jut,drop) = + pickup crisp.nib; pos@2(slab,-90); + rt x@0=tiny.rt x$r; lft x@1=tiny.lft x$l; bot y@1=tiny.bot y$l; + rt x@2=rt x@0+jut; y@2r=y@1+drop; + y@0=min(y@2l+bracket,y$$)+eps; +if drop>0: erase fill z@1--bot z@1 + --(x@2r,bot y@1)--z@2r--cycle; fi % erase excess at bottom + filldraw z@1--z@2r--z@2l{left} + ...darkness[(x@0,y@2l),.5[z@2l,z@0] ]{z@0-z@2l} + ...{up}z@0--(x@1,y@0)--cycle; % sloped serif + labels(@0,@1,@2); enddef; + +vardef term.l(suffix $,$$)(expr d,t,s)= % ``robust'' sans-serif terminal + path p_; p_=z$l{d}..tension t..z$$l; + pair d_; d_=(x$$l-x$l,s*(y$$l-y$l)); + if (abs angle direction 1 of p_ < abs angle d_)<>(x$l<x$$l): + p_:=z$l{d}..tension atleast t..{d_}z$$l; fi + p_ enddef; +vardef term.r(suffix $,$$)(expr d,t,s)= + path p_; p_=z$r{d}..tension t..z$$r; + pair d_; d_=(x$$r-x$r,s*(y$$r-y$r)); + if (abs angle direction 1 of p_ < abs angle d_)<>(x$r<x$$r): + p_:=z$r{d}..tension atleast t..{d_}z$$r; fi + p_ enddef; +def rterm=reverse term enddef; + +vardef arm(suffix $,$$,@)(expr darkness,jut) = % arm from |z$| to |z$$| + x@0=good.x(x$$r-jut); y@0=y$r; + if serifs: y@1=y$l; z@1=z$$l+whatever*(z$$r-z@0); + z@2=.5[z$l,z@1]; + filldraw z$$l{z@1-z$$l}...darkness[z@1,.5[z@2,z$$l] ]...z@2 + ---z$l--z$r--z@0--z$$r--cycle; % arm and beak + else: filldraw z$l--z$r--z@0--z$$r--cycle; fi % sans-serif arm + penlabels(@0,@1,@2); enddef; + +def bulb(suffix $,$$,$$$) = + z$$$r=z$$r; + path_.l:=z$l{x$$r-x$r,0}...{0,y$$r-y$r}z$$l; + filldraw path_.l--z$$r{0,y$r-y$$r}...{x$r-x$$r,0}z$r--cycle; % link + path_.r:=z$$$l{0,y$r-y$$r}..z$$$r{0,y$$r-y$r}; % near-circle + filldraw subpath(0,xpart(path_.r intersectiontimes path_.l)) of path_.r + --z$$r{0,y$$r-y$r}..cycle; % bulb + enddef; + +def v_bulb(suffix $,$$)= % |pos$| is known + y$$+.5curve=x_height+oo; x$$+.5curve=w-u; + numeric theta; theta=angle(4(x$-x$$),y$-y$$); pos$$(curve,theta+90); + filldraw z$$l{dir theta}..tension atleast 1 and 1..{down}z$l + --z$r{up}...{-dir theta}z$$r..cycle; % bulb + enddef; + +def dot(suffix $,$$) = + filldraw if square_dots: (x$l,y$$l)--(x$r,y$$l) + --(x$r,y$$r)--(x$l,y$$r)--cycle % squarish dot + else: z$l...z$$l...z$r...z$$r...cycle fi % roundish dot + enddef; + +def comma(suffix $,@)(expr dot_size,jut,depth) = + pickup fine.nib; pos$(dot_size,90); + if square_dots: pos$'(dot_size,0); z$'=z$; dot($',$); % squarish dot + comma_join_:=max(fine.breadth,floor .7dot_size); + comma_bot_:=max(fine.breadth,floor .5dot_size); + pos@0(comma_join_,0); pos@1(comma_join_,0); + pos@2(comma_bot_,0); y@0=y$; y@1=y$l; y@2=y@1-depth; + x@0r=x@1r=x$'r; rt x@2r=good.x(x$-eps); + filldraw stroke z@0e--z@1e..z@2e; % tail + else: pos@1(vair,90); pos@2(vair,0); pos@3(vair,-45); + z@1r=z$r; rt x@2r=hround(x$+.5dot_size+jut)+2eps; x@3=x$-.5u; + y@2=1/3[y@1,y@3]; bot y@3r=vround(y$-.5dot_size-depth); + y_:=ypart((z@1{right}...z@2{down}...z@3) + intersectiontimes (z$l{right}..{left}z$r)); if y_<0: y_:=1; fi + filldraw z$r{left}..subpath (0,y_) of (z$l{right}..{left}z$r)--cycle; % dot + filldraw stroke z@1e{right}...z@2e{down}...z@3e; fi % tail + penlabels(@1,@2,@3); enddef; + +def ammoc(suffix $,@)(expr dot_size,jut,depth) = % reversed comma + pickup fine.nib; pos$(dot_size,90); + if square_dots: pos$'(dot_size,0); z$'=z$; dot($',$); % squarish dot + comma_join_:=max(fine.breadth,floor .7dot_size); + comma_top_:=max(fine.breadth,floor .5dot_size); + pos@0(comma_join_,0); pos@1(comma_join_,0); + pos@2(comma_top_,0); y@0=y$; y@1=y$r; y@2=y@1+depth; + x@0l=x@1l=x$'l; lft x@2l=good.x(x$+eps); + filldraw stroke z@0e--z@1e..z@2e; % tail + else: pos@1(vair,90); pos@2(vair,0); pos@3(vair,-45); + z@1l=z$l; lft x@2l=hround(x$-.5dot_size-jut)-2eps; x@3=x$+.5u; + y@2=1/3[y@1,y@3]; top y@3l=vround(y$+.5dot_size+depth); + y_:=ypart((z@1{left}...z@2{up}...z@3) + intersectiontimes (z$r{left}..{right}z$l)); if y_<0: y_:=1; fi + filldraw z$l{right}..subpath (0,y_) of (z$r{left}..{right}z$l)--cycle; % dot + filldraw stroke z@1e{left}...z@2e{up}...z@3e; fi % tail + penlabels(@1,@2,@3); enddef; + +%%% @ from to %%%% temporary formatting change +vardef diag_in(suffix from,$)(expr sharpness)(suffix $$) = + pickup tiny.nib; save from_x,y_; + if y.from>y$: bot else: top fi\\ y_=y$; + (from_x,y_)=whatever[z.from,z$]; + sharpness[z$,(from_x,y_)]{z$-z.from} + ...{z$$-z$}z$+sharpness*length(z$-(from_x,y_))*unitvector(z$$-z$) enddef; + +vardef diag_out(suffix $)(expr sharpness)(suffix $$,to) = + pickup tiny.nib; save to_x,y_; + if y.to>y$: bot else: top fi\\ y_=y$; + (to_x,y_)=whatever[z$$,z.to]; + z$$-sharpness*length(z$$-(to_x,y_))*unitvector(z$$-z$){z$$-z$} + ...{z.to-z$$}sharpness[z$$,(to_x,y_)] enddef; + +vardef diag_end(suffix from,$)(expr sharpness_in,sharpness_out)(suffix $$,to)= + save from_x,to_x,y_,x_,xx_; + if y.from>y$: tiny.bot else: tiny.top fi\\ y_=y$; % we assume that |y$=y$$| + (from_x,y_)=whatever[z.from,z$]; (to_x,y_)=whatever[z$$,z.to]; + if x$$>x$: x_=x$+sharpness_in*length(z$-(from_x,y_)); + xx_=x$$-sharpness_out*length(z$$-(to_x,y_)); + if xx_<x_: xx_:=x_:=.5[xx_,x_]; fi + else: x_=x$-sharpness_in*length(z$-(from_x,y_)); + xx_=x$$+sharpness_out*length(z$$-(to_x,y_)); + if xx_>x_: xx_:=x_:=.5[xx_,x_]; fi fi + sharpness_in[z$,(from_x,y_)]{z$-z.from} + ...{z$$-z$}(x_,y$)..(xx_,y$){z$$-z$} + ...{z.to-z$$}sharpness_out[z$$,(to_x,y_)] enddef; +%%% at from to %%%% restore normal formatting + +vardef special_diag_end(suffix $$,$,@,@@) = % for top middle of w's + if x@r<=x$r: diag_end($$r,$r,1,1,@l,@@l) + else: z0=whatever[z$$l,z$l]=whatever[z@l,z@@l]; + diag_end($$r,$r,1,1,$l,0)--z0 fi enddef; + +def prime_points_inside(suffix $,$$) = + theta_:=angle(z$r-z$l); + penpos$'(whatever,theta_); + if y$$>y$: z$'=(0,pen_top) rotated theta_ + whatever[z$l,z$r]; + theta_:=angle(z$$-z$)-90; + else: z$'=(0,pen_bot) rotated theta_ + whatever[z$l,z$r]; + theta_:=angle(z$$-z$)+90; fi + z$'l+(pen_lft,0) rotated theta_=z$l+whatever*(z$-z$$); + z$'r+(pen_rt,0) rotated theta_=z$r+whatever*(z$-z$$); + enddef; + +def ellipse_set(suffix $,@,@@,$$) = % given |z$,x@,z$$|, find |y@| and |z@@| +% such that the path |z${x@-x$,0}..z@{0,y@-y$}..{z$$-z@@}z@@| +% is consistent with an ellipse +% and such that the line |z@@--z$$| has a given |slope| + alpha_:=slope*(x@-x$); beta_:=y$$-y$-slope*(x$$-x$); + gamma_:=alpha_/beta_; + y@-y$=.5(beta_-alpha_*gamma_); + x@@-x$=-2gamma_*(x@-x$)/(1+gamma_*gamma_); + y@@-y$$=slope*(x@@-x$$) enddef; + +vardef diag_ratio(expr a,b,y,c) = % assuming that $a>\vert b/y\vert$, +% compute the value $\alpha=(x\6{++}y)/y$ such that $ax+b\alpha=c$ + numeric a_,b_; b_=b/y; a_=a*a-b_*b_; + (a*(c++y*sqrt a_)-b_*c)/a_/y enddef; + +def f_stroke(suffix $,$$,@,left_serif,right_serif)(expr left_jut,right_jut)= + pickup tiny.nib; bot y$=0; + penpos@0(x$r-x$l,0); x@0l=x$l; top y@0=x_height; + filldraw stroke z$e--z@0e; % stem + pickup fine.nib; pos@0'(x$r-x$l-(hround stem_corr)+tiny,180); + y@0'=y@0; lft x@0'r=tiny.lft x$l; + penpos@1(x@0'l-x@0'r,180); x@1=x@0'; y@1+.5vair=.5[x_height,h]; + pos@2(vair,90); top y@2r=h+oo; + if serifs: x@2=.6[x@1,x$$r]; (x@,y@2r)=whatever[z@2l,z@1l]; + x@2r:=min(x@,.5[x@2,x$$r]); pos@3(hair,0); bulb(@2,@3,$$); % bulb + filldraw stroke z@0'e--z@1e & super_arc.e(@1,@2); % arc + dish_serif($,@0,left_serif,1/3,left_jut,right_serif,1/3,right_jut); % serif + else: x@2=.6[x@1,x$$]; y@1l:=1/3[y@1l,y@2l]; + filldraw stroke z@0'e--z@1e & super_arc.e(@1,@2) + & term.e(@2,$$,right,.9,4); fi % arc and terminal + penlabels(@0,@1,@2); enddef; + +def h_stroke(suffix $,@,@@,$$) = + penpos$$(x@@r-x@@l,0); x$$=x@@; bot y$$=0; + y@@=1/3[bar_height,x_height]; + penpos$''(x$r-x$l,0); x$''=x$; y$''=1/8[bar_height,x_height]; + filldraw stroke z$''e--z$e; % thicken the lower left stem + penpos@0(min(rt x$r-lft x$l,thin_join)-fine,180); pickup fine.nib; + rt x@0l=tiny.rt x$r; y@0=y$''; + pos@1(vair,90); pos@@'(x@@r-x@@l+tiny,0); z@@'=z@@; + x@1=.5[rt x@0l,rt x@@'r]; top y@1r=x_height+oo; + (x@,y@1l)=whatever[z@1r,z@0l]; x@1l:=x@; + filldraw stroke z@0e{up}...{right}z@1e + &{{interim superness:=hein_super; super_arc.e(@1,@@')}}; % arch + pickup tiny.nib; filldraw stroke z@@e--z$$e; % right stem + labels(@0); penlabels(@1); enddef; + +def hook_out(suffix $,$$,$$$)suffix modifier= % |x$| and |x$$$| (only) are known + pos$(stem,0); pos$$(vair,90); + x$$$:=hround(x$$$+.5hair-eps)-.5hair; pos$$$(hair,180); + y$=1/4x_height; bot y$$l=-oo; y$$$=1/3x_height; + if skewed.modifier: x$$=x$+1.25u; + filldraw stroke z$e{-u,-x_height}...z$$e{right}...{up}z$$$e; % hook + else: x$$=x$+1.5u; + filldraw stroke z$e{down}...z$$e{right} + ...{x$$$-(x$+2.5u),x_height}z$$$e; fi enddef; % hook + +def empty_hook_out(suffix $,$$,$$$)suffix modifier= % |x$| and |x$$$| (only) are known + pos$(stem,0); pos$$(vair,90); + x$$$:=hround(x$$$+.5hair-eps)-.5hair; pos$$$(hair,180); + y$=1/4x_height; bot y$$l=-oo; y$$$=1/3x_height; + if skewed.modifier: x$$=x$+1.25u; +% filldraw stroke z$e{-u,-x_height}...z$$e{right}...{up}z$$$e; % hook + else: x$$=x$+1.5u; +% filldraw stroke z$e{down}...z$$e{right} +% ...{x$$$-(x$+2.5u),x_height}z$$$e; +fi enddef; % empty_hook_out + +def hook_in(suffix $,$$,$$$)suffix modifier= % |x$| and |x$$$| (only) are known + x$:=hround(x$-.5hair)+.5hair; pos$(hair,180); + pos$$(vair,90); pos$$$(stem,0); + y$=2/3x_height; top y$$r=x_height+oo; y$$$=3/4x_height; + if skewed.modifier: x$$=x$$$-1.25u; + filldraw stroke z$e{up}...z$$e{right}...{-u,-x_height}z$$$e; % hook + else: x$$=x$$$-1.5u; + filldraw stroke z$e{x$$$-2.5u-x$,x_height} + ...z$$e{right}...{down}z$$$e; fi enddef; % hook + +def ital_arch(suffix $,$$,$$$) = % |z$| and |z$$$| (only) are known + pos$'(hair,180); z$'=z$; + pos$$(vair,90); pos$$$(stem,0); + {{interim superness := more_super; x$$=.6[x$,x$$$]; + top y$$r=x_height+oo; y$$$=.65x_height; + filldraw stroke z$'e{up}...super_arc.e($$,$$$);}} enddef; % stroke + +def compute_spread(expr normal_spread,big_spread)= + spread#:=math_spread[normal_spread,big_spread]; + spread:=ceiling(spread#*hppp)+eps; enddef; + +def v_center(expr h_sharp) = + .5h_sharp+math_axis#, .5h_sharp-math_axis# enddef; + +def circle_points = + x4=x8=.5[x2,x6]; x1=x3=superness[x4,x2]; x5=x7=superness[x4,x6]; + y2=y6=.5[y4,y8]; y1=y7=superness[y2,y8]; y3=y5=superness[y2,y4]; + enddef; +def draw_circle = + draw z8{right}...z1{z2-z8}...z2{down}...z3{z4-z2}...z4{left} + ...z5{z6-z4}...z6{up}...z7{z8-z6}...cycle enddef; + +def left_paren(expr min_breadth, max_breadth) = + pickup fine.nib; pos1(hround min_breadth,0); + pos2(hround max_breadth,0); pos3(hround min_breadth,0); + rt x1r=rt x3r=hround(w-1.25u+.5min_breadth); lft x2l=hround 1.25u; + top y1=h; y2=.5[y1,y3]; bot y3=1-d; + filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e + ...{3(x3e-x2e),y3-y2}z3e; % arc + penlabels(1,2,3); enddef; + +def right_paren(expr min_breadth, max_breadth) = + pickup fine.nib; pos1(hround min_breadth,0); + pos2(hround max_breadth,0); pos3(hround min_breadth,0); + lft x1l=lft x3l=hround(1.25u-.5min_breadth); rt x2r=hround(w-1.25u); + top y1=h; y2=.5[y1,y3]; bot y3=1-d; + filldraw stroke z1e{3(x2e-x1e),y2-y1}...z2e + ...{3(x3e-x2e),y3-y2}z3e; % arc + penlabels(1,2,3); enddef; + +def left_bracket(expr breadth,do_top,do_bot) = + pickup crisp.nib; + numeric thickness; thickness=hround breadth; + pos1(thickness,0); pos2(thickness,0); + top y1=h; bot y2=1-d; lft x1l=lft x2l=hround(2.5u-.5thickness); + filldraw stroke z1e--z2e; % stem + pos3(thickness,90); pos4(thickness,90); + pos5(thickness,90); pos6(thickness,90); + x3=x5=x1l; rt x4=rt x6=hround(w-.75u+.5thickness); + y3r=y4r=y1; y5l=y6l=y2; + if do_top: filldraw stroke z3e--z4e; fi % upper bar + if do_bot: filldraw stroke z5e--z6e; fi % lower bar + penlabels(1,2,3,4,5,6); enddef; + +def right_bracket(expr breadth,do_top,do_bot) = + pickup crisp.nib; + numeric thickness; thickness=hround breadth; + pos1(thickness,0); pos2(thickness,0); + top y1=h; bot y2=1-d; rt x1r=rt x2r=hround(w-2.5u+.5thickness); + filldraw stroke z1e--z2e; % stem + pos3(thickness,90); pos4(thickness,90); + pos5(thickness,90); pos6(thickness,90); + x3=x5=x1r; lft x4=lft x6=hround(.75u-.5thickness); + y3r=y4r=y1; y5l=y6l=y2; + if do_top: filldraw stroke z3e--z4e; fi % upper bar + if do_bot: filldraw stroke z5e--z6e; fi % lower bar + penlabels(1,2,3,4,5,6); enddef; + +def left_curly(expr min_breadth, max_breadth) = + pickup fine.nib; + forsuffixes $=1,1',4,4',7,7': pos$(hround min_breadth,0); endfor + forsuffixes $=2,3,5,6: pos$(hround max_breadth,0); endfor + x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4'; + lft x4l=hround(1.5u-.5min_breadth); lft x2l=hround(.5w-.5max_breadth); + top y1=h; bot y7=1-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5]; + y1-y2=y3-y4=(y1-y4)/4; + y1-y1'=y4-y4'=y7'-y7=vround(min_breadth-fine); + filldraw z1l{3(x2l-x1l),y2-y1}...z2l---z3l...{3(x4l-x3l),y4-y3}z4l + --z4'l{3(x5l-x4l),y5-y4'}...z5l---z6l...{3(x7l-x6l),y7-y6}z7l + --z7r--z7'r{3(x6r-x7r),y6-y7'}...z6r---z5r + ...{3(x4r-x5r),.5[y4,y4']-y5}.5[z4r,z4'r]{3(x3r-x4r),y3-.5[y4,y4']} + ...z3r---z2r...{3(x1r-x2r),y1'-y2}z1'r--z1r--cycle; % stroke + penlabels(1,2,3,4,5,6,7); enddef; + +def right_curly(expr min_breadth, max_breadth) = + pickup fine.nib; + forsuffixes $=1,1',4,4',7,7': pos$(hround min_breadth,0); endfor + forsuffixes $=2,3,5,6: pos$(hround max_breadth,0); endfor + x2=x3=x5=x6; x1=x1'=x7=x7'=w-x4=w-x4'; + lft x1l=hround(1.5u-.5min_breadth); lft x2l=hround(.5w-.5max_breadth); + top y1=h; bot y7=1-d; .5[y4,y4']=.5[y1,y7]=.5[y2,y6]=.5[y3,y5]; + y1-y2=y3-y4=(y1-y4)/4; + y1-y1'=y4-y4'=y7'-y7=vround(min_breadth-fine); + filldraw z1r{3(x2r-x1r),y2-y1}...z2r---z3r...{3(x4r-x3r),y4-y3}z4r + --z4'r{3(x5r-x4r),y5-y4'}...z5r---z6r...{3(x7r-x6r),y7-y6}z7r + --z7l--z7'l{3(x6l-x7l),y6-y7'}...z6l---z5l + ...{3(x4l-x5l),.5[y4,y4']-y5}.5[z4l,z4'l]{3(x3l-x4l),y3-.5[y4,y4']} + ...z3l---z2l...{3(x1l-x2l),y1'-y2}z1'l--z1l--cycle; % stroke + penlabels(1,2,3,4,5,6,7); enddef; + +def left_angle(expr breadth) = + pickup pencircle scaled breadth; + x1=x3=good.x(w-u)+eps; lft x2=hround u-eps; + top y1=h+eps; .5[y1,y3]=y2=good.y .5[-d+eps,h]; + draw z1--z2--z3; % diagonals + labels(1,2,3); enddef; + +def right_angle(expr breadth) = + pickup pencircle scaled breadth; + x1=x3=good.x u-eps; rt x2=hround(w-u)+eps; + top y1=h+eps; .5[y1,y3]=y2=good.y .5[-d+eps,h]; + draw z1--z2--z3; % diagonals + labels(1,2,3); enddef; + +def big_slash(expr breadth) = + adjust_fit(-letter_fit#,-letter_fit#); pickup pencircle scaled breadth; + rt x1=hround(w-u); lft x2=hround u; top y1=h+eps; bot y2=1-d-eps; + draw z1--z2; % diagonal + labels(1,2); enddef; + +def big_blash(expr breadth) = + adjust_fit(-letter_fit#,-letter_fit#); pickup pencircle scaled breadth; + lft x1=hround u; rt x2=hround(w-u); top y1=h+eps; bot y2=1-d-eps; + draw z1--z2; % diagonal + labels(1,2); enddef; + +def big_sqrt = + adjust_fit(0,-letter_fit#); pickup rule.nib; + x1=good.x 4/9w; x2=good.x(w+.5); bot y1=-d; bot y2=0; + draw z1--z2; % diagonal + pickup crisp.nib; pos3(max(curve,rule_thickness),0); + x3l=1.5[x2,x1]; y3=.5[y1,y2]; + pos4(rule_thickness,0); x4=x1; bot y4=-d; + pos5(vair,-45); x5l=good.x(x3l-u); z5l=whatever[z3r,z2]; + z6=z5r+whatever*(z2-z3r)=whatever[z3l,z4l]; + z7=whatever[z1,z2]=z3r+whatever*(z4l-z3l); + filldraw z5r--z6--z4l--z4--z7--z3r--z5l--cycle; % left diagonal and serif + penlabels(1,2,3,4,5,6,7); enddef; + +def big_hat = + adjust_fit(0,0); + pickup crisp.nib; pos2(.6[vair,curve],90); top y2r=h+o; x2=.5w; + x1=w-x3=good.x -eps; y1=y3=.5[x_height,y2]; + pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90); + filldraw stroke z1e--z2e--z3e; % diagonals + penlabels(1,2,3); enddef; + +def big_tilde = + adjust_fit(0,0); pickup crisp.nib; + numeric theta; theta=angle(1/6(w-vair),1/4(h-x_height)); + numeric mid_width; mid_width=.4[vair,stem]; + pos1(vair,theta+90); pos2(vair,theta+90); + pos3(vair,theta+90); pos4(vair,theta+90); + z2-z1=z4-z3=(mid_width-crisp)*dir theta; + lft x1r=w-rt x4l=0; top y4r=h; + bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r); + pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta; + filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l + --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke + penlabels(1,2,3,4); enddef; + +def beginarithchar(expr c) = % ensure consistent dimensions for $+$, $-$, etc. + if monospace: beginchar(c,14u#,27/7u#+math_axis#,27/7u#-math_axis#); + else: beginchar(c,14u#,6u#+math_axis#,6u#-math_axis#); fi + italcorr math_axis#*slant-.5u#; + adjust_fit(0,0); enddef; + +newinternal l,r,shrink_fit; % adjustments to spacing + +def normal_adjust_fit(expr left_adjustment,right_adjustment) = + numeric expansion_factor; + mono_charwd#=2letter_fit# + +expansion_factor*(charwd+left_adjustment+right_adjustment); + l:=-hround(left_adjustment*hppp)-letter_fit; + interim xoffset:=-l; + charwd:=charwd+2letter_fit#+left_adjustment+right_adjustment; + r:=l+hround(charwd*hppp)-shrink_fit; + w:=r-hround(right_adjustment*hppp)-letter_fit; + if monospace: + forsuffixes $=u,jut,cap_jut,beak_jut,apex_corr: + $:=$.#*hppp; endfor + fi + enddef; + +def mono_adjust_fit(expr left_adjustment,right_adjustment) = + numeric expansion_factor; + mono_charwd#=2letter_fit# + +expansion_factor*(charwd+left_adjustment+right_adjustment); + forsuffixes $=u,jut,cap_jut,beak_jut,apex_corr: + $:=$.#*expansion_factor*hppp; endfor + l:=-hround(left_adjustment*expansion_factor*hppp)-letter_fit; + interim xoffset:=-l; + r:=l+mono_charwd-shrink_fit; + w:=r-hround(right_adjustment*expansion_factor*hppp)-letter_fit; + charwd:=mono_charwd#; charic:=mono_charic#; + enddef; + +extra_endchar:=extra_endchar&"r:=r+shrink_fit;w:=r-l;"; + +def ignore_math_fit(expr left_adjustment,right_adjustment) = enddef; +def do_math_fit(expr left_adjustment,right_adjustment) = + l:=l-hround(left_adjustment*hppp); interim xoffset:=-l; + charwd:=charwd+left_adjustment+right_adjustment; + r:=l+hround(charwd*hppp)-shrink_fit; + charic:=charic-right_adjustment; + if charic<0: charic:=0; fi enddef; +def zero_width = charwd:=0; r:=l-shrink_fit enddef; +def change_width = if not monospace: % change width by $\pm1$ + if r+shrink_fit-l=floor(charwd*hppp): w:=w+1; r:=r+1; + else: w:=w-1; r:=r-1; fi fi enddef; +def padded expr del_sharp = + charht:=charht+del_sharp; chardp:=chardp+del_sharp enddef; + +def font_setup = + if monospace: let adjust_fit=mono_adjust_fit; + def mfudged=fudged enddef; + mono_charic#:=body_height#*slant; + if mono_charic#<0: mono_charic#:=0; fi + mono_charwd#:=9u#; define_whole_pixels(mono_charwd); + else: let adjust_fit=normal_adjust_fit; + def mfudged= enddef; fi + if math_fitting: let math_fit=do_math_fit + else: let math_fit=ignore_math_fit fi; + define_pixels(u,width_adj,serif_fit,cap_serif_fit,jut,cap_jut,beak, + bar_height,dish,bracket,beak_jut,stem_corr,vair_corr,apex_corr); + define_blacker_pixels(notch_cut,cap_notch_cut); + forsuffixes $=notch_cut,cap_notch_cut: if $<3: $:=3; fi endfor + define_whole_pixels(letter_fit,fine,crisp,tiny); + define_whole_vertical_pixels(body_height,asc_height, + cap_height,acc_height,fig_height,x_height,comma_depth,desc_depth,serif_drop); + define_whole_blacker_pixels(thin_join,hair,stem,curve,flare, + dot_size,cap_hair,cap_stem,cap_curve); + define_whole_vertical_blacker_pixels(vair,bar,slab,cap_bar,cap_band); + define_corrected_pixels(o,apex_o); + forsuffixes $=hair,stem,cap_stem: + fudged$.#:=fudge*$.#; fudged$:=hround(fudged$.#*hppp+blacker); + forever: exitif fudged$>.9fudge*$; fudged$:=fudged$+1; endfor endfor + rule_thickness:=ceiling(rule_thickness#*hppp); + heavy_rule_thickness:=ceiling(3rule_thickness#*hppp); + oo:=vround(.5o#*hppp*o_correction)+eps; + apex_oo:=vround(.5apex_o#*hppp*o_correction)+eps; + lowres_fix(stem,curve,flare) 1.3; + lowres_fix(stem,curve) 1.2; + lowres_fix(cap_stem,cap_curve) 1.2; + lowres_fix(hair,cap_hair) 1.2; + lowres_fix(cap_band,cap_bar,bar,slab) 1.2; + stem':=hround(stem-stem_corr); cap_stem':=hround(cap_stem-stem_corr); + vair':=vround(vair+vair_corr); + vstem:=vround .8[vair,stem]; cap_vstem:=vround .8[vair,cap_stem]; + ess:=(ess#/stem#)*stem; cap_ess:=(cap_ess#/cap_stem#)*cap_stem; + dw:=(curve#-stem#)*hppp; bold:=curve#*hppp+blacker; + dh#:=.6designsize; + stem_shift#:=if serifs: 2stem_corr# else: 0 fi; + more_super:=max(superness,sqrt .77superness); + hein_super:=max(superness,sqrt .81225258superness); % that's $2^{-.3}$ + clear_pen_memory; + if fine=0: fine:=1; fi + forsuffixes $=fine,crisp,tiny: +%%% fine $ %%%% temporary formatting convention for MFT + if $>fudged.hair: $:=fudged.hair; fi + $.breadth:=$; + pickup if $=0: nullpen else: pencircle scaled $; $:=$-eps fi; + $.nib:=savepen; breadth_[$.nib]:=$; + forsuffixes $$=lft,rt,top,bot: shiftdef($.$$,$$ 0); endfor endfor +%%% @ $ %%%% restore ordinary formatting for $ + min_Vround:=max(fine.breadth,crisp.breadth,tiny.breadth); + if min_Vround<vround min_Vround: min_Vround:=vround min_Vround; fi + if flare<vround flare: flare:=vround flare; fi + forsuffixes $=vair,bar,slab,cap_bar,cap_band,vair',vstem,cap_vstem,bold: + if $<min_Vround: $:=min_Vround; fi endfor + pickup pencircle scaled min(hair,vair); extra_rule.nib :=savepen; + pickup pencircle scaled rule_thickness; rule.nib:=savepen; + math_axis:=good.y(math_axis#*hppp); + pickup pencircle scaled if hefty:(.6[vair,fudged.hair]) else:fudged.hair fi; + light_rule.nib:=savepen; + currenttransform:=identity slanted slant + yscaled aspect_ratio scaled granularity; + if currenttransform=identity: let t_=relax + else: def t_ = transformed currenttransform enddef fi; + numeric paren_depth#; .5[body_height#,-paren_depth#]=math_axis#; + numeric asc_depth#; .5[asc_height#,-asc_depth#]=math_axis#; + body_depth:=desc_depth+body_height-asc_height; + shrink_fit:=1+hround(2letter_fit#*hppp)-2letter_fit; + if not string mode: if mode<=smoke: shrink_fit:=0; fi fi + enddef; + +def shiftdef(suffix $)(expr delta) = + vardef $ primary x = x+delta enddef enddef; + +def makebox(text rule) = + for y=0,(cap_height+acc_height), + asc_height,body_height,x_height,bar_height,-desc_depth,-body_depth: + rule((l,y)t_,(r,y)t_); endfor % horizontals + + for y=-3.5pt,8.5pt,(x_height+acc_height): + rule((l-4pt,y)t_,(l-2pt,y)t_); endfor + for x=l,r: rule((x,-body_depth)t_,(x,body_height)t_); endfor % verticals + for x=u*(1+floor(l/u)) step u until r-1: + rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals + + for x=0.5w: + rule((x,-body_depth-1pt)t_,(x,-body_depth-1.5pt)t_); + rule((x,cap_height+acc_height+1pt)t_,(x,cap_height+acc_height+1.5pt)t_); + endfor + if charic<>0: + rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction + enddef; +def maketicks(text rule) = + for y=0,h.o_,-d.o_: + rule((l,y),(l+10,y)); rule((r-10,y),(r,y)); endfor % horizontals + for x=l,r: + rule((x,10-d.o_),(x,-d.o_)); rule((x,h.o_-10),(x,h.o_)); endfor % verticals + if charic<>0: + rule((r+charic*pt,h.o_-10),(r+charic*pt,h.o_)); fi % italic correction + enddef; +rulepen:=pensquare; + +vardef stroke text t = + forsuffixes e = l,r: path_.e:=t; endfor + if cycle path_.l: + errmessage "Beware: `stroke' isn't intended for cycles"; fi + path_.l -- reverse path_.r -- cycle enddef; + +vardef circ_stroke text t = + forsuffixes e = l,r: path_.e:=t; endfor + if cycle path_.l: + errmessage "Beware: `stroke' isn't intended for cycles"; fi + path_.l -- reverse path_.r .. cycle enddef; + +vardef super_arc.r(suffix $,$$) = % outside of super-ellipse + pair center,corner; + if y$=y$r: center=(x$$r,y$r); corner=(x$r,y$$r); + else: center=(x$r,y$$r); corner=(x$$r,y$r); fi + z$.r{corner-z$.r}...superness[center,corner]{z$$.r-z$.r} + ...{z$$.r-corner}z$$.r enddef; + +vardef super_arc.l(suffix $,$$) = % inside of super-ellipse + pair center,corner; + if y$=y$r: center=(x$$l,y$l); corner=(x$l,y$$l); + else: center=(x$l,y$$l); corner=(x$$l,y$l); fi + z$l{corner-z$l}...superness[center,corner]{z$$l-z$l} + ...{z$$l-corner}z$$l enddef; + +vardef pulled_super_arc.r(suffix $,$$)(expr superpull) = + pair center,corner; + if y$=y$r: center=(x$$r,y$r); corner=(x$r,y$$r); + else: center=(x$r,y$$r); corner=(x$$r,y$r); fi + z$r{corner-z$r}...superness[center,corner]{z$$r-z$r} + ...{z$$r-corner}z$$r enddef; + +vardef pulled_super_arc.l(suffix $,$$)(expr superpull) = + pair center,corner,outer_point; + if y$=y$r: center=(x$$l,y$l); corner=(x$l,y$$l); + outer_point=superness[(x$$r,y$r),(x$r,y$$r)]; + else: center=(x$l,y$$l); corner=(x$$l,y$l); + outer_point=superness[(x$r,y$$r),(x$$r,y$r)]; fi + z$l{corner-z$l} + ...superpull[superness[center,corner],outer_point]{z$$l-z$l} + ...{z$$l-corner}z$$l enddef; + +vardef pulled_arc@#(suffix $,$$) = + pulled_super_arc@#($,$$)(superpull) enddef; + +vardef serif_arc(suffix $,$$) = + z${x$$-x$,0}...(.75[x$,x$$],.25[y$,y$$]){z$$-z$}...{0,y$$-y$}z$$ enddef; + +vardef penpos@#(expr b,d) = + if known b: if b<=0: + errmessage "bad penpos (width is negative)"; fi fi + (x@#r-x@#l,y@#r-y@#l)=(b,0) rotated d; + x@#=.5(x@#l+x@#r); y@#=.5(y@#l+y@#r) enddef; + +newinternal currentbreadth; +vardef pos@#(expr b,d) = + if known b: if b<=currentbreadth: + errmessage "bad pos (breadth of current pen wider than pos width)"; fi fi + (x@#r-x@#l,y@#r-y@#l)=(b-currentbreadth,0) rotated d; + x@#=.5(x@#l+x@#r); y@#=.5(y@#l+y@#r) enddef; +def numeric_pickup_ primary q = + currentpen:=pen_[q]; + pen_lft:=pen_lft_[q]; pen_rt:=pen_rt_[q]; + pen_top:=pen_top_[q]; pen_bot:=pen_bot_[q]; + currentpen_path:=pen_path_[q]; + if known breadth_[q]: currentbreadth:=breadth_[q]; fi enddef; + +vardef ic# = charic enddef; +vardef h# = charht enddef; +vardef w# = charwd enddef; +vardef d# = chardp enddef; + +let {{=begingroup; let }}=endgroup; +def .... = .. tension atleast .9 .. enddef; +def less_tense = save ...; let ...=.... enddef; +def ?? = hide(showvariable x,y) enddef; + +let semi_ =;; let colon_ = :; let endchar_ = endchar; +def iff expr b = if b:let next_=use_it else:let next_=lose_it fi; next_ enddef; +def use_it = let : = restore_colon; enddef; +def restore_colon = let : = colon_; enddef; +def lose_it = let endchar=fi; inner dcchar; let ;=fix_ semi_ if false enddef; +def fix_=let ;=semi_; let endchar=endchar_; outer dcchar; enddef; +def always_iff = let : = endgroup; killboolean enddef; +def killboolean text t = use_it enddef; +outer dcchar; + +% +% special routines for accenting +% +vardef uppercase_hat + (expr x_center,y_move,hat_zero,hat_one,hat_two,hat_three,hat_four) = +if serifs: + pickup crisp.nib; + pos[hat_two](.5[vair,curve],90); + top y[hat_two]r=cap_accent_height+oo; + x[hat_two]=good.x x_center; % optically centered + x[hat_one]=good.x x[hat_two]-2.25u if monospace: /expansion_factor fi ; + x[hat_three]=2x[hat_two]-x[hat_one]; +% |accent_gap| is defined by the acute accent, it is known when needed + y[hat_one]=y[hat_three] = accent_gap + cap_height; + pos[hat_one](hair,angle(z[hat_two]-z[hat_one])+90); + pos[hat_three](hair,angle(z[hat_three]-z[hat_two])+90); + filldraw stroke z[hat_one]e--z[hat_two]e--z[hat_three]e; % diagonals +else: + pickup fine.nib; + pos[hat_one](vair,0); + pos[hat_three](vair,0); + pos[hat_two](stem,0); + top y[hat_two]=cap_accent_height+oo; + x[hat_two]=good.x x_center; % optically centered + x[hat_one]=good.x x[hat_two]-2.25u if monospace: /expansion_factor fi ; + x[hat_three]=2x[hat_two]-x[hat_one]; +% |accent_gap| is defined by the acute accent, it is known when needed + bot y[hat_one]=bot y[hat_three]=.5accent_gap + cap_height; + z[hat_zero]=whatever[z[hat_one]r,z[hat_two]r]= + whatever[z[hat_two]l,z[hat_three]l]; + y[hat_four]l=y[hat_four]r=y[hat_two]; + x[hat_four]l=good.x .2[x[hat_two]l,x[hat_two]]; + x[hat_four]r=w-x[hat_four]l; + filldraw z[hat_four]l--z[hat_one]l--z[hat_one]r-- + z[hat_zero]--z[hat_three]l-- + z[hat_three]r--z[hat_four]r--cycle; fi % diagonals +enddef; +% +vardef lowercase_hat + (expr x_center,y_move,hat_zero,hat_one,hat_two,hat_three,hat_four) = +if serifs: + pickup crisp.nib; + pos[hat_two](.5[vair,curve],90); + top y[hat_two]r=h+y_move; + x[hat_two]=good.x x_center; % optically centered + x[hat_one]=good.x x[hat_two]-2.25u if monospace: /expansion_factor fi ; + x[hat_three]=2x[hat_two]-x[hat_one]; + y[hat_one]=y[hat_three] = + max(y[hat_two]-0.5(min(asc_height,2x_height)-x_height), + 1/6[x_height,h]); + pos[hat_one](hair,angle(z[hat_two]-z[hat_one])+90); + pos[hat_three](hair,angle(z[hat_three]-z[hat_two])+90); + filldraw stroke z[hat_one]e--z[hat_two]e--z[hat_three]e; % diagonals +else: + pickup fine.nib; + pos[hat_one](vair,0); + pos[hat_three](vair,0); + pos[hat_two](stem,0); + top y[hat_two]=h+y_move; + x[hat_two]=good.x x_center; % optically centered + x[hat_one]=good.x x[hat_two]-2.25u if monospace: /expansion_factor fi ; + x[hat_three]=2x[hat_two]-x[hat_one]; + bot y[hat_one]=bot y[hat_three]=vround (2/3[h,x_height]-eps); + % same slope as in the acute accent + z[hat_zero]=whatever[z[hat_one]r,z[hat_two]r]= + whatever[z[hat_two]l,z[hat_three]l]; + y[hat_four]l=y[hat_four]r=y[hat_two]; + x[hat_four]l=good.x .2[x[hat_two]l,x[hat_two]]; + x[hat_four]r=w-x[hat_four]l; + filldraw z[hat_four]l--z[hat_one]l--z[hat_one]r-- + z[hat_zero]--z[hat_three]l-- + z[hat_three]r--z[hat_four]r--cycle; fi % diagonals +enddef; +% +% +vardef lowercase_tilde(expr x_move,y_move,tilde_one,tilde_two,tilde_three, + tilde_four,tilde_five)= +h':=min(asc_height,10/7x_height+.5dot_size); +if serifs: numeric theta; + theta=angle(1/6( + 6u if monospace: /expansion_factor fi-vair), + 1/4(h'-x_height)); + pickup crisp.nib; + numeric mid_width; mid_width=.4[vair,stem]; + pos[tilde_one](vair,theta+90); + pos[tilde_two](vair,theta+90); + pos[tilde_three](vair,theta+90); + pos[tilde_four](vair,theta+90); + z[tilde_two]-z[tilde_one]= + z[tilde_four]-z[tilde_three]=(mid_width-crisp)*dir theta; + lft x[tilde_one]r=hround(x_move+0.5w-3u if monospace: /expansion_factor fi); + rt x[tilde_four]l=hround(x_move+0.5w+3u if monospace: /expansion_factor fi); + top y[tilde_four]r=h'; + bot y[tilde_one]l=vround(bot y[tilde_one]l+ + min(2/3[x_height,h'],y[tilde_three]l-.25vair)-top y[tilde_one]r); + pair delta; + ypart delta=3(y[tilde_three]l-y[tilde_one]l); + delta=whatever*dir theta; + filldraw z[tilde_one]l.. + controls(z[tilde_one]l+ + delta)and(z[tilde_three]l-delta)..z[tilde_three]l..z[tilde_four]l + --z[tilde_four]r.. + controls(z[tilde_four]r-delta)and(z[tilde_two]r+delta).. + z[tilde_two]r..z[tilde_one]r--cycle; % stroke +else: + pickup fine.nib; + pos[tilde_one](vair,180); + pos[tilde_two](vair,90); + pos[tilde_three](.5[vair,slab],90); + pos[tilde_four](vair,90); + pos[tilde_five](vair,180); + lft x[tilde_one]r=hround (x_move + 0.5w-3u); + rt x[tilde_five]l=hround (x_move + 0.5w+3u); + x[tilde_two]-x[tilde_one]= + x[tilde_three]-x[tilde_two]= + x[tilde_four]-x[tilde_three]=x[tilde_five]-x[tilde_four]; + bot y[tilde_one]=bot y[tilde_four]l=y_move+vround(.75[x_height,h]-vair); + top y[tilde_two]r=top y[tilde_five]=h+y_move; + y[tilde_three]=.5[y[tilde_two],y[tilde_four]]; + filldraw stroke + z[tilde_one]e{up}... + z[tilde_two]e{right}.. + z[tilde_three]e.. + {right}z[tilde_four]e...{up}z[tilde_five]e; fi % stroke +enddef; + +% +vardef uppercase_tilde(expr x_move,y_move,tilde_one,tilde_two,tilde_three, + tilde_four,tilde_five)= +if serifs: numeric theta; + theta=angle(1/6( + 6u if monospace: /expansion_factor fi-vair), + 1/4(acc_height+uc_acc_shift)); + pickup crisp.nib; + numeric mid_width; mid_width=.4[vair,stem]; + pos[tilde_one](vair,theta+90); + pos[tilde_two](vair,theta+90); + pos[tilde_three](vair,theta+90); + pos[tilde_four](vair,theta+90); + z[tilde_two]-z[tilde_one]= + z[tilde_four]-z[tilde_three]=(mid_width-crisp)*dir theta; + lft x[tilde_one]r=hround(x_move+0.5w-3u if monospace: /expansion_factor fi); + rt x[tilde_four]l=hround(x_move+0.5w+3u if monospace: /expansion_factor fi); + top y[tilde_four]r=h; +% |accent_gap| is defined by the acute accent, it is known when needed + bot y[tilde_one]l=accent_gap+cap_height; + pair delta; + ypart delta=3(y[tilde_three]l-y[tilde_one]l); + delta=whatever*dir theta; + filldraw z[tilde_one]l.. + controls(z[tilde_one]l+ + delta)and(z[tilde_three]l-delta)..z[tilde_three]l..z[tilde_four]l + --z[tilde_four]r.. + controls(z[tilde_four]r-delta)and(z[tilde_two]r+delta).. + z[tilde_two]r..z[tilde_one]r--cycle; % stroke +else: + pickup fine.nib; + pos[tilde_one](vair,180); + pos[tilde_two](vair,90); + pos[tilde_three](.5[vair,slab],90); + pos[tilde_four](vair,90); + pos[tilde_five](vair,180); + lft x[tilde_one]r=w-rt x[tilde_five]l=hround 1.5u+0.5(w-9u); + x[tilde_two]-x[tilde_one]= + x[tilde_three]-x[tilde_two]= + x[tilde_four]-x[tilde_three]=x[tilde_five]-x[tilde_four]; +% |accent_gap| is defined by the acute accent, it is known when needed + bot y[tilde_one]=bot y[tilde_four]l=cap_height+.5accent_gap; + top y[tilde_two]r=top y[tilde_five]=h; + y[tilde_three]=.5[y[tilde_two],y[tilde_four]]; + filldraw stroke + z[tilde_one]e{up}... + z[tilde_two]e{right}.. + z[tilde_three]e.. + {right}z[tilde_four]e...{up}z[tilde_five]e; fi % stroke +enddef; +% +% +% +vardef lowercase_umlaut(expr x_move,y_move,umlaut_one,umlaut_two, + umlaut_three,umlaut_four) = +pickup tiny.nib; +pos[umlaut_one](udot_diam,0); +pos[umlaut_two](udot_diam,90); +x[umlaut_one]=x[umlaut_two]=x_move+.5w-1.75u if monospace:/expansion_factor fi ; +top y[umlaut_two]r=lc_trema_height; +y[umlaut_one]=y_move+.5[y[umlaut_two]l,y[umlaut_two]r]; +dot([umlaut_one],[umlaut_two]); % left dot +pos[umlaut_three](udot_diam,0); +penpos[umlaut_four](y[umlaut_two]r-y[umlaut_two]l,90); +y[umlaut_three]=y[umlaut_four]=y[umlaut_one]; +x[umlaut_three]=x[umlaut_four]=x[umlaut_one] + +3.5u if monospace: /expansion_factor fi ; +dot([umlaut_three],[umlaut_four]); % right dot +enddef; +% +vardef uppercase_umlaut(expr x_move,y_move,umlaut_one,umlaut_two, + umlaut_three,umlaut_four) = +pickup tiny.nib; +pos[umlaut_one](udot_diam,0); +pos[umlaut_two](udot_diam,90); +x[umlaut_one]=x[umlaut_two]=x_move+.5w-1.75u if monospace:/expansion_factor fi ; +top y[umlaut_two]r=vround(cap_height+dot_height#*hppp); +y[umlaut_one]=y_move+.5[y[umlaut_two]l,y[umlaut_two]r]; +dot([umlaut_one],[umlaut_two]); % left dot +pos[umlaut_three](udot_diam,0); +penpos[umlaut_four](y[umlaut_two]r-y[umlaut_two]l,90); +y[umlaut_three]=y[umlaut_four]=y[umlaut_one]; +x[umlaut_three]=x[umlaut_four]=x[umlaut_one] + +3.5u if monospace: /expansion_factor fi ; +dot([umlaut_three],[umlaut_four]); % right dot +enddef; +% +% +vardef lowercase_circle(expr + x_center,y_bottom,circ_one,circ_two,circ_three,circ_four)= +numeric circ_hair,circ_vair; +circ_hair=hround min(hair,u if monospace: /expansion_factor fi +.5); +circ_vair=vround min(vair,(h-x_height)/6+.5); +penpos[circ_one](circ_vair,90); penpos[circ_three](circ_vair,-90); +penpos[circ_two](circ_hair,180); penpos[circ_four](circ_hair,0); +x[circ_one]=x[circ_three]=x_center; % +x[circ_two]r=hround(x[circ_one]-1.5u-.5circ_hair); +x[circ_four]r=hround(x[circ_one]+1.5u+.5circ_hair); +y[circ_one]r=h+apex_o; +y[circ_two]=y[circ_four]=.5[y[circ_one],y[circ_three]]; +y[circ_three]l=vround y_bottom; % (1/3[x_height,h]+apex_o); +penstroke pulled_arc.e([circ_one],[circ_two]) + & pulled_arc.e([circ_two],[circ_three]) + & pulled_arc.e([circ_three],[circ_four]) + & pulled_arc.e([circ_four],[circ_one]) & cycle; % bowl +enddef; +% +vardef uppercase_circle(expr + x_center,y_bottom,circ_one,circ_two,circ_three,circ_four)= +numeric circ_hair,circ_vair; +circ_hair=hround min(hair,u if monospace: /expansion_factor fi +.5); +circ_vair=vround vair; % min(vair,(h-x_height)/6+.5); +penpos[circ_one](circ_vair,90); penpos[circ_three](circ_vair,-90); +penpos[circ_two](circ_hair,180); penpos[circ_four](circ_hair,0); +x[circ_one]=x[circ_three]=x_center; % .5w; +x[circ_two]r + = hround(x[circ_one]-1.5u if monospace: /expansion_factor fi -.5circ_hair); +x[circ_four]r + = hround(x[circ_one]+1.5u if monospace: /expansion_factor fi +.5circ_hair); +y[circ_one]r=cap_height + acc_height+apex_o; +y[circ_two]=y[circ_four]=.5[y[circ_one],y[circ_three]]; +y[circ_three]l=vround y_bottom; % (1/3[x_height,h]+apex_o); +penstroke pulled_arc.e([circ_one],[circ_two]) + & pulled_arc.e([circ_two],[circ_three]) + & pulled_arc.e([circ_three],[circ_four]) + & pulled_arc.e([circ_four],[circ_one]) & cycle; % bowl +enddef; +% +% +vardef lowercase_cedilla (expr x_center,y_move, + cedi_one,cedi_two,cedi_three,cedi_four,cedi_five) = +x[cedi_one]=x_center; % .5w+.5u; +if serifs: + pickup crisp.nib; + pos[cedi_one](stem,0); + pos[cedi_two](stem,0); + pos[cedi_three](vair,90); + pos[cedi_four](stem,0); + pos[cedi_five](vair,-90); + x[cedi_one]=x[cedi_two]; + z[cedi_three]l=z[cedi_two]l; + x[cedi_four]=x[cedi_two]+1.5u; + x[cedi_five]=x[cedi_three]-1.5u; + bot y[cedi_one]=0; + bot y[cedi_two]=-vround 2/7d-o; + y[cedi_four]=.5[y[cedi_three],y[cedi_five]]; + bot y[cedi_five]=-d-o; + filldraw stroke z[cedi_one]e--z[cedi_two]e; % stem + filldraw stroke z[cedi_three]e{right}... + z[cedi_four]e{down}...{left}z[cedi_five]e; % hook +else: pickup fine.nib; pos[cedi_one](vair,0); top y[cedi_one]=-o-2; + pos[cedi_two](.5[vair,stem],0); + bot y[cedi_two]=-d-o; x[cedi_two]=x[cedi_one]-1.25u; + filldraw stroke z[cedi_one]e--z[cedi_two]e; fi % diagonal +enddef; +% +vardef uppercase_cedilla(expr x_center,y_move, + cedi_one,cedi_two,cedi_three,cedi_four,cedi_five) = +x[cedi_one]=x_center;; +if serifs: + pickup crisp.nib; + pos[cedi_one](stem,0); + pos[cedi_two](stem,0); + pos[cedi_three](vair,90); + pos[cedi_four](stem,0); + pos[cedi_five](vair,-90); + x[cedi_one]=x[cedi_two]; + z[cedi_three]l=z[cedi_two]l; + x[cedi_four]=x[cedi_two]+1.5u if monospace: /expansion_factor fi; + x[cedi_five]=x[cedi_three]-1.5u if monospace: /expansion_factor fi; + top y[cedi_one]=y_move; + bot y[cedi_two]=-vround 2/7d-o; + y[cedi_four]=.5[y[cedi_three],y[cedi_five]]; + bot y[cedi_five]=-d-o; + filldraw stroke z[cedi_one]e--z[cedi_two]e; % stem + filldraw stroke z[cedi_three]e{right}... + z[cedi_four]e{down}...{left}z[cedi_five]e; % hook +else: pickup fine.nib; pos[cedi_one](vair,0); + top y[cedi_one]=-o-2; + pos[cedi_two](.5[vair,stem],0); + bot y[cedi_two]=-d-o; x[cedi_two] = + x[cedi_one]-1.25u if monospace: /expansion_factor fi; + filldraw stroke z[cedi_one]e--z[cedi_two]e; fi % diagonal +enddef; +% +% +vardef lowercase_breve(expr x_center,y_move,breve_one,breve_two,breve_three)= +pickup crisp.nib; pos[breve_one](vair,-180); +pos[breve_three](vair,0); +top y[breve_one]=top y[breve_three]=h; +x[breve_two]=x_center; +lft x[breve_one]r=hround(x[breve_two]-2.5u + if monospace: /expansion_factor fi -0.5vair); +rt x[breve_three]r=hround(x[breve_two]+2.5u + if monospace: /expansion_factor fi +0.5vair); +numeric mid_thickness; mid_thickness=vround 1/3[vair,stem]; +pos[breve_two](mid_thickness,-90); +bot y[breve_two]r= + vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness); +filldraw stroke z[breve_one]e{down}... + z[breve_two]e{right}...{up}z[breve_three]e; % stroke +enddef; +% +vardef uppercase_breve (expr x_center,y_move,breve_one, + breve_two,breve_three)= +pickup crisp.nib; pos[breve_one](vair,-180); +pos[breve_three](vair,0); +top y[breve_one]=top y[breve_three]=cap_height + acc_height; +x[breve_two]=hround x_center; +x[breve_two]-rt x[breve_one]l + =(lft x[breve_three]l)-x[breve_two] + =hround (2.5u if monospace: /expansion_factor fi -.5vair); +numeric mid_thickness; +mid_thickness=vround min(1/3[vair,stem],.5acc_height); +pos[breve_two](mid_thickness,-90); +% |accent_gap| is defined by the acute accent, it is known when needed +bot y[breve_two]r=cap_height + if hefty: .5 fi accent_gap; +filldraw stroke z[breve_one]e{down}...z[breve_two]e{right}... + {up}z[breve_three]e; % stroke +enddef; + +% +vardef lowercase_ogonek(expr x_move,y_move,ogon_one,ogon_two,ogon_three) = +x[ogon_one]r=x_move; + pickup crisp.nib; + pos[ogon_one]( + if currentbreadth<0.9vair: 0.9vair else: currentbreadth+eps fi,-60); + pos[ogon_two](stem,0); + pos[ogon_three](vair,145); + x[ogon_two]=x[ogon_one]-2.5u if monospace: / expansion_factor fi ; + x[ogon_three]=x[ogon_one]+0.5u if monospace: / expansion_factor fi ; + bot y[ogon_one]r = y_move; + bot y[ogon_three]=0.5(-d-o)+y_move; %0.4 + bot y[ogon_two]=0.5(-d-o)+y_move; + filldraw stroke z[ogon_one]e{dir 225}... + z[ogon_two]e{dir -110}...{dir 60}z[ogon_three]e; % hook +enddef; +% +% +% +% some extra font parameters +% +def font_character_set expr x = fontdimen 8: x enddef; +def font_baselineskip expr x = fontdimen 9: x enddef; +def font_acc_height expr x = fontdimen 10: x enddef; +def font_cap_height expr x = fontdimen 11: x enddef; +def font_asc_height expr x = fontdimen 12: x enddef; +def font_rule_thickness expr x = fontdimen 13: x enddef; + + + +% +% XXXXXXX The following routines generate the parameter +% X X sets by extrapolation +% X X +% X X +% X X +% XXXX XXXX +% X X +% X X +% X X +% X X +% X X +% X +% +% +% needed variables +% + +vardef simple_gendef@#(text aa)(text t)= +string s[]; +s1:=""; +s2:=str @#; +index:=1; +forsuffixes $=t: ydata[index]:=$ if s1<>s2: *@# fi; + index:=index+1; +endfor; +if numpoints>(index-1): errmessage "Missing parameter"; message str aa; fi; +if numpoints<(index-1): errmessage "too much parameter"; message str aa; fi; +aa:=ydata[merke]; +if gencheck: message str aa fi; +enddef; + +vardef extended_gendef@#(text aa)(text t)= +string s[]; +s1:=""; +s2:=str @#; +index:=1; +forsuffixes $=t: ydata[index]:=$ if s1<>s2: *@# fi; + index:=index+1; +endfor; +if numpoints>(index-1): errmessage "missing parameter"; message str aa; fi; +if numpoints<(index-1): errmessage "too much parameter"; message str aa; fi; +if gensize>basedata[numpoints]: + numeric hilf []; + hilf[1]:=(ydata[numpoints]-ydata[numpoints-1])/(basedata[numpoints]-basedata[numpoints-1]); + hilf[2]:=(ydata[numpoints]-ydata[numpoints-2])/(basedata[numpoints]-basedata[numpoints-2]); + hilf[3]:=ydata[numpoints]-hilf1*basedata[numpoints]; + hilf[4]:=ydata[numpoints]-hilf2*basedata[numpoints]; + spy:=(hilf[1]*gensize+hilf[3])/2+(hilf[2]*gensize+hilf[4])/2; + aa:=spy; +else: +for index = 1 upto numpoints-1: + interval[index]:=basedata[index+1]-basedata[index]; +endfor; + +for index=1 upto numpoints: + spline[1][index]:=ydata[index]; endfor; + +for index=2 upto numpoints-1: + alpha[index]:=3*((spline[1][index+1]*interval[index-1])% + -(spline[1][index]*(basedata[index+1]-basedata[index-1]))% + +(spline[1][index-1]*interval[index]))% + /(interval[index-1]*interval[index]); +endfor; + +spl[1]:=0; +spmu[1]:=0; +spz[1]:=0; +for index=2 upto numpoints-1: + spl[index]:=2*(basedata[index+1]-basedata[index-1])% + -interval[index-1]*spmu[index-1]; + spmu[index]:=interval[index]/spl[index]; + spz[index]:=(alpha[index]-interval[index-1]*spz[index-1])/spl[index]; +endfor; + +spline[3][numpoints]:=0; +for index=numpoints-1 downto 1: + spline[3][index]:=spz[index]-spmu[index]*spline[3][index+1]; +endfor; +for index=numpoints -1 downto 1: + spline[2][index]:=(spline[1][index+1]-spline[1][index])/interval[index]% + -interval[index]*(spline[3][index+1]*spline[3][index])/3; + spline[4][index]:=(spline[3][index+1]-spline[3][index])/(3*interval[index]); +endfor; +location:=1; +for term=1 upto numpoints-1: + if gensize > basedata[term]: location:=term; fi +endfor; + +spx:=gensize-basedata[location]; +spy:=((spline[4][location]*spx+spline[3][location])*spx+spline[2][location])*spx+spline[1][location]; +aa:=spy; fi; +if gencheck: message str aa fi; +enddef; + +vardef basedef(text t)= +boolean basevalue; +boolean gencheck; +numeric index; +numeric ergbnis; +numeric location; +numeric term; +numeric numpoints; +numeric spx; +numeric spy; +numeric basedata[]; +numeric interval[]; +numeric alpha[]; +numeric spl[]; +numeric spmu[]; +numeric spz[]; +numeric ydata[]; +numeric spline[][]; +basevalue:=false; +gencheck:=false; + +index:=1; +forsuffixes $=t: basedata[index]:=$; + if $=gensize: basevalue:=true; merke:=index; fi; + index:=index+1; +endfor; +numpoints:=index-1; +if numpoints<3: errmessage "Nicht genug Referenzpunkte"; fi +if basevalue: def gendef=simple_gendef enddef; else: + def gendef=extended_gendef enddef; fi +enddef; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/editor.tex b/usergrps/uktug/baskervi/5_5/editor.tex new file mode 100644 index 0000000000..58635ecf5b --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/editor.tex @@ -0,0 +1,307 @@ +\title{Editorial} +\begin{article} +\section{So farewell then} +This will be, unless lightning strikes twice, my last edition of \BV. +I took over the job as an emergency measure from an over-loaded +Sue Brooks during the summer of 1993, shortly before the shattering +event of the TUG conference at Aston University (I cannot be the only +member of the committee for that meeting who has never fully +recovered!). It turned out to be moderately easy, I thought, to cobble +up an issue of fun material, but the crucial change in \BV\ was due to +Rosemary Bailey, who insisted at a \ukt\ committee meeting that we +needed a bi-monthly, \emph{regular}, newsletter, come hell or high +water. She is one of the true parents of \BV\ as you see it; another +is the redoubtable Malcolm Clark, who effectively diverted the energy +he had devoted to the great \emph{\TeX line} into \BV; the third is +Robin Fairbairns, who has actually consisently turned files into +paper. My thanks to them, and everyone else who has beavered away over +the last two years on \BV, and my best wishes to whoever gets the hot +seat. You will not find this out until 1996, as the final issue of +1995 will be a revised \emph{Frequently Asked Questions}. + +At the 1995 \TeX\ Users Group meeting, all delegates were given +reprints of \BV\ 4.6; towards the end of the meeting, Don Knuth +himself came to Robin Fairbairns and myself to ask for a subscription +to the newsletter. That was when it all seemed worthwhile\ldots + +\section{Overload} +Any editor of a publication about \TeX\ meets the problems of +conflicting macros more than most people; curiously enough, no issue +of \BV\ has yet proved impossible to run in one go. But last time it +came close; for Herman Haverkort's packages alone, it took me several hours +to work out which packages to omit (like \LaTeX\ color), and where to +cheat. At the last moment, Rowley's article needed \texttt{amsmath}, +which then fought with Bailey's work\ldots The fact that \LaTeXe\ did +not trivially permit me to load \texttt{amsmath} for the duration of +one paper only (it used to be easy in the days of \LaTeX209) is a +cause of irritation. Recalling observations in recent \BV\,s +about the direction \LaTeX{} is taking, I take the opportunity to +commend to \ukt\ members a paper by Matt Swift on `Modularity in \LaTeX' +which will appear in TUGboat 16.3 --- whatever you think of his +suggestions, it is way past time to stop relying on just hope and +goodwill as methods of preventing macro clashes. + +\section{Where are the Gleanings?} +Many readers of \BV\ have turned first in the last couple of years to +Malcolm Clark's column for some witty, salacious or even sensible, +remarks. One of the threads of those gleanings has been a consistent +prodding of the international \TeX\ Users Group to get its act +together with the journal \emph{TUGboat}, which has fallen badly +behind schedule. The good news is that TUG has put in place a team to +take production work off the shoulders of the over-worked Barbara +Beeton, and let her concentrate on real editing; it is also extending +the scheme of guest editors for whole issues, which is where the +\emph{Gleanings} come in. Poacher Malcolm has turned gamekeeper / editor, and +is working to get out a special issue of \emph{TUGboat} on SGML, +electronic documents and so forth. Hence his lack of leisure to write +us some gleanings this month --- do not worry, I am sure they will +return. \BV\ readers who are members of TUG can rest assured they +their journal will be firmly back on schedule by Christmas. + +\section{Whatever is wrong with my \LaTeX\ file?} +For the last twelve months I have been promising myself to write an +article about debugging \LaTeX\ files; this arose from some in-house +training sessions I conducted at Elsevier about dealing with +problematic authors' files. At last, here are my thoughts and recipes +for dealing with stubborn files that you inherit from other people. + +\subsection{Golden rules} +If you do not take the following precautions, you might as well give +up now: + \begin{enumerate} + \item \emph{Look} at \TeX\ errors; those messages flashing across +the screen are not some kind of screen saver. + \item Read the log file too; did you realize it has extra +information? Specifically, it will list characters missing from a font. + \item Lay out the source sensibly; how can you find errors if your +input is one long line of mixed macros and text? + \item Use syntax checkers; there are many of these: I use +\emph{lacheck}, from the authors of Emacs AUC\TeX, and the one built +into Eddi4\TeX, but there are others. For \LaTeX\ especially, it is a +god send to have the missing \verb|\end{enumerate}| spotted for you. +\item \LaTeX\ has several packages to help show you what it is working +with: \texttt{showkeys} shows you the labels you define; +\texttt{syntonly} will run a \LaTeX\ file fast, ignoring fancy +typesetting; + the \texttt{listfiles} command lists the macro files that were used at +the end (handy for checking versions), and the \texttt{draft} option +will show overfull boxes and all manner of other things for some +packages. +\item If you are a confident macro programmer, be aware of the many +\TeX\ primitives that can help you: set +\verb|\errorcontextlines| to give more context for help messages, +use \verb|\message| to put in diagnostic messages, +try \verb|\meaning| to find out what a macro really \emph{is} defined +as, rather that what you assumed it was. Don't despair at the amount +of verbiage \verb|\tracingall| gives you --- there is gold in them +thar log files. +\item Remember primitive programmer's debugging +techniques; if all else fails +in your quest to see why \LaTeX\ dies with that weird error in your 10000 +line file, move \verb|\end{document}| gradually back up the file from the end +until it \emph{does} work, and then stare at the 10 lines which you +know provoke the error, with a wet towel around your head. It is +faster than reading all 10000 lines over and over again +hopelessly\ldots +\item \emph{Do not} mail the \LaTeX\ development team, or other +package authors, every time \TeX\ +gives you an error prompt; you'll irritate hard-pressed volunteers +working in their spare time. If you wait until you have a \emph{good}, +well-documented, repeatable, error condition that your friends get +too, \emph{then} you can report it, and likely get a friendly reply +and a fix. +\end{enumerate} + +\subsection{Examples} +Firstly, did you think I was joking about laying out your text in a +readable fashion? Can you easily find the error in this? +\begin{nVerbatim} +\begin +{document}\baselineskip=12pt\newcommand +{\F}{Fig.~}\newcommand {\w}{\omega +}\newcommand {\k}{\xi }\newcommand +{\p}{\phi +}\maketitle\thispagestyle{empty}\centerline +{\bf \underline{Abstract}}\vskip +6ptA probabilisticoptimal design +methodology for complex structures +using the existing probabilistic +optimization techniques. \vskip +12pt\centerline{\bf +\underline{Nomenclature}\vskip 6pt +\begin{tabbing}\( A +\)\hspace{0.45in} \=: +Transformation matrix\\\( a_i \) +\>: Gradient of performance +function with respect \\$\hskip +1.25in$ to $i^{th}$ random variable +\\\( b \) \>: Design variable +vector\\\( {\it CDF} \) \>: +Cumulative distribution +function\\\( {\it COV} \) \>: +Coefficient of variation \\\( C_x +\) \>: Covariance +\end{nVerbatim} +Common sense (and the \LaTeX\ manual) will also suggest that replacing +code like: +\begin{Verbatim} +\vskip 3pt\noindent{\bf \underline{Safety +Index Interpolation}}\vskip 1pt +\end{Verbatim} +with +\begin{Verbatim} +\section{Safety Index Interpolation} +\end{Verbatim} +will considerably aid readability and maintenance. + +Next, an example where the puzzling output is all explained in the +log file: +\begin{nVerbatim} +{This is not so bad, +\bfseries\ttfamily hello?} +{This is not so bad, \scshape +Hello \bfseries Goodbye?} +{\it\bf\Large byebye} +\end{document} +\end{nVerbatim} +Why do we not see bold typewriter or bold small caps? Because the +fonts do not exist, and \LaTeX\ tells us it has had to make +substitutions as best it can: +\begin{Verbatim} +LaTeX Font Warning: Font shape `OT1/cmtt/bx/n' + in size <10> not available +(Font) Font shape `OT1/cmtt/m/n' + tried instead on input line 4. + +LaTeX Font Warning: Font shape `OT1/cmr/bx/sc ' + undefined +(Font) using `OT1/cmr/bx/n' + instead on input line 6. + +\end{Verbatim} +What more could you ask? + +If hyphenation is your bugbear, do you +understand the difference between the following large heavy animals? +\begin{nVerbatim} +rhinoceroses +\showhyphens{rhinoceroses} +\hyphenation{rh-ino-cer-os-es} +rhinoceroses +\begin{sloppypar} +rhinoceroses +\end{sloppypar} +rh\"inoceroses +\fontencoding{T1}\selectfont +rh\"inoceroses +\par\hskip\z@skip +rhinoceroses +\end{nVerbatim} +Remember that: +\begin{enumerate} +\item \TeX\ may need help hyphenating the word; give it clues; +\item If you want justification at all costs, set the right parameters +--- \texttt{sloppypar} does a sledgehammer and nut job, but it works; +\item If you put accents in words, hyphenation dies \ldots +\item \ldots unless you use T1 encoding, which cleverly transforms +\verb|\"i| to an 8-bit character internally so that \TeX\ proceeds +happily (ah, but you need 8-bit hyphenation patterns to do a proper +job); +\item The first word of a paragraph will not hyphenate. Insert +something harmless to bypass this law. +\end{enumerate} +I expect you have all done this at some time: +\begin{nVerbatim} +\begin{figure} +\label{fig1} +\caption{This is a caption} +\end{figure} +\end{nVerbatim} +and wondered why the labels are wrong? It is \emph{not} the figure +environment which sets labels, but the \verb|\caption| command; what +the example above will do is set the label `fig1' to the value of the +most recent section, equation, list item or whatever. + +Do the new \LaTeX2e\ packages puzzle you? Why doesn't this work: +\begin{nVerbatim} +\usepackage{graphicx} +\begin{document} +This is \rotatebox{75}{hello sunshine} at an angle +\end{document} +\end{nVerbatim} +Simply because rotation, colour, scaling, and graphics insertion are +all device dependent, and \LaTeX\ needs to know what dvi driver you +have. You probably meant something like: +\begin{Verbatim} +\usepackage[dvips]{graphicx} +\end{Verbatim} +Now let us look at a bad file which is quite easy to understand: +\begin{nVerbatim} +\documentclass{article} +something +\begin{document} +hello \( a= +\end{documen +\end{nVerbatim} +\LaTeX\ says of this, quite understandably: +\begin{Verbatim} +! Missing $ inserted. +<inserted text> + $ +l.4 + +? +) +Runaway argument? +{documen +! File ended while scanning use of \end. +<inserted text> + \par +<*> bad + +? +\end{Verbatim} +\noindent though the `missing \$' is a bit confusing when what it +meant was `missing \verb|\)|'. \emph{lacheck} does a much better job: +\begin{Verbatim} +"bad.tex", line 5: <- unmatched "\end{documen}" +"bad.tex", line 3: -> unmatched "math begin \(" +"bad.tex", line 5: <- unmatched "end of file bad.tex" +"bad.tex", line 2: -> unmatched "\begin{document}" +\end{Verbatim} +However, it sees nothing wrong with +\begin{nVerbatim} +\documentclass{article} +\begin{document} +Funnies: \dag, \AA and \" +\section{Introduction} +\end{document} +\end{nVerbatim} +about which \LaTeX\ says: +\begin{Verbatim} + +! Argument of \@xdblarg has an extra }. +<inserted text> + \par +<to be read again> + } +l.5 \section + {Introduction} +? +\end{Verbatim} +Make of that one what you will! How long did it take you to spot the +error? Can someone suggest a technique other than towel-round-the-head +staring to catch it? + +Lastly, did your \TeX\ just say `bufsize exceeded'? +Maybe the file it was reading came from a Mac? or a word-processor +which stored each paragraph as a single long line? If it is a graphic +file, it may have come from a Mac package, and \TeX\ is throwing up +while searching for a \texttt{\%\%BoundingBox} line. You should realize +that DOS, Unix and Mac treat line-endings differently! If you don't +have a dedicated utility to fix this, try using \emph{zip} to package +up the files, and then \emph{unzip} them, using the flag to convert +text files to the local native format. + +\end{article} +\endinput diff --git a/usergrps/uktug/baskervi/5_5/election.tex b/usergrps/uktug/baskervi/5_5/election.tex new file mode 100644 index 0000000000..c4e3f55a2f --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/election.tex @@ -0,0 +1,23 @@ +\title{Election for chair of UKTUG 1995--97} +\author[R.~A.~Bailey]{R.~A.~Bailey\\Honorary Committee Secretrary 1991--95} + +\begin{Article} +I received 28 voting papers by the due date of 6/10/95. Of these, +three were invalid because the voter had not put his or her name +on the outside of the envelope. For the remaining 25, I checked that +each voter was member of UKTUG and was voting no more than once. I +then passed these 25 voting papers, in their unopened envelopes, to +my colleague Professor B.~A.~F.~Wehrfritz, who has no connection +with UKTUG. He opened the envelopes and counted the votes. The votes +were cast as follows: +\begin{quote} +\begin{tabular}{lr} + Robin Fairbairns& 20\\ + Jonathan Fine & 5\\ +\end{tabular} +\end{quote} +Therefore, Robin Fairbairns becomes Chair of the UKTUG from +the end of the AGM on 18/10/95. +\end{Article} + + diff --git a/usergrps/uktug/baskervi/5_5/fancyvrb.rc b/usergrps/uktug/baskervi/5_5/fancyvrb.rc new file mode 100644 index 0000000000..d5877a9d3e --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/fancyvrb.rc @@ -0,0 +1,202 @@ +% Defie thirteen verbatim environments: +% Verbatim - indented like quote environment, \small font. +% nVerbatim - Like "verbatim", but numbered. +% example - like original, side by side +% example* - one above other +% example** - one above other, with frames +% Example - Rendered as PS, like original, side by side +% Example* - Rendered as PS, one above other +% Example** - Rendered as PS, one above other, with frames +% Example*** - Rendered as PS, with *no* verbatim text +% GridPSExample - PSTricks (gridded) picture, like original, side by side +% PSExample - PSTricks picture, like original, side by side +% The example environments have the following steps in common: +% 1. Save example verbatim to numbered example file +% 2. Input file verbatim or EPS file +% 3. Input again +% All of them save their text as files in the current directory + +% " can be used to add lines that affect the output of the example, +% but do not appear in the verbatim listing. + +\DefineVerbatimEnvironment{Verbatim}{LVerbatim}{fontsize=\small} +\DefineVerbatimEnvironment{nVerbatim}{LVerbatim}{fontsize=\small,numbers=left} + +\newcounter{epscounter} +\c@epscounter0 +\newwrite\exepsfile +\renewcommand\theepscounter{\arabic{chapter}-\arabic{section}-\arabic{epscounter}} +\immediate\openout\exepsfile \jobname.expslist\relax + +\def\EPSinput#1{% +\IfFileExists{\ex@@prefix#1.eps}% + {\includegraphics{\ex@@prefix#1.eps}}% + {\underline{\ex@@prefix#1}}% +} +\newcount\pst@ex@count +\pst@ex@count0 + +\def\SideBySideEx#1{% +\global\advance\pst@ex@count by 1 + \trivlist\item[]% + \leavevmode + \label{\thechapter.\the\pst@ex@count}% + \ifthenelse{\isodd{\pageref{\thechapter.\the\pst@ex@count}}}{% + \makebox[\textwidth][l]{\@@Display{#1}\hspace{5mm} + \BVerbatimInput{\ex@@prefix\theepscounter}}% + }{% + \makebox[\textwidth][r]{\@@Display{#1}\hspace{5mm} + \BVerbatimInput{\ex@@prefix\theepscounter}}% + }% + \endtrivlist +} +\def\@@Display#1{% + \begin{minipage}[b]{.5\textwidth}#1\end{minipage}% +} + +\def\ex@@prefix{} +\newcommand{\BeginExample}{% + \multiply\topsep by 2 + \global\advance\c@epscounter\@ne + \edef\@tempa{ + \write\@auxout{\string + \newlabel{ex-\theepscounter}{{\theepscounter}{\noexpand\the\c@page}}}} + \@tempa + \nobreak + \edef\@tempa{ + \write\exepsfile{\string + \exampleonpage{ex-\theepscounter}{\noexpand\the\c@page}}} + \@tempa + \VerbatimEnvironment + \catcode`\<=12 + \begin{VerbatimOut}{\ex@@prefix\theepscounter}} +\newcommand{\EndExample}{% + \end{VerbatimOut}% +} + +\def\EndRuleExample{\vskip 7pt \hrule height 1.5pt\relax} + +\newif\ifgrid +\gridfalse + +\def\PSExample(#1,#2)(#3,#4){% + \def\PictureSize{(#1,#2)(#3,#4)}% + \def\VOMIT##1{}\BeginExample + } +\def\endPSExample{% + \EndExample + \SideBySideEx{% + \ifgrid\vskip 8pt \else\relax\fi + \expandafter\pspicture\PictureSize + \ifgrid\usergrid\else\relax\fi + \input{\theepscounter}% + \endpspicture + \ifgrid\vskip 8pt \fi + }% +} + +\newenvironment{GridPSExample}{\gridtrue\PSExample}{\endPSExample} + +% side by side +\newenvironment{example}{\def\VOMIT##1{}\BeginExample} % + {\EndExample\SideBySideEx{\input{\theepscounter}}} + +% one above the other +\newenvironment{example*}% + {\def\VOMIT##1{}\BeginExample}% + {% + \EndExample + \VerbatimInput[gobble=0,fontsize=\small]{\theepscounter}% + \begin{center} + \leavevmode\input{\theepscounter}\par + \end{center} +} + +% with a frame, one above the other +\newenvironment{example**}% +{\def\VOMIT##1{}\BeginExample}% +{% +\EndExample +\VerbatimInput[gobble=0,fontsize=\small, + frame=topline,framerule=1.5pt]{\theepscounter}% +\begin{center} +\input{\theepscounter} + \EndRuleExample +\end{center} +} + +% now the ones which write stuff for an EPS file + +% side by side +\newenvironment{Example}{\def\ex@@prefix{a}\BeginExample} % + {\EndExample +\def\FancyVerbStopString{STOPSTOPSTOP}% +\def\FancyVerbStartString{GOGOGO}% +\SideBySideEx{\EPSinput{\theepscounter}}} + +% first verbatimcode, then actual example +\newenvironment{Example*}{\def\ex@@prefix{b}\BeginExample}% + {\EndExample +\def\FancyVerbStopString{STOPSTOPSTOP}% +\def\FancyVerbStartString{GOGOGO}% + \begin{center}\leavevmode + \VerbatimInput[gobble=0,fontsize=\small]{\ex@@prefix\theepscounter}% + \EPSinput{\theepscounter}% + \end{center}% +} + +% one above the other, framed +\newenvironment{Example**}% +{\def\ex@@prefix{b}\BeginExample}% +{% +\EndExample +\def\FancyVerbStopString{STOPSTOPSTOP}% +\def\FancyVerbStartString{GOGOGO}% + \VerbatimInput[gobble=0,fontsize=\small, + frame=topline,framerule=1.5pt]{\ex@@prefix\theepscounter}% +\EPSinput{\theepscounter} +\EndRuleExample +} + +% no verbatim text at all, just to run the thing separately +\newenvironment{Example***}% +{\def\ex@@prefix{b}\BeginExample}% +{% +\def\FancyVerbStopString{STOPSTOPSTOP}% +\def\FancyVerbStartString{GOGOGO}% +\EndExample +\centerline{\EPSinput{\theepscounter}} +} + +\def\CurrentPackages{} + +\def\FVE@VerbatimOut{\VOMIT{STOPSTOPSTOP}% +\immediate\closeout\FV@OutFile\endgroup\@esphack} + +\def\VOMIT#1{% + \begingroup + \let\protect\@unexpandable@protect + \edef\reserved@a{\immediate\write\FV@OutFile{#1}} + \reserved@a + \endgroup +} + +\def\FVB@VerbatimOut#1{% + \@bsphack + \begingroup + \FV@UseKeyValues + \FV@DefineWhiteSpace + \def\FV@Space{\space}% + \FV@DefineTabOut + \def\FV@ProcessLine{\immediate\write\FV@OutFile}% + \immediate\openout\FV@OutFile #1\relax + \VOMIT{\string\documentclass{ppex\ex@@prefix}}% + \VOMIT{\string\usepackage{\CurrentPackages}}% + \VOMIT{GOGOGO}% + \let\FV@FontScanPrep\relax + \FV@Scan} + +\def\SixPt{\fontsize{6}{7\p@}\selectfont} +\DefineVerbatimEnvironment{verbatimzzz}{LVerbatim}{fontsize=\SixPt} +\def\verbfile#1{\VerbatimInput[fontsize=\small]{#1}} +\endinput diff --git a/usergrps/uktug/baskervi/5_5/fine.tex b/usergrps/uktug/baskervi/5_5/fine.tex new file mode 100644 index 0000000000..1fefbf569f --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/fine.tex @@ -0,0 +1,249 @@ +\title{Book review: The Printing Revolution in Early Modern Europe} +\author[Jonathan Fine]{Jonathan Fine\\Email:\texttt{J.Fine@pmms.cam.ac.uk}} +\begin{Article} +\begin{quote} +\emph{The Printing Revolution in Early Modern Europe}, +Elizabeth L Eisenstein +ISBN 0 521 44770 4 (paperback) +\pounds 7.95, \$11.95 +300 + xiv pages +Cambridge University Press (Canto imprint) +\end{quote} + +This book is an abridgement for the lay reader of a full scale work +written for scholars, the result of a decade of study. It is that +rare and valuable thing, a scholarly work accessible and interesting +to the educated general reader. + +The author {\em had long been dissatisfied with the prevailing +explanations for the intellectual revolutions of early modern +times}. She decided to investigate. (This review italicizes the +author's words.) {\em What were some of the most important +consequences of the shift from script to print? Anticipating a +strenuous effort to master a large literature, I began to investigate +what had been written on this obviously important subject. To my +surprise, I did not find even a small literature available for +consultation. No one had yet attempted to survey the consequences of +the fifteenth century communications shift}. + +In this century there has been a communications shift, which is still +continuing, and whose consequences are likely to be as important and +durable as that of the fifteenth century (from script to print). The +telegraph was followed by the telephone, radio and then television. +Electronic computers (built out of radio valves, telephone exchange +parts and the like) were the next development. Magnetic recording +technology (developed for voice and music) was adapted for use by +computers, moving from tapes to cards, drums and discs. Telephone +lines were used to transfer data and thus to link geographically +remote computers. The latest in the technological revolution is the +Internet or World Wide Web, CD-ROM, and the beginnings of what are +called portable documents. + +History is more than a sequence of Kings and Queens, or in our case a +list of technological Aces and Jokers. This technology came from +somewhere. Its creation appears to be influenced by political, +economic and social forces. For example, Universities support +Science. In our case, fundamental contributions of Faraday, Maxwell, +Planck, Curie, Einstein, Rutherford, Heisenberg, Schrodinger, Bohr, +Dirac and many others have laid the scientific basis for the present +shift from paper to digital or electronic media. + +From where then did science arise? Was Newton chance, and what effect did +science and religion have on each other? How did what we may call +early modern Europe emerge from late medieval society? Was it due to +the Renaissance? Eisenstein's book is a carefully considered and +well written discussion of the emergence of a human culture based on +printed communication, that began in the late fifteenth century, and +its influence on the humanities, on religion and on science. This +print culture was something new, just as the film and television +culture of today is new. Each has an effect on the human mind. + +Before describing the text of this book, some comments about +illustrations. They have been well chosen. There are about sixty +illustrations, mostly pages from rare books, but sadly they are not indexed. +They have reproduced well, and add greatly to the book. For Bibles, +there is a page from the Gutenberg Bible compared to a contemporary +hand-copied Bible, the so-called wicked Bible of 1631 (which misses +the `not' from the adultery commandment), and the frontpiece and +beginning of Genesis from Christopher Plantin's great Antwerp +Polyglot Bible of 1571. There is the title page of Galileo's final +treatise (printed by the still flourishing Elsevier), and its +appearance on the (printed) Vatican index of prohibited books. There +are many other useful and illuminating illustrations, including an +extract from a pattern book for tailors and dressmakers (Seville, +1588) which made the Spanish fashion ``visible through the far-flung +Hapsburg empire''. + +The quotations and incidental facts are also well chosen. Here are +two such gems. The hazards of having a famous face are not new to +this century. Eisenstein writes: +\begin{quote} +The difference between the older repeatable image which was stamped +on coins and the newer by-product of print is suggested by one of the +more celebrated episodes of the Frech Revolution. The individual +features of emperors and kings were not sufficiently detailed when +stamped on coins for their faces to be recognized when they travelled +incognito. But a portrait engraved on paper money enable an alert +Frenchman to recognize and halt Louis~XVI at Varennes. +\end{quote} +while to open the Preface she quotes Joseph Ames (1749) who wrote: +\begin{quote} +I do ingenuously confess that in attempting this history of Printing I +have undertaken a task much too great for my abilities the extent of +which I did no so well perceive at first. +\end{quote} + +The book is divided into two parts. The first, +{\em The emergence of print culture in the West}, can be thought of +as an essay on the differences between the earlier scribal culture +and the new print culture. Before print each book was a unique item, +and each new copy would have new copyists errors. It rarely makes +sense to talk of an edition of a hand-written book. Printed books +come in editions, of hundreds or thousands or beyond. Each copy will +be identical to each other, except that printers too can make errors. + +Even without the commissioning of new works, the wider circulation of +scribal texts is a significant change. For example {\em as a student +at Cracow in the 1480s, the young Copernicus probably found it hard +to get a look at a single copy of Ptolemy's {\em Almagest}---even in +a corrupted medieval Latin form. Before he died, he had three +different editions at hand. As a fourteen-year-old in Copenhagen in +1560, the young Tycho Brahe could purchase all of Ptolemy's work, +including an improved translation of the full {\em Almagest} made from +the Greek.} + +Perhaps the most important consequence of the shift was the emergence +of an expanding republic of letters. The reading public, their +booksellers and printers, their authors and illustrators. {\em As the +key figure around whom all arrangements revolved, the master printer +himself bridged many worlds. He was responsible for obtaining money, +supplies, and labor, while developing complex production schedules, +coping with strikes, trying to estimate book markets and lining up +learned assistants. He had to keep on good terms with officials, +while cultivating talented authors and artists who might bring his +firm profit or prestige. In those places where his enterprise +prospered and he achieved a position of influence with fellow +townsmen, his workshop became a veritable cultural centre attracting +local literati and celebrated foreigners, providing both a meeting +place and message centre for an expanding cosmopolitan Commonwealth +of Learning}. Christopher Plantin, whose activities are briefly +discussed, is an outstanding example of a master printer. {\em After +settling in Antwerp and establishing ties with Leiden, Plantin +decided to learn Dutch. Never one for wasted effort, he ``placed in +piles and in alphabetical order'' each new word that he learned. Thus +was launched a collaborative venture which resulted in [\ldots] the +``first Dutch dictionary worth its name.''} For more on Plantin's +remarkable life and legacy, consult Colin Clair's biography. + +The second part considers the {\em Interaction with other +developments}. In it {\em possible relationships and connections are +explored with the aim of providing a basis for some tentative +conclusions concerning the effects of the communications shift upon +three movements which seem strategic in the shaping of the modern +mind.} + +The first in the Renaissance, which has long been something of a +challenge for historians to understand. Eisenstein suggests that it +would be productive for historians to {\em direct attention to +something that really did happen, that was obviously of crucial +importance, that occurred in the second half of the fifteenth century +and at no other time in the history of the West}. This is of course +the shift to print culture. Later she writes {\em early humanists, +from Petrarch to Valla, owe their still vital reputation as culture +heroes to the prosaic print-made knowledge industry. [\ldots] +Earlier scholars had been less fortunate}. + +The second is {\em Western Christendom disrupted}. Protestantism was +{\em the first movement of any kind, religious or secular, to use the +new presses for overt propaganda and agitation against an established +institution. By pamphleteering directed at arousing popular support +and aimed at readers who were unversed in Latin, the reformers +unwittingly pioneered as revolutionaries and rabble rousers}. Between +1517 and 1520, we are told, Luther's thirty publications sold well +over 300,000 copies. Even by modern standards this is a considerable +achievement. + +This book was originally written as a contribution to historical +debate. Its main thesis is the effect of print as an agent of social +change has been ignored or underestimated. ``One of the mysteries +of Reformation history [is] how this proposal for academic +disputation [Luther's theses], written in Latin, could have kindled +such enthusiastic support and thereby have such far-reaching impact'', +wrote one modern scholar. To dispel this mystery, Eisenstein +suggests that we should {\em instead of jumping directly from church +door to public clamor, move more cautiously, a step at a time, +looking at the activities of printers, translators, and distributors +who acted as agents of change. Probably we ought to pause with +particular care over the interval in December 1517 when three +separate editions were printed almost simultaneously by printers +located in three separate towns}. + +{\em On the whole,} the author concludes, {\em it seems safe to +conclude that all the problems associated with the disruption of +Western Christendom will become less baffling if we approach them by +respecting the order of events and put the advent of printing ahead +of the Protestant Revolt.} + +The third movement is {\em The book of nature transformed: printing +and the rise of modern science}. As with the Reformation, the author +argues that {\em the advent of printing ought to be featured more +prominently by historians}. This theme is developed mainly with +regard to maps and astronomy, the trial of Galileo and the publishing +activities of the Royal Society. Copernicus has already been +mentioned. Newton was encouraged to publish. Galileo discouraged. + +One of the illustrations is of a grandly titled {\em A description of +the the whole world}~(1606), and another is a printed challenge from +Blaeu~(1622) to find any errors in his printed sea charts. He wrote +{\em Whatsover there is yet resting to be corrected or made better, +is as easie to be corrected in the Cardes [charts] that are printed, +as in them that are written, which we also are readie to doe at our +charge, if any man can by good proofe shewe us any thing, that is to +be corrected in the Cardes that are printed by us}. This is an early +example of errors being, if not rewarded, at least corrected without +charge. + +The author gives many useful examples of the opportunities for +(self)-promotion that print provides. We know much about the early +history of print from the documents they printed about themselves. +{\em Indeed, their use of title pages entailed a significant reversal +of scribal procedures; they put themselves first. Scribal colophons +had come last}. + +The author cogently argues the importance of print for the creation +of accurate maps. {\em But this kind of checking could not occur +until voyagers were provided with uniform maps and encouraged to +exchange information with map publishers}. Before print maps, like +books, were usually held in fixed and safe locations. They were much +to rare and valuable to be subjected to the hazards of a voyage to +foreign parts. Information from merchants was sent back to trained +cartographers, but without print this information could not then be +sent back out for the use (and checking) by others. The +development of maps (and globes) contributed to the European +discovery of the rest of the world. + +In the conclusion the author writes {\em This book has stopped short +in the age of the wooden handpress. It has barely touched on the +industrialization of paper making and the harnessing of iron presses +to steam. Nothing has been said about the railway tracks and +telegraph wires which linked European capitals in the mid-nenteenth +century, or about the Linotype and Monotype machines which went +together with mass literacy and tabloid journalism. The typewriter, +the telephone, and a vast variety of more recent media have been +entirely ignored. Too much territory has been traversed too rapidly +as it is. Because contrary views have been expressed, however, it +seems necessary to point out that there are irreversible aspects to +the early modern printing revolution. Cumulative processes were set +in motion in the mid-fifteenth century, and they have not ceased to +gather momentum in the age of the computer printout and the +television guide}. + +And so we are back again in the present, with its own communications +shift from paper to electronic media, from print to computer. I have +read this book through several times and on each occasion (I am not +well educated in history) I get a richer deeper understanding of the +present time. I strongly recommend it to anyone who wishes to +develop for themself an understanding of the human and social +consequences of the growing move towards electronic publishing and +the information superhighway. +\end{Article} diff --git a/usergrps/uktug/baskervi/5_5/group.tex b/usergrps/uktug/baskervi/5_5/group.tex new file mode 100644 index 0000000000..3c4241ff42 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/group.tex @@ -0,0 +1,385 @@ +\title{The UK \TeX\ Users Group} +\author{} +\begin{article} +\begin{multicols}{2} +\section{Group aims and activities} +The \ukt\ was founded in 1989; its activities and benefits include: +\begin{itemize} + \item Regular meetings covering both \TeX{}nical matters and general +typographic subjects; + \item Visits to publishers, font suppliers and book producers; + \item In-depth workshops, with hands-on computer sessions where +appropriate; + \item Negotiation of discounts on \TeX\ relevant books with publishers. + \item Distribution of public domain \TeX\ implementations (in +cooperation with the international \TeX\ archives); + \item Discount on joint UK \TeX\ Users Group/TUG membership; + \item Reduction in conference fees for the TUG annual meeting and the +annual European meetings; + \item The publication and distribution of \BV\ (the annals of +the UK \TeX\ Users Group). + \end{itemize} + +\section{The 1995--96 \ukt\ committee} +\begin{description} +\item [Chair] R.~Fairbairns +\item[Treasurer and Membership Secretary] P.~Abbott +\item[Committee Secretary] C.~Hewlett +\item[Meetings Secretary] M.~Clark +\item[other members] +K.~Bazargan; +D.~P.~Carlisle; A.~S.~A.~Jeffrey; S.~P.~Q.~Rahtz. +\end{description} + +\section{Future meetings} +\begin{itemize} +\item January 1996: ``Structured documentation'' (with BCS electronic +publishing specialist group). Planned date is January 11th, +planned location, School of Oriental and African Studies. +This is a follow up to this year's very successful meeting held +at the Bridewell Theatre. + +\item March 20th, 1996: ``\TeX\ and the Internet.'' Location, University +of Warwick. Local organizer, Malcolm Clark. Shamelessly +exploiting the popular `I-word', this meeting shows how +\TeX\ is essential to the success of the Internet, and the Internet +is essential to the survival of \TeX. +\end{itemize} +And all other suggestions gratefully received\dots +Make us an offer! Maybe you would like to host a meeting +on a particular subject area, or you are eager to +find out more about some hot topic. Share it. After all, +to burst into van der Laan-esque song ``We're your friends'' +(copyright Disney, just like everything that isn't copyright Micro\$oft). + + + + +\section{Membership Matters} + +With this issue of \BV\ should be your renewal form for membership +of \ukt\ and/or TUG and any other services to which you subscribe. At the +AGM on 18th October 1995 the normal membership rates for 1996 were +confirmed as unchanged. Student membership of UKTUG has been reduced to +{\bfseries\pounds 5.00}. It was also agreed that for payments made before +31st December 1995 the 10\% reduction on \ukt\ membership would be allowed. +The renewal forms shows the amounts due. + + +\subsection{Book Discounts} +We have arrangements with Addison-Wesley for their well-known +\TeX-related publications, and with International Thomson Publishing +to supply any of the very excellent O'Reilly \& Associates Inc.\ +series of books to members. + +With effect from 18th October 1995 book discounts have been increased +from 10\% to 20\% and revised price lists will be included with +\BV\ 5.6. We would like to remind you that the discount can be +claimed on any book in the Addison-Wesley Computer Science catalogue. +Just deduct 20\% from the retail price and round {\bfseries UP} to the +next 5p. If you are unsure you can always contact Peter Abbott +by phone, fax or email. + +We are only allowed to offer this service to \textbf{current} members +of the UK \TeX\ User Group and/or members of TUG. Please send your +order and cheque (in UK \pounds) to Peter Abbott (address in \BV\ +masthead). Make cheques payable to `UKTUG' please. Books from +Addison-Wesley are delivered direct but books from O'Reilly will be +routed through \ukt. \emph{In all cases} please notify Peter Abbott by +email, phone, fax or letter when books are delivered. + +\subsection{Membership shareware licenses} + +Agreement has been reached to buy site licences for the software +listed below. A member of the UK \TeX\ User's Group is permitted to +use the software (which is usually shareware) without additional +payment as long as they are a member of the group. It is provided +for personal use only. +\begin{itemize} +\item OzTeX version 1.8 -- Either obtain a copy from the CTAN archive, +or available from Peter Abbott. +\item Mac Dvips and Mac \MF. +\item Alpha -- a \TeX-aware + text editor for Macintosh obtainable from CTAN or Peter Abbott +\item Eddi4TeX -- a \TeX\ shell and text editor +for MS DOS obtainable from Peter Abbott (the access +code will be mailed direct from Germany). +\end{itemize} + +\subsection{Membership numbers} +As at October 1995 the membership stood at: +\begin{quote} +\begin{tabular}{lr} +UKTUG & 70\\ +UKTUG(Student) & 2\\ +Full TUG and UKTUG & 99\\ +Basic TUG and UKTUG & 6\\ +Full TUG and UKTUG (Student) & 4\\ +Basic TUG and UKTUG (Student) & 1\\ +Institutional & 5\\ +Full TUG & 2\\ +Basic TUG & 0\\ +TUG and UKTUG (Student)& \\ +\hline +Total & 189\\ +\hline +\end{tabular} +\end{quote} +Institutional members: Warwick University, +Eyre \& Spottsiwoode, +Anglia Polytechnic University, +BPC Books \& Journals, and Elsevier Science Ltd. +\end{multicols} + +\section{\UKTUG\ statement of accounts} +\def\Head#1{\multicolumn{1}{c}{\itshape #1}} + +\subsection{Income and Expenditure 1994--95} +\begin{center} +\begin{tabular}{lr|r} +\hline +\multicolumn{2}{l}{\itshape Income } & +\multicolumn{1}{l}{\itshape Expenditure} \\ +\hline +UKTUG & 3578.00 \\ +TUG &3540.00&1250.00\\ +Membership Admin &347.50&32.10\\ +Disc Service &662.79&377.80\\ +Book Service &1252.90&1361.89\\ +CDROM Service &565.00&354.54\\ +\LaTeX3 fund &6323.05&2918.00\\ +Baskerville &10.00&1311.54\\ +Bursary &76.91&\\ +Meetings &\\ +\hspace{.5cm}20/10/94 & 270.00 & 53.25 \\ +\hspace{.5cm}19/1/95 &5513.00 & 2112.24 \\ +\hspace{.5cm}4/4/95 & 260.00 & 100.91 \\ +\hspace{.5cm}7/6/95 & 875.00 & 237.94 \\ +Committee meetings&&\\ +\hspace{.5cm}11/7/94 &&300.00\\ +\hspace{.5cm}1/11/94&&128.40\\ +\hspace{.5cm}21/2/95&&96.50\\ +\hspace{.5cm}23/5/95&&127.05\\ +Bank Interest/Charges &248.05 & 16.00\\ +Miscellaneous & &250.67\\ +Communications &250.00 &387.84\\ +Hardware &&468.83\\ +Gutenberg &&200.00\\ +Euro\TeX &&200.00\\[6pt] +\hline +\textbf{Total} &\textbf{23772.20}&\textbf{12285.40}\\ +\hline +\end{tabular} +\end{center} + +\subsection{Profit/Loss Account 1994/95} + +\begin{center} +\begin{tabular}{l*{4}{r}} +\hline +\Head{Account}& +\Head{Brought Forward} & +\Head{Income}& +\Head{Expenditure} & +\Head{Profit/Loss}\\ +\hline +TUG &$-$566.18 &3540.00 & 1250.00 & 1723.82\\ +UKTUG & &3578.00 & \\ +Membership Admin& &347.00 & 32.10 & 315.90\\ +Disc Service & 491.26 & 662.79& 377.80 & 776.25\\ +Book Service & 502.62 &1252.90 & 1361.89 & 393.63\\ +CDROM Service & $-$61.18 &565.00 & 354.54 & 149.28\\ +\LaTeX3 Fund & 804.68 &6323.05 & 2918.00 & 4209.73\\ +Baskerville & & 10.00 & 1311.54 & $-$1301.54\\ +EuroTeX & & & 200.00 &\\ +Bursary & & 76.91 \\ +Group meetings \\ +\hspace{.5cm}20/10/94 & & 270.00 & 53.25 & 216.75\\ +\hspace{.5cm}19/1/95 & &5513.00 & 2112.24 & 3400.76\\ +\hspace{.5cm}4/4/95 & & 260.00 & 100.91 & 159.09\rlap{*}\\ +\hspace{.5cm}7/6/95 & & 875.00 & 237.94 & 637.06\rlap{*}\\ +Committee meetings \\ +\hspace{.5cm}11/7/94 & & & 300.00 & \\ +\hspace{.5cm}1/11/94 & & & 128.40 & \\ +\hspace{.5cm}21/2/95 & & & 96.50 & \\ +\hspace{.5cm}23/5/95 & & & 127.05 & \\ +Bank & & 248.05 & 16.00 & 232.05 \\ +Miscellaneous & & 250.50 & 1307.24 \\[6pt] +\hline + & &\bfseries 23772.20 & \bfseries 12285.40 \\ +\hline +\end{tabular} + +(* \emph{Still Open}) +\end{center} + +\newpage + +\noindent \UKTUG\ funds are as follows + +\begin{center} +\begin{tabular}{l*{2}{r}} + & 31/7/94 & 31/7/95\\ +Bank statement & 10079.13&21881.48\\ +Uncashed cheques &387.49 & 703.04\\ +True balance & 9691.64 & 21178.44\\[8pt] +\multicolumn{3}{l}{Represented by}\\[6pt] +TUG funds & $-$566.18 & 1723.82\\ +UKTUG funds & 8520.44&12925.73\\[6pt] +Disc Service & 491.26 & 776.25\\ +CD ROM Service & $-$61.18 & 149.28\\ +Book Service & 502.62 & 393.63\\ +\LaTeX 3 Fund & 804.68 & 4,209.73\\[6pt] +\hline + &\textbf{9691.64} &\textbf{21,178.44}\\ +\hline +\end{tabular} +\end{center} + + +\begin{raggedleft} +Peter Abbott\\ +\UKTUG\ Honorary Treasurer 1994--95\\ +\end{raggedleft} +\begin{multicols}{2} + +\Dings + + +\section{Obtaining \TeX} +\subsection*{From the network} + +The UK \TeX\ Archive on \texttt{ftp.tex.ac.uk} is part of the CTAN +(Comprehensive \TeX\ Archive Network) collaborating network of +archives on the Internet organised by the +\TeX\ Users Group. The three main archives follow the same structure +and have identical files ({\tt ftp.tex.ac.uk}, {\tt ftp.shsu.edu} and +{\tt ftp.dante.de}). + +The CTAN archives all run an enhanced {\em ftp} server which supports +dynamic compression, uncompression, and archive creation options. +Fetch the top-level file {\tt README.archive-features} for +information. The server also supports site-defined commands to assist +you. Please read {\tt README.site-commands} for a brief overview. + +Details of where to find public domain, or shareware, +\TeX\ packages for different machines and operating +systems are given below. + + +Please report any problems with CTAN archives via email to +\texttt{ctan@shsu.edu}. The entire archive is available on +CDROM as the `\TeX cetera' package from Prime Time Freeware, 370 Altair Way, +Suite 150, Sunnyvale, CA 94086 USA (\texttt{ptf@cfcl.com}). This is +also distributed by the TUG office, and in the UK by Lasermoon Ltd +(email \texttt{info@lasermoon.co.uk}, phone 01329 834944). + +\subsection*{Unix tapes} +David Osborne is no longer able to supply Unix \TeX\ tapes, +partly because there is no longer a reliable, up to date, master to +copy. We expect that most Unix users have network access, or a CD reader. +We recommend the te\TeX\ distribution on CTAN. + +\subsection*{CDROM} +Apart from the CTAN `\TeX cetera' available from Prime Time Freeware, +the \ukt\ distrbutes the 4All\TeX\ CDROM, created by the Dutch \TeX\ +Users Group (NTG), now in its 3rd edition. This costs \pounds25 for 2 +CDs, and is for DOS users; it contains \emph{everything} you can think +of (programs, drivers, fonts, macros, documentation), all accessible +via a friendly shell written in 4Dos. + +\subsection*{PC and Mac disks} +The \ukt\ distributes an em\TeX\ kit for PCs, +and an Oz\TeX\ kit for Macintosh. The cost covers copying and postage +costs, together with the shareware fee for Oz\TeX\ (and other Mac +programs) and Eddi4\TeX. +Each set costs \pounds30, +and is available from Peter Abbott, 1 Eymore Close, Selly Oak, +Birmingham B29~4LB. Cheques must be payable to \lq{}UKTUG\rq{}. Please note +that this service \emph{is available to \ukt\ members only.} Each set +comes with an installation guide, and (at least) full \TeX\ and \MF, a +previewer, a PostScript driver, and CM fonts. Two update disks a year +will be sent out automatically, with the current version of \LaTeXe, +and other goodies. A subscription service is available for +subsequent years. In addition, subscribers can request up to 3 disks a +year with any material from the CTAN archives, but this will be +supplied \lq{}as is\rq{}, without instructions. + +Enquiries for \TeX\ for the Atari ST etc. can be directed to: The Fast +Club, 7 Musters Road, Nottingham NG2 7PP. Phone 01602 455250, fax 01602 +455305. They also supply a variety of \TeX-related software in Atari format. + +The main directories which make up CTAN are listed below; readers are +referred to David Jones\rq{} {\em Index of \TeX\ Styles and Macros} for +details of macro packages and individual style files. This can be +found in CTAN as {\tt info/tex-styles-and-macros.txt} + +{\small +\begin{description} +\item[biblio] bibliography-related files, such as + \BibTeX. +\item[digests] back issues of \TeX-related periodicals +\item[dviware] contains the various dvi-to-whatever filters and drivers +\item[fonts] fonts, both sources and pre-compiled +\item[graphics]utilities and macros related to graphics +\item[help] overviews of the archive and the \TeX\ system +\item[info] files and tutorials which document various aspects of \TeX +\item[indexing] utilities and related files for indexing +\item[language] material for typesetting non-English documents +\item[macros] macros packages for \TeX\ and style files +\item[support] programs which can be used in support of \TeX +\item[systems] complete system setups, organized by operating + system +\item[tools] the various archiving tools used on CTAN +\item[web] contains WEB-related files and utilities +\end{description} +} +\end{multicols} +\makeatletter +\@signature +\makeatother +\end{article} +\endinput +\end{multicols} +\bgroup +\small +\begin{center} +\begin{tabular}{|lllp{2.5in}|} +\hline Name & Environment & CTAN path & Notes\\ \hline + em\TeX & DOS, OS/2 & systems/msdos/emtex &complete new release in +late Spring 1995\\ + sb\TeX & DOS & systems/msdos/sbtex & includes latest \TeX\ and + \MF\\ + g\TeX & DOS & systems/msdos/gtex & 386-only \TeX\ and \MF, + which replace parts of em\TeX, and work with Windows memory + management\\ + \hline + Oz\TeX & Mac & systems/mac/oztex & This package is shareware\\ + CMac\TeX & Mac & systems/mac/cmactex & Shareware port of Unix \TeX\\ + Direct\TeX & Mac & systems/mac/directtex & This package is shareware\\ + \hline + pas\TeX & Amiga & systems/amiga/pastex & \\ + \hline + --- & Atari & systems/atari/lindner-tex-packed-disks & \\ + --- & Atari & systems/atari/cs-tex & \\ + \hline + web2c \TeX & Unix & systems/unix/web2c & a complete source kit for + \TeX\ and \MF, which should compile on most Unix boxes; needs + a C compiler.\\ + te\TeX\ & Unix & systems/unix/tetex & a `plug-n-play' Unix \TeX\ +distribution by Thomas Esser, with binaries for many systems +(including Linux).\\ + \hline + --- & VMS & systems/vms &Alpha and VAX versions available \\ + \hline + GhostScript & * & support/ghostview & PostScript previewer for + many platforms, including Mac\\ + dvips & * & dviware/dvips & popular {\tt dvi} to PostScript + driver\\ + --- & --- & biblio/bibtex/styles/contrib & \BibTeX\ style files\\ + --- & --- & web/knuth & The files maintained by Don Knuth\\ + \hline +\end{tabular} +\end{center} +\egroup +\begin{multicols}{2} diff --git a/usergrps/uktug/baskervi/5_5/hhcount.sty b/usergrps/uktug/baskervi/5_5/hhcount.sty new file mode 100644 index 0000000000..d4f36a3533 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhcount.sty @@ -0,0 +1,337 @@ +% FANCY COUNTERS for LaTeX2e, version 1.03, +% written by Herman Haverkort, 31 march 1995 +% See end of file for information on warranty, distribution etc. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhcount}[1995/03/31 Fancy counters] +\RequirePackage{hhutils0} + +% !!! This package causes severe problems when using running heads !!! +% containing section numbers! + +% !!! This package should not be loaded before makeidx or index !!! +% or before the macro \makeindex is called! + +% **************************** +% * COUNTER SYSTEMS * +% **************************** + +% \@stpelt is a LaTeX macro which is called by \stepcounter +% to reset lower level counters. It is redefined to reset _all_ +% lower level counters recursively. +\def\@stpelt#1{\global\csname c@#1\endcsname \z@ \csname cl@#1\endcsname} + +\def\combinecounters#1#2{{% + \@temptokena={\protect\fancycounter#1}\def\@tempc{}\@tempcnta=0% + \def\\{\@ifnextchar*\@tempa\@tempb}% + \def\@tempa*##1{\advance\@tempcnta1}% + \def\@tempb{\@tempa*}#2% + \def\@tempa*##1{% + \@ifundefined{c@##1}{\newcounter{##1}}{}% + \ifx\@tempc\@empty\else\@addtoreset{##1}\@tempc\fi + \@temptokena=\expandafter{\the\@temptokena-\arabic{##1}}% + \advance\@tempcnta-1% + \def\@tempc{##1}}% + \def\@tempb##1{\@tempa*{##1}% + \@temptokenb=\@temptokena\@tempcntb=\@tempcnta + \@whilenum\@tempcntb>0\do{% + \@temptokenb=\expandafter{\the\@temptokenb-0}% + \advance\@tempcntb-1}% + \@namexdef{the##1}{\the\@temptokenb-!}% + \@namegdef{p@##1}{}}#2}} +\h@newtoks\@temptokenb + +\def\setcounterformat#1#2#3{% + \@namedef{fancycounter#1}#2-!{\fcinit#3\fcfinish}} + +\def\fancycounter#1-{\@nameuse{fancycounter#1}} +\def\fancycounters#1,{{\fcinlist\fancycounter #1-!}% + \@ifnextchar!\@gobble{, \fancycounters}} + +% **************************** +% * INITIALIZATION * +% **************************** + +\def\initfancycounters{% + \@ifnextchar[{\h@initfancycounters}{\h@initfancycounters[3]}} +\def\h@initfancycounters[#1]{% + \def\fcpartseries{1} + \def\fcchapterseries{3} + \def\fcequationseries{5} + \def\fctableseries{6} + \def\fcfigureseries{7} + \def\fcfootnoteseries{8} + \def\fcpageseries{12} + % + \combinecounters\fcpartseries{\\{part}} + \setcounterformat\fcpartseries{##1}{\fcorfinally\fcformat{##1}\fcromanlined\fcordespair} + % + \ifnum#1<2\relax + \combinecounters\fcchapterseries{% + \\{chapter}\\{section}\\{subsection}\\{subsubsection}% + \\{paragraph}\\{subparagraph}\\{enumi}} + \setcounterformat\fcchapterseries{##1-##2-##3-##4-##5-##6-##7}{% + \fcformat{##7}{\fcsurround{}\fcdigit.}\fcorfinally + \fcformat{##1}\fcdigit[-]\fcformat{##2}[.]\fcdigit[-]% + \fcformat{##3}[.]\fcdigit[-]\fcformat{##4}[.]\fcdigit[-]% + \fcformat{##5}[.]\fcdigit[-]\fcformat{##6}[.]\fcdigit[-]% + \fcformat{##7}[$\cdot$]\fcdigit\fcordespair} + \else\ifnum#1=2\relax + \combinecounters\fcchapterseries{% + \\{chapter}\\{section}\\{subsection}\\{subsubsection}% + \\{paragraph}\\{enumi}\\{enumii}} + \setcounterformat\fcchapterseries{##1-##2-##3-##4-##5-##6-##7}{% + \fcformat{##7}{\fcsurround(\fcloweralpha)}\fcor + \fcformat{##6}{\fcsurround{}\fcdigit.}\fcorfinally + \fcformat{##1}\fcdigit[-]\fcformat{##2}[.]\fcdigit[-]% + \fcformat{##3}[.]\fcdigit[-]\fcformat{##4}[.]\fcdigit[-]% + \fcformat{##5}[.]\fcdigit[-]\fcformat{##6}[$\cdot$]\fcdigit[-]% + \fcformat{##7}[]{\fcsurround(\fcloweralpha)}\fcordespair} + \else\ifnum#1=3\relax + \combinecounters\fcchapterseries{% + \\{chapter}\\{section}\\{subsection}\\{subsubsection}% + \\{enumi}\\{enumii}\\{enumiii}} + \setcounterformat\fcchapterseries{##1-##2-##3-##4-##5-##6-##7}{% + \fcformat{##7}{\fcsurround{}\fclowerroman.}\fcor + \fcformat{##6}{\fcsurround(\fcloweralpha)}\fcor + \fcformat{##5}{\fcsurround{}\fcdigit.}\fcorfinally + \fcformat{##1}\fcdigit[-]\fcformat{##2}[.]\fcdigit[-]% + \fcformat{##3}[.]\fcdigit[-]\fcformat{##4}[.]\fcdigit[-]% + \fcformat{##5}[$\cdot$]\fcdigit[-]% + \fcformat{##6}[]{\fcsurround(\fcloweralpha)}% + \fcformat{##7}\fclowerroman\fcordespair} + \else + \combinecounters\fcchapterseries{% + \\{chapter}\\{section}\\{subsection}% + \\{enumi}\\{enumii}\\{enumiii}\\{enumiv}} + \setcounterformat\fcchapterseries{##1-##2-##3-##4-##5-##6-##7}{% + \fcformat{##7}{\fcsurround{}\fcalpha.}\fcor + \fcformat{##6}{\fcsurround{}\fclowerroman.}\fcor + \fcformat{##5}{\fcsurround(\fcloweralpha)}\fcor + \fcformat{##4}{\fcsurround{}\fcdigit.}\fcorfinally + \fcformat{##1}\fcdigit[-]\fcformat{##2}[.]\fcdigit[-]% + \fcformat{##3}[.]\fcdigit[-]\fcformat{##4}[$\cdot$]\fcdigit[-]% + \fcformat{##5}[]{\fcsurround(\fcloweralpha)}% + \fcformat{##6}\fclowerroman[.]\fcformat{##7}\fcalpha\fcordespair} + \fi\fi\fi + % + \combinecounters\fcequationseries{\\*{chapter}\\{equation}} + \setcounterformat\fcequationseries{##1-##2}{% + \fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit\fcorfinally + (\fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit)\fcordespair} + % + \combinecounters\fctableseries{\\*{chapter}\\{table}} + \setcounterformat\fctableseries{##1-##2}{% + \fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit\fcorfinally + \fctabsign\fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit\fcordespair} + \def\fctabsign{{% + \sbox\@tempboxa{$=$}% + \hbox to \wd\@tempboxa{\rlap{\box\@tempboxa}\hss$\parallel$\hss}}} + % + \combinecounters\fcfigureseries{\\*{chapter}\\{figure}} + \setcounterformat\fcfigureseries{##1-##2}{% + \fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit\fcorfinally + \fbox{\fcformat{##1}\fcdigit[.]\fcformat{##2}\fcdigit}\fcordespair} + % + \combinecounters\fcfootnoteseries{\\*{chapter}\\{footnote}} + \setcounterformat\fcfootnoteseries{##1-##2}{% + \fcformat{##2}\fcdigit\fcorfinally + \fcformat{##1}\fcdigit$^{\fcformat{##2}\fcdigit}$\fcordespair} + % + \combinecounters\fcpageseries{\\{page}} + \setcounterformat\fcpageseries{##1}{\fcorfinally\fcformat{##1}\fcdigit\fcordespair} +} + +% ******************************* +% * COMBINED COUNTER FORMATTING * +% ******************************* + +\def\fcinit{\begingroup\global\@fcstartedfalse\def\h@fc@link{}\def\h@fc@prefix{}% + \if@fcfull\def\next{\h@fc@gobbleformats}\else\def\next{}\fi\next} +\def\fcverbose#1#2{\if@fcverbose\def\next{#1}\else\def\next{#2}\fi\next} +\def\fcprefix#1{\fcifnonzero{#1}% + {\def\h@fc@value{#1}\@ifnextchar[% + \h@fc@Aprefix + {\expandafter\h@fc@Aprefix\expandafter[\h@fc@link]}}% + {\h@fc@Zformat}} +\def\h@fc@Aprefix[#1]#2{\def\h@fc@prefix{\if@fcstarted#1\fi#2\def\h@fc@link{}}} +\def\fcor{% + \if@fcstarted\def\fcorfinally##1\fcordespair{}\def\next{\h@fc@gobbleformats}% + \else\def\next{}\fi\next} +\def\fcorfinally{% + \if@fcstarted\def\fcorfinally##1\fcordespair{}\def\next{\fcorfinally}% + \else\def\next{}\fi\next} +\def\fcordespair{} +\def\h@fc@gobbleformats#1\fcorfinally{\fcorfinally} +\def\fcformat#1{\fcifnonzero{#1}{\def\h@fc@value{#1}\h@fc@Aformat}\h@fc@Zformat} +\def\fcifnonzero#1#2#3{\edef\@tempa{#1}\edef\@tempb{0}% + \ifx\@tempa\@tempb\def\next{#3}\else\def\next{#2}\fi\next} +\def\h@fc@Aformat{\h@fc@prefix\def\h@fc@prefix{}% + \@ifnextchar[\h@fc@Bformat{\h@fc@Bformat[\h@fc@link]}} +\def\h@fc@Bformat[#1]#2{\if@fcstarted#1\fi + #2\h@fc@value\global\@fcstartedtrue + \@ifnextchar[\h@fc@Cformat{\h@fc@Cformat[]}} +\def\h@fc@Cformat[#1]{\def\h@fc@link{#1}} +\def\h@fc@Zformat{\@ifnextchar[\h@fc@Yformat{\h@fc@Yformat[]}} +\def\h@fc@Yformat[#1]#2{\@ifnextchar[\h@fc@Xformat{}} +\def\h@fc@Xformat[#1]{} +\def\fcfinish{\endgroup} + +\newif\if@fcstarted + +% **************************** +% * COUNTER FORMATTING * +% **************************** + +\def\fcsurround#1#2#3#4{#1#2{#4}#3} + +\def\fcdigit{\if@fcoldstyle\def\next{\fcolddigit}\else\def\next{\fctabdigit}\fi\next} +\def\fctabdigit{} +\def\fcolddigit{\oldstylenums} +\def\fcloweralpha#1{\@xalph{#1}} +\def\fcalpha{\if@fcsmall\def\next{\fcsmallalpha}\else\def\next{\fcbigalpha}\fi\next} +\def\fcbigalpha#1{\@xAlph{#1}} +\def\fcsmallalpha#1{{\scshape\@xalph{#1}}} +\def\fclowerroman{\@roman} +\def\fcroman{\if@fcsmall\def\next{\fcsmallroman}\else\def\next{\fcbigroman}\fi\next} +\def\fcbigroman{\@Roman} +\def\fcsmallroman#1{{\scshape\@roman{#1}}} +\def\fcromanlined{\if@fcsmall\def\next{\fcsmallromanlined}\else\def\next{\fcbigromanlined}\fi\next} +\def\fcbigromanlined{\@romanlined{}\@Roman} +\def\fcsmallromanlined{\@romanlined\scshape\@roman} +\def\fcdice{\if@fcsmall\def\next{\fcsmalldice}\else\def\next{\fcbigdice}\fi\next} +\def\fcbigdice#1{{\sbox\@tempboxa{A}\@dice{\ht\@tempboxa}{#1}}} +\def\fcsmalldice{\@dice{1.2ex}} +\def\fcscore{\if@fcsmall\def\next{\fcsmallscore}\else\def\next{\fcbigscore}\fi\next} +\def\fcbigscore#1{{\sbox\@tempboxa{A}\@score{\ht\@tempboxa}{#1}}} +\def\fcsmallscore{\@score{1.2ex}} +\def\fcfnsymbol#1{\ensuremath{\@fnsymbol{#1}}} + +\def\@xalph{\h@fc@xalph\@alph} +\def\@xAlph{\h@fc@xalph\@Alph} +\def\h@fc@xalph#1#2{{\@tempcnta1\relax\@tempcntb#2\relax + \@whilenum\@tempcntb>26\do{\advance\@tempcnta1\advance\@tempcntb-26}% + \@whilenum\@tempcnta>0\do{#1\@tempcntb\advance\@tempcnta-1}}} + +\def\@romanlined#1#2#3{% + {\def\thinspace{\kern.08em}% + \sffamily\sbox\@tempboxa{\,{#1#2{#3}}\,}% + \hbox{\vbox{\hsize\wd\@tempboxa \offinterlineskip + \smash{\rlap{\hbox{\hphantom{\,{#1#2{#3}\/{}}\,}\kern-\wd\@tempboxa + \vrule width\wd\@tempboxa depth0.1ex}}}% + \copy\@tempboxa + \smash{\vrule width\wd\@tempboxa height0.1ex}}}}} + +\def\@dice#1{\h@fc@primcount6{\h@fc@dice{#1}}} +\def\h@fc@dice#1#2{{\setlength\unitlength{#1}\begin{picture}(1,1) + \linethickness{.03\unitlength} + \put(0,0){\line(0,1){1}}\put(0,1){\line(1,0){1}} + \put(0,0){\line(1,0){1}}\put(1,0){\line(0,1){1}} + \ifodd#2\put(0.50,0.50){\circle*{0.2}}\fi + \ifnum#2>1\put(0.25,0.75){\circle*{0.2}}\put(0.75,0.25){\circle*{0.2}}\fi + \ifnum#2>3\put(0.25,0.25){\circle*{0.2}}\put(0.75,0.75){\circle*{0.2}}\fi + \ifnum#2>5\put(0.25,0.50){\circle*{0.2}}\put(0.75,0.50){\circle*{0.2}}\fi + \end{picture}}} + +\def\@score#1{\h@fc@primcount5{\h@fc@score{#1}}} +\def\h@fc@score#1#2{{\setlength\unitlength{#1}\thicklines\@tempcnta#2\relax + \linethickness{.07\unitlength}% + \ifnum\@tempcnta>4 + \rlap{\begin{picture}(1,1) + \ifdim\unitlength>10pt\put(0,0){\line(1,1){1}}% + \else\put(0,0.5){\line(1,0){1}}\fi\end{picture}}% + \advance\@tempcnta-1\fi + \hbox{\@whilenum\@tempcnta>0\do{% + \begin{picture}(0.25,1) + \put(0.125,0){\line(0,1){1}}\end{picture}% + \advance\@tempcnta-1}}}} + +\def\h@fc@primcount#1#2#3{\hbox{\@tempcnta#3\relax + \@whilenum\@tempcnta>#1\do{#2{#1}\,\advance\@tempcnta-#1}% + #2\@tempcnta}} + +% **************************** +% * CONTEXT SWITCHING * +% **************************** + +\newif\if@fcoldstyle +\newif\if@fcsmall +\newif\if@fcverbose +\newif\if@fcfull +% moeten nog level-switches bij voor index + +\def\fcinheading{\@fcoldstylefalse\@fcsmallfalse\@fcverbosefalse\@fcfullfalse} +\def\fcintext{\@fcoldstyletrue\@fcsmalltrue\@fcverbosetrue\@fcfulltrue} +\def\fcinlist{\@fcoldstylefalse\@fcsmallfalse\@fcverbosefalse\@fcfulltrue} + +\fcinheading + +\let\h@fc@ref=\ref +\def\ref#1{{\fcintext\h@fc@ref{#1}}} + +\let\h@fc@pageref=\pageref +\def\pageref#1{{\fcintext\h@fc@pageref{#1}}} + +\def\h@fc@initindex{\ifx\h@fc@index\undefined + \makeindex + \let\h@fc@index=\index + \def\index{\begingroup\@ifnextchar*\h@fc@Aindex{\@temptokena={}\h@fc@Bindex}} + \def\h@fc@Aindex*{\@temptokena={*}\h@fc@Bindex} + \def\h@fc@Bindex{\@ifnextchar[\h@fc@Cindex\h@fc@Dindex} + \def\h@fc@Cindex[##1]{\@temptokena=\expandafter{\the\@temptokena[{##1}]}\h@fc@Dindex} + \def\h@fc@Dindex##1{\@temptokena=\expandafter{\the\@temptokena{##1}}% + \edef\h@fc@currentlabel{\h@fc@strip\h@fc@indexlabel}% + \let\h@fc@protectedwrite=\protected@write + \def\protected@write####1####2{% + \h@fc@protectedwrite{####1}{\def\thepage{\h@fc@currentlabel}####2}}% + \def\thepage{\h@fc@currentlabel}% + \expandafter\h@fc@index\the\@temptokena\endgroup} + % + \def\h@fc@strip##1{\expandafter\expandafter\expandafter + \h@fc@Astrip##1% + \@gobblefour\fancycounter{hhcount cannot convert unfancy labels!}-!} + \def\h@fc@Astrip##1\fancycounter##2-!{##2} + \def\@gobblefour##1##2##3##4{} + % + \def\@currentlabel{\fancycounter0-0-!} +\fi} + +\def\indextopages{\h@fc@initindex\def\h@fc@indexlabel{\thepage}} +\def\indextolabels{\h@fc@initindex\def\h@fc@indexlabel{\@currentlabel}} + +\endinput %********************** +% * WARRANTY, DISTRIBUTION ETC. * +% ******************************* +% +% This is a TeX style file by Herman Haverkort. This file is distributed +% in the hope that it will be useful, but without any warranty; without +% even the implied warranty of merchantability or fitness for a particular +% purpose. The author does not accept any responsability for any damage, +% loss, injury, psychosis, annoyance, marital problems, murders etc. which +% are caused by this file. +% +% This style file has not been tested systematically, so there are +% probably undiscoverd errors in it. If you find one, if you have +% trouble using this file, if you have a suggestion for an extension or +% another modification, or if you are just a happy user, please report +% it to: +% Herman Haverkort +% Heyenoordseweg 40 +% NL-6813 GA Arnhem +% herman@fgbbs.iaf.nl +% +% You are allowed to change this file, but you are not allowed to distribute +% the changed version unless you obey the following: +% - give the changed version another file name than the original one; +% - record clearly in the changed version: +% - the original name of the file; +% - its original author; +% - that it is a changed version; +% - do not remove the restrictions on distributing this file. +% +% You are not allowed to take money for the distribution or use of either +% this file or a changed version, except for a nominal charge for copying +% etc. +% +% Have fun! + diff --git a/usergrps/uktug/baskervi/5_5/hhflxbox.sty b/usergrps/uktug/baskervi/5_5/hhflxbox.sty new file mode 100644 index 0000000000..39ba9b077e --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhflxbox.sty @@ -0,0 +1,519 @@ +% FLEXIBOX MACROS for LaTeX2e version 2.11, +% written by Herman Haverkort, 18 april 1995 +% See end of file for information on warranty, distribution etc. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhflxbox}[1995/04/18 Scalable frames] +\RequirePackage{hhunits}[1995/02/16] +\RequirePackage{hhutils0}[1995/03/08] + +% WARNING for those who had a hhflxbox 1.00 or 1.01: The parameter WIDTH +% for \iframe should be specified in thousands from version 1.02 on. + +% ****************************** +% º HORIZONTAL CENTERING º +% ****************************** + +\def\clap#1{\hbox to \z@{\hss #1\hss}} + +% ****************************** +% º IN-LINE VERTICAL CENTERING º +% ****************************** + +\def\lcenter#1{$\vcenter{\hbox{#1}}$} + +% ****************************** +% º ISOMORPHOUS FRAMES º +% ****************************** +% +% \iframe sets isomorphous frames. Isomorphous frames are stretchable +% neither horizontally nor vertically; they are only scalable by the +% same factor in all directions. +% +% The syntax of \iframe is the following: +% \iframe IFRAME (HPOS, VPOS) WIDTH MINHEIGHT HSTRETCH VSTRETCH +% UNITHEIGHT:CONTENTS +% +% * IFRAME should be a macro that draws the frame in a picture environment, +% assuming that the unitlength has been set equal to the height of the +% area which is to contain the frame's contents. +% +% * HPOS and VPOS determine the position of the frame's contents within +% the frame; they are given by the distance between the frame's lower +% left corner and the lower left corner of the contents area. +% HPOS and VPOS should be in units, assuming that the unitlength is +% the height of the contents area. +% +% * WIDTH is 1000 times the width/height ratio of the frame's contents area. +% +% * MINHEIGHT is the minimum height of the contents. +% +% * HSTRETCH should be a macro that takes two arguments: a dimension +% HSIZE and a box number BOX. HSTRETCH reads the box and enlarges +% it to have width HSIZE. The following HSTRETCH macros are defined: +% - \ifrl (sets the box flushed left) +% - \ifrr (sets the box flushed right) +% - \ifrch (sets the box centered) +% VSTRETCH does the similar thing for the vertical dimension: +% - \ifrt (sets the box flushed up by increasing its depth) +% - \ifrb (sets the box flushed down by increasing its height) +% - \ifrcv (sets the box `centerd' by increasing depth and height by +% the same amount) +% +% * UNITHEIGHT (optional) is an identifier (just some string of alphabetic +% characters) which identifies the so-called unit height. Every time +% a frame is set, the smaller of the contents height and the unit height +% is set to the larger one. After compiling the entire file, the unit +% height will have been increased to fit the largest contents which have +% been framed with it. The unit height is then saved, and reloaded the +% next time the file is compiled. All frames using that unit height +% will be set to the same size then, which is determined by the largest +% box which should fit in it. +% +% * CONTENTS is what is to be framed. + +\def\ifrl#1#2{\hbox to #1{\box#2\hss}} +\def\ifrr#1#2{\hbox to #1{\hss\box#2}} +\def\ifrch#1#2{\hbox to #1{\hss\box#2\hss}} +\def\ifrb#1#2{\hbox{{% + \@tempdima #1\advance\@tempdima-\dp#2\ht#2\@tempdima \box#2}}} +\def\ifrt#1#2{\hbox{{% + \@tempdima #1\advance\@tempdima-\ht#2\dp#2\@tempdima \box#2}}} +\def\ifrcv#1#2{\hbox{{% + \@tempdima #1\relax + \@tempdimb #1\relax + \advance\@tempdima \ht#2% + \advance\@tempdima-\dp#2% + \ht#2.5 \@tempdima + \advance\@tempdimb-\ht#2% + \dp#2\@tempdimb + \box#2}}} + +\def\iframe#1(#2,#3)#4#5#6#7#8:#9{{% + % + % box what is to be framed: + \sbox\@tempboxa{#9}% + % + % determine the total height of the box + \@tempdima\ht\@tempboxa \advance\@tempdima\dp\@tempboxa + % + % if it is less than the minimum height, stretch the box vertically + \ifdim\@tempdima<#5\setbox\@tempboxa #7{#5}{\@tempboxa}\@tempdima #5\fi + % + % calculate the natural height of the box, given its width + \setlength\@tempdimb{\wd\@tempboxa}% + \divide\@tempdimb#4% + \setlength\@tempdimb{1000\@tempdimb}% + % + \ifdim\@tempdimb>\@tempdima + % if the box is lower than its natural height then stretch it vertically + \setbox\@tempboxa #7{\@tempdimb}{\@tempboxa}\@tempdima\@tempdimb + \else + % if the box is higher than its natural height then stretch it horizontally + \setlength\@tempdimb{.001\@tempdima}% + \setbox\@tempboxa #6{#4\@tempdimb}{\@tempboxa}% + \fi + % + % determine if a unit name is specified + \def\@tempa{#8}\ifx\@tempa\@empty\else + % if so, get the right height for the box and stretch it to the extent + % that is necessary + \@tempdimb\unit #8:{\@tempdima}\@tempdima\@tempdimb% + \setbox\@tempboxa #7{\@tempdima}{\@tempboxa}% + \setlength\@tempdimb{.001\@tempdima}% + \setbox\@tempboxa #6{#4\@tempdimb}{\@tempboxa}% + \fi + % + % calculate the unit length for the frame drawing + \divide\@tempdima 1000 + % + % calculate the depth of the framed box, taking in account the + % width of the lower frame part and the depth of the framed box + \@tempdimb #3\@tempdima \advance\@tempdimb\dp\@tempboxa + % + % and finally put it all together + \hbox{\lower\@tempdimb\hbox{% + \unitlength\@tempdima + \begin{picture}(0,0)% + \put(#2,#3){\hbox{\raise\dp\@tempboxa\box\@tempboxa}}% + \end{picture}% + #1}}}} + +% ****************************** +% º ENCIRCLING º +% ****************************** +% +% The first encircling macro has the following syntax: +% \ringbox UNITHEIGHT:CONTENTS +% where the parameters are as described above. + +\def\ringbox{\iframe\@ringbox(200,200){1000}{0pt}\ifrch\ifrcv} +\def\@ringbox{% + \begin{picture}(1400,1400)\put(700,700){\circle{1400}}\end{picture}} + +% The second encircling macro is very much alike the first one. It also +% puts the CONTENTS in a square, which is surrounded by a circle. The +% circle, however, does not contribute anything to the size of the +% resulting box. The result of \outringbox is a box with the dimensions +% of the squared contents, causing the circle to stick out. + +\def\outringbox{\iframe\@outringbox(0,0){1000}{0pt}\ifrch\ifrcv} +\def\@outringbox{% + \begin{picture}(1000,1000)\put(500,500){\circle{1400}}\end{picture}} + +% Finally, \bellybox sticks out by 5% of its diameter on every side +\def\bellybox{\iframe\@bellybox(130,130){1000}{0pt}\ifrch\ifrcv} +\def\@bellybox{% + \begin{picture}(1260,1260)\put(630,630){\circle{1400}}\end{picture}} + +% ****************************** +% º STRETCHABLE FRAMES º +% ****************************** +% +% Stretchable frames consist of four parts: two side parts (left and right) +% and two ledger parts (top and bottom). +% The side and ledger parts are macros which take (unfortunately) a lot +% of arguments: eight to be exact. The first is the box in which the side or +% ledger part is to be set. The second is the basic width of the box to +% be framed. Imagine this is the top border of the box to be framed: +% ------*-------------------------*---. +% #3 #4 +% The asterisks specify the part of the border that has to be spanned by +% the top ledger of the frame. The total length of this border should be +% given by the second argument of the macro. The third and the fourth +% argument should specify the distances between the ends and the +% fastening points (indicated by the asterisks). Of course these distances +% are usually zero. After the ledger has been fastened the fastening +% points should be moved, because the fastening points are considered +% to be the corners of the framed box and could be needed to position +% the side parts of the frame. Imagine a strange ledger like this one: +% +% *################ +% #################################* +% ########################### +% ------o-------------------------o--- +% The asterisks indicate the new fastening points. The position of the left +% fastening point should be stored in the dimensions identified by argument +% five and seven. The fifth argument should be set to the horizontal distance +% from the left end of the framed box border to the new left fastening point. +% The seventh argument should be set to the vertical distance between the +% framed box border and the fastening point. This distance should be +% negative if the new fastening point is outside the box, which it usually +% is. Similarly, the position of the right fastening point should be +% stored in the sixth and eighth argument. Note that if a new fastening +% point is positioned to the left or right of the framed box, its +% horizontal coordinate should be set negative. For example: in the +% above figure the right fastening point sticks out horizontally, so +% the sixth argument should be set to a negative value. +% +% For left part macros, swap left en top, and swap right and bottom in +% the above explanation. For bottom part macros, mirror the above story +% in the horizontal axis. For right part macros, mirror the left part +% explanation in the vertical axis. +% +% The basic syntax of a stretchable frame call is: +% \sframe LEFTSIDE TOPLEDGER RIGHTSIDE BOTTOMLEDGER -HORIZALIGN |VERTALIGN +% CONTENTS +% LEFTSIDE to BOTTOMLEDGER are as explained above. +% -HORIZALIGN and |VERTALIGN are optional. If specified the aligns have +% the following syntax: +% [MINDIM] STRETCH UNITDIM: +% where [MINDIM] and UNITDIM are optional (however, it does not make sense +% to omit both of them). The effect of specifying aligns is similar to +% the effect of specifying minimal heights, stretches and unit heights for +% an \iframe. The difference is that \iframe aligns work in horizontal and +% vertical direction simultaneously, while \sframe offers independent +% handling of the horizontal and vertical directions. +% +% \sfrsrule is a predefined macro which can be used as a left or right +% side. It draws a vertical rule with thickness \fboxrule. +% \sfrlrule does the similar thing horizontally and can be used as a +% top or bottom ledger. Note however that +% \sframe\sfrsrule\sfrlrule\sfrsrule\sfrlrule{stuff} +% does _not_ draw a proper box around stuff. There will be no corners! +% The solution is to divide the frame constructing process in phases. +% The first phase is drawing the side parts. The second phase is +% drawing the ledger parts, taking in account the width contributed +% by the already drawn side parts. Up to four phases can be used. +% The phases can be specified simply by typing the phase number +% between brackets just before each part, for example: +% \sframe [1]\sfrsrule [2]\sfrlrule [1]\sfrsrule [2]\sfrlrule {stuff} +% Each part for which no phase is specified will be drawn in phase four. +% +% To specify an empty side or ledger, specify any macro with a invalid +% phase number, e.g.: "[0]\open". +% +% There is a environment variant of \sframe: use +% \begin{sframed}... STUFF\end{sframed} instead of \sframe...{STUFF}. +% ============================================================================= + +\newenvironment{sframed}% + {\begingroup\@h@sfrenvironmenttrue\h@Zsframe}% + {\h@Ksframe} +\def\sframe{\begingroup\@h@sfrenvironmentfalse\h@Zsframe} +\def\h@Zsframe{\@ifnextchar[{\h@Asframe}{\h@Asframe[4]}} +\def\h@Asframe[#1]#2{\def\h@sfrlphase{#1}\def\h@sfrlside{#2}% + \@ifnextchar[{\h@Bsframe}{\h@Bsframe[4]}} +\def\h@Bsframe[#1]#2{\def\h@sfrtphase{#1}\def\h@sfrtledger{#2}% + \@ifnextchar[{\h@Csframe}{\h@Csframe[4]}} +\def\h@Csframe[#1]#2{\def\h@sfrrphase{#1}\def\h@sfrrside{#2}% + \@ifnextchar[{\h@Dsframe}{\h@Dsframe[4]}} +\def\h@Dsframe[#1]#2{\def\h@sfrbphase{#1}\def\h@sfrbledger{#2}% + \@ifnextchar-{\h@Esframe}{\h@Esframe-\ifrch:}} +\def\h@Esframe-{\@ifnextchar[{\h@Fsframe}{\h@Fsframe[\z@]}} +\def\h@Fsframe[#1]#2#3:{% + \def\h@sfrhmin{#1}\def\h@sfrhstretch{#2}\def\h@sfrhunit{#3}% + \@ifnextchar|{\h@Gsframe}{\h@Gsframe|\ifrcv:}} +\def\h@Gsframe|{\@ifnextchar[{\h@Hsframe}{\h@Hsframe[\z@]}} +\def\h@Hsframe[#1]#2#3:{% + \def\h@sfrvmin{#1}\def\h@sfrvstretch{#2}\def\h@sfrvunit{#3}% + \if@h@sfrenvironment\def\next{\h@Jsframe\ignorespaces}% + \else\def\next{\h@Isframe}\fi\next} +\def\h@Isframe#1{\h@Jsframe #1\h@Ksframe} +\def\h@Jsframe{\mufoff\sbox\@tempboxa\bgroup} +\def\h@Ksframe{\egroup + \@tempdima\ht\@tempboxa \addtolength\@tempdima{\dp\@tempboxa}% + \ifdim\@tempdima<\h@sfrvmin + \setbox\@tempboxa\h@sfrvstretch{\h@sfrvmin}{\@tempboxa}\@tempdima\h@sfrvmin\fi + \ifx\h@sfrvunit\@empty\else + \@tempdimb\unit\h@sfrvunit:{\@tempdima}\@tempdima\@tempdimb + \setbox\@tempboxa\h@sfrvstretch{\@tempdima}{\@tempboxa}\fi + \ifdim\wd\@tempboxa<\h@sfrhmin + \setbox\@tempboxa\h@sfrhstretch{\h@sfrhmin}{\@tempboxa}\fi + \ifx\h@sfrhunit\@empty\else + \@tempdimb\unit\h@sfrhunit:{\wd\@tempboxa}% + \setbox\@tempboxa\h@sfrhstretch{\@tempdimb}{\@tempboxa}\fi + \setlength\@tempdimq{\dp\@tempboxa}% + \sbox\@tempboxa{\raise\@tempdimq\box\@tempboxa}% + \setlength\@tempdima\z@\setlength\@tempdimb\z@% + \setlength\@tempdimc\z@\setlength\@tempdimd\z@% + \setlength\@tempdime\z@\setlength\@tempdimf\z@% + \setlength\@tempdimg\z@\setlength\@tempdimh\z@% + \def\h@sfrphase{1}\h@sfrdophase + \def\h@sfrphase{2}\h@sfrdophase + \def\h@sfrphase{3}\h@sfrdophase + \def\h@sfrphase{4}\h@sfrdophase + \hbox{\lower\@tempdimq\box\@tempboxa}% + \muffin + \endgroup} +\newif\if@h@sfrenvironment\@h@sfrenvironmentfalse +\def\h@sfrdophase{% + \setlength\@tempdimi\@tempdima\setlength\@tempdimj\@tempdimb + \setlength\@tempdimk\@tempdimc\setlength\@tempdiml\@tempdimd + \setlength\@tempdimm\@tempdime\setlength\@tempdimn\@tempdimf + \setlength\@tempdimo\@tempdimg\setlength\@tempdimp\@tempdimh + \ifx\h@sfrphase\h@sfrlphase\h@sfrlside\@tempboxb{\ht\@tempboxa}\@tempdima\@tempdimb + \@tempdimi\@tempdimj\@tempdimm\@tempdimo\else\sbox\@tempboxb{}\fi + \ifx\h@sfrphase\h@sfrtphase\h@sfrtledger\@tempboxc{\wd\@tempboxa}\@tempdime\@tempdimf + \@tempdimm\@tempdimn\@tempdimi\@tempdimk\else\sbox\@tempboxc{}\fi + \ifx\h@sfrphase\h@sfrrphase\h@sfrrside\@tempboxd{\ht\@tempboxa}\@tempdimc\@tempdimd + \@tempdimk\@tempdiml\@tempdimn\@tempdimp\else\sbox\@tempboxd{}\fi + \ifx\h@sfrphase\h@sfrbphase\h@sfrbledger\@tempboxe{\wd\@tempboxa}\@tempdimg\@tempdimh + \@tempdimo\@tempdimp\@tempdimj\@tempdiml\else\sbox\@tempboxe{}\fi + \addtolength\@tempdimi{\ht\@tempboxc}\addtolength\@tempdimk{\ht\@tempboxc}% + \addtolength\@tempdimj{\ht\@tempboxe}\addtolength\@tempdiml{\ht\@tempboxe}% + \addtolength\@tempdimm{\wd\@tempboxb}\addtolength\@tempdimo{\wd\@tempboxb}% + \addtolength\@tempdimn{\wd\@tempboxd}\addtolength\@tempdimp{\wd\@tempboxd}% + \addtolength\@tempdimq{\ht\@tempboxe}% + \setbox\@tempboxa\vbox{\offinterlineskip + \hbox{\kern\wd\@tempboxb\kern\@tempdime\rlap{\box\@tempboxc}}% + \hbox{\raise\@tempdimb\copy\@tempboxb\box\@tempboxa\raise\@tempdimd\box\@tempboxd}% + \hbox{\kern\wd\@tempboxb\kern\@tempdimg\rlap{\box\@tempboxe}}}% + \setlength\@tempdima\@tempdimi\setlength\@tempdimb\@tempdimj + \setlength\@tempdimc\@tempdimk\setlength\@tempdimd\@tempdiml + \setlength\@tempdime\@tempdimm\setlength\@tempdimf\@tempdimn + \setlength\@tempdimg\@tempdimo\setlength\@tempdimh\@tempdimp} + +\def\sfrsrule{\sfrrule{height\@tempdimq width\fboxrule}} +\def\sfrlrule{\sfrrule{height\fboxrule width\@tempdimq}} +\def\sfrrule#1#2#3#4#5#6#7#8#9{% + \sbox#2{\sfrcalclength{#3}{#4}{#5}\vrule #1}% + \sfrsetoffsets{\fboxrule}{#4}{#5}#6#7#8#9} + +\def\sfrcalclength#1#2#3{% + \setlength\@tempdimq{#1}% + \addtolength\@tempdimq{-#2}\addtolength\@tempdimq{-#3}} +\def\sfrsetoffsets#1#2#3#4#5#6#7{% + \setlength#4#2\setlength#5#3% + \setlength#6{-#1}\setlength#7{-#1}} + +% ****************************** +% º UTILITY FRAMES º +% ****************************** +% +% Separation frames consist of blank space around a box, which forces +% surrounding self-scaling boxes to stretch and leave some space between +% the surrounding frame and its contents. +% +% The generic seperation frame macro takes four parameters: +% \sepbox(LEFTMARGIN, UPPERMARGIN, RIGHTMARGIN, LOWERMARGIN) +% A abbreviation for \mframe(MARGIN,MARGIN,MARGIN,MARGIN) is available too: +% \separbox MARGIN +% +% Instead of \sepbox and \separbox one can use the environment variants +% started by \begin{sepboxed} and \begin{separboxed} and ended by +% \end{sepboxed} and \end{separboxed}. + +\newenvironment{sepboxed}% + {\begingroup\@h@sbxenvironmenttrue\h@Asepbox}% + {\h@Dsepbox} +\def\sepbox{\begingroup\@h@sbxenvironmentfalse\h@Asepbox} +\def\h@Asepbox(#1,#2,#3,#4){% + \def\h@sbxlsep{#1}\def\h@sbxtsep{#2}\def\h@sbxrsep{#3}\def\h@sbxbsep{#4}% + \if@h@sbxenvironment\def\next{\h@Csepbox\ignorespaces}% + \else\def\next{\h@Bsepbox}\fi\next} +\long\def\h@Bsepbox#1{\h@Csepbox #1\h@Dsepbox} +\def\h@Csepbox{\sbox\@tempboxa\bgroup\mufoff{\kern\h@sbxlsep}} +\def\h@Dsepbox{{\kern\h@sbxrsep}\egroup + \setlength\@tempdima{\ht\@tempboxa}\addtolength\@tempdima{\h@sbxtsep}% + \ht\@tempboxa\@tempdima + \setlength\@tempdima{\dp\@tempboxa}\addtolength\@tempdima{\h@sbxbsep}% + \dp\@tempboxa\@tempdima + \box\@tempboxa\muffin\endgroup} +\newif\if@h@sbxenvironment\@h@sbxenvironmentfalse + +\newenvironment{separboxed}[1]% + {\begin{sepboxed}(#1,#1,#1,#1)}% + {\end{sepboxed}} +\def\separbox#1{\sepbox(#1,#1,#1,#1)} + +% \broadbox{DIMENSION}{CONTENTS} sets CONTENTS in a parbox which has width +% current linewidth minus DIMENSION. Instead of \broadbox{DIMENSION}{CONTENTS} +% one can also use \begin{broadboxed}{DIMENSION}CONTENTS\end{broadboxed}. + +\long\def\broadbox#1#2{\vtop{\h@leavespace{#1}\mufoff #2}\muffin} +\newenvironment{broadboxed}[1]% + {\vtop\bgroup\h@leavespace{#1}\mufoff\ignorespaces}% + {\egroup\muffin} + +% Putting \boxhigh in front of something that is boxed (that is: _in_ the +% box!) suppresses leading vertical blank space. \boxlow does the similar +% thing at the end of the box: put it at the end of the boxed material. + +\newif\if@boxhigh +\def\boxhigh{% + \ifx\h@boxhigh@addvspace\undefined + \let\addpenalty\@gobble + \let\h@boxhigh@addvspace=\addvspace + \def\addvspace{\if@boxhigh + \ifdim\prevdepth>-4774pt\relax + \@boxhighfalse\def\next{\h@boxhigh@addvspace}% + \else\def\next{\@gobble}\fi + \else\def\next{\h@boxhigh@addvspace}\fi\next}\fi + \setlength\prevdepth{-4774pt}\@boxhightrue} + +\def\boxlow{\unskip} + +% ****************************** +% º SOME INTERNAL UTILITIES º +% ****************************** + +\h@newdimen\@tempdima\h@newdimen\@tempdimb\h@newdimen\@tempdimc +\h@newdimen\@tempdimd\h@newdimen\@tempdime\h@newdimen\@tempdimf +\h@newdimen\@tempdimg\h@newdimen\@tempdimh\h@newdimen\@tempdimi +\h@newdimen\@tempdimj\h@newdimen\@tempdimk\h@newdimen\@tempdiml +\h@newdimen\@tempdimm\h@newdimen\@tempdimn\h@newdimen\@tempdimo +\h@newdimen\@tempdimp\h@newdimen\@tempdimq +\h@newbox\@tempboxb\h@newbox\@tempboxc\h@newbox\@tempboxd\h@newbox\@tempboxe + +\def\h@leavespace#1{% + \hsize\linewidth\advance\hsize-#1\linewidth\hsize + \parshape\@ne\@totalleftmargin\linewidth} + +\newif\if@squeezing +\newcount\h@tsqo@level +\def\topsqueezeout{% + \ifx\h@tsqo@addvspace\undefined + \let\h@tsqo@addvspace=\addvspace + \def\addvspace{\if@squeezing + \ifdim\prevdepth>-4774pt\relax + \@squeezingfalse\def\next{\h@tsqo@addvspace}% + \else\def\next{\h@tsqo@savesqueeze\h@tsqo@addvspace}\fi + \else\def\next{\h@tsqo@addvspace}\fi\next}% + \let\h@tsqo@addpenalty=\addpenalty + \def\addpenalty{\if@squeezing + \ifdim\prevdepth>-4774pt\relax + \@squeezingfalse\def\next{\h@tsqo@addpenalty}% + \else\def\next{\h@tsqo@savesqueeze\h@tsqo@addpenalty}\fi + \else\def\next{\h@tsqo@addpenalty}\fi\next}% + \fi + \def\topsqueezein{% + \global\advance\h@tsqo@level-1\relax + \global\setbox\h@tsqo@currentsqueeze\vbox{% + \unvbox\h@tsqo@currentsqueeze + \advance\h@tsqo@level 1\relax + \unvbox\h@tsqo@currentsqueeze}}% + \global\advance\h@tsqo@level 1\relax + \expandafter\expandafter\expandafter\h@newbox\h@tsqo@currentsqueeze + \global\setbox\h@tsqo@currentsqueeze\vbox{}% + \setlength\prevdepth{-4774pt}\@squeezingtrue} +\def\topsqueezein{\unvbox\h@tsqo@currentsqueeze + \global\advance\h@tsqo@level-1\relax} +\def\h@tsqo@currentsqueeze{\csname h@tsqo@squeeze\number\h@tsqo@level\endcsname} +\def\h@tsqo@savesqueeze#1#2{\global\setbox\h@tsqo@currentsqueeze\vbox{% + \unvbox\h@tsqo@currentsqueeze #1{#2}}} + +\newcount\h@bsqo@level +\newcount\h@bsqo@zeros +\newif\if@bsqo@zero +\def\botsqueezeout{\par + \global\advance\h@bsqo@level 1\relax + \expandafter\expandafter\expandafter\h@newbox\h@bsqo@currentsqueeze + \global\setbox\h@bsqo@currentsqueeze\vbox{}% + \h@bsqo@zeros=0\relax + \@whilenum\h@bsqo@zeros<3\do{% + \@bsqo@zerotrue + \ifdim\lastskip=\z@\relax\unskip\else + \setlength\@tempskipa\lastskip + \h@bsqo@savesqueeze\addvspace\@tempskipa + \unskip\@bsqo@zerofalse\fi + \ifnum\lastpenalty=\z@\relax\unpenalty\else + \@tempcnta=\lastpenalty + \h@bsqo@savesqueeze\addpenalty\@tempcnta + \unpenalty\@bsqo@zerofalse\fi + \if@bsqo@zero\advance\h@bsqo@zeros 1\else\h@bsqo@zeros=0\fi}} +\def\botsqueezein{\unvbox\h@bsqo@currentsqueeze + \global\advance\h@bsqo@level-1\relax} +\def\h@bsqo@currentsqueeze{\csname h@bsqo@squeeze\number\h@bsqo@level\endcsname} +\def\h@bsqo@savesqueeze#1#2{\global\setbox\h@bsqo@currentsqueeze\vbox{% + #1{#2}\unvbox\h@bsqo@currentsqueeze}} + +\providecommand\mufoff{} +\providecommand\muffin{} + +\endinput% ********************** +% * WARRANTY, DISTRIBUTION ETC. * +% ******************************* +% +% This is a TeX style file by Herman Haverkort. This file is distributed +% in the hope that it will be useful, but without any warranty; without +% even the implied warranty of merchantability or fitness for a particular +% purpose. The author does not accept any responsability for any damage, +% loss, injury, psychosis, annoyance, marital problems, murders etc. which +% are caused by this file. +% +% This style file has not been tested systematically, so there are +% probably undiscoverd errors in it. If you find one, if you have +% trouble using this file, if you have a suggestion for an extension or +% another modification, or if you are just a happy user, please report +% it to: +% Herman Haverkort +% Heyenoordseweg 40 +% NL-6813 GA Arnhem +% herman@fgbbs.iaf.nl +% +% You are allowed to change this file, but you are not allowed to distribute +% the changed version unless you obey the following: +% - give the changed file another name than the original one; +% - record clearly in the changed file: +% - the original name of the file; +% - its original author; +% - that it is a changed version; +% - do not remove the restrictions on distributing the file. +% +% You are not allowed to take money for the distribution or use of either +% this file or a changed version, except for a nominal charge for copying +% etc. +% +% Have fun! + diff --git a/usergrps/uktug/baskervi/5_5/hhmuf.sty b/usergrps/uktug/baskervi/5_5/hhmuf.sty new file mode 100644 index 0000000000..2af77a1a0f --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhmuf.sty @@ -0,0 +1,600 @@ +% MULTINOTE (MUF) MACROS for LaTeX2e, version 1.11, +% written by Herman Haverkort, 13 may 1995 +% See end of file for information on warranty, distribution etc. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhmuf}[1995/05/13 Multinote system] +\RequirePackage{hhqueue}[1995/02/14] +\RequirePackage{hhutils0}[1995/03/08] + +% ============================================================================= +% - \muf... (to set footnotes) +% +% \muf:{TEXT} for a ordinary footnote +% \muf LABEL:{TEXT} for a footnote which is labelled LABEL, +% to make it possible to reuse the footnote +% later on by stating: +% \muf LABEL:{} which sets the previously defined footnote +% labelled LABEL. +% Labels should not contain commas, periods or colons! +% If you use the same footnote several times, the multinote macros try +% to ensure that the actual footnote text appears at most once on +% every page. +% ============================================================================= + +\long\def\muf#1:#2{\@covermufpunct{% + \h@ifespecified{#1}{\@mufsymonly #1:{#2}\muftxtonly #1:}% + {\@mufsymonly tmp@:{#2}\muftxtonly tmp@:\muffire tmp@:}}} +% If no label is specified, a temporary label is used. + +% ============================================================================= +% - \mufsym... (to postpone the setting of footnote texts) +% +% If you use \mufsym instead of \muf, only the footnote's marker will be +% set. The footnote text itself will not be set until \muffin is called. +% \mufsym's syntax is similar to \muf's: you can use \mufsym:{TEXT}, +% \mufsym LABEL:{TEXT} and \mufsym LABEL:{}. \mufsym is especially useful +% for footnotes in `forbidden' environments, like tables and parboxes. +% Just say \mufsym in the forbidden environment, and call \muffin as soon +% as you get out of it. +% ============================================================================= + +\long\def\mufsym#1:#2{\@covermufpunct{% + \h@ifespecified{#1}{\edef\@@@lab{#1}}% + {\stepcounter{@muftmps}\edef\@@@lab{tmp@\roman{@muftmps}}}% + \h@enqueue{@@@lab}{mufs@postponed}% + \@mufsymonly \@@@lab:{#2}}} +% If no label is specified, one of the temporary labels tmp@i, tmp@ii etc. +% is used. The label is appended to the list of postponed footnotes. + +% ============================================================================= +% - \muffin (to set postponed footnote texts) +% +% \muffin sets all footnote texts which were postponed by using \mufsym +% since the last call to \muffin. +% ============================================================================= + +\def\muffin{{% + \@muffin + \setcounter{@muftmp}{0}% + \@whilenum \value{@muftmp}<\value{@muftmps}\do + {\stepcounter{@muftmp}\muffire tmp@\roman{@muftmp}:}% + \setcounter{@muftmps}{0}}} +\def\@muffin{% + \h@ifqnonempty{mufs@postponed}{% + \h@getfirst{@@@lab}{mufs@postponed}% + \muftxtonly \@@@lab:% + \@muffin}} +% \muffin calls \@muffin to set alle postponed footnotes. Then it frees +% all temporary labels and the markers assigned to them. + +% ============================================================================= +% - \mufoff +% +% The \mufoff macro makes handling forbidden environments even easier +% than \mufsym. This is the way to use it: +% \begin{ForbiddenEnvironment} +% \mufoff +% Lots of bla, possibly containing calls to \muf with fingers itching +% to set a footnote. However, \mufoff guarantees that those footnotes +% will be postponed like \muf were \mufsym. +% \end{ForbiddenEnvironment} +% \muffin +% +% Nesting several forbidden environments which all insist on calling +% \mufoff and \muffin is no problem. \mufoff redefines \muffin to do +% nothing, so that only the outer \muffin will result in an attempt +% to set footnotes, and that is exactly what should be done. +% ============================================================================= +% - \mufoff[ENVIRONMENTNAME] +% +% \mufoff[ENVIRONMENTNAME] makes handling forbidden environments even +% easier than basic \mufoff en \muffin. Type \mufoff[ForbiddenEnvironment] +% and all multinotes between \begin{ForbiddenEnvironment} and +% \end{ForbiddenEnvironment} will be postponed to just after closing +% the forbidden environment. +% For example: if you type \mufoff[tabular] in the preamble of your +% document, then \muf's in the tabular environment will be handled +% correctly automatically. Because that is so useful I already included +% it in this style file, like I did with \mufoff[array] and +% \mufoff[eqnarray]. +% ============================================================================= + +\def\mufoff{\@ifnextchar[\@mufoff{\def\muf{\mufsym}\def\muffin{}}} +\def\@mufoff[#1]{% Stole a great deal of this macro from + % Kresten Krab Thorup's ftn.sty! + \@ifundefined{h@mf@#1}{% + \expandafter\let\csname h@mf@#1\expandafter\endcsname + \expandafter=\csname #1\endcsname + \expandafter\let\csname h@mf@end#1\expandafter\endcsname + \expandafter=\csname end#1\endcsname + \@namedef{#1}{\bgroup\mufoff\@nameuse{h@mf@#1}}% + \@namedef{end#1}{\@nameuse{h@mf@end#1}\egroup\muffin}}{}} + +\mufoff[tabular] +\mufoff[array] +\mufoff[eqnarray] +\mufoff[minipage] + +% - \mufhire LABEL:{TEXT} (to define a footnote) +% +% The footnote labelled LABEL will be defined, but neither the text +% nor the marker will be set. +% ============================================================================= + +\long\def\mufhire#1:#2{{% + \edef\@@@lab{#1}% + \h@ifnonempty{mufgrp@\@@@lab}% + {\PackageWarning{hhmuf}{Refusing to redefine multinote `#1'.\MessageBreak + Muffire it first}}% + {\h@ifqempty{mufsyms@avail}% + {\PackageWarning{hhmuf}{Out of multinote symbols.\Messagebreak + Using `?' instead}% + \@namexdef{mufsym@\@@@lab}{?}}% + {\h@getfirst{mufsym@\@@@lab}{mufsyms@avail}}% + \h@enqueue{@@@lab}{mufgrp@\arabic{@mufgrplevel}}% + \@namexdef{mufgrp@\@@@lab}{\arabic{@mufgrplevel}}% + \@namegdef{muftxt@\@@@lab}{#2}% + \@namexdef{mufpag@\@@@lab}{}}}} +% If footnote symbols are available, the first one is chosen from the +% symbol queue \mufsyms@avail. The footnote text is stored and the +% page identifier is reset (see \muftxtonly for further explanation) + +% ============================================================================= +% - \muffire LABEL: (to undefine a footnote) +% +% \muffire frees the footnote's label and marker, to enable their use +% for footnotes which will be defined later on. +% ============================================================================= + +\def\muffire#1:{{% + \edef\@@@lab{#1}% + \h@ifnonempty{mufgrp@\@@@lab}% + {\edef\@tempa{\@arabic{\c@@mufgrplevel}}% + \edef\@tempb{\@nameuse{mufgrp@\@@@lab}}% + \ifx\@tempa\@tempb + \expandafter\ifx\@nameuse{mufsym@\@@@lab}?\else + \h@enqueue{mufsym@\@@@lab}{mufsyms@avail}\fi + \h@delete{@@@lab}{mufgrp@\arabic{@mufgrplevel}}% + \@namegdef{mufgrp@\@@@lab}{}% + \else + \PackageWarning{hhmuf}{Multinote `#1' was defined at level \@tempb,% + \MessageBreak so cannot muffire it at level \@tempa}% + \fi}% + {\PackageWarning{hhmuf}{Cannot muffire multinote `#1':\MessageBreak + it is not defined}}% + }} +% \muffire will free the footnote's label by emptying the footnote text, +% and free the footnote's marker by appending it to the footnote symbol +% queue \mufsyms_avail. Thus the available footnote symbols will usually be +% used in turn, which establishes some nice variation in the type-setting +% of your article, report or book. + +% ============================================================================= +% - \mufsymonly... (to set a footnote's marker without the text) +% +% The same as \mufsym, except for the footnote text, which will _not_ +% be set automatically by a following call to \muffin +% ============================================================================= + +\def\mufsymonly#1:#2{\@covermufpunct{\@mufsymonly{#1}:{#2}}} +\def\@mufsymonly#1:#2{% + \h@ifspecified{#2}{\mufhire #1:{#2}}{}% + \h@ifnonempty{mufgrp@#1}% + {\@makemufmark{\@nameuse{mufsym@#1}}}% + {\PackageWarning{hhmuf}{Reference to undefined multinote `#1'% + \MessageBreak}% + \@makemufmark{??}}} + +% ============================================================================= +% - \muftxtonly LABEL: (to set a footnote's text without its marker) +% +% The footnote text will be set, but no marker will show up at the +% reference point. +% ============================================================================= + +\def\muftxtonly#1:{{% + \h@ifnonempty{mufgrp@#1}% + {\edef\@tempa{\@arabic{\c@page}}\edef\@tempb{\@nameuse{mufpag@#1}}% + \ifx\@tempa\@tempb\else + \@mufinsert{\@nameuse{mufsym@#1}}{\@nameuse{muftxt@#1}}% + \@namexdef{mufpag@#1}{\@tempa}\fi}% + {\PackageWarning{hhmuf}{Cannot type-set multinote `#1':\MessageBreak + it is not defined}}}} +% \muftxtonly checks if the identifier of the current page equals +% the page identifier which is stored for the footnote to be set. +% If so, the footnote is already set on this page, so it should not be set +% again. If not so, it is set, and the current page identifier is stored. + +% ============================================================================= +% - \mufbegin{GROUP} (to start a multinote group) +% +% See \mufend for explanation +% ============================================================================= + +\def\mufbegin#1{% + \muffin + \stepcounter{@mufgrplevel}% + \h@initqueue{mufgrp@\arabic{@mufgrplevel}}{}% + \@namexdef{mufgrpname@\arabic{@mufgrplevel}}{#1}} +% \mufbegin increases the nesting level counter and initializes the list +% of footnote labels for the new level. It stores the group name for +% matching it with the \mufend later on. + +% ============================================================================= +% - \mufend{GROUP} (to end a multinote group) +% +% \mufend sets all postponed footnotes (like \muffin), and then muffires +% all footnotes which had been defined since the corresponding call to +% \mufbegin{GROUP}. Thus \mufbegin and \mufend establish some kind of +% footnote definition environment, called a mufgroup. +% Mufgroups can be nested, but if you do nest them, nest them properly. +% So this is not permitted: +% +% \mufbegin{A}\mufbegin{B}\mufend{A}\mufend{B}, +% +% while this is OK: +% +% \mufbegin{A}\mufbegin{B}\mufend{B}\mufend{A}. +% +% Whenever you enter a new group, a \muffin is performed and then all +% footnotes which have already been defined are frozen. You cannot fire +% them until the new group is closed with \mufend. So the following is OK: +% +% \mufhire F:{Foo}\mufbegin{B}\mufend{B}\muffire F: +% +% while this is not: +% +% \mufhire F:{Foo}\mufbegin{B}\muffire F:\mufend{B} +% +% Whenever you are in a group, you cannot redefine footnotes which have +% been defined already in some outer group, because in that case you +% would have to muffire the footnote, which is not allowed. You cannot +% even define a new footnote which is local to the group but gets the +% same label as some footnote which has been defined in some outer group +% (e.g. a global footnote). The muf macros are not that smart. So the +% following is not allowed: +% +% \mufhire F:{Foo}\mufbegin{A}\mufhire F:{bar} +% +% If you have closed all the groups you had opened (or if you never +% opened any), then you are in the outermost, nameless group. You can +% close that group with \mufend{}. It will muffire all footnotes you +% had defined, and automatically reopen a outermost nameless group. +% So it is a kind of: \muffin \muffire ALL. +% ============================================================================= + +\def\mufend#1{{% + \edef\@tempa{#1}\edef\@tempb{\@nameuse{mufgrpname@\arabic{@mufgrplevel}}}% + \ifx\@tempa\@tempb + \muffin + {\def\\##1{\muffire ##1:}\h@processq{mufgrp@\arabic{@mufgrplevel}}} + \global\advance\c@@mufgrplevel-1 + \ifnum\value{@mufgrplevel}=0\mufbegin{}\fi + \else + \PackageWarning{hhmuf}{Refusing to end multinote group \@tempb\ + by\MessageBreak\protect\mufend{\@tempa}} + \fi}} + +% *************************** +% * LAY-OUT * +% *************************** + +% ============================================================================= +% \mufword defines the word which is used in references to multinotes. +% It is `footnote'; redefine it if you like, preferably by defining the +% appropriate language option (see below). +% ============================================================================= + +\def\mufword{footnote~} + +% ============================================================================= +% \@makemufword defines how to format a footnote's marker (in the text, not +% in the insertion at the foot of the page). Redefine it if you like. +% ============================================================================= + +\def\@makemufmark#1{\hbox{$^{#1}$}} + +% ============================================================================= +% by default \@covermufpunct will pull periods and commas following a +% footnote's marker under the marker. With some definitions of \@makemufmark +% this will not be desirable: \@covermufpunct should be redefined to +% \def\@covermufpunct{} then. +% ============================================================================= + +\def\@covermufpunct#1{\def\next{\@@covermufpunct{#1}}\futurelet\@@@tok\next} + +\newcount\@gsavsf +\def\@@covermufpunct#1{\ifx\@@@tok.\def\next{\@@@covermufpunct{#1}}\else + \ifx\@@@tok,\def\next{\@@@covermufpunct{#1}}\else + \def\next{#1}\fi\fi\next} +\def\@@@covermufpunct#1{\global\@gsavsf=\spacefactor + \rlap{\spacefactor=\@gsavsf\@@@tok\global\@gsavsf=\spacefactor}\nobreak #1% + \spacefactor=\@gsavsf\@gobble} + +% ============================================================================= +% \@makemuftext defines how to format a footnote. It takes two arguments: +% #1 is the footnote's marker; #2 is the footnote text. Redefine it if you like. +% ============================================================================= + +\long\def\@makemuftext#1#2{% + \sbox\@tempboxa{ $#1$ }% + \@tempdima\smallunitindent{\wd\@tempboxa}% + \parindent\z@ \parskip\z@ + \@setpar{% + \@@par \@tempdimb\hsize\advance\@tempdimb-\@tempdima + \parshape \@ne \@tempdima \@tempdimb}% + \par + \noindent\llap{\hbox to \smallunitindent\z@{\hss$#1$ \hss}}#2} + +\providecommand{\smallunitindent}[1]{10pt} +% This is to prepare hhmuf for use with the hhtext class (when I write this it's +% still under construction). The hhtext class will provide a \smallunitindent +% macro with some self-scaling features. + +% ============================================================================= +% The following has been taken from LaTeX2e (\@footnotetext), +% with the necessary modifications. +% ============================================================================= + +\long\def\@mufinsert#1#2{\insert\footins{% + \reset@font\footnotesize + \interlinepenalty\interfootnotelinepenalty + \splittopskip\footnotesep + \splitmaxdepth \dp\strutbox \floatingpenalty \@MM + \hsize\columnwidth \@parboxrestore + \protected@edef\@currentlabel{\mufword\@makemufmark{#1}}% + \color@begingroup + \@makemuftext{#1}{% + \rule\z@\footnotesep\ignorespaces #2\@finalstrut\strutbox} + \color@endgroup}} + +% *************************** +% * SOME INTERNAL UTILITIES * +% *************************** + +\long\def\h@ifnonempty#1#2#3{% + \@ifundefined{#1}{#3}{\h@ifespecified{\csname #1\endcsname}{#2}{#3}}} + +% ****************************** +% * OPTIONS AND INITIALIZATION * +% ****************************** + +\newcounter{@muftmps} +\newcounter{@muftmp} +\newcounter{@mufgrplevel} +\h@initqueue{mufs@postponed}{} +\mufbegin{} +\AtEndDocument{\mufend{}} + +% ============================================================================= +% Below is a list of recognized language options. Probably their only use +% is the ability to redefine \mufword. +% ============================================================================= + +\DeclareOption{dutch}{\def\mufword{voetnoot~}} + +% ============================================================================= +% The following specifies the footnote markers which will be used for +% multinotes. You can replace it with your own specification if you like. +% Please note that it makes no sense to use symbols with a well-defined +% order: the muf macros will not respect it. +% To make it easier to choose out of the numerous possibilities for +% footnote markers I defined some sets of markers which can be selected by +% specification of the appropriate option. The recognized options are: +% - black 8 black symbols (requires amssymb.sty) +% - circlox 12 circle and box symbols (requires amssymb.sty) +% - fuss 10 miscellaneous symbols (requires amssymb.sty) +% - geometry 10 geometrical symbols (requires amssymb.sty) +% - misc 19 miscellaneous symbols (default) +% - music 3 music symbols +% - strokes 8 symbols made of thin strokes (requires amssymb.sty) +% Take care that you do not select a set which is too small for your purposes. +% ============================================================================= + +\def\@@@mufset{\mufset@misc} + +\DeclareOption{black}{\def\@@@mufset{\mufset@black}} +\def\mufset@black{% + \RequirePackage{amssymb} + \h@initqueue{mufsyms@avail}{% 7 symbols + \\{\bullet}\\{\blacklozenge}\\{\blacktriangledown}% + \\{\clubsuit}\\{\blacksquare}\\{\blacktriangle}% + \\{\blacktriangleleft}\\{\spadesuit}}} + +\DeclareOption{circlox}{\def\@@@mufset{\mufset@circlox}} +\def\mufset@circlox{% + \RequirePackage{amssymb} + \h@initqueue{mufsyms@avail}{% 12 symbols + \\{\oslash}\\{\odot}\\{\boxtimes}\\{\oplus}\\{\square}% + \\{\circledast}\\{\boxminus}\\{\otimes}\\{\circledcirc}% + \\{\boxdot}\\{\circleddash}\\{\boxplus}}} + +\DeclareOption{fuss}{\def\@@@mufset{\mufset@fuss}} +\def\mufset@fuss{% + \RequirePackage{amssymb} + \h@initqueue{mufsyms@avail}{% 10 symbols + \\{\ast}\\{\diamondsuit}\\{\circledast}\\{\divideontimes}% + \\{\sharp}\\{\star}\\{\clubsuit}\\{\aleph}\\{\infty}% + \\{\circlearrowleft}}} + +\DeclareOption{geometry}{\def\@@@mufset{\mufset@geometry}} +\def\mufset@geometry{% + \RequirePackage{amssymb} + \h@initqueue{mufsyms@avail}{% 10 symbols + \\{\blacklozenge}\\{\square}\\{\blacktriangledown}\\{\vartriangle}% + \\{\blacksquare}\\{\triangleleft}% + \\{\blacktriangle}\\{\lozenge}\\{\blacktriangleleft}\\{\triangledown}}} + +\DeclareOption{misc}{\def\@@@mufset{\mufset@misc}} +\def\mufset@misc{% + \h@initqueue{mufsyms@avail}{% 19 symbols + \\{\spadesuit}\\{\triangle}\\{\ominus}\\{\clubsuit}% + \\{\times}\\{\diamondsuit}\\{\otimes}\\{\wr}\\{\odot}\\{\vee}% + \\{\oplus}\\{\infty}\\{\star}\\{\oslash}\\{+}\\{\triangleleft}% + \\{\top}\\{\bullet}\\{\nabla}}} + +\DeclareOption{music}{\def\@@@mufset{\mufset@music}} +\def\mufset@music{% 3 symbols + \h@initqueue{mufsyms@avail}{\\{\sharp}\\{\flat}\\{\natural}}} + +\DeclareOption{strokes}{\def\@@@mufset{\mufset@strokes}} +\def\mufset@strokes{% + \RequirePackage{amssymb} + \h@initqueue{mufsyms@avail}{% 8 symbols + \\{\top}\\{\times}\\{\curlyvee}\\{+}\\{\veebar}\\{\nshortparallel}% + \\{\barwedge}\\{\wr}}} + +\ProcessOptions +\@@@mufset + +\endinput% *********************** +% * FAILURES AND POSSIBLE CAUSES * +% ******************************** +% +% ! Package hhmuf Warning: Refusing to redefine multinote `LABEL'. +% (hhmuf) Muffire it first. +% +% If you defined a footnote labelled LABEL, using \muf, \mufsym, +% \mufsymonly or \mufhire, you should call \muffire LABEL: before +% defining another footnote having the same label. +% +% +% ! Package hhmuf Warning: Out of multinote symbols. +% (hhmuf) Using `?' instead. +% +% A marker is assigned to each footnote which has been defined. Because +% the number of markers is limited, you will run out of markers if +% too many footnotes have been defined at the same time. To prevent this +% from happening, use \muffire to undefine footnotes as soon as you +% do not need them anymore. +% Keep in mind that each call to \mufsym:{TEXT} (even without a explicit +% label) reserves a marker, which will not be released until the +% next call to \muffin, \mufbegin or \mufend. +% Also each call to \muf:{TEXT} which is placed in a `forbidden' environment +% protected by \mufoff reserves a marker, which will not be released until +% the environment is closed. +% +% +% ! Package hhmuf Warning: Reference to undefined multinote `LABEL'. +% +% ! Package hhmuf Warning: Cannot type-set multinote `LABEL': +% (hhmuf) it is not defined. +% +% ! Package hhmuf Warning: Cannot muffire multinote `LABEL': +% (hhmuf) it is not defined. +% +% Should be evident. If it is not, please check if you did not close +% the group in which the multinote was defined already (using \mufend). +% One other mistake you could have made, is calling \muffire LABEL: +% somewhere between \mufsym LABEL:{OPTIONAL-TEXT} and the first \muffin +% following it. This happens implicitely if you call \muffire LABEL: +% somewhere between \muf LABEL:{OPTIONAL-TEXT} in a protected forbidden +% environment and the closure of that environment. +% Note that if the multinote LABEL is undefined, calling for example +% \muf LABEL:{} results in two warnings: one for the in-text +% multinote reference marker (`Reference to undefined...'), and another +% for the type-setting of the footnote itself (`Cannot type-set...'). +% +% +% ! Package hhmuf Warning: Reference to undefined multinote `tmp_'. +% (and similar messages) +% +% You used \muf:{} or \mufsym:{}, which does not make any sense. +% +% +% ! Package hhmuf Warning: Multinote `LABEL' was defined at level 1, +% (hhmuf) so cannot muffire it at level 3. +% (and similar messages) +% +% Since you defined the multinote LABEL, you opened another group which +% is still open. It is not possible to undefine the multinote then. +% Muffire before opening the current group, or after closing it. +% +% +% ! Package hhmuf Warning: Refusing to end multinote group `GROUPA' by +% (hhmuf) \mufend{GROUPB}. +% (and similar messages) +% +% This warning should be caused by mismatched \mufbegins and \mufends. +% Remember mufgroups should be properly nested. +% +% +% - The footnote's marker appears all right, but the text is missing +% +% Two possible causes: +% 1. You used \mufsym but forgot \muffin. +% 2. You used \muf, \muftxtonly or \muffin in some `forbidden' +% environment. The constraints are the same as for ordinary +% LaTeX footnotes, unless the environment is protected by +% \mufoff[ENVIRONMENT-NAME]. +% +% +% - A footnote text is set although it should not be there. +% +% You probably forgot some \muffin some time ago, so that the footnote +% texts, which should have been set by that \muffin, are set by a following +% \muffin. +% +% +% - A footnote text appears twice on the same page. +% +% LaTeX could have floated a identical footnote from the previous page to +% this one which cannot be detected by the multinote macros. +% Another possible cause is probably the multinote macros getting the +% the page number of the in-text marker wrong. This problem is very +% much like the inability to start the footnote numbering every page +% (which - by the way - is no problem if you use multinotes, because +% they use a shift-system for their numbering). This problem can be +% solved, and probably will be solved as soon as I encounter it in +% practice. +% In both cases correct the error `manually' by using \mufsymonly once +% instead of \muf or \mufsym, or by omitting a \muftxtonly. +% +% +% ************************************************** +% * PROBLEMS TO BE SOLVED / EXTENSIONS TO BE MADE: * +% ************************************************** +% +% - The last mentioned failure. +% - Enabling multinotes under minipages. +% - A switch to force muf to set footnote texts at most once at +% a pair of opposite pages. +% +% +% ******************************* +% * WARRANTY, DISTRIBUTION ETC. * +% ******************************* +% +% This is a TeX style file by Herman Haverkort. This file is distributed +% in the hope that it will be useful, but without any warranty; without +% even the implied warranty of merchantability or fitness for a particular +% purpose. The author does not accept any responsability for any damage, +% loss, injury, psychosis, annoyance, marital problems, murders etc. which +% are caused by this file. +% +% This style file has not been tested systematically, so there are +% probably undiscoverd errors in it. If you find one, if you have +% trouble using this file, if you have a suggestion for an extension or +% another modification, or if you are just a happy user, please report +% it to: +% Herman Haverkort +% Heyenoordseweg 40 +% NL-6813 GA Arnhem +% herman@fgbbs.iaf.nl +% +% You are allowed to change this file, but you are not allowed to distribute +% the changed version unless you obey the following: +% - give the changed version another file name than the original one; +% - record clearly in the changed version: +% - the original name of the file; +% - its original author; +% - that it is a changed version; +% - do not remove the restrictions on distributing this file. +% +% You are not allowed to take money for the distribution or use of either +% this file or a changed version, except for a nominal charge for copying +% etc. +% +% Have fun! + diff --git a/usergrps/uktug/baskervi/5_5/hhparmrk.sty b/usergrps/uktug/baskervi/5_5/hhparmrk.sty new file mode 100644 index 0000000000..687a7deb8e --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhparmrk.sty @@ -0,0 +1,479 @@ +% PARALLEL MARK MACROS (PARMARK) version 2.11, +% written by Herman Haverkort, 11 april 1995. +% See end of file for information on warranty, distribution etc. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhparmrk}[1995/04/11 Parallel marks] +\RequirePackage{hhunits}[1995/02/10] +\RequirePackage{hhflxbox}[1995/03/23] +\RequirePackage{hhutils0}[1995/03/08] + +\DeclareOption{trafficsigns}{} % obsolete +\ProcessOptions + +% WARNING: This package does not work properly when combined with +% hhmuf version 1.00! With later versions there is no problem. +% +% The parallel mark macros have been designed to mark fragments of text +% without interfering with its hierarchical structure. This +% can be extremely useful when developing texts which should be judged +% and approved repeatly by several people, such as regulations or other +% common statements. Recent changes, new proposals etc. could be +% marked easy, clearly and beautifully at the same time. Parallel marks +% could also be used to indicate levels of importance, confidentiality +% etc., without disturbing the optical appearance of the text too much +% by using different font sizes etc. +% A drawback of the parallel mark macros is that marked text fragments +% cannot be split across pages. To make such a split possible, you have +% to split the fragment yourself and mark each part seperately. Another +% way to enable splits is to use \dopars. Even then though paragraphs +% cannot be split. For more explanation on \dopars see below. +% +% +% ============================================================================= +% - \bracespan(LEFTSPAN()RIGHTSPAN){TEXT} +% +% The TEXT may be several paragraphs long. Either (LEFTSPAN( or )RIGHTSPAN) +% may be omitted. Both LEFTSPAN and RIGHTSPAN have the following syntax: +% {SIGN}WIDTH[OFFSET]{COMMENT} +% +% The SIGN should be one of the mathematical delimiter symbols which are +% constructed with repeatable extensions. Examples are: ), [, |, \rgroup, +% \} and \Updownarray. The SIGN is set next to the TEXT, while the COMMENT +% is set vertically centered next to the SIGN. The WIDTH specifies the amount +% of space which is available for the SIGN and the COMMENT. The WIDTH should +% be specified by: +% :- which stands for the amount of space necessary if the +% COMMENT should not be broken across several lines (the +% natural width), or: +% :{DIMENSION} which specifies a `hard' width and may force the COMMENT +% to be broken across several lines, or: +% {UNITNAME}: which stands for the maximum natural width of all +% sign-comment combinations set with the same UNITNAME. +% The [OFFSET] is optional. If specified it should be a dimension surrounded +% by brackets [ and ]. The OFFSET determines the amount of indentation of +% the spanned TEXT when compared to surrounding unspanned text. If the +% OFFSET is omitted, it is set equal to the WIDTH. +% +% For compatibility yet another (old) syntax of \bracespan is supported: +% \bracespan[SIDE]{SIGN}{OFFSET}{COMMENT}{TEXT} +% This has the same meaning as: +% \bracespan({SIGN}:-[OFFSET]{COMMENT}({TEXT} if SIDE = l, or +% \bracespan){SIGN}:-[OFFSET]{COMMENT}){TEXT} if SIDE = r. +% +% Furthermore there is a environment variant of \bracespan which consists +% of \begin{bracespanned} (with the same arguments as \bracespan, except +% for the spanned text) and \end{bracespanned}. +% ============================================================================= + +\newenvironment{bracespanned}% + {\begingroup\@h@bspenvironmenttrue\h@Zbspan}% + {\h@Ibspan\h@scopecorrection} +\def\bracespan{\begingroup\@h@bspenvironmentfalse\h@Zbspan} +\def\h@Zbspan{\@ifnextchar[{\h@sspan}{\h@dspan}} +\def\h@sspan[#1]#2#3#4{\h@ifstr{#1}l% + {\h@dspan({#2}:-[#3]{#4}(}% + {\h@dspan){#2}:-[#3]{#4})}} +\def\h@dspan{\@ifnextchar){\h@Abspan(.:-(}{\h@Abspan}} +\def\h@Abspan(#1({\@ifnextchar){\h@Bbspan(#1(}{\h@Bbspan(#1().:-)}} +\def\h@Bbspan(#1#2:{\def\h@bsplsign{#1}\def\h@bspwidth{#2}% + \h@ifspecified{#2}{\h@Cbspan-}{\h@Cbspan}} +\def\h@Cbspan#1{\@ifnextchar[% + {\h@Dbspan{#1}}% + {\h@Dbspan{#1}[\h@auto]}} +\def\h@Dbspan#1[#2]#3()#4#5:{% + \if@noskipsec\leavevmode\fi \par\mufoff + % Store left comment in \@tempboxb and left offset in \@tempdimb + \h@spansetcomment\h@bsplsign.\h@bspwidth{#1}{#2}{#3}\@tempboxb\@tempdimb + \def\h@bsprsign{#4}\def\h@bspwidth{#5}% + \h@ifspecified{#5}{\h@Ebspan-}{\h@Ebspan}} +\def\h@Ebspan#1{\@ifnextchar[% + {\h@Fbspan{#1}}% + {\h@Fbspan{#1}[\h@auto]}} +\def\h@Fbspan#1[#2]#3){% + % Store right comment in \@tempboxc and left offset in \@tempdimc + \h@spansetcomment.\h@bsprsign\h@bspwidth{#1}{#2}{#3}\@tempboxc\@tempdimc + \if@h@bspenvironment\def\next{\h@Hbspan\ignorespaces}% + \else\def\next{\h@Gbspan}\fi\next} +\long\def\h@Gbspan#1{\h@Hbspan #1\h@Ibspan} +\def\h@Hbspan{% + % Store total indentation in \@tempdima + \setlength\@tempdima\@tempdimb \addtolength\@tempdima\@tempdimc + % Type-set text to be spanned + \setbox\@tempboxa\broadboxed\@tempdima\topsqueezeout} +\def\h@Ibspan{\h@savelocals\botsqueezeout\endbroadboxed + % Determine the vertical shift which is necessary to center the spanning + % symbols and comments; store it in \@tempdima + \sbox\@tempboxd{\ensuremath{\vcenter{\copy\@tempboxa}}}% + \setlength\@tempdima{\ht\@tempboxd}\addtolength\@tempdima{-\ht\@tempboxa}% + % Type-set left spanning delimiter together with comment (if present) + \sbox\@tempboxb{% + \setlength\nulldelimiterspace\z@ + \lower\@tempdima\hbox{\ensuremath{\m@th\displaystyle{% + \ifdim\wd\@tempboxb>\z@\box\@tempboxb\fi + \left\h@bsplsign\vphantom{\copy\@tempboxd}\right.}}}}% + % Type-set right spanning delimiter together with comment (if present) + \sbox\@tempboxc{% + \setlength\nulldelimiterspace\z@ + \lower\@tempdima\hbox{\ensuremath{\m@th\displaystyle{% + \left.\vphantom{\copy\@tempboxd}\right\h@bsprsign + \ifdim\wd\@tempboxc>\z@\box\@tempboxc\fi}}}}% + % Determine depth of last line of spanned text + \h@getvirtualdepth\@tempboxa + % Put it all together + \topsqueezein + \h@soberhmode + \hbox{\kern\@tempdimb\llap{\box\@tempboxb}\box\@tempboxa\rlap{\box\@tempboxc}}% + \par + \botsqueezein + \endgroup + % Set \prevdepth to depth of last line of spanned text + \prevdepth\h@virtualdepth + \muffin + \ignorespaces} +\newif\if@h@bspenvironment\@h@bspenvironmentfalse +\def\h@spansetcomment#1#2#3#4#5#6#7#8{% + % Store delimiter at largest possible size in \@tempboxa (including + % any surrounding space) + \sbox\@tempboxa{% + \setlength\nulldelimiterspace\z@ + \ensuremath{\m@th\displaystyle{% + \h@ifspecified{#6}{\,}{}% + \left#1\vphantom{\vrule height\paperheight}\right#2}}}% + \h@ifstr-{#4}% + {\sbox#7{\mufoff\@makespancomment{#6}}}% + % If width is specified, then set the comment in a box with the + % specified width minus the width of the largest possible delimiter + {\setlength#8{#4}\addtolength#8{-\wd\@tempboxa}% + \sbox#7{\ensuremath{\vcenter{\hsize#8\relax\@makespancomment{#6}}}}}% + % Calculate the width of the span; that is the width of the comment + % plus the width of the largest possible delimiter + surrounding space + \setlength#8{\wd#7}% + \addtolength#8{\wd\@tempboxa}% + % Execute unit width handling + \h@ifespecified{#3}{\setlength#8{\unit {#3}:#8}}{}% + % If offset was specified, then store the specified value, else leave + % it so that the width is kept as offset value. + \h@ifstr\h@auto{#5}{}{\setlength#8{#5}}} + +% ============================================================================= +% \@makespancomment defines how a comment next to span is to be type-set. +% Redefine it if you like. By default \@makespancomment selects a smaller +% font and redefines the \@makemufmark macro which is part of the hhmuf +% package. The latter is useful if you want to use hhmuf's multinotes as +% comments, but it is not if you want to use multinotes _in_ comments! +% The same holds for normal footnotes and redefinition of \@makefnmark. +% Note that the hhmuf package is not included automatically by hhparmrk: +% if you want to use it you have to include it yourself. +% ============================================================================= + +\long\def\@makespancomment#1{{% + \def\@makemufmark##1{\ensuremath{##1}}% + \def\@makefnmark##1{\ensuremath{##1}}% + \setlength\parindent\z@ + \raggedright\tolerance=200\emergencystretch=10pt\small #1\par}} + +% ============================================================================= +% - \markspan(LEFTSPAN()RIGHTSPAN){TEXT} +% +% The TEXT may be several paragraphs long. Either (LEFTSPAN( or )RIGHTSPAN) +% may be omitted. Both LEFTSPAN and RIGHTSPAN have the following syntax: +% {UPMARK}[FILL]{LOWMARK}[ALIGNMENT]{MARKSEP}[OFFSET] +% +% A mark is set next to the text. The mark consists of a upper part, a +% lower part and a fill in between. The fill - if specified - should be a +% macro that takes one argument: the required size. There is one fill +% predefined: \msprule, which sets a vertical rule with width \fboxrule. +% The upper part, the lower part and the fill are horizontally aligned +% according to the specified ALIGNMENT, which should be l (left), r (right), +% i (in), o (out) or c (centered). The specifying of ALIGNMENT is optional; +% if omitted the alignment is assumed to be c (centered). i is like r for +% left spans while it is like l for right spans. Similarly o is like l +% for left spans and like r for right spans. +% MARKSEP should be a dimension which specifies the amount of space which +% is to be left between the mark and the spanned text. +% The [OFFSET] is optional. If specified it should be a dimension surrounded +% by brackets [ and ]. The OFFSET determines the amount of indentation of +% the spanned TEXT when compared to surrounding unspanned text. If the +% OFFSET is omitted, it is set equal to the width of the spanning marks. +% +% There is a environment variant of \markspan which consists +% of \begin{markspanned} (with the same arguments as \markspan, except for the +% spanned text) and \end{markspanned}. +% ============================================================================= + +\newenvironment{markspanned}% + {\begingroup\@h@mspenvironmenttrue\h@Zmspan}% + {\h@Kmspan\h@scopecorrection} +\def\markspan{\begingroup\@h@mspenvironmentfalse\h@Zmspan} +\def\h@Zmspan{\@ifnextchar){\h@Amspan({}{}\z@(}{\h@Amspan}} +\def\h@Amspan(#1({\@ifnextchar){\h@Bmspan(#1(}{\h@Bmspan(#1(){}{}\z@)}} +\def\h@Bmspan(#1{\def\h@mspupmark{#1}% + \@ifnextchar[{\h@Cmspan}{\h@Cmspan[\h@emptymarkspan]}} +\def\h@Cmspan[#1]#2{\def\h@msplfill{#1}\def\h@mspbotmark{#2}% + \@ifnextchar[{\h@Dmspan}{\h@Dmspan[c]}} +\def\h@Dmspan[#1]#2{\def\h@msplalign{#1}\def\h@msplsep{#2}% + \@ifnextchar[{\h@Emspan}{\h@Emspan[\h@auto]}} +\def\h@Emspan[#1]()#2{% + \if@noskipsec\leavevmode\fi \par\mufoff + % Store upper left mark in \@tempboxb, lower left mark in \@tempboxc, + % width of left marks in \@tempdimb, left offset in \@tempdimc. + \h@spansetmark\h@mspupmark\h@mspbotmark\h@msplsep{#1}% + \@tempboxb\@tempboxc\@tempdimb\@tempdimc + \def\h@mspupmark{#2}% + \@ifnextchar[{\h@Fmspan}{\h@Fmspan[\h@emptymarkspan]}} +\def\h@Fmspan[#1]#2{\def\h@msprfill{#1}\def\h@mspbotmark{#2}% + \@ifnextchar[{\h@Gmspan}{\h@Gmspan[c]}} +\def\h@Gmspan[#1]#2{\def\h@mspralign{#1}\def\h@msprsep{#2}% + \@ifnextchar[{\h@Hmspan}{\h@Hmspan[\h@auto]}} +\long\def\h@Hmspan[#1]){% + \h@spansetmark\h@mspupmark\h@mspbotmark\h@msprsep{#1}% + \@tempboxd\@tempboxe\@tempdimd\@tempdime + \if@h@mspenvironment\def\next{\h@Jmspan\ignorespaces}% + \else\def\next{\h@Imspan}\fi\next} +\long\def\h@Imspan#1{\h@Jmspan #1\h@Kmspan} +\def\h@Jmspan{% + % By now the upper and lower left marks are stored in tempboxb and -c, + % while the upper and lower right marks are stored in tempboxd and -e. + % Furthermore tempdimb and tempdimc contain the width of the left mark + % and the left offset; tempdimd and -e the right mark's width and offset. + \setlength\@tempdima\@tempdimc \addtolength\@tempdima\@tempdime + \setbox\@tempboxa\broadboxed\@tempdima\topsqueezeout} +\def\h@Kmspan{\h@savelocals\botsqueezeout\endbroadboxed + % Now \@tempdima will be used to store the total height of \@tempboxa; + \setlength\@tempdima{\ht\@tempboxa}\addtolength\@tempdima{\dp\@tempboxa}% + % \@tempdime will be used to store the amount of fill necessary + % for the left mark + \setlength\@tempdime\@tempdima + \addtolength\@tempdime{-\ht\@tempboxb}\addtolength\@tempdime{-\ht\@tempboxc}% + % Compose the left mark + \setbox\@tempboxb\vbox{% + \hsize\@tempdimb \offinterlineskip + \h@markspanalign l\h@msplalign{\box\@tempboxb}% + % Leave out the fill if there is no room + \ifdim\@tempdime<\z@\else\h@markspanalign l\h@msplalign{\h@msplfill\@tempdime}\fi + \h@markspanalign l\h@msplalign{\box\@tempboxc}}% + \sbox\@tempboxb{\lower\ht\@tempboxb\box\@tempboxb}% + % Now \@tempdime will be used to store the amount of fill for the right mark + \setlength\@tempdime\@tempdima + \addtolength\@tempdime{-\ht\@tempboxd}\addtolength\@tempdime{-\ht\@tempboxe}% + % Compose the right mark + \setbox\@tempboxc\vbox{% + \hsize\@tempdimd \offinterlineskip + \h@markspanalign r\h@mspralign{\box\@tempboxd}% + % Leave out the fill if there is no room + \ifdim\@tempdime<\z@\else\h@markspanalign r\h@mspralign{\h@msprfill\@tempdime}\fi + \h@markspanalign r\h@mspralign{\box\@tempboxe}}% + \sbox\@tempboxc{\lower\ht\@tempboxc\box\@tempboxc}% + % Determine depth of last line of spanned text + \h@getvirtualdepth\@tempboxa + \setlength\@tempdima{\ht\@tempboxa}% + % Now put it all together + \topsqueezein + \h@soberhmode + \hbox{% + % Realize left offset + \kern\@tempdimc + % Put left mark on the left (including the specified mark seperation) + \llap{\raise\@tempdima\box\@tempboxb\kern \h@msplsep}% + \box\@tempboxa + % Put right mark on the right (including the specified mark seperation) + \rlap{\kern \h@msprsep\raise\@tempdima\box\@tempboxc}}% + \par + \botsqueezein + \endgroup + % Set \prevdepth to depth of last line of spanned text + \prevdepth\h@virtualdepth + \muffin + \ignorespaces} +\newif\if@h@mspenvironment\@h@mspenvironmentfalse +\def\h@spansetmark#1#2#3#4#5#6#7#8{% + % Type-set upper and lower marks; make sure they have no depth to ease + % further calculations + \sbox#5{#1}\sbox#5{\raise\dp#5\box#5}% + \sbox#6{#2}\sbox#6{\raise\dp#6\box#6}% + % Determine the largest width of the upper and lower marks and store it + \setlength#7{\wd#5}% + \ifdim#7<\wd#6\setlength#7{\wd#6}\fi + % If offset is specified, then store the specified offset, else store + % the calculated width increased by the mark seperation + \h@ifstr\h@auto{#4}% + {\setlength#8#7\addtolength#8{#3}}% + {\setlength#8{#4}}} +\def\h@markspanalign#1#2#3{% + % Translate out/in to left/right or right/left, depending on side which + % is handled now (specified in #1). + \expandafter\ifx#2o\def\@tempa{#1}\else + \expandafter\ifx#2i\ifx l#1\def\@tempa{r}\else\def\@tempa{l}\fi + \else\let\@tempa=#2\fi + \fi + \hbox to \hsize{% + \expandafter\ifx\@tempa l\else\hfill\fi + #3\expandafter\ifx\@tempa r\else\hfill\fi}} +\def\h@emptymarkspan#1{\vphantom{\msprule{#1}}} +\def\msprule#1{\vrule height #1 width \fboxrule} + +% ============================================================================ +% TRAPEZIUM FRAMES AND READERS TRAFFIC SIGNS +% +% Because Frans Goddijn likes them so much I included them in the +% basis package: the trapezium frames and the readers traffic signs! +% for example: \trafficsign{\trapbox:}{Hi}{Hello world!} would produce +% the text "Hello world!", spanned by a round traffic sign saying "Hi". +% The traffic sign is supported by a post on a triangular foot and shows up +% next to the marked text in the left margin. trafficsigned is the +% environment version of \trafficsign. +% There exist asterisk version \trafficsign* and trafficsigned* which +% make the signed text indent instead of pushing the sign into the margin. +% ============================================================================ + +\def\trapbox{\iframe\@trapbox(170,0){1160}{11pt}\ifrch\ifrcv} +\def\@trapbox{% + \begin{picture}(1500,1000) + \put(200,0){\line(1,0){1100}} + \put(1300,0){\line(1,5){200}} + \put(1500,1000){\line(-1,0){1500}} + \put(0,1000){\line(1,-5){200}} + \end{picture}} + +\def\@trafficsigned#1#2#3{\markspanned(% + {#2{\separbox{2pt}{\large\bf #3}}}% + [\msprule]% + {\sepbox(\z@,1pt,\z@,\z@){\large\ensuremath{\bigtriangleup}}}% + {1em}% + #1(} +\def\@endtrafficsigned{\ifhmode\strut\fi\endmarkspanned} +\newenvironment{trafficsigned}% + {\@trafficsigned{[\z@]}}{\@endtrafficsigned} +\newenvironment{trafficsigned*}% + {\@trafficsigned{}}{\@endtrafficsigned} + +\def\@trafficsign#1#2#3#4{\begin{trafficsigned#1}{#2}{#3}#4\end{traficsigned#1}} +\def\trafficsign{\@ifnextchar*\@trafficsign{\@trafficsign{}}} + +% ============================================================================ +% OPTION FRAMES +% +% \optionframe{BEFORESKIP}{AFTERSKIP}{LABEL}{STUFF} renders stuff in a frame +% labelled with a encircled LABEL, which is typically a single character. +% BEFORESKIP and AFTERSKIP specify the amount of vertical space to be left +% before and after the frame. +% This kind of frames is called \optionframes since I first used them +% to denote optional passages in regulations which were subject to +% discussion yet. +% \begin{optionframed}{LABEL}STUFF\end{optionframed} is the environment +% version of \optionframe. +% ============================================================================ + +\newenvironment{optionframed}[3]{% + \if@noskipsec\leavevmode\fi + \par \if@nobreak\else\addvspace{#1}\fi + \def\h@of@afterskip{#2}% + \fboxsep 3pt + \nointerlineskip + \hbox\bgroup\sbox\@tempboxa\bgroup\mufoff\begin{broadboxed}{6.8pt}% + \@h@nohmodetrue + \begin{markspanned} + ({\bellybox of@optionlabel:{\separbox{1pt}{\large\bf #3}}}{}{10pt}(% + \boxhigh}% + {\boxlow\end{markspanned}\end{broadboxed}\egroup + \fbox{\box\@tempboxa}\egroup\muffin + \par\addvspace\h@of@afterskip\h@scopecorrection} + +% ============================================================================ +% \dopars{MACRO} +% +% MACRO should be a macro that takes one argument: a paragraph. Instead of +% a one argument macro you could also use a multiple argument macro, for +% which you specify all arguments but the last one, which is to contain +% the paragraph to be type-set. +% \dopars sets all following paragraphs using MACRO, until \srapod is +% encountered just after a \par (or a empty line). +% ============================================================================ + +\def\dopars#1{\bgroup\def\h@dopar{#1}\ignorespaces\h@dopars} +\def\h@dopars{\@ifnextchar\srapod{\egroup\@gobble}{\h@@dopars}} +\def\h@@dopars#1\par{\h@dopar{#1\par}\h@dopars} + +% *********************************************** +% * SOME INITIALIZATIONS AND INTERNAL UTILITIES * +% *********************************************** + +\h@newbox\@tempboxb +\h@newbox\@tempboxc +\h@newbox\@tempboxd +\h@newbox\@tempboxe +\h@newbox\@discabox +\h@newdimen\@tempdimc +\h@newdimen\@tempdimd +\h@newdimen\@tempdime +\h@newdimen\h@virtualdepth +\h@newtoks\h@sc@everypar + +\def\h@getvirtualdepth#1{{% + % Determine the depth of the last line of the spanned text + \setbox\@discabox\copy#1% + \setbox\@discabox\vbox{% + \unvbox\@discabox + \setbox\@discabox\lastbox + \global\h@virtualdepth\dp\@discabox}}} + +\newif\if@h@nohmode +\def\h@soberhmode{\if@h@nohmode\else + \everypar{}\setlength\parindent\z@\parshape0\setlength\hangindent\z@ + \setlength\leftskip\z@\setlength\linewidth\hsize + \leavevmode\fi} + +\def\h@savelocals{% + \global\h@sc@everypar=\everypar + \global\let\h@sc@par=\par + \global\let\h@sc@@par=\@par + \global\let\h@sc@@currentlabel=\@currentlabel} + +\def\scopecorrection{\h@savelocals\h@scopecorrection} +\def\h@scopecorrection{\aftergroup\h@@scopecorrection} +\def\h@@scopecorrection{% + \everypar=\h@sc@everypar + \let\par=\h@sc@par + \let\@par=\h@sc@@par + \let\@currentlabel=\h@sc@@currentlabel} + +\providecommand\mufoff{} +\providecommand\muffin{} + +\endinput% ********************** +% * WARRANTY, DISTRIBUTION ETC. * +% ******************************* +% +% This is a TeX style file by Herman Haverkort. This file is distributed +% in the hope that it will be useful, but without any warranty; without +% even the implied warranty of merchantability or fitness for a particular +% purpose. The author does not accept any responsability for any damage, +% loss, injury, psychosis, annoyance, marital problems, murders etc. which +% are caused by this file. +% +% This style file has not been tested systematically, so there are +% probably undiscoverd errors in it. If you find one, if you have +% trouble using this file, if you have a suggestion for an extension or +% another modification, or if you are just a happy user, please report +% it to: +% Herman Haverkort +% Heyenoordseweg 40 +% NL-6813 GA Arnhem +% herman@fgbbs.iaf.nl +% +% You are allowed to change this file, but you are not allowed to distribute +% the changed version unless you obey the following: +% - give the changed version another file name than the original one; +% - record clearly in the changed version: +% - the original name of the file; +% - its original author; +% - that it is a changed version; +% - do not remove the restrictions on distributing this file. +% +% You are not allowed to take money for the distribution or use of either +% this file or a changed version, except for a nominal charge for copying +% etc. +% +% Have fun! + diff --git a/usergrps/uktug/baskervi/5_5/hhpmark.tex b/usergrps/uktug/baskervi/5_5/hhpmark.tex new file mode 100644 index 0000000000..d47b0fdcd6 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhpmark.tex @@ -0,0 +1,832 @@ +%\usepackage{hhparmrk} % for presentation +%\usepackage{verbatim} % for verbatim displaying of examples +%\usepackage{xspace} % for ease of typing +%\usepackage{hhmuf} % used in examples +%\usepackage{amssymb} % used in examples + +\makeatletter + +% The following has been copied from my personal tools style file hhutils.sty +% (NB: This is _not_ the same file as the public style file hhutils0.sty!) + +\setcounter{errorcontextlines}{10} % For ease of debugging. +\showboxdepth=10 % For ease of debugging. +\showboxbreadth=100 % For ease of debugging. +\def\0#1.{\oldstylenums{#1}} % For ease of typing. +\def\packagename#1{{\sffamily #1}} % For consistent displaying of + % package names. To be redefined + % by the editor if desired. +\chardef\@ttbs="5C % This the only way I could figure +\def\macroname#1{{\ttfamily\@ttbs#1}} % out to get the right backslashes + % when displaying macro names + % (math \backspace is too thin). +\def\envirname#1{{\ttfamily #1}} % For consistent etc. +\def\scheiding{\par % Because I cannot help to show my + % `stamp' in and out of season. + % Remove the stamps it you cannot + % stand them. + \nobreak\addvspace{26pt plus 6pt minus 6pt}% + \nobreak\centerline{{\unitlength1pt\begin{picture}(0,0) + \thicklines + \put(-10,2.5){\line(1,-1){10}}\put(-10,2.5){\line(1,1){10}} + \put(10,2.5){\line(-1,-1){10}}\put(10,2.5){\line(-1,1){10}} + \put(-5,7.5){\line(0,-1){10}}\put(5,7.5){\line(0,-1){10}} + \put(-5,0){\line(2,1){10}}% + \qbezier(-31.8,-2.5)(-12.6,12.2)(0,12.5) + \qbezier(0,12.5)(14.2,12.8)(20.9,-2.5) + \qbezier(-31.8,-2.5)(-16.5,15.8)(0,16.1) + \qbezier(0,16.1)(16,16.4)(20.9,-2.5) + \end{picture}}}% + \addvspace{18pt plus 6pt minus 6pt}} + +\def\={\verb=} +\def\<#1>{\macroname{#1}} +\def\:{\linebreak[1]} + +% Furthermore I defined a macro for short framed verbatim: +\def\fverb{\sbox\@tempboxa\bgroup\verb} +\def\brevf{% + \egroup\leavevmode{\setlength\fboxsep{2pt}\fbox{\box\@tempboxa}} } + +% The following macros are copied from scenario.sty, with some +% modifications and simplifications, for demonstration purposes: + +\newcommand{\ForWhom}{} +\newcommand{\ForExclusive}{ + \renewcommand{\ForWhom}{`Exclusive'} + } +\newcommand{\MarkThisExclusive}[1]{% + \begin{trafficsigned*}{\trapbox:}{\small Ex}#1\end{trafficsigned*}} +\newcommand{\MarkThisCircle}[1]{% + \begin{trafficsigned*}{\ringbox:}{\small Ci}#1\end{trafficsigned*}} + +\makeatother + + +\title{The Scenario: an Efficient Document with \protect\hhparmrk} +\author[Herman Haverkort \& Frans +Goddijn]{Herman Haverkort \& Frans +Goddijn\\\emph{Email:} \texttt{herman@fgbbs.iaf.nl} \& +\texttt{goddijn@fgbbs.iaf.nl}} + +\begin{Article} + +\mufhire see carried away:{See the article about HH getting carried away, + published in \BV\ 5.4} + +\begin{abstract} +\begin{markspanned}(% + {{\sbox0{\tiny + \clap{\ringbox:{\vbox{\offinterlineskip + \hbox{\clap{$\thicksim\backsim$}} + \hbox{\clap{% + \sbox0{$\circ$\raise0.6pt\llap{$\centerdot$\kern0.4pt}}% + \copy0\,\copy0}} + \hbox{\clap{$\vartriangle$}}\kern1.5pt + \hbox{\clap{$\smile$}}}}}}% + \vbox{\offinterlineskip + \copy0 + \hbox to \wd0{\hss$\bowtie$\hss}}}}% + [\msprule]% + {\sepbox(0pt,1pt,0pt,0pt){\large$\bigtriangleup$}}% + {1em}[0pt]( +\begin{bracespanned})\}:-[0pt]{\muf:{Just a demonstration of + \hhparmrk's way of bracing and footnoting a paragraph.}}) +During work towards a flexible document as a continuous report on a wide +variety of contacts for the Meridian Arts Ensemble in New York, Frans +Goddijn felt the need to tag and mark certain paragraphs for specific +groups of readers. Herman Haverkort wrote a package for \LaTeXe, +\hhparmrk, which facilitates this by offering the possibility to set +various signs next to paragraphs. This article presents \hhparmrk, gives +examples of its use and a short manual. For the hackers among us some of +the \TeX nical tricks involved behind the scenes are glanced at. +\end{bracespanned}\end{markspanned} +\end{abstract} + + +During the process of organizing concerts for a delightful brass +quintet from New York called the Meridian Arts Ensemble I noticed that +there is at least \emph{one} aspect about playing all over the world which +causes anxiety. Namely, the fact that in many places, many people (are +supposed to) look after your interests and it's very hard to keep track +of who is doing what. + +I used my knowledge of \LaTeX\ to generate reports on all my Meridian +activities. Instead of building up a heap of separate emails, notes, +letters and memos I wrote or compiled them all as \verb|\sections| and +\verb|\subsections| into the same master document, which I entitled {\sc the +scenario}. With \emph{CorelDraw!} I designed a title page, \LaTeX\ took +care of the table of contents and an elaborate index, and gradually I +was generating a tight mass of information which I could print out at +will and send to the Meridians. + +This \LaTeX\ product impressed them, as they'd never before seen such a +`roadmap' of all that was done or not yet done in their interest. This +helped them in making the decision to leave a professional +booking agent and let me coordinate all further +activities in this part of the world! +{\sc the scenario} quickly +grew in size to over fifty pages filled with valuable information +about how to initiate contacts with promotors and presentors in concert +halls and other venues. The advantage of using \LaTeX\ over some other +typesetting or word processing tools is that it's fast and simple to +copy plain \textsc{ascii} emails into it. For instance, the tuba player of +the group uses the Internet to send me updates for the {\tt tabular} +listing their concert dates. The same goes for newspaper reviews and +incoming faxes, which I run through a scanner with \textsc{ocr} to transfer it +into electronic text. To brighten up the text page, I sometimes create a +graphic scan of a hand written quote of musical score or a concert +program. + +Over the weeks, the book even got its own `gossip' section, and +soon it turned into a kind of family scrapbook, besides building up the +more formal data. + +By this time, the new print looked so handsome that it was a shame not +to use it for a wider range of readers. Other groups could benefit from +the many addresses listed in {\sc the scenario}, and some fans had heard +of its existence and were keen to get a copy of the book with all its +\emph{inside information}. + +\includegraphics[width=\linewidth]{zappa} +\begin{center} +\textsf{A stylized portrait of Frank Zappa. The Meridian Arts +Ensemble is especially renowned for their interpretations of Zappa's +compositions, arranged by Jon Nelson.}\end{center} + +How to go about this? I would now need three versions of the document. +One full version with all info for me and the Meridians, one slimmed +down version where any explicitly confidential text would be left out +and one minimal version especially geared towards concert hall +programmers with only the basic material (introduction, biographical +info, reviews and the like). + +Luckily, I had just introduced a young man to \LaTeX. I think that every +\TeX\ user has made attempts, with more or less success, to convince +others of the beauty and pleasures of \TeX\ and I am no exception to +this rule. Most of the time, people have no clue what I'm talking about. +Sometimes, one buys the 4all\TeX\ {\sc cd-rom} and installs it but +rarely an avid new user is born. This Herman Haverkort was different: my +letter telling him about \LaTeX\ happened to reach him on a Friday when +he was most bitterly sick of his `WordPerfect' software and he +immediately took action. He got the software from me, installed it, read +the \TeX book from screen ignoring all \emph{dangerous bend}-signs and +the next week he devoured the printed book itself. + +Herman recognized my problem and as he had a similar project at hand, he +created a new style file for us, called \hhparmrk. + +Now I could brand some paragraphs for \emph{exclusive} readership, others +for a \emph{circle} of interested readers and the rest was for +\emph{wide} distribution. In the `Wide' version, paragraphs of the other +two categories should vanish automatically (actually there is a fourth +version, `Concise', which is a `Circle' version limited to +the very basic information). + +First, I took macros for the \emph{disappearing acts} from the +\packagename{comment} package but a little later I figured out an easier +way, by using a macro with a variable and never using that +variable! Here is the disappearing act: +% HH % In de twee regels hierboven zou in plaats van "variable" eigenlijk +% HH % horen te staan: "parameter" (vermoed ik). In de rest van de tekst +% HH % zou "variable" eigenlijk moeten worden vervangen door: "argument". +% HH % Beslis jij maar wat je doet: zolang het begrijpelijk is (en dat is het +% HH % nu wel) vind ik het eigenlijk allemaal best. + +\begin{verbatim} +\newcommand{\LeaveOut}[1]{} +\end{verbatim} + +\verb|\LeaveOut{Sh*! Wish I hadn't said that}| enables me to put in some +lengthy paragraphs that I don't (yet) intend to really use in print, but +want to have there in the source file as my own private comments, or I +can have \TeX\ ignore portions of text I might want to use later. + +In the `Circle' version, +only the \emph{exclusive} texts must disappear and some more or less +confidential paragraphs must be marked accordingly. +In the `Exclusive' version, everything is visible but the reader must be +able to see what parts will be occluded for others. + +Now look at the following new commands. At first they are without any use, +later on they get their tasks assigned. Look at them, bland and +expressionless like babies, with only their names to distinguish them +from other creations\ldots + +\begin{verbatim} +\newcommand{\ForWhom}{} +\newcommand{\Circle}[1]{} +\newcommand{\Exclusive}[1]{} +\newcommand{\EndConcise}{} +\end{verbatim} + +This is what they get to do in life:\\ +\verb|\ForWhom| will remember for whom the current version is made.\\ +\verb|\Circle| will be a macro with one variable at a time, namely a +paragraph that must be left out in the `Wide' version and marked as +`Circle' in the other versions.\\ +\verb|\Exclusive| will also be a macro with one variable at a time, +this time a paragraph that must be left out in the `Wide' \emph{and} in +the `Circle' versions and marked as `Exclusive' in the `Exclusive' +version.\\ +\verb|\EndConcise| will normally mean nothing, but the command is placed +at a point in the text where it must end with a new page and an index +if I want to create a `Concise' version. + +Then the definitions of the different standard versions: + +\begin{verbatim} +\newcommand{\ForExclusive}{ + \renewcommand{\ForWhom}{`Exclusive'} + \renewcommand{\Exclusive}[1]{% + \MarkThisExclusive{##1}} + \renewcommand{\Circle}[1]{% + \MarkThisCircle{##1}} + } +\end{verbatim} + +What happened above is that \verb|ForWhom| will now remember it's for +`Exclusive' use, and both `Exclusive' and `Circle' paragraphs are +classified as such in the margin. + +\begin{verbatim} +\newcommand{\ForCircle}{ + \renewcommand{\ForWhom}{`Circle'} + \renewcommand{\Exclusive}[1]{(\ldots)} + \renewcommand{\Circle}[1]{% + \MarkThisCircle{##1}} + } +\end{verbatim} + +What happened above is that \verb|ForWhom| will now remember it's for +`Circle' use. `Exclusive' paragraphs are ignored and `(\ldots)' is +printed in their place, while `Circle' paragraphs are classified as such +in the margin. + +\begin{verbatim} +\newcommand{\Concise}{ + \renewcommand{\EndConcise}{% + \newpage \printindex \end{document}} + \renewcommand{\ForWhom}{concise `Circle'} + \renewcommand{\Exclusive}[1]{(\ldots)} + \renewcommand{\Circle}[1]{% + \MarkThisCircle{##1}} + } +\end{verbatim} + +What happened above is that \verb|ForWhom| will now remember it's for +`concise Circle' use. `Exclusive' paragraphs are ignored and `(\ldots)' is +printed in their place, while `Circle' paragraphs are classified as such +in the margin. Furthermore, at the place where the `dummy' macro +\verb|\EndConcise| was loitering, it is now told to end the document +neatly with a new page and an index. + +\begin{verbatim} +\newcommand{\ForWide}{ + \renewcommand{\ForWhom}{`Wide'} + \renewcommand{\Exclusive}[1]{(\ldots)} + \renewcommand{\Circle}[1]{(\ldots)} + } +\end{verbatim} + +The long dull version. Only harmless material is printed, and lots +of it, even beyond the \verb|\EndConcise| macro. + +\begin{verbatim} +\newcommand{\MarkThisExclusive}[1]{% + \begin{trafficsigned*}{\trapbox:}{\small Ex} + #1\end{trafficsigned*}} +\newcommand{\MarkThisCircle}[1]{% + \begin{trafficsigned*}{\ringbox:}{\small Ci} + #1\end{trafficsigned*}} +\end{verbatim} + +The above two lines control all markings in the text, using new macros +and environments which are defined in \hhparmrk. + +\begin{verbatim} +This text may be seen by everybody. + +\Circle{This text may be seen, marked with a + circled `Ci', by a certain circle.} + +\Exclusive{This text may only be seen, marked + with a `Ex' in a trapezoid box, by a + small group of readers exclusively.} +\end{verbatim} + +I am now able to change the look and size of the document by activating +one of the following commands (while commenting out the others): + +\begin{verbatim} +%\ForExclusive +%\ForCircle +%\ForWide +\Concise +\end{verbatim} + +Herman Haverkort will, later on in this article, explain the new and +hitherto unknown commands here. I'm glad he does. They fill me with +wonder. I began creating the macros only after looking hard and intensely +into the manual material\ldots\ and immediately after I'd finished writing +them, I stacked them away in a separate style file . That way I don't have +to see them so often and I can try to forget they're there at all! + +Now I will first show you one of the first pages, where I explain to the +readers what versions there are and what version they're holding. Next, +I will try my luck at displaying the result for you\ldots + +\verbatiminput{hhpmsca.tex} + +which results in: + +\bigskip\hrule height 1pt\nobreak + +\input{hhpmsca.tex}\nobreak + +\bigskip\hrule height 1pt + +\scheiding + +The \hhparmrk kernel consists of the environments \envirname{bracespanned} +and \envirname{markspanned}, which I will present now, starting with +\envirname{bracespanned}. + +\section{\envirname{bracespanned}} + +\input{hhpmbsa.tex} % The environment +\envirname{bracespanned} can be used to set paragraphs +braced like this one. This paragraph is done with: + +\verbatiminput{hhpmbsa.tex} + +\ldots\ concluded by: + +\verbatiminput{hhpmbsb.tex} + +The nasty details which determine the way of bracing are all specified +just after \=\begin{bracespanned}=; the concluding \=\end{bracespanned}= is +always as straightforward as % demonstrated here. +\input{hhpmbsb.tex} + +You might suspect that the left brace and comment (``FG'' in the above +example) are specified between left parentheses, while the right brace +and comment are specified between right parentheses. Well, that is right. +You do not have to specify both left and right stuff: you may leave +one of them out, as in some of the examples below. The following paragraphs +will all start with a box containing its bracing specification, that is: +all that appears between \=\begin{bracespanned}= and the text +of the paragraph. + +\begin{bracespanned}){\}}:-{\muf:{Just an example}}) +\fverb=){\}}:-{\muf:{Just an example}})=\brevf +Instead of the comments ``FG'' and ``HH'' in the above example, you can +of course specify whatever you want for a comment, for example a footnote. +This paragraph provides an example using the \<muf> footnote macro, which +is defined in the \hhmuf package\rlap{.}\muf see carried away:{} +If you want to use standard footnotes, note that all that is +spanned by \envirname{bracespanned} and the comments are so-called +forbidden environments. To set a footnote you would have +to use \<footnotemark> and \<footnotetext>; just using \<footnote> +would not work. +\end{bracespanned} + +\begin{bracespanned}){(}:-{}) +\fverb=){(}:-{})=\brevf +This paragraph illustrates that any extendable mathematical delimiter +symbols can be used instead of braces, even symbols which are pointing +the `wrong' way. Just replace the \={\{}= or \={\}}= in the example +above by \={(}=, as in this example, or whatever symbol you like. +\end{bracespanned} + +\begin{bracespanned}){\}}:{65pt}{This may be read by fiends and friends}) +\fverb=){\}}:{65pt}{This= \ldots\ \=friends})=\brevf +The \=:-= in the examples above specifies the width of the spanning +symbol plus comment. \=:-= stands for the natural width of the symbol +with comment, which usually satisfies. Another possible width +specification is a colon followed by a braced dimension, like +\=:{65pt}=. Such a specification fixes the width of the symbol plus +comment, thus enabling multi-line comments, like demonstrated here. +\end{bracespanned} + +\begin{bracespanned}){]}{ExampleId}:{ex. i}) +\fverb=){]}{ExampleId}:{ex. i})=\brevf +Sometimes it may be desirable to have the comments of several spanned +paragraphs set all to the same width, thus leaving equal line widths +for the spanned paragraphs. This can be accomplished by +giving a width specification which consists of some braced identifier +followed by a colon. The identifier may be chosen freely. +\end{bracespanned} + +\begin{bracespanned}){]}{ExampleId}:{ex. ii}) +\fverb=){]}{ExampleId}:{ex. ii})=\brevf +The previous paragraph and this one get the same width identifier +(\=ExampleId=) so that their comments are set to the same width: +the natural width of the widest. As a result, the text bodies of +both paragraphs are equally wide. However, in general you have to +compile your document twice to get this result. If a second run +may be necessary, the \hhunits package issues a warning ``Unit +values may have changed. Rerun to get them right.'' +\end{bracespanned} + +\begin{bracespanned}({\|}:-[50pt]{Gosh!}( +\fverb=({\|}:-[50pt]{Gosh!}(=\brevf +In the examples above paragraphs were indented on the sides to make room +for the spanning symbols and comments. The amount of indention was +automatically determined by the \hhparmrk macros. This automatic +determination can be overruled by specifying the amount of indention +in a bracketed optional argument, given between the width +specification and the comment. This paragraph provides an example: +it is indented exactly 50pt. Specifying a 0pt indention +would cause the spanning symbol and the comment to be set in the +margin. +\end{bracespanned} + +\begin{bracespanned}([:-()]:-) +\fverb=([:-()]:-)=\brevf +\TeX\ hackers who know when braces can be omitted are able to specify +the way of spanning a paragraph quite elegantly --- I think --- as +demonstrated by this paragraph. +\end{bracespanned} + +\section{\envirname{markspanned}} + +\begin{markspanned}% +({\sc start}[\msprule]{\sc finish}{10pt}( +The environment +\envirname{markspanned} can be used to set three-part marks +next to paragraphs. Such a mark consists of an upper part, a +lower part, and a fill part in between. The upper and lower +part have fixed size, but the fill part can be stretched so +that the assembled mark spans the entire paragraph. This paragraph +provides a simple example. +\end{markspanned} + +The above paragraph is typeset with: + +\begin{verbatim} +\begin{markspanned}% +({\sc start}[\msprule]{\sc finish}{10pt}( + The environment \envirname{markspanned} can + : : : : : : + This paragraph provides a simple example. +\end{markspanned} +\end{verbatim} + +In the above example an upper part, a fill, a lower part and the mark +seperation are successively specified. The fill is the \hhparmrk +macro \<msprule>, which connects the upper and the lower part +by a rule. The 10pt mark seperation determines the smallest +distance between the text and the three-part mark. + +The nasty details which determine the way of marking are all specified +just after \=\begin{markspanned}=; the concluding \=\end{markspanned}= is +always as straightforward as demonstrated above. The following paragraphs +will all start with a box containing its marking specification, that is: +all that appears between \=\begin{markspanned}= and the text +of the paragraph. + +\begin{markspanned}({\sc st}[\msprule]{\sc fi}[r]{10pt}( +\fverb=({\sc st}[\msprule]{\sc fi}[r]{10pt}(=\brevf +In the example above the mark parts are centred with respect to each +other. Instead of centring one can force left or right alignment by +means of \=[l]= or \=[r]= just after the definition of the lower +part. This paragraph gives an example of right alignment. +\end{markspanned} + +Until now marked paragraphs were automatically indented just enough +to make room for the marks so that they did not stick out into the +margins. Like with \envirname{bracespanned} one can control the +amount of indention `manually' by specifying an optional argument, +just after the mark seperation. + +\begin{markspanned}({$\cap$}{$\cup$}{5pt}[20pt]( +\fverb=({$\cap$}{$\cup$}{5pt}[20pt](=\brevf +This paragraph provides an example. +It is indented exactly 20pt. This paragraph also shows that the +fill part of a mark is optional and may be left out. +\end{markspanned} + +\begin{markspanned}({$/$}{$\backslash$}{5pt}(){$\backslash$}{$/$}{5pt}) +\fverb=({$/$}{\bs}{5pt}(){\bs}{$/$}{5pt})=\brevf +(\<bs> assumed to be defined as \=$\backslash$=) +Of course three-part marks could be set on the right by using right +parentheses instead of left ones, just like with \envirname{bracespanned}. +Three-part marks on both sides are possible too, like demonstrated here. +\end{markspanned} + +\subsection{More about the Fill Part} +As shown in the above examples, the second argument of a three-part mark +specification determines the fill part of the mark. You may omit this +specification: in that case an empty fill is used. Besides \<msprule> and +the empty fill one could use any desired self-made fill as long as the +following is regarded:\begin{itemize} +\item the fill should be a macro that takes one argument: the required + size. For example \<msprule> is defined by \=\newcommand=\:% + \=\msprule=\:\=[1]{\vrule= \=height= \=#1= \=width= + \=\fboxrule=\:\=}=. +\item the width of the fill is not taken in account when determining the + positioning of the mark. Therefore the width of the fill should not + be greater than both the width of the upper part and the width + of the lower part of the three-part mark. +\end{itemize} + +\subsection{Traffic Signs} + +\hhparmrk contains the following definition (shown here in syntactically +simplified version): + +\verbatiminput{hhpmtsa.tex} + +\begin{trafficsigned*}{\trapbox:}{A} +\fverb=\begin{trafficsigned*}{\trapbox:}{A}=\brevf +The environment \envirname{trafficsigned*} produces a three-part mark on +the left which forces the signed text to indent. Its upper part is +the second argument, boxed by the \hhflxbox macro +\<separbox>\muf see carried away:{} +and the tokens specified by the first +argument. These are typically framing macros like \=\trapbox:= (defined +in \hhparmrk; sets a trapezium frame), \=\ringbox:= (defined in +\hhflxbox; sets a circle frame), or \=\setlength=\:\=\fboxsep=\:% +\={0pt}\fbox= (sets +a rectangular frame). These paragraphs show some possible results. +The \TeX\ code used to start each paragraph is shown in the boxes at the +beginnings. Each paragraph is ended in the source file by +\=\end{trafficsigned*}=.% +\end{trafficsigned*} + +\begin{trafficsigned*}{\ringbox:}{B} +\fverb=\begin{trafficsigned*}{\ringbox:}{B}=\brevf +Before the \=\end=\:\={markspanned}= in +the definition of \envirname{trafficsigned*} a conditional \<strut> +is added. This is to prevent +the foot of the sign from ostensibly floating according to the +depth of the last line of a signed paragraph. +% HH % toegevoegd: +The \<scopecorrection> +is not really needed in most cases but it guards against some rare +mysterious errors. See the section about \emph{\TeX nical Details}, +subsection \emph{\hhparmrk: Parallel Marks?} for explanation.% +\end{trafficsigned*} + +\begin{trafficsigned*}{\setlength\fboxsep{0pt}\fbox}{C} +\fverb==\ldots\ \=*}{\setlength\fboxsep{0pt}\fbox}{C}=\brevf +Besides \envirname{trafficsigned*} there exists a similar environment +\envirname{trafficsigned} which sets the traffic sign in the left margin. +To avoid letter-traffical collisions it is not demonstrated here.% +\end{trafficsigned*} + +\section{\TeX nical Details} + +I will not present the definition of \envirname{bracespanned} here: it +is too long and complicated. There is lots of fuss in it, caused by the +need or wish to parse a lot of obligatory and optional arguments which +determine the exact way of bracing. However, I would like to lift a +corner of the veil which covers \envirname{bracespanned}, to give +hackers some idea of what is going on behind the scenes. Maybe, if +I am lucky, there is some hacker out there who will be highly amazed +by unnecessary complexity in my approach, and will offer me +a simpler approach instead. + +\subsection{Fooling \TeX's Gluing} + +My first try to build a useful \envirname{bracespanned} environment or +macro consisted of straightforward use of a mathematical display. +It is not difficult to set a brace spanning a box with multiple lines +of text in a mathematical display environment. +Alas that did not work out properly in all cases. +When \envirname{bracespanned} text was surrounded immediately by normal +text, the interline skip between the +top spanned line and the first unspanned line above was too small, as +was the distance between the bottom spanned line and the first unspanned +line below. \TeX\ considered the whole mathematical display to be one +unusually high line of text. Therefore \TeX\ did its very best to squeeze +the display in at the place of one normal text line, although the display +actually contained several lines. + +So I decided that I had to fool \TeX\ a bit. I constructed a mathematical +display as before, but now I boxed it. Then I typeset the spanned text again +behind the scenes, now using \<vtop>, to determine the height of the +first line. I then shifted down the boxed display to make it have that same +height. Finally I typeset the spanned text a third time behind the scenes, now +using \<vbox>, to determine the depth of the last line of spanned text. +Then I would insert the display, which had the height of its first line of +text, and fool \TeX\ by setting \<prevdepth> to the depth of the last line. +\TeX\ still considered the display to be a single high line, +but I made \TeX\ `think', with respect to setting interline glue, that +the display had the height of its top line and the depth of its bottom +line, as if all lines in between were not there. + +The approach described above had a major disadvantage: the spanned text +was typeset three times. This was not only inefficient; it was also +error-prone. For example: if a counter was stepped in the spanned +text, then it was stepped three times. I solved this by boxing +the spanned text once, using \<vtop>. Then I made a centred copy of +the resulting box, a \<vphantom> of which I used to set the braces in +mathematical displays. +I shifted the displays down to make them have the same height as the +\<vtop>ed text, so that I could put the displays and the \<vtop>ed text +together. Finally I made a copy of the \<vtop>ed text, which I unboxed +to get its last line with \<lastbox> so that I could examine its depth. +Then the remaining part of the procedure was like described in the +previous paragraph. + +All this resulted in the \TeX\ code below (shown here +abridged and simplified): + +\begin{verbatim} + %Box what has to be spanned in \@tempboxa: +\setbox\@tempboxa\vtop{#1}% + %Make a centred copy of the result: +\sbox\@tempboxd{\ensuremath{\vcenter{% + \copy\@tempboxa}}}% + %Determine how much the displays should be + %shifted down; store result in \@tempdima: +\setlength\@tempdima{\ht\@tempboxd}% +\addtolength\@tempdima{-\ht\@tempboxa}% + %Set the left brace in \@tempboxb: +\sbox\@tempboxb{% + \lower\@tempdima\hbox{% + %... + %in hhparmrk.sty one finds at this place + %the math display stuff which sets the left + %brace, using \vphantom{\copy\@tempboxd} to + %determine the height + %...}}% + %Set the right brace in \@tempboxc: +\sbox\@tempboxc{% + %... + %same story + %...}% + %Now determine the depth of the last line: + %Make a discardable copy of \@tempboxa in + %\@discabox: +\setbox\@discabox\copy\@tempboxa +\setbox\@discabox\vbox{% + %Get the last line: + \unvbox\@discabox + \setbox\@discabox\lastbox + %Save its depth in \h@virtualdepth: + \global\h@virtualdepth\dp\@discabox}% + %Finally put it all together: +\hbox{\llap{\box\@tempboxb}% + \box\@tempboxa\rlap{\box\@tempboxc}}% + %Fool TeX's gluing: +\prevdepth\h@virtualdepth +\end{verbatim} + +\subsection{Banishing Stubborn White Space} + +Some environments like to surround themselves by vertical white space. +Section headings have the same tendency. But when complete (sub)sections +are spanned by \envirname{bracespanned}, we do not want to get results +like this: + +\begin{bracespanned}(\{:-( +\small +\kern \baselineskip +\noindent\textbf{Heading}\par +\kern .5\baselineskip +\noindent lots of blah\ldots +\end{bracespanned} + +It looks ugly. Vertical space added in the beginning of a spanned passage +should be squeezed out: it should be set on top of the span, instead of +\emph{in} the span. This is implemented as follows. In the beginning of +a passage being boxed \<prevdepth> is set to $-4774\hbox{pt}$ +(just some value smaller than $-1000\hbox{pt}$. \<addvspace> is redefined +to set vertical space only when \<prevdepth> is greater than $-4774\hbox{pt}$, +that is: when we are not in the beginning of the spanned passage anymore. +If \<prevdepth> still equals $-4774\hbox{pt}$ then the vertical space is +added to a box register which holds the squeezed out space. +After the complete passage has been boxed, +first the squeezed out space register is unboxed and added to the main +vertical list, and then the boxed passage is spanned and set. +This results in the following \TeX\ code for setting brace spans: + +\begin{verbatim} + %Box what has to be spanned in \@tempboxa: +\setbox\@tempboxa\vtop{\topsqueezeout #1}% + %Make a centred copy etc. (see the previous + %listing) + %... + %Finally put it all together: +\topsqueezein +\hbox{\llap{\box\@tempboxb}% + \box\@tempboxa\rlap{\box\@tempboxc}}% + %Fool TeX's gluing: +\prevdepth\h@virtualdepth +\end{verbatim} + +\noindent where \<topsqueezeout> takes care of redefining \<addvspace>, +and \<topsqueezein> adds the accumulated squeezed out space: + +\begin{verbatim} +\newbox\h@tsqo@squeeze + +\def\topsqueezeout{% + % Save original \addvspace: + \let\h@tsqo@addvspace=\addvspace + % Redefine \addvspace: + \def\addvspace##1{% + \ifdim\prevdepth>-4774pt\relax + % If we are not in the beginning of the + % box anymore, call original \addvspace: + \h@tsqo@addvspace{##1}% + \else + % else add space to box register which + % holds the squeezed out space: + \global\setbox\h@tsqo@squeeze\vbox{% + \unvbox\h@tsqo@squeeze + \h@tsqo@addvspace{##1}} + \fi}% + % Initialize box holding squeezed out space: + \global\setbox\h@tsqo@squeeze\vbox{}% + % Set \prevdepth to -4774pt to indicate the + % beginning of the box: + \setlength\prevdepth{-4774pt}} + +\def\topsqueezein{\unvbox\h@tsqo@squeeze} +\end{verbatim} + +The real implementation in \hhparmrk is more complex: it also redefines +\<addpenalty>, and it contains more fuss to account for nested +\envirname{bracespanned} environments. + +At the bottom of the spanned passage vertical space should be +squeezed out as well. This is also done using a box register to hold +the squeezed out space. After the passage being boxed has been +entirely added to the box in which it is set, the space +at the end is examined with \<lastskip>. The space is removed with +\<unskip> and added to the box holding squeezed out space. +Because there may +be multiple skips at the end of the passage this procedure is repeated +until \<lastskip> returned zero three times. I could not find +a way to distinguish zero skips and no skips: \<lastskip> returns +zero in both cases. Since three consecutive zero skips seem +to be unlikely, the algorithm terminates when \<lastskip> +yielded zero three times consecutively. + +\subsection{\hhparmrk: Parallel Marks?} + +\hhparmrk actually stands for: \emph{Herman Haverkort's parallel +marks}. The `philosophy' behind this is that \hhparmrk's marks +should not interfere with the hierarchical structure of the document. +Ideally marked and unmarked passages are typeset and processed +just like they normally are, except for the presence of the marks. + +In practice this is not fully attainable. First it is probably +inevitable to set each marked passage as a separate paragraph, +and that is what is done indeed. + +A second problem is that marked passages +are set in internal vertical mode, which causes footnotes and +marginal notes to disappear. For \hhmuf's style\muf see carried away:{} +footnotes this problem has been solved. For standard footnotes this problem +can be solved, but I did not bother to do it yet. + +A third problem is the grouping invoked by using environments and +boxing commands. This grouping causes the scope of local assignments +in marked passages to be reduced. Because that is exactly what is +expected when \LaTeX's environments are used I decided not to do much +about it, to avoid confusion. However, I built in a +small `scope correction' which suppresses the scope reduction of +assignments to \<everypar>, \<par>, \<@par> and \<@currentlabel>. +The first three should not be really necessary, but the handling +of \<@currentlabel> can be useful when section headings or the like +are spanned for some reason. The scope correction can be activated +by the macro \<scopecorrection>, which is defined as follows: + +\begin{verbatim} +\def\scopecorrection{% + \h@savelocals + \h@restorelocals} + +\def\h@savelocals{% + \global\h@sc@everypar=\everypar + \global\let\h@sc@par=\par + \global\let\h@sc@@par=\@par + \global\let\h@sc@@currentlabel= + \@currentlabel} + +\def\h@restorelocals{% + \aftergroup\h@@restorelocals} +\def\h@@restorelocals{% + \everypar=\h@sc@everypar + \let\par=\h@sc@par + \let\@par=\h@sc@@par + \let\@currentlabel=\h@sc@@currentlabel} +\end{verbatim} + +\section{Where to Get what Files?} + +To be able to use \hhparmrk, you should also have the packages +\hhflxbox, \hhunits, \hhqueue and \hhutils0 available. These packages +are automatically loaded by \hhparmrk. All files needed can be +obtained from {\sc fgbbs}\muf:{{\sc fgbbs} --- tel. +31 (0)26 3217041} +by requesting the file {\ttfamily hh.arj}. They are +on {\sc ctan} in \texttt{macros/latex/contrib/supported/hh}. Note that +\LaTeX \02..\009. versions are not available. + +\mufend{} +\end{Article} diff --git a/usergrps/uktug/baskervi/5_5/hhpmbsa.tex b/usergrps/uktug/baskervi/5_5/hhpmbsa.tex new file mode 100644 index 0000000000..30b692b041 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhpmbsa.tex @@ -0,0 +1,3 @@ +\begin{bracespanned}%
+({\{}:-{FG}(){\}}:-{HH})
+ The environment
diff --git a/usergrps/uktug/baskervi/5_5/hhpmbsb.tex b/usergrps/uktug/baskervi/5_5/hhpmbsb.tex new file mode 100644 index 0000000000..5d9d655154 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhpmbsb.tex @@ -0,0 +1,2 @@ + demonstrated here.
+\end{bracespanned}
diff --git a/usergrps/uktug/baskervi/5_5/hhpmsca.tex b/usergrps/uktug/baskervi/5_5/hhpmsca.tex new file mode 100644 index 0000000000..ddc3c0dba5 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhpmsca.tex @@ -0,0 +1,42 @@ +\ForExclusive
+
+\noindent{This \textsc{scenario} comes in
+three different prints, stemming from the same
+source file: an abridged `Wide' version for
+presentors and other people who are involved
+with the Meridian Arts Ensemble, a more
+complete `Circle' version for some people who
+work together with the Ensemble and a full
+`Exclusive' version with some private details
+that are only useful for communication
+between the members of the Ensemble and the
+Meridian Foundation.
+
+% reserve sign for HH's address, using macros
+% defined in hhmuf.sty:
+\mufhire emailhh:{herman@fgbbs.iaf.nl}
+
+\MarkThisExclusive{This is an example of the
+`roadsign' used in the margin of text parts
+which are only visible in the `Exclusive'
+version. It was designed for us by Herman
+Haverkort\muf emailhh:{}, a grand \textsc{mae}
+fan and \TeX\ wizard. Texts marked in this
+manner are represented as `(\ldots)' in the
+`Circle' and `Wide' printings.}
+
+\MarkThisCircle{This is an example of the
+`roadsign' used in the margin of text parts
+which are only visible in the `Circle' and
+`Exclusive' version. It was designed for us
+by Herman Haverkort\muf emailhh:{}, a grand
+\textsc{mae} fan and \TeX\ wizard. Texts
+marked in this manner are represented as
+`(\ldots)' in the `Wide' printing.}
+
+Furthermore, a concise version of this
+scenario consists of only the first sections,
+as an introduction to presentors.
+
+\textbf{NOTE: this is a print of the \ForWhom\
+version.}}
diff --git a/usergrps/uktug/baskervi/5_5/hhpmtsa.tex b/usergrps/uktug/baskervi/5_5/hhpmtsa.tex new file mode 100644 index 0000000000..14ad01f9c4 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhpmtsa.tex @@ -0,0 +1,13 @@ +\newenvironment{trafficsigned*}[2]{%
+ \begin{markspanned}(%
+ {#1{\separbox{2pt}{\large\bf #2}}}%
+ [\msprule]%
+ {\sepbox(0pt,1pt,0pt,0pt){%
+ \large\ensuremath{\bigtriangleup}}}%
+ {1em}(%
+ }{%
+ \ifhmode\strut\fi
+ \end{markspanned}%
+ \scopecorrection
+ }
+
diff --git a/usergrps/uktug/baskervi/5_5/hhqueue.sty b/usergrps/uktug/baskervi/5_5/hhqueue.sty new file mode 100644 index 0000000000..8adc2e076b --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhqueue.sty @@ -0,0 +1,62 @@ +% QUEUE MACROS for LaTeX2e, version 1.01, +% written by Herman Haverkort, 14 february 1995 + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhqueue}[1995/02/14] + +% The \h@@@getfirst and \h@@@enqueue macro's which are defined below are +% modifications of \lop and \rightappenditem which are found in +% Computers & Typesetting by Donald Knuth. The representation of queues +% and lists is like his. + +\newtoks\@temptokenb + +\def\h@getfirst#1{\expandafter\h@@getfirst\csname #1\endcsname} +\def\h@@getfirst#1#2{% + \expandafter\h@@@getfirst\expandafter #1\csname hq@#2\endcsname} +\def\h@@@getfirst#1#2{\expandafter\h@@@@getfirst #2\h@qend#2#1} +\def\h@@@@getfirst\\#1#2\h@qend#3#4{\gdef#4{#1}\gdef#3{#2}} + +\def\h@delete#1{\expandafter\h@@delete\csname #1\endcsname} +\def\h@@delete#1#2{% + \expandafter \expandafter + \expandafter \h@@@delete + \expandafter \expandafter + \expandafter {% + \expandafter #1% + \expandafter }% + \csname hq@#2\endcsname} +\def\h@@@delete#1#2{{% + \let\tempa=#2% + \def\tempb{#1}% + \h@@@initqueue#2{}% + \def\\##1{\def\tempc{##1}\ifx\tempb\tempc\else\h@@@enqueue{##1}#2\fi}% + \tempa}} +% Some rather tricky macro which is said to be efficient can be found +% in the TeXbook by Donald Knuth, appendix D, section 2. + +\def\h@enqueue#1{\expandafter\h@@enqueue\csname #1\endcsname} +\def\h@@enqueue#1#2{% + \expandafter \expandafter + \expandafter \h@@@enqueue + \expandafter \expandafter + \expandafter {% + \expandafter #1% + \expandafter }% + \csname hq@#2\endcsname} +\def\h@@@enqueue#1#2{% + \@temptokena=\expandafter{#2}% + \@temptokenb={\\{#1}}% + \xdef#2{\the\@temptokena\the\@temptokenb}} + +\def\h@ifqempty#1{\expandafter\h@@@ifqempty\csname hq@#1\endcsname} +\def\h@@@ifqempty#1#2#3{\ifx#1\@empty#2\else#3\fi} + +\def\h@ifqnonempty#1{\expandafter\h@@@ifqnonempty\csname hq@#1\endcsname} +\def\h@@@ifqnonempty#1#2{\ifx#1\@empty\else#2\fi} + +\def\h@initqueue#1{\expandafter\h@@@initqueue\csname hq@#1\endcsname} +\def\h@@@initqueue#1{\gdef#1} + +\def\h@processq#1{\@nameuse{hq@#1}} + diff --git a/usergrps/uktug/baskervi/5_5/hhunits.sty b/usergrps/uktug/baskervi/5_5/hhunits.sty new file mode 100644 index 0000000000..605e13dde5 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhunits.sty @@ -0,0 +1,135 @@ +% UNIT MACROS for LaTeX2e, version 1.02, +% written by Herman Haverkort, 16 february 1995 +% See end of file for information on warranty, distribution etc. + +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhunits}[1995/02/16 Units system] +\RequirePackage{hhqueue}[1995/02/14] + +% ============================================================================= +% \unit UNITNAME:DIMENSION returns the largest of the specified DIMENSION +% and the current value of the specified unit. Furthermore the value of the +% specified unit is set to the returned value. +% Thus the value of the unit will eventually reach the maximum value which +% is passed to it during the processing of the document. That value is +% saved after processing the document, and reloaded before processing it +% a second time. During the second run the same value will be used throughout +% the entire document, and that value will be large enough to fit all +% dimensions which are specified for the unit. +% ============================================================================= + +\def\unit#1:#2{% + \@ifundefined{unit@#1}% + {#2\h@newunit #1:{#2}{#2}}% + {\ifdim\@nameuse{unit@#1}<#2% + #2\h@setunit #1:{#2}% + \else + \@nameuse{unit@#1}% + \fi + \ifdim\@nameuse{newunit@#1}<#2% + \global\csname newunit@#1\endcsname #2% + \fi}} +% The unit macro keeps track of the current unit value and a new +% unit value. The current unit value is initialized by reading the +% file jobname.aux. The initial value is based on a previous run. +% If no extra action were undertaken, the unit value would not drop +% down to a reasonable value anymore if a previous run on the document +% drove it far up. Therefore a new unit value is maintained; it is +% initialized to zero in the beginning of every compiling session. +% The current unit value is used for type-setting, but when the end +% of the document is reached the new unit value is saved. + +\def\h@presetunit#1:#2{\h@newunit #1:{#2}{#2}} +% \h@presetunit is meant to be used in style files to initalize unit values. +% It sets both the current and the new unit value. This prevents +% the unit value from dropping below its preset value if it is not used. +% Such dropping could cause problems, because the dropped value would be +% reloaded the next time the document is processed. The reloading of the +% unit values takes place after the reading of the style files which +% contain the presettings, so if the new unit value was not initialized, +% the presetting would lose its effect after compiling the document once. + +\def\h@resetunit#1:#2{% + \@ifundefined{unit@#1}% + {\h@newunit #1:{#2}{\z@}} + {\global\csname unit@#1\endcsname #2}} +% Designed to be used in jobname.aux. Do not use this macro directly. + +\def\h@newunit#1:#2#3{% + \expandafter\newdimen\csname unit@#1\endcsname + \global\csname unit@#1\endcsname #2% + \expandafter\newdimen\csname newunit@#1\endcsname + \global\csname newunit@#1\endcsname #3% + \edef\@@@unt{#1}\h@enqueue{@@@unt}{@units}} + +\def\h@setunit#1:#2{% + \global\csname unit@#1\endcsname #2% + \global\@unitschangedtrue} + +\AtEndDocument{% + \clearpage + \if@filesw\h@writeunits\immediate\closeout\@unitsfile\fi} + +\def\h@writeunits{% + {\def\\{\h@writeunit}\h@processq{@units}}% + \if@unitschanged + \PackageWarningNoLine{hhunits}{Unit values may have changed.\MessageBreak + Rerun to get them right}\fi} + +\def\h@writeunit#1{% + \ifdim\@nameuse{newunit@#1}<\@nameuse{unit@#1}% + \global\csname unit@#1\endcsname \@nameuse{newunit@#1}% + \global\@unitschangedtrue + \fi + \immediate\write\@unitsfile{% + \string\h@resetunit \space #1:{\the\@nameuse{unit@#1}}}} + +% ********************** +% * INITIALIZATION * +% ********************** + +\h@initqueue{@units}{} +\newif\if@unitschanged +\newwrite\@unitsfile +\@input{\jobname.uni} +\if@filesw + \immediate\openout\@unitsfile=\jobname.uni + \immediate\write\@unitsfile{\relax}\fi + +\endinput% ********************** +% * WARRANTY, DISTRIBUTION ETC. * +% ******************************* +% +% This is a TeX style file by Herman Haverkort. This file is distributed +% in the hope that it will be useful, but without any warranty; without +% even the implied warranty of merchantability or fitness for a particular +% purpose. The author does not accept any responsability for any damage, +% loss, injury, psychosis, annoyance, marital problems, murders etc. which +% are caused by this file. +% +% This style file has not been tested systematically, so there are +% probably undiscoverd errors in it. If you find one, if you have +% trouble using this file, if you have a suggestion for an extension or +% another modification, or if you are just a happy user, please report +% it to: +% Herman Haverkort +% Heyenoordseweg 40 +% NL-6813 GA Arnhem +% herman@fgbbs.iaf.nl +% +% You are allowed to change this file, but you are not allowed to distribute +% the changed version unless you obey the following: +% - give the changed file another name than the original one; +% - record clearly in the changed file: +% - the original name of the file; +% - its original author; +% - that it is a changed version; +% - do not remove the restrictions on distributing the file. +% +% You are not allowed to take money for the distribution or use of either +% this file or a changed version, except for a nominal charge for copying +% etc. +% +% Have fun! + + diff --git a/usergrps/uktug/baskervi/5_5/hhutils0.sty b/usergrps/uktug/baskervi/5_5/hhutils0.sty new file mode 100644 index 0000000000..2f37f76a42 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/hhutils0.sty @@ -0,0 +1,25 @@ +\NeedsTeXFormat{LaTeX2e} +\ProvidesPackage{hhutils0}[1995/04/07 hh's internal LaTeX-extensions] + +\def\newtoks{\alloc@5\toks\toksdef\@cclvi} + +\def\h@newdimen#1{\ifx#1\undefined\newdimen#1\else\ifx#1\relax\newdimen#1\fi\fi} +\def\h@newbox#1{\ifx#1\undefined\newbox#1\else\ifx#1\relax\newbox#1\fi\fi} +\def\h@newtoks#1{\ifx#1\undefined\newtoks#1\else\ifx#1\relax\newtoks#1\fi\fi} + +\def\@namegdef#1{\expandafter\gdef\csname #1\endcsname} +\def\@namexdef#1{\expandafter\xdef\csname #1\endcsname} + +% old definition: +% \long\def\h@ifespecified#1#2#3{\edef\@@@arg{#1}\ifx\@@@arg\@empty #3\else #2\fi} + +\def\h@ifespecified{\h@ifdspecified\edef} +\def\h@ifspecified{\h@ifdspecified\def} +\long\def\h@ifdspecified#1#2#3#4{% + #1\@@@arg{#2}% + \ifx\@@@arg\@empty\def\next{#4}\else\def\next{#3}\fi\next} + +\def\h@ifstr#1#2#3#4{% + \def\@@@a{#1}\def\@@@b{#2}% + \ifx\@@@a\@@@b\def\next{#3}\else\def\next{#4}\fi\next} + diff --git a/usergrps/uktug/baskervi/5_5/reese.tex b/usergrps/uktug/baskervi/5_5/reese.tex new file mode 100644 index 0000000000..3dfda19028 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/reese.tex @@ -0,0 +1,123 @@ +\title{Reflections on Writing and Computers 8 (London 7--9 September 1995)} +\author[R. Allan Reese\\ +Email: \texttt{r.a.reese@ucc.hull.ac.uk}]{R. Allan Reese} +\begin{Article} + +Did you know Shakespeare's plot in {\it Romeo \& Juliet\/} extends over six +days, from a Friday morning to Wednesday? Just one of the useful titbits I +picked up at the conference. Writing and Computers conferences attract a +different class of computer users from \TeX{} conferences; less oriented +or sympathetic to computer science, possibly more interested in the human +user. To someone like myself, running a general purpose computing service, +both groups are very interesting. + +These writers' conferences are dominated by people who teach writing or +who study other writers, rather than by people who live by selling their +own words. Also noticeably absent were publishers --- possibly a good thing, +as writers and publishers are necessarily protagonists. The hilarity +amongst the publishers at seeing so many missed deadlines might have been +unsettling. The knock-on of missed deadlines was a dynamic hypertext +timetable, in the genre of an adventure game. The very-packed, constantly +changing programme led to a feeling of mild panic (cf the Lentillas in +Douglas Adams {\it Hitch-Hiker's Guide to the Galaxy}) as we yo-yoed +between rooms on several floors of the Institute. + +Writing about writing generates its own pressure. The monkey on your +shoulder screams, ``those that can do, those that can't teach.'' One +telling comment to an academic editor, that I overheard during breakfast +was: ``Since you told us and the publisher that this would be {\em the} new +definitive book, for the first time ever I've had writer's block.'' + +The exact instructions on the presentation of abstracts were apparently +ignored by most of the authors, including several of the organizers. +There's a lot to be said for authors providing text and editors imposing +format. As indicated above, many of the participants did not themselves +appear to be sophisticated computer users, and talk of imposed stylesheets +or enforcement of style through SGML would have left them cold. + +And yet none of this detracted from an enjoyable and productive +conference. The organization came together in a weighty and informative +book of abstracts provided on arrival. Our next problem was finding time +to scan the abstracts and make difficult choices. What follows therefore +is a personal and partly-random selection. + +In the gaps between the whirling social programme, great ideas were +exchanged. One paper concluded that `better' student writers devoted more +time to structure and planning because they were so comfortable with +grammar and vocabulary that these were handled automatically. Maybe +`obvious', but at another conference this year I saw a speaker howled down +for suggesting that grammar should be taught more explicitly in UK +schools. My own interests include software tools for supporting the +various stages of writing; text formatting is one, but the words still +have to be chosen and put in order. The starting point of \LaTeX{} was +supposedly the idea that the author would be relieved of the need to +consider the physical appearance while the text was being written. + +Another paper compared structured and `free-text' abstracts of scientific +papers. While strict quantitative measures of use and recall in the +standard convenience sample of students showed no noticeable improvement, +the consensus in the subsequent discussion was that the structure would be +a helpful support and checklist for writers. The difficulty is always to +extrapolate from volunteer groups in short-term studies to a general +population developing and applying life-skills with diverse motivations. +Structured abstracts ought to make comprehension easier and searching more +consistent. This becomes increasingly important as we rely more on +computer searches to trawl for information. + +Sally Tweddle's keynote opening was well-pitched in relegating technology +to `appropriate' use, but no one picked up on her mention of a New York +school{\em girl} who started an account of a group project with ``I'll +show you Joe's picture. {\em He}'s our best artist.'' What a stereotype of +male domination of technology, and female subordination to an auxillary +supportive role! \TeX-group meetings certainly don't reflect a 50:50 +sex ratio, but I wouldn't have called them male-dominated. What do other +people think? Is \TeX{} a minority sport partly because it's seen as +a boys' computer-science toy? + +Michael Barnett's keynote carried on in a way from Sally's: the interplay +of technology and the use to which it's put. It struck a chord: a typical +helpdesk interaction in the university: ``Why did you do that?'' --- ``Well, +it was in the program so I just clicked on it'' Technology makes things +possible but must not be allowed to take over and control the task --- what +would {\em you} do if ``The Machine Stops'' and the technology ceases to +work? [cry] + +Multimedia CD technology was perhaps the dominant topic of the whole +conference. We agonized about the lack of imaginative use of a `new' +medium, but maybe we do not need a {\em Shakespeare} of software --- we need +a Pasolini, or even a Tarantino. In the same way that sticking a camera +into a theatre seat would not produce a `film', just putting text on a +disk and automating the index doesn't make it exciting. The BBC/Harper +team were clear as to the amount of work they had needed to put into +creating a multimedia study guide to R \& J, despite starting with a +complete and unrevisable text. + +Does hypertext have a role for other than reference material? The +overwhelming majority of readers don't want to write a story of their own; +they want to be {\em told} one (as we were, held entranced over lunch by a +storyteller). PC/CD hardware is still too slow by an order of magnitude, +though since the conference I've read that CD capacity will soon increase +by up to 20-fold. When you open a book, you don't stare at the title page +for several minutes while the rest of the book prepares itself to be read. +`The medium is the message.' In the area of design and communication, +if the technology become intrusive, then {\em it} becomes the message, and +the meaning you intended is lost. That's one reason I advise against +on-line presentations at conferences using, say, PowerPoint --- the +audience is either amazed how slickly it works, or bored at how tackily +it doesn't. + +Next year's W\&C meeting will take place in Barcelona. Do they need +another meeting? My conclusion from the conference (and email discussion +lists set up to preface and complement the conference) is that there are +many themes in writing and computers being actively considered and far +from worked out. Were the technology and its application fully understood, +there would still be themes in education and dissemination. At some time +the theme will become an anachronism; everyone will grow up as comfortable +with computers as we are with pens --- or do I ``talk of dreams, which are +but children of an idle brain, begot of nothing but vain fantasy''? +\end{Article} +\endinput +R. Allan Reese Email: r.a.reese@ucc.hull.ac.uk +Head of Applications, Computer Centre Direct voice: +44 1482 465296 +Hull University Voice messages: +44 1482 465685 +Hull HU6 7RX, U.K. Fax: +44 1482 466441 diff --git a/usergrps/uktug/baskervi/5_5/tcr.mf b/usergrps/uktug/baskervi/5_5/tcr.mf new file mode 100644 index 0000000000..05e34a0542 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcr.mf @@ -0,0 +1,88 @@ +% tcr.mf +% +% (c) Copyright 1995 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Content: +% +% Parameters for +% +% Text Companion Roman + +font_identifier:="TCR"; +font_size gensize*pt#; +basedef ( 5, 6, 7, 8, 9, 10, 12, 17.28); +gendef [1/36pt#]( u# )( 12.5, 14, 15.5, 17, 18.5, 20, 23.5, 32.5); +gendef [1/36pt#]( width_adj# )( 0, 0, 0, 0, 0, 0, 0, 0); +gendef [1/36pt#]( serif_fit# )( 0, 0, 0, 0, 0, 0, 0, 0); +gendef [1/36pt#]( cap_serif_fit# )( 2, 2.8, 3.5, 4.1, 4.6, 5, 5.8, 8); +gendef [1/36pt#]( letter_fit# )( 5, 3, 2, 0, 0, 0, 0, [-.1]); +gendef [1/36pt#]( body_height# )( 135, 162, 189, 216, 243, 270, 324, 466); +gendef [1/36pt#]( asc_height# )( 125, 150, 175, 200, 225, 250, 300, 432); +gendef [1/36pt#]( cap_height# )( 123, 147.6, 172.2, 196.8, 221.4, 246, 295.2, 425); +gendef [1/36pt#]( fig_height# )( 116, 139.2, 162.4, 185.6, 208.8, 232, 278.4, 401); +gendef [1/36pt#]( x_height# )( 77.5, 93, 108.5, 124, 139.5, 155, 186, 267.8); +gendef [1/36pt#]( math_axis# )( 45, 54, 63, 72, 81, 90, 108, 155.5); +gendef [1/36pt#]( bar_height# )( 43.5, 52.2, 60.9, 69.6, 78.3, 87, 104.4, 150); +gendef [1/36pt#]( comma_depth# )( 35, 42, 49, 56, 63, 70, 84, 121); +gendef [1/36pt#]( desc_depth# )( 35, 42, 49, 56, 63, 70, 84, 121); +gendef [1/36pt#]( acc_height# )( 42.5, 49, 55.5, 62, 68.5, 75, 90, 127.5); +gendef [1/36pt#]( dot_height# )( 32, 36.6, 41.2, 46, 50.4, 56, 67.2, 90); +gendef [1/36pt#]( udot_height# )( 33.5, 38.5, 43.3, 48.4, 53.1, 59, 70.8, 95); +gendef [1/36pt#]( crisp# )( 0, 0, 0, 0, 0, 0, 0, 0); +gendef [1/36pt#]( tiny# )( 6, 7, 7, 8, 8, 8, 8, 8); +gendef [1/36pt#]( fine# )( 5, 6, 6, 7, 7, 7, 7, 7); +gendef [1/36pt#]( thin_join# )( 5, 6, 6, 7, 7, 7, 7.5, 9); +gendef [1/36pt#]( hair# )( 7.5, 8, 8.5, 9, 9, 9, 9.5, 11); +gendef [1/36pt#]( stem# )( 16, 18, 20, 22, 24, 25, 28, 33); +gendef [1/36pt#]( curve# )( 18, 20.5, 23, 25.5, 28, 30, 33, 40); +gendef [1/36pt#]( ess# )( 12, 17, 21, 23, 25, 27, 30, 35); +gendef [1/36pt#]( flare# )( 19, 21, 24, 27, 30, 33, 36, 45); +gendef [1/36pt#]( dot_size# )( 22, 26, 29, 32, 35, 38, 42, 51); +gendef [1/36pt#]( cap_hair# )( 8, 8.5, 9, 9.5, 10, 11, 11.5, 13); +gendef [1/36pt#]( cap_stem# )( 19, 21.5, 24, 26.5, 29, 32, 35, 41); +gendef [1/36pt#]( cap_curve# )( 21, 24, 27, 30, 33, 37, 40, 47); +gendef [1/36pt#]( cap_ess# )( 14, 19, 23, 27, 31, 35, 38, 43); +gendef [pt#]( rule_thickness#)( .28, .31, .34, .36, .38, .4, .44, .6); +gendef [1/36pt#]( dish# )( .7, .8, .9, 1, 1, 1, 1, 1); +gendef [1/36pt#]( bracket# )( 10, 12, 14, 16, 18, 20, 24, 34); +gendef [1/36pt#]( jut# )( 15, 17, 19, 22, 25, 28, 33, 42); +gendef [1/36pt#]( cap_jut# )( 20, 23, 26, 29, 33, 37, 41, 50); +gendef [1/36pt#]( beak_jut# )( 6, 6.8, 7.6, 8.4, 9.2, 10, 11.4, 15); +gendef [1/36pt#]( beak# )( 35, 42, 49, 56, 63, 70, 84, 121); +gendef [1/36pt#]( vair# )( 6, 7, 7, 8, 8, 8, 8.5, 10); +gendef [pt#]( notch_cut# )( 5, 6, 7, 8, 9, 10, 12, 17); +gendef [1/36pt#]( bar# )( 8, 8.5, 9, 9.5, 10, 11, 12.5, 16); +gendef [1/36pt#]( slab# )( 8, 8.5, 9, 9.5, 10, 11, 12.5, 16); +gendef [1/36pt#]( cap_bar# )( 8, 8.5, 9, 9.5, 10, 11, 12.5, 16); +gendef [1/36pt#]( cap_band# )( 8, 8.5, 9, 9.5, 10, 11, 12.5, 16); +gendef [pt#]( cap_notch_cut# )( 5, 6, 7, 8, 9, 10, 12, 17); +gendef [1/36pt#]( serif_drop# )( 2, 2.4, 2.8, 3.2, 3.6, 4, 4.8, 7); +gendef [1/36pt#]( stem_corr# )( .7, .8, .9, 1, 1, 1, 1, 1); +gendef [1/36pt#]( vair_corr# )( .5, .7, .9, 1, 1, 1, 1, 1); +gendef [1/36pt#]( apex_corr# )( 0, 0, 0, 0, 0, 0, 0, 0); +gendef [1/36pt#]( o# )( 4, 4.5, 5, 6, 7, 8, 9, 10); +gendef [1/36pt#]( apex_o# )( 4, 4.5, 5, 6, 7, 8, 9, 10); +gendef ( slant )( 0, 0, 0, 0, 0, 0, 0, 0); +gendef ( fudge )( 1, 1, 1, 1, 1, 1, 1, 1); +gendef ( math_spread )( 1, .8, .6, .4, .2, 0, [-.2], [-.4]); +gendef ( ligs )( 1, 2, 2, 2, 2, 2, 2, 2); +superness:=1/sqrt 2; +superpull:=1/6; +beak_darkness:=11/30; +square_dots:=false; +hefty:=false; +serifs:=true; +monospace:=false; +variant_g:=false; +low_asterisk:=false; +math_fitting:=false; +generate txsymb; +endinput; diff --git a/usergrps/uktug/baskervi/5_5/tcr1000.mf b/usergrps/uktug/baskervi/5_5/tcr1000.mf new file mode 100644 index 0000000000..1b94edac58 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcr1000.mf @@ -0,0 +1,6 @@ +% This is tcr1000.mf in text format as of October, 18, 1995 +if unknown dxbase: input dxbase fi; + + +gensize:=10; +generate tcr diff --git a/usergrps/uktug/baskervi/5_5/tcr1000.tfm b/usergrps/uktug/baskervi/5_5/tcr1000.tfm Binary files differnew file mode 100644 index 0000000000..6efd5ef050 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcr1000.tfm diff --git a/usergrps/uktug/baskervi/5_5/tcr1095.mf b/usergrps/uktug/baskervi/5_5/tcr1095.mf new file mode 100644 index 0000000000..e619aef074 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcr1095.mf @@ -0,0 +1,6 @@ +% This is tcr1095.mf in text format as of October, 18, 1995 +if unknown dxbase: input dxbase fi; + + +gensize:=10.95; +generate tcr diff --git a/usergrps/uktug/baskervi/5_5/tcr1200.mf b/usergrps/uktug/baskervi/5_5/tcr1200.mf new file mode 100644 index 0000000000..2cb9097433 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcr1200.mf @@ -0,0 +1,6 @@ +% This is tcr1200.mf in text format as of October, 18, 1995 +if unknown dxbase: input dxbase fi; + + +gensize:=12; +generate tcr diff --git a/usergrps/uktug/baskervi/5_5/tcstdedt.tex b/usergrps/uktug/baskervi/5_5/tcstdedt.tex new file mode 100644 index 0000000000..34248144ab --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/tcstdedt.tex @@ -0,0 +1,319 @@ +% tcstdedt.mf +% +% (c) Copyright 1995 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Generating MF-files for TC fonts Version 1.2 / 1-SEP-1995 +% +% Running TeX with this file as an input results in a lot of +% Metafont font driver files (tcr5.mf, tcr6.mf, ..). The files +% which should be generated are marked in the following macro +% \FontsToBeGenerated. For each font there has to be an entry +% with the pt sizes the font should be generate with. Additionally +% in the heading \tablevalues all used pt sizes have to be mentioned, +% just to get an fine printout. +% +% Furthermore there is a batch file which can be customized for the +% Metafont batch run. +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% please change only here: +% +\long\def\FontsToBeGenerated{ + +% \tablevalues ( 5 6 7 8 9 10 10.95[11] 12 14.4[14] 17.28[17] 20.74[20] 24.88[25] 35.83[36]) + \tablevalues ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + + \makefont tcr ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcsl ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcbx ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcbl ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) +% \makefont tcfb ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] +% 10[1000] 10.95[1095] 12[1200] 14.4[1440] +% 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcb ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcdh ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tctt (% 5[0500] 6[0600] 7[0700] + 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcvt (% 5[0500] 6[0600] 7[0700] + 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcst (% 5[0500] 6[0600] 7[0700] + 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcit (% 5[0500] 6[0600] 7[0700] + 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcss ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcsi ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcsx ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcso ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) +% \makefont tcff ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] +% 10[1000] 10.95[1095] 12[1200] 14.4[1440] +% 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) +% \makefont tcfi ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] +% 10[1000] 10.95[1095] 12[1200] 14.4[1440] +% 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcbi ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcti ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcu ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) + \makefont tcci ( 5[0500] 6[0600] 7[0700] 8[0800] 9[0900] + 10[1000] 10.95[1095] 12[1200] 14.4[1440] + 17.28[1728] 20.74[2074] 24.88[2488] 35.83[3583]) +} +% If a font with a fraction, e.g. "7.5", should be generated +% and the file name is not allowed to contain a period, an +% optional file name part can be specified. +% +% 7.5[0750] +% +% result in - may be - "tcr0750.mf" and an entry of "gensize:=7.5;" +% (The new value has to be specified in the \tablevalues-line too! +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% The Batch file entries ( #1 contains the fontname ) +% +% should be of the following form: +% +% \def\BatchOutput{\BatchLine{...}% +% ... +% \BatchLine{...}} +% +% +% preset value, change \BatchOutput if you like .... +% +\def\BatchOutput#1{ + \BatchLine{$ @300 #1 ln3} +% \BatchLine{mf/batch "&dxbase \string\mode:=imagen; input #1"} +} +% +% File naming conventions: +% +\def\BatchFileName{tcfonts.com} +% +% +\def\MetafontFileExtension{.mf} +% +\def\modedef{} % e.g. \def\modedef{\string\mode:=hplaser;} +% +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% please n o changes from here, thanks ! +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% +% +% (Avoiding inspecting the macros (sigh!) +% +% Norbert Schwarz, Dezember 1990 +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +\magnification\magstep1 +\overfullrule=0pt +%\tracingonline1 +%\tracingcommands=1 +%\tracingmacros=1 +% some token handling +\let\EA\expandafter +\def\JoinToks#1=(#2+#3){#1=\EA\EA\EA{\EA\the\EA#2\the#3}} +\def\UpToHere{\relax} +\def\IgnoreRest#1#2\UpToHere{#1} +\def\IgnoreFirst#1#2\relax\UpToHere{#2} +\def\First#1{\EA\IgnoreRest\the#1{}\UpToHere} +\def\FirstOf#1{\EA\EA\EA{\EA\IgnoreRest\the#1{}\UpToHere}} +\def\MoveFirst(#1to#2){#2\FirstOf#1} +\def\Rest#1{\EA\IgnoreFirst\the#1\relax\UpToHere} +\def\RestOf#1{\EA\EA\EA{\EA\IgnoreFirst\the#1\relax\UpToHere}} +\def\MoveRest(#1to#2){#2=\RestOf{#1}} +% borrowed from p. 132 in N.Schwarz, Introduction to TeX (some advertising ..) + +\newtoks\Basis +\newtoks\Table +\def\storetoks#1{\toks0={#1}\JoinToks\Table=(\Table+\toks0)} +\Table={} +% +\def\hash{##} +\newwrite \batchoutput +\newwrite \fontoutput +\def\today{\ifcase\month\or + January\or Februar\or March\or April\or May\or June\or + July\or August\or September\or October\or November\or December\fi, + \number\day, + \space\number\year} + +\def\BatchLine#1{\immediate\write\batchoutput{#1}} +\immediate\openout\batchoutput=\BatchFileName + +\def\empty{} +\def\minus{-} +\def\blank{ } +\def\singlefont#1 {% + \def\fontsize{#1}%\message{<#1>}% + \ifx\fontsize\minus\let\next\relax + \else + \ifx\fontsize\empty\let\next\singlefont + \else + \ifx\fontsize\blank\let\next\singlefont + \else + \let\next\dofont + \fi\fi\fi + \next} + +\def\doentry{\MoveFirst(\Workbase to\Htok)% + \Workbase=\RestOf\Workbase + \edef\doou{\the\Htok}% + \ifx\doou\fontsize + \def\dooU{\storetoks{\hfill $\bullet$\hfill&}}% + \let\weiter\dooU + \else + \def\weiter{\storetoks{~\hfill&}\doentry}% + \fi\weiter} + + +\def\singletablevalue#1 {% + \def\fontsize{#1}% + \ifx\fontsize\blank\let\next\singletablevalue + \else + \ifx\minus\fontsize\let\next\relax + \else\let\next\dotablevalue\fi + \fi + \next} + +\newtoks\Htok +\newtoks\Workbase +\def\dotablevalue{\edef\dooo{\Htok={{\fontsize}}}% + \dooo + \EA\storetoks\EA{\fontsize&}% + \JoinToks\Basis=(\Basis+\Htok)\singletablevalue} + +\def\tablevalues(#1){\storetoks{\bf Fonts &}\singletablevalue#1 - + \storetoks{\cr}} + +\def\makefont #1 (#2){\JoinToks\Workbase=(\Basis+\Basis)% + \myc=0\immediate\write15{}% + \edef\fontnamebody{#1}% + \def\dostoretoks{\storetoks{#1 &}}\dostoretoks + \singlefont #2 - \storetoks{\cr}} + +\def~{\ifdim\dimen0>0pt + \message{\number\dimen0}% + \global\advance\dimen0 by -5.25pt + \message{ }\fi} + +\newcount\myc +\def\extraspaces{\setbox0=\hbox{\tt\fontname}% +\dimen0=78.75pt +\advance\dimen0 by -\wd0\relax + \advance\myc by 1 + \ifnum \myc=5 + \immediate\write15{}% + \myc=0 \fi} + + +\def\dofonttest#1[#2]#3\nothing{% +\def\fontsize{#2}% +\ifx\fontsize\empty + \def\fontsizename{#1}% + \def\fontsize{#1}% +\else + \def\fontsize{#1}% + \def\fontsizename{#2}% +\fi} +\def\dofont{\doentry\expandafter\dofonttest\fontsize[]\nothing\Dofont} + +{\catcode`\%=11 +\catcode`\|=14 +\gdef\Dofont{| + \edef\fontname{\fontnamebody\fontsizename\MetafontFileExtension}| + \edef\dowrite{| + \immediate\openout \fontoutput = \fontname| + \immediate\write + \fontoutput {% This is \fontname\space + in text format as of \today}| + \immediate\write \fontoutput {if unknown dxbase: input dxbase fi;}| + \immediate\write \fontoutput {}| + \immediate\write \fontoutput {\modedef}| + \immediate\write \fontoutput {gensize:=\fontsize;}| + \immediate\write \fontoutput {generate \fontnamebody}| + \immediate\closeout \fontoutput| + \BatchOutput{\fontnamebody\fontsizename} + \message{\fontname\blank}|\extraspaces~~~~~~~~~~~| +}\dowrite\singlefont}} +\immediate\write15{generated mf-files:} +\immediate\write15{-------------------} + +\nopagenumbers + +\def\minimumbox#1{\setbox0=\hbox{#1}% + \ifdim\wd0>15pt \box0\else \hbox to 15pt{\hfil + \box0\hfil}\fi} +\storetoks{\hrule +\medskip +\centerline{Overview TC - Standard font set} +\medskip +\hrule +\bigskip +\noindent The following table describes the generated {*.mf} files which +are needed for the setup of the standard TC-font set. +\bigskip +\bigskip +$$\vbox\bgroup\nointerlineskip\halign\bgroup\hash\hfil\quad&&\strut + \quad\minimumbox{\hash}\cr +\noalign{\medskip}} + + + +%\tracingonline1 +%\tracingmacros2 +%\tracingcommands1 + +\FontsToBeGenerated + +\storetoks{\egroup\egroup$$} + +\let\hash=# +\the\Table +\end diff --git a/usergrps/uktug/baskervi/5_5/textcomp.sty b/usergrps/uktug/baskervi/5_5/textcomp.sty new file mode 100644 index 0000000000..12ac19ae38 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/textcomp.sty @@ -0,0 +1,189 @@ +%% +%% This is file `textcomp.sty', generated +%% on <1995/10/18> with the docstrip utility (1.0). +%% +%% The original source files were: +%% +%% textcomp.dtx (with options: `sty') +%% Copyright (C) 1995 Sebastian Rahtz. All rights reserved. +%% Permission is granted to to +%% customize the declarations in this file to serve the needs of your +%% installation. However, no permission is granted to distribute a +%% modified version of this file under its original name. +%% +\def\fileversion{1.0} +\def\filedate{1995/10/14} +\def\docdate {1995/10/14} +\DeclareFontEncoding{TS1}{}{} +\DeclareFontSubstitution{TS1}{cmr}{m}{n} +\DeclareTextSymbol{\textquotesinglbase}{TS1}{'015} +\DeclareTextSymbolDefault{\textquotesinglbase}{TS1} +\DeclareTextSymbol{\textquotedblbase}{TS1}{'022} +\DeclareTextSymbolDefault{\textquotedblbase}{TS1} +\DeclareTextSymbol{\texttwelveudash}{TS1}{'025} +\DeclareTextSymbolDefault{\texttwelveudash}{TS1} +\DeclareTextSymbol{\textthreequartersemdash}{TS1}{'026} +\DeclareTextSymbolDefault{\textthreequartersemdash}{TS1} +\DeclareTextSymbol{\textleftpointingarrow}{TS1}{'030} +\DeclareTextSymbolDefault{\textleftpointingarrow}{TS1} +\DeclareTextSymbol{\textrightpointingarrow}{TS1}{'031} +\DeclareTextSymbolDefault{\textrightpointingarrow}{TS1} +\DeclareTextSymbol{\texttieaccentlowercase}{TS1}{'032} +\DeclareTextSymbolDefault{\texttieaccentlowercase}{TS1} +\DeclareTextSymbol{\texttieaccentcapital}{TS1}{'033} +\DeclareTextSymbolDefault{\texttieaccentcapital}{TS1} +\DeclareTextSymbol{\textblank}{TS1}{'040} +\DeclareTextSymbolDefault{\textblank}{TS1} +\DeclareTextSymbol{\textdollar}{TS1}{'044} +\DeclareTextSymbolDefault{\textdollar}{TS1} +\DeclareTextSymbol{\textquotesingle}{TS1}{'047} +\DeclareTextSymbolDefault{\textquotesingle}{TS1} +\DeclareTextSymbol{\textcenteredstar}{TS1}{'052} +\DeclareTextSymbolDefault{\textcenteredstar}{TS1} +\DeclareTextSymbol{\textfraction}{TS1}{'057} +\DeclareTextSymbolDefault{\textfraction}{TS1} +\DeclareTextSymbol{\textzerooldstyle}{TS1}{'060} +\DeclareTextSymbolDefault{\textzerooldstyle}{TS1} +\DeclareTextSymbol{\textoneoldstyle}{TS1}{'061} +\DeclareTextSymbolDefault{\textoneoldstyle}{TS1} +\DeclareTextSymbol{\texttwooldstyle}{TS1}{'062} +\DeclareTextSymbolDefault{\texttwooldstyle}{TS1} +\DeclareTextSymbol{\textthreeoldstyle}{TS1}{'063} +\DeclareTextSymbolDefault{\textthreeoldstyle}{TS1} +\DeclareTextSymbol{\textfouroldstyle}{TS1}{'064} +\DeclareTextSymbolDefault{\textfouroldstyle}{TS1} +\DeclareTextSymbol{\textfiveoldstyle}{TS1}{'065} +\DeclareTextSymbolDefault{\textfiveoldstyle}{TS1} +\DeclareTextSymbol{\textsixoldstyle}{TS1}{'066} +\DeclareTextSymbolDefault{\textsixoldstyle}{TS1} +\DeclareTextSymbol{\textsevenoldstyle}{TS1}{'067} +\DeclareTextSymbolDefault{\textsevenoldstyle}{TS1} +\DeclareTextSymbol{\texteightoldstyle}{TS1}{'070} +\DeclareTextSymbolDefault{\texteightoldstyle}{TS1} +\DeclareTextSymbol{\textnineoldstyle}{TS1}{'071} +\DeclareTextSymbolDefault{\textnineoldstyle}{TS1} +\DeclareTextSymbol{\textmho}{TS1}{'115} +\DeclareTextSymbolDefault{\textmho}{TS1} +\DeclareTextSymbol{\textbigcircle}{TS1}{'117} +\DeclareTextSymbolDefault{\textbigcircle}{TS1} +\DeclareTextSymbol{\textohm}{TS1}{'127} +\DeclareTextSymbolDefault{\textohm}{TS1} +\DeclareTextSymbol{\textarrowup}{TS1}{'136} +\DeclareTextSymbolDefault{\textarrowup}{TS1} +\DeclareTextSymbol{\textarrowdown}{TS1}{'137} +\DeclareTextSymbolDefault{\textarrowdown}{TS1} +\DeclareTextSymbol{\textgrave}{TS1}{'140} +\DeclareTextSymbolDefault{\textgrave}{TS1} +\DeclareTextSymbol{\textborn}{TS1}{'142} +\DeclareTextSymbolDefault{\textborn}{TS1} +\DeclareTextSymbol{\textdied}{TS1}{'144} +\DeclareTextSymbolDefault{\textdied}{TS1} +\DeclareTextSymbol{\textleaf}{TS1}{'154} +\DeclareTextSymbolDefault{\textleaf}{TS1} +\DeclareTextSymbol{\textmarried}{TS1}{'155} +\DeclareTextSymbolDefault{\textmarried}{TS1} +\DeclareTextSymbol{\textmusicalnote}{TS1}{'156} +\DeclareTextSymbolDefault{\textmusicalnote}{TS1} +\DeclareTextSymbol{\textasciitilde}{TS1}{'176} +\DeclareTextSymbolDefault{\textasciitilde}{TS1} +\DeclareTextSymbol{\textshortequals}{TS1}{'177} +\DeclareTextSymbolDefault{\textshortequals}{TS1} +\DeclareTextSymbol{\textquotedbl}{TS1}{'202} +\DeclareTextSymbolDefault{\textquotedbl}{TS1} +\DeclareTextSymbol{\textdoublebacktick}{TS1}{'203} +\DeclareTextSymbolDefault{\textdoublebacktick}{TS1} +\DeclareTextSymbol{\textdagger}{TS1}{'204} +\DeclareTextSymbolDefault{\textdagger}{TS1} +\DeclareTextSymbol{\textdaggerdbl}{TS1}{'205} +\DeclareTextSymbolDefault{\textdaggerdbl}{TS1} +\DeclareTextSymbol{\textdoublevert}{TS1}{'206} +\DeclareTextSymbolDefault{\textdoublevert}{TS1} +\DeclareTextSymbol{\textperthousand}{TS1}{'207} +\DeclareTextSymbolDefault{\textperthousand}{TS1} +\DeclareTextSymbol{\textbullet}{TS1}{'210} +\DeclareTextSymbolDefault{\textbullet}{TS1} +\DeclareTextSymbol{\textcentigrade}{TS1}{'211} +\DeclareTextSymbolDefault{\textcentigrade}{TS1} +\DeclareTextSymbol{\textdollaroldstyle}{TS1}{'212} +\DeclareTextSymbolDefault{\textdollaroldstyle}{TS1} +\DeclareTextSymbol{\textcentoldstyle}{TS1}{'213} +\DeclareTextSymbolDefault{\textcentoldstyle}{TS1} +\DeclareTextSymbol{\textflorin}{TS1}{'214} +\DeclareTextSymbolDefault{\textflorin}{TS1} +\DeclareTextSymbol{\textcolonmonetary}{TS1}{'215} +\DeclareTextSymbolDefault{\textcolonmonetary}{TS1} +\DeclareTextSymbol{\textwon}{TS1}{'216} +\DeclareTextSymbolDefault{\textwon}{TS1} +\DeclareTextSymbol{\textnaira}{TS1}{'217} +\DeclareTextSymbolDefault{\textnaira}{TS1} +\DeclareTextSymbol{\textguarani}{TS1}{'220} +\DeclareTextSymbolDefault{\textguarani}{TS1} +\DeclareTextSymbol{\textpeso}{TS1}{'221} +\DeclareTextSymbolDefault{\textpeso}{TS1} +\DeclareTextSymbol{\textlira}{TS1}{'222} +\DeclareTextSymbolDefault{\textlira}{TS1} +\DeclareTextSymbol{\textrecipe}{TS1}{'223} +\DeclareTextSymbolDefault{\textrecipe}{TS1} +\DeclareTextSymbol{\textinterrobang}{TS1}{'224} +\DeclareTextSymbolDefault{\textinterrobang}{TS1} +\DeclareTextSymbol{\textgnaborretni}{TS1}{'225} +\DeclareTextSymbolDefault{\textgnaborretni}{TS1} +\DeclareTextSymbol{\texttrademark}{TS1}{'227} +\DeclareTextSymbolDefault{\texttrademark}{TS1} +\DeclareTextSymbol{\textcent}{TS1}{'242} +\DeclareTextSymbolDefault{\textcent}{TS1} +\DeclareTextSymbol{\textsterling}{TS1}{'243} +\DeclareTextSymbolDefault{\textsterling}{TS1} +\DeclareTextSymbol{\textcurrency}{TS1}{'244} +\DeclareTextSymbolDefault{\textcurrency}{TS1} +\DeclareTextSymbol{\textyen}{TS1}{'245} +\DeclareTextSymbolDefault{\textyen}{TS1} +\DeclareTextSymbol{\textbrokenbar}{TS1}{'246} +\DeclareTextSymbolDefault{\textbrokenbar}{TS1} +\DeclareTextSymbol{\textsection}{TS1}{'247} +\DeclareTextSymbolDefault{\textsection}{TS1} +\DeclareTextSymbol{\texthighdieresis}{TS1}{'250} +\DeclareTextSymbolDefault{\texthighdieresis}{TS1} +\DeclareTextSymbol{\textcopyright}{TS1}{'251} +\DeclareTextSymbolDefault{\textcopyright}{TS1} +\DeclareTextSymbol{\textordfeminine}{TS1}{'252} +\DeclareTextSymbolDefault{\textordfeminine}{TS1} +\DeclareTextSymbol{\textlogicalnot}{TS1}{'254} +\DeclareTextSymbolDefault{\textlogicalnot}{TS1} +\DeclareTextSymbol{\textregistered}{TS1}{'256} +\DeclareTextSymbolDefault{\textregistered}{TS1} +\DeclareTextSymbol{\textmacron}{TS1}{'257} +\DeclareTextSymbolDefault{\textmacron}{TS1} +\DeclareTextSymbol{\textdegree}{TS1}{'260} +\DeclareTextSymbolDefault{\textdegree}{TS1} +\DeclareTextSymbol{\textplusminus}{TS1}{'261} +\DeclareTextSymbolDefault{\textplusminus}{TS1} +\DeclareTextSymbol{\texttwosuperior}{TS1}{'262} +\DeclareTextSymbolDefault{\texttwosuperior}{TS1} +\DeclareTextSymbol{\textthreesuperior}{TS1}{'263} +\DeclareTextSymbolDefault{\textthreesuperior}{TS1} +\DeclareTextSymbol{\textacute}{TS1}{'264} +\DeclareTextSymbolDefault{\textacute}{TS1} +\DeclareTextSymbol{\textmu}{TS1}{'265} +\DeclareTextSymbolDefault{\textmu}{TS1} +\DeclareTextSymbol{\textparagraph}{TS1}{'266} +\DeclareTextSymbolDefault{\textparagraph}{TS1} +\DeclareTextSymbol{\textperiodcentered}{TS1}{'267} +\DeclareTextSymbolDefault{\textperiodcentered}{TS1} +\DeclareTextSymbol{\textonesuperior}{TS1}{'271} +\DeclareTextSymbolDefault{\textonesuperior}{TS1} +\DeclareTextSymbol{\textordmasculine}{TS1}{'272} +\DeclareTextSymbolDefault{\textordmasculine}{TS1} +\DeclareTextSymbol{\textonequarter}{TS1}{'274} +\DeclareTextSymbolDefault{\textonequarter}{TS1} +\DeclareTextSymbol{\textonehalf}{TS1}{'275} +\DeclareTextSymbolDefault{\textonehalf}{TS1} +\DeclareTextSymbol{\textthreequarters}{TS1}{'276} +\DeclareTextSymbolDefault{\textthreequarters}{TS1} +\DeclareTextSymbol{\textmultiply}{TS1}{'326} +\DeclareTextSymbolDefault{\textmultiply}{TS1} +\DeclareTextSymbol{\textdivide}{TS1}{'366} +\DeclareTextSymbolDefault{\textdivide}{TS1} +\endinput +%% +%% End of file `textcomp.sty'. diff --git a/usergrps/uktug/baskervi/5_5/textcomp.tex b/usergrps/uktug/baskervi/5_5/textcomp.tex new file mode 100644 index 0000000000..8a42cca3f4 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/textcomp.tex @@ -0,0 +1,650 @@ +\def\DCCHAR#1{{\fontfamily{cmr}\selectfont\char'#1}} +\def\TCCHAR#1{{\fontencoding{TS1}\fontfamily{cmr}\selectfont\char'#1}} +\def\XX#1{{\fontfamily{cmr}\selectfont#1}} +\newcommand{\nicefrac}[2]{\leavevmode\kern.1em +\raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em +/\kern-.15em\lower.25ex\hbox{\the\scriptfont0 #2}} +\newcommand{\ordmale}{\raise1ex\hbox{\underbar{\scriptsize o}}} +\newcommand{\ordfemale}{\raise1ex\hbox{\underbar{\scriptsize a}}} +\title{The European Computer Modern Fonts, release 1.2} +\author[J\"org Knappen]{J\"org Knappen\\ + Barbarossaring 43\\ + 55118 Mainz\\ + email: \texttt{knappen@vkpmzd.kph.uni-mainz.de}} +\begin{Article} +\section{Introduction} +In 1990 at the TUG meeting at Cork, Ireland, the european \TeX\ user groups +agreed on a 256 character encoding supporting many european languages with +latin writing. This encoding is both an \emph{internal encoding} for \TeX\ % +and a \emph{font encoding}. This double nature is a consequence of the fact +that the two kind of encodings cannot be entirely separated within \TeX. + +The design goals of the Cork encoding are to allow as many languages as +possible to be hyphenated correctly and to guarantee correct kerning for +those languages. Therefore it includes many ready-made accented letters. + +It also includes some innovative features, which have not become very +popular yet, though they deserve to become so. First to mention is a +special, zero width invisible character, the compound word mark (cwm). +The second is the separation of the two characters $<$hyphen$>$ and +$<$hyphenchar$>$. By appropriate design of the hyphenchar glyph, hanging +hyphenation can be achieved. + +The final version of the Cork encoded fonts will be called \textsf{ec} +(European Computer Modern or Extended Computer Modern) fonts. The current +version, called \textsf{dc} fonts, is an intermediate step towards the +final version. Note, that in the cause of bug fixes and improvements, the +metrics may change. + +The need for a text companion font was first articulated in the discussion +of new 256 character mathematical fonts in 1993. In order to achieve a +better orthogonality between text and math, some text +symbols stored in the math fonts should be moved to the text companion +fonts\footnote{The archives of the +math-font-discuss mailing list are available for ftp on +\texttt{ftp.cogs.susx.ac.uk} in directory \texttt{pub/tex/mathfont}.}. +The text companion fonts are also the ideal place to store some new +characters, like currency symbols. + +\section{Supported languages} +The following languages are supported by the Cork encoding: +Afrikaans, Albanian, Breton, Croat, Czech, Danish, Dutch, English, Estonian, +Faroese, Fin\-nish, French, Frisian, Gaelic, Galician, German, Greenlandic, +Hungarian, Icelandic, Irish (modern orthography), Italian, Letzeburgish, +Lusatian (Sorbian), Norwegian, Polish, Portuguese, Rhaetian (Rumantsch), +Rumanian, Slovak, Slo\-ve\-ne, Spanish, Swedish, Turkish. Many non-european +languages using the standard latin alphabet (e.\,g. Bahasa Indonesia, +Suaheli) are also supported. + +In europe, the following languages aren't supported: Azeri, Basque, +Catalan, Esperanto, Irish (old orthography), Latvian, Lithuanian, Maltese, +Sami, Welsh. Of course, Greek and all languages with cyrillic writing are +outside the scope of the Cork encoding. + +\section{Standard Control Sequences} + +The following standard control sequences are assigned with \LaTeX's +\texttt{T1} encoding for the \textsf{dc} fonts:\\ +\texttt{\string\r} Ring accent (\texttt{\string\r\ u} gives \XX{\r{u}})\\ +\texttt{\string\k} Ogonek (\texttt{\string\k\ e} gives \XX{\k{e}})\\ +\texttt{\string\dh}, \texttt{\string\DH} Icelandic letter edh (\XX{\dh}, \XX{\DH})\\ +\texttt{\string\dj}, \texttt{\string\DJ} Letter d with stroke (\XX{\dj}, \XX{\DJ})\\ +\texttt{\string\ng}, \texttt{\string\NG} Letter eng (\XX{\ng}, +\XX{\NG})\\ +\texttt{\string\th}, \texttt{\string\TH} Icelandic letter thorn (\XX{\th}, \TH).\\ +The control sequences for the \textsf{tc} font symbols +aren't fixed yet. + +\section{Ligatures} +In the proportional fonts, the following ligatures are implemented:\\ +\begin{tabbing} +\verb:---: \=--- (em dash) \kill +\verb:--: \>-- (en dash)\\ +\verb:---: \>--- (em dash)\\ +\verb:``: \>`` (english opening quotes, german closing quotes)\\ +\verb:'': \>'' (english and polish closing quotes)\\ +\verb:,,: \>,, (german and polish opening quotes)\\ +\verb:<<: \><< (french opening quotes)\\ +\verb:>>: \>>> (french closing quotes)\\ +\verb:!`: \>!` (spanish opening exclamation mark)\\ +\verb:?`: \>?` (spanish opening question mark)\\ +\verb:fi: \>fi\\ +\verb:ff: \>ff\\ +\verb:fl: \>fl\\ +\verb:ffi: \>ffi\\ +\verb:ffl: \>ffl +\end{tabbing} + +In the typewriter fonts, the following ligatures are implemented: +\begin{tabbing} +\verb:---: \=--- (em dash) \kill +\verb:--: \>(en dash)\\ +\verb:---: \>(em dash)\\ +\verb:``: \>(english opening quotes, german closing quotes)\\ +\verb:'': \>(english and polish closing quotes)\\ +\verb:,,: \>(german and polish opening quotes)\\ +\verb:<<: \>(french opening quotes)\\ +\verb:>>: \>(french closing quotes)\\ +\verb:!`: \>(spanish opening exclamation mark)\\ +\verb:?`: \>(spanish opening question mark) +\end{tabbing} +The convention on the dashes suites British usage for number range dashes +best and does not interfere with any other known usage. In verbatim mode, +all ligatures are switched off. + +\section{Hints on usage} + +The \textsf{dc} fonts are intended for text usage in european languages. +The Cork font encoding is selected with the command +\verb:\usepackage[T1]{fontenc}: in \LaTeXe. + +The \textsf{tc} fonts are a multi-purpose font. Suggested usages include +verbatim setting of latin-1 and latin-2 listings, avoiding the so-called +``hidden math'' in text mode (that's the reason why there are footnote +symbols in), providing building blocks for virtual fonts (oldstyle digits +are included for this reason), or just providing otherwise unavailable +symbols (like the permille sign). + +Some characters are in for verbatim listings only, they should +\emph{not} be used in plain text---they are better replaced with +macros. These characters include the raised digits, the fractions, the +trademark sign, and the ordinal indicators. + +For text fractions, the following macro is suggested (from the \TeX book, +exercise 11.6): +\begin{verbatim} +\newcommand{\nicefrac}[2]{\leavevmode\kern.1em +\raise.5ex\hbox{\the\scriptfont0 #1}\kern-.1em +/\kern-.15em\lower.25ex +\hbox{\the\scriptfont0 #2}} +\end{verbatim} +It can produce arbitrary fractions and is not restricted to some simple +cases, the output looks \nicefrac12, \nicefrac54, \nicefrac{17}{42}. + +For the ordinal indicators (\ordmale\ and \ordfemale), +the following macros are suggested (from +spanish.ldf, \textsf{babel} bundle): +\begin{verbatim} +\newcommand{\ordmale}{% + \raise1ex\hbox{\underbar{\scriptsize o}}% +} +\newcommand{\ordfemale}{% + \raise1ex\hbox{\underbar{\scriptsize a}}% +} +\end{verbatim} + +\section{Naming of the font files} +Currently, the extended computer modern fonts have the prefix \textsf{dc}. +This prefix will change to \textsf{ec} with the final release after +another round of bug fixing. I hope to make the transition from \textsf{dc} +to \textsf{ec} in about one year. The text companion fonts have the prefix +\textsf{tc}, which is not subject to change. However, later releases may +included more characters and therefore have different checksums. No +characters shall be removed from the \textsf{tc} fonts. + +Most of the \textsf{dc} fonts can be generated at any size one wants in the +range from 5pt to 100pt. For each size, a unique name is needed. + +With the release 1.2 of the \textsf{dc} fonts, a new, more precise naming +scheme is in effect. Since there are widely used operating sytems limiting +the file name to 8 character (plus an extension of 3 characters) the +following scheme is used: + +\begin{itemize} +\item The first two letters (either \texttt{dc} or \texttt{tc} denote + the encoding and the general design of the font. +\item The one or two following letters denotes the family, shape, and + series attributes of the font. E.\,g. \texttt{r} for roman, + \texttt{bx} for bold extended, \texttt{it} for italic, ot + \texttt{bi} for bold extended italic. A complete overview is given at + the end of this section. +\item The following four digits give the design size in \TeX's points + multiplied with 100. E.\,g. \texttt{1000} denotes ten point, + \texttt{1440} denotes magstep 2, i.\,e. 14.4 point, and + \texttt{0500} denotes five point. +\end{itemize} + +Here are the implemented styles: + +\textbf{Roman family:} \texttt{r} roman, \texttt{b} bold, \texttt{bx} bold +extended, \texttt{sl} slanted, \texttt{bl} bold extended slanted, +\texttt{cc} caps and small caps, +\texttt{ti} (text) italic, \texttt{bi} bold extended italic, \texttt{u} unslanted +italic, \texttt{ci} classical serif italic (new design). + +\textbf{Sans serif family:} \texttt{ss} sans serif, \texttt{si} sans serif +inclined (slanted), \texttt{sx} sans serif bold extended, +\texttt{so} sans serif bold extended oblique (slanted). + +\textbf{Typewriter family:} \texttt{tt} typewriter, \texttt{tc} typewriter +caps and small caps, \texttt{st} slanted typewriter, +\texttt{it} italic typewriter, \texttt{vt} variable width typewriter. + +\textbf{Various other fonts:} \texttt{bm} variant bold roman, +\texttt{dh} dunhill, \texttt{fb} Fibonacci parameters, \texttt{ff} funny, +\texttt{fi} funny italic. Expect errors with the funny fonts, they aren't +really worked out. + + +Here are some examples:\\ +\begin{tabular}{lp{.6\linewidth}} +\texttt{dcr1000} & European computer modern roman at 10pt\\ +\texttt{tcr1000} & Text companion symbols roman at 10pt\\ +\texttt{dcss1728} & European computer modern sans serif at 17.28pt\\ +\texttt{dcbx0900} & European computer modern roman bold extended at 9pt +\end{tabular}\\[18pt] +Some remaining fonts come at one size only, those are\\ +\begin{tabular}{lp{.6\linewidth}} +\texttt{dcssdc10} & sans serif demi-bold condensed\\ +\texttt{dcsq8} & sans serif quotation\\ +\texttt{dcqi8} & sans serif quotation inclined\\ +\texttt{dclq8} & latex sans serif quotation \\ +\texttt{dcli8} & latex sans serif quotation inclined\\ +\texttt{idclq8} & invisible latex sans serif quotation \\ +\texttt{idcli8} & invisible latex sans serif quotation inclined. +\end{tabular}\\ +The last four fonts are for the \textsf{slides} document class, which +replaces old \textsc{Sli}\TeX. They contain a special version of the capital +letter `I'. +\appendix + +\section{The Cork Encoding} +\begin{tabbing} +position \= glyph \= base double straight quotes\kill +position \> glyph \> description \\ +(octal) \> \> \\ +\rule{\linewidth}{.4pt}\>\\ +Accents for lowercase letters\>\\ +\rule{\linewidth}{.4pt}\>\\ +000 \>\DCCHAR{000} \> grave \\ +001 \>\DCCHAR{001} \> acute \\ +002 \>\DCCHAR{002} \> circumflex\\ +003 \>\DCCHAR{003} \> tilde \\ +004 \>\DCCHAR{004} \> umlaut\\ +005 \>\DCCHAR{005} \> hungarian \\ +006 \>\DCCHAR{006} \> ring \\ +007 \>\DCCHAR{007} \> hachek\\ +010 \>\DCCHAR{010} \> breve \\ +011 \>\DCCHAR{011} \> macron\\ +012 \>\DCCHAR{012} \> dot above \\ +013 \>\DCCHAR{013} \> cedilla \\ +014 \>\DCCHAR{014} \> ogonek\\ +\rule{\linewidth}{.4pt}\>\\ +Miscellaneous\>\\ +\rule{\linewidth}{.4pt}\>\\ +015 \>\DCCHAR{015} \> single base quote \\ +016 \>\DCCHAR{016} \> single opening guillemet \\ +017 \>\DCCHAR{017} \> single closing guillemet \\ +020 \>\DCCHAR{020} \> english opening quotes \\ +021 \>\DCCHAR{021} \> english closing quotes \\ +022 \>\DCCHAR{022} \> base quotes \\ +023 \>\DCCHAR{023} \> opening guillemets \\ +024 \>\DCCHAR{024} \> closing guillemets \\ +025 \>\DCCHAR{025} \> en dash \\ +026 \>\DCCHAR{026} \> em dash \\ +027 \>\DCCHAR{027} \> compound word mark (invisible)\\ +030 \>\DCCHAR{030} \> perthousandzero\\ +031 \>\DCCHAR{031} \> dotless i\\ +032 \>\DCCHAR{032} \> dotless j\\ +033 \>\DCCHAR{033} \> ligature ff\\ +034 \>\DCCHAR{034} \> ligature fi\\ +035 \>\DCCHAR{035} \> ligature fl\\ +036 \>\DCCHAR{036} \> ligature ffi\\ +037 \>\DCCHAR{037} \> ligature ffl\\ +040 \>\DCCHAR{040} \> visible space\\ +\rule{\linewidth}{.4pt}\>\\ +ASCII\>\\ +\rule{\linewidth}{.4pt}\>\\ +041 \>\DCCHAR{041} \> exclamation mark\\ +042 \>\DCCHAR{042} \> straight quotes\\ +043 \>\DCCHAR{043} \> hash mark\\ +044 \>\DCCHAR{044} \> dollar sign\\ +045 \>\DCCHAR{045} \> percent sign\\ +046 \>\DCCHAR{046} \> ampersand\\ +047 \>\DCCHAR{047} \> apostrophe\\ +050 \>\DCCHAR{050} \> opening parentheses\\ +051 \>\DCCHAR{051} \> closing parentheses\\ +052 \>\DCCHAR{052} \> asterisk\\ +053 \>\DCCHAR{053} \> plus sign\\ +054 \>\DCCHAR{054} \> comma\\ +055 \>\DCCHAR{055} \> hyphen (note: not minus sign)\\ +056 \>\DCCHAR{056} \> full stop\\ +057 \>\DCCHAR{057} \> solidus\\ +060 \>\DCCHAR{060} \> digit 0\\ +\dots\> \\ +071 \>\DCCHAR{071} \> digit 9\\ +072 \>\DCCHAR{072} \> colon\\ +073 \>\DCCHAR{073} \> semicolon\\ +074 \>\DCCHAR{074} \> less than sign\\ +075 \>\DCCHAR{075} \> equals sign\\ +076 \>\DCCHAR{076} \> greater than sign\\ +077 \>\DCCHAR{077} \> question mark\\ +100 \>\DCCHAR{100} \> commercial at\\ +101 \>\DCCHAR{101} \> capital letter A\\ +\dots\>\\ +132 \>\DCCHAR{132} \> capital letter Z\\ +133 \>\DCCHAR{133} \> opening square bracket\\ +134 \>\DCCHAR{134} \> backslash\\ +135 \>\DCCHAR{135} \> closing square bracket\\ +136 \>\DCCHAR{136} \> ASCII circumflex\\ +137 \>\DCCHAR{137} \> underscore\\ +140 \>\DCCHAR{140} \> opening quote (not ASCII grave!)\\ +141 \>\DCCHAR{141} \> lowercase letter a\\ +\dots\>\\ +172 \>\DCCHAR{172} \> lowercase letter z\\ +173 \>\DCCHAR{173} \> opening curly brace\\ +174 \>\DCCHAR{174} \> vertical bar\\ +175 \>\DCCHAR{175} \> closing curly brace\\ +176 \>\DCCHAR{176} \> ASCII tilde\\ +177 \>\DCCHAR{177} \> hyphenchar (hanging)\\ +\rule{\linewidth}{.4pt}\>\\ +Letters for eastern european languages (from latin-2)\>\\ +\rule{\linewidth}{.4pt}\>\\ +200 \>\DCCHAR{200} \> capital letter A with breve\\ +201 \>\DCCHAR{201} \> capital letter A with ogonek\\ +202 \>\DCCHAR{202} \> capital letter C with acute\\ +203 \>\DCCHAR{203} \> capital letter C with hachek\\ +204 \>\DCCHAR{204} \> capital letter D with hachek\\ +205 \>\DCCHAR{205} \> capital letter E with hachek\\ +206 \>\DCCHAR{206} \> capital letter E with ogonek\\ +207 \>\DCCHAR{207} \> capital letter G with breve\\ +210 \>\DCCHAR{210} \> capital letter L with acute\\ +211 \>\DCCHAR{211} \> capital letter L with hachek\\ +212 \>\DCCHAR{212} \> capital letter crossed L\\ +213 \>\DCCHAR{213} \> capital letter N with acute\\ +214 \>\DCCHAR{214} \> capital letter N with hachek\\ +215 \>\DCCHAR{215} \> capital letter Eng\\ +216 \>\DCCHAR{216} \> capital letter O with hungarian double acute\\ +217 \>\DCCHAR{217} \> capital letter R with acute\\ +220 \>\DCCHAR{220} \> capital letter R with hachek\\ +221 \>\DCCHAR{221} \> capital letter S with acute\\ +222 \>\DCCHAR{222} \> capital letter S with hachek\\ +223 \>\DCCHAR{223} \> capital letter S with cedilla\\ +224 \>\DCCHAR{224} \> capital letter T with hachek\\ +225 \>\DCCHAR{225} \> capital letter T with cedilla\\ +226 \>\DCCHAR{226} \> capital letter U with hungarian double acute\\ +227 \>\DCCHAR{227} \> capital letter U with ring\\ +230 \>\DCCHAR{230} \> capital letter Y with diaeresis\\ +231 \>\DCCHAR{231} \> capital letter Z with acute\\ +232 \>\DCCHAR{232} \> capital letter Z with hachek\\ +233 \>\DCCHAR{233} \> capital letter Z with dot\\ +234 \>\DCCHAR{234} \> capital letter IJ\\ +235 \>\DCCHAR{235} \> capital letter I with dot\\ +236 \>\DCCHAR{236} \> lowercase letter d with bar\\ +237 \>\DCCHAR{237} \> section sign\\ +240 \>\DCCHAR{240} \> lowercase letter a with breve\\ +241 \>\DCCHAR{241} \> lowercase letter a with ogonek\\ +242 \>\DCCHAR{242} \> lowercase letter c with acute\\ +243 \>\DCCHAR{243} \> lowercase letter c with hachek\\ +244 \>\DCCHAR{244} \> lowercase letter d with hachek\\ +245 \>\DCCHAR{245} \> lowercase letter e with hachek\\ +246 \>\DCCHAR{246} \> lowercase letter e with ogonek\\ +247 \>\DCCHAR{247} \> lowercase letter g with breve\\ +250 \>\DCCHAR{250} \> lowercase letter l with acute\\ +251 \>\DCCHAR{251} \> lowercase letter l with hachek\\ +252 \>\DCCHAR{252} \> lowercase letter crossed l\\ +253 \>\DCCHAR{253} \> lowercase letter n with acute\\ +254 \>\DCCHAR{254} \> lowercase letter n with hachek\\ +255 \>\DCCHAR{255} \> lowercase letter eng\\ +256 \>\DCCHAR{256} \> lowercase letter o with hungarian double acute\\ +257 \>\DCCHAR{257} \> lowercase letter r with acute\\ +260 \>\DCCHAR{260} \> lowercase letter r with hachek\\ +261 \>\DCCHAR{261} \> lowercase letter s with acute\\ +262 \>\DCCHAR{262} \> lowercase letter s with hachek\\ +263 \>\DCCHAR{263} \> lowercase letter s with cedilla\\ +264 \>\DCCHAR{264} \> lowercase letter t with hachek\\ +265 \>\DCCHAR{265} \> lowercase letter t with cedilla\\ +266 \>\DCCHAR{266} \> lowercase letter u with hungarain double acute\\ +267 \>\DCCHAR{267} \> lowercase letter u with ring\\ +270 \>\DCCHAR{270} \> lowercase letter y with diaeresis\\ +271 \>\DCCHAR{271} \> lowercase letter z with acute\\ +272 \>\DCCHAR{272} \> lowercase letter z with hachek\\ +273 \>\DCCHAR{273} \> lowercase letter z with dot\\ +274 \>\DCCHAR{274} \> lowercase letter ij\\ +275 \>\DCCHAR{275} \> spanish inverted exclamation mark\\ +276 \>\DCCHAR{276} \> spanish inverted question mark\\ +277 \>\DCCHAR{277} \> pound sign\\ +\rule{\linewidth}{.4pt}\>\\ +Letters for western european languages (from latin-1)\>\\ +\rule{\linewidth}{.4pt}\>\\ +300 \>\DCCHAR{300} \> capital letter A with grave\\ +301 \>\DCCHAR{301} \> capital letter A with acute\\ +302 \>\DCCHAR{302} \> capital letter A with circumflex\\ +303 \>\DCCHAR{303} \> capital letter A with tilde\\ +304 \>\DCCHAR{304} \> capital letter A with diaeresis\\ +305 \>\DCCHAR{305} \> capital letter A with ring\\ +306 \>\DCCHAR{306} \> capital letter AE\\ +307 \>\DCCHAR{307} \> capital letter C with cedilla\\ +310 \>\DCCHAR{310} \> capital letter E with grave\\ +311 \>\DCCHAR{311} \> capital letter E with acute\\ +312 \>\DCCHAR{312} \> capital letter E with circumflex\\ +313 \>\DCCHAR{313} \> capital letter E with diaeresis\\ +314 \>\DCCHAR{314} \> capital letter I with grave\\ +315 \>\DCCHAR{315} \> capital letter I with acute\\ +316 \>\DCCHAR{316} \> capital letter I with circumflex\\ +317 \>\DCCHAR{317} \> capital letter I with diaeresis\\ +320 \>\DCCHAR{320} \> capital letter Eth (D with bar)\\ +321 \>\DCCHAR{321} \> capital letter N with tilde\\ +322 \>\DCCHAR{322} \> capital letter O with grave\\ +323 \>\DCCHAR{323} \> capital letter O with acute\\ +324 \>\DCCHAR{324} \> capital letter O with circumflex\\ +325 \>\DCCHAR{325} \> capital letter O with tilde\\ +326 \>\DCCHAR{326} \> capital letter O with diaeresis\\ +327 \>\DCCHAR{327} \> capital letter OE\\ +330 \>\DCCHAR{330} \> capital letter O with slash\\ +331 \>\DCCHAR{331} \> capital letter U with grave\\ +332 \>\DCCHAR{332} \> capital letter U with acute\\ +333 \>\DCCHAR{333} \> capital letter U with circumflex\\ +334 \>\DCCHAR{334} \> capital letter U with diaeresis\\ +335 \>\DCCHAR{335} \> capital letter Y with acute\\ +336 \>\DCCHAR{336} \> capital letter Thorn\\ +337 \>\DCCHAR{337} \> capital letter Sharp S (deviating from latin-1)\\ +340 \>\DCCHAR{340} \> lowercase letter a with grave\\ +341 \>\DCCHAR{341} \> lowercase letter a with acute\\ +342 \>\DCCHAR{342} \> lowercase letter a with circumflex\\ +343 \>\DCCHAR{343} \> lowercase letter a with tilde\\ +344 \>\DCCHAR{344} \> lowercase letter a with diaeresis\\ +345 \>\DCCHAR{345} \> lowercase letter a with ring\\ +346 \>\DCCHAR{346} \> lowercase letter ae\\ +347 \>\DCCHAR{347} \> lowercase letter c with cedilla\\ +350 \>\DCCHAR{350} \> lowercase letter e with grave\\ +351 \>\DCCHAR{351} \> lowercase letter e with acute\\ +352 \>\DCCHAR{352} \> lowercase letter e with circumflex\\ +353 \>\DCCHAR{353} \> lowercase letter e with diaeresis\\ +354 \>\DCCHAR{354} \> lowercase letter i with grave\\ +355 \>\DCCHAR{355} \> lowercase letter i with acute\\ +356 \>\DCCHAR{356} \> lowercase letter i with circumflex\\ +357 \>\DCCHAR{357} \> lowercase letter i with diaeresis\\ +360 \>\DCCHAR{360} \> lowercase letter edh\\ +361 \>\DCCHAR{361} \> lowercase letter n with tilde\\ +362 \>\DCCHAR{362} \> lowercase letter o with grave\\ +363 \>\DCCHAR{363} \> lowercase letter o with acute\\ +364 \>\DCCHAR{364} \> lowercase letter o with circumflex\\ +365 \>\DCCHAR{365} \> lowercase letter o with tilde\\ +366 \>\DCCHAR{366} \> lowercase letter o with diaeresis\\ +367 \>\DCCHAR{367} \> lowercase letter oe\\ +370 \>\DCCHAR{370} \> lowercase letter o with slash\\ +371 \>\DCCHAR{371} \> lowercase letter u with grave\\ +372 \>\DCCHAR{372} \> lowercase letter u with acute\\ +373 \>\DCCHAR{373} \> lowercase letter u with circumflex\\ +374 \>\DCCHAR{374} \> lowercase letter u with diaeresis\\ +375 \>\DCCHAR{375} \> lowercase letter y with acute\\ +376 \>\DCCHAR{376} \> lowercase letter thorn\\ +377 \>\DCCHAR{377} \> lowercase letter sharp s (deviating from latin-1) +\end{tabbing} + +\section{The Text Companion Encoding} + +\begin{tabbing} +positionxx \= glyphxxxxx\=base double straight quotes\kill +position \> glyph\>description \\ +(octal) \> \\ +\rule{\linewidth}{.4pt}\>\\ +Accents for capital letters\>\\ +\rule{\linewidth}{.4pt}\>\\ +000 \>\TCCHAR{000} \> grave \\ +001 \>\TCCHAR{001} \> acute \\ +002 \>\TCCHAR{002} \> circumflex\\ +003 \>\TCCHAR{003} \> tilde \\ +004 \>\TCCHAR{004} \> umlaut\\ +005 \>\TCCHAR{005} \> hungarian \\ +006 \>\TCCHAR{006} \> ring \\ +007 \>\TCCHAR{007} \> hachek\\ +010 \>\TCCHAR{010} \> breve \\ +011 \>\TCCHAR{011} \> macron\\ +012 \>\TCCHAR{012} \> dot above \\ +013 \>\TCCHAR{013} \> cedilla \\ +014 \>\TCCHAR{014} \> ogonek\\ +\rule{\linewidth}{.4pt}\>\\ +Miscellaneous\>\\ +\rule{\linewidth}{.4pt}\>\\ +015 \>\TCCHAR{015} \> base single straight quote\\ +022 \>\TCCHAR{022} \> base double straight quotes\\ +025 \>\TCCHAR{025} \> twelve u dash \\ +026 \>\TCCHAR{026} \> three quarters emdash\\ +030 \>\TCCHAR{030} \> left pointing arrow \\ +031 \>\TCCHAR{031} \> right pointing arrow \\ +032 \>\TCCHAR{032} \> tie accent (lowercase)\\ +033 \>\TCCHAR{033} \> tie accent (capital) \\ +040 \>\TCCHAR{040} \> blank symbol \\ +044 \>\TCCHAR{044} \> dollar sign\\ +047 \>\TCCHAR{047} \> straight quote \\ +052 \>\TCCHAR{052} \> centered star \\ +057 \>\TCCHAR{057} \> fraction \\ +\rule{\linewidth}{.4pt}\>\\* +Oldstyle digits \>\\* +\rule{\linewidth}{.4pt}\>\\* +060 \>\TCCHAR{060} \> oldstyle digit 0 \\ +061 \>\TCCHAR{061} \> oldstyle digit 1 \\ +062 \>\TCCHAR{062} \> oldstyle digit 2 \\ +063 \>\TCCHAR{063} \> oldstyle digit 3 \\ +064 \>\TCCHAR{064} \> oldstyle digit 4 \\ +065 \>\TCCHAR{065} \> oldstyle digit 5 \\ +066 \>\TCCHAR{066} \> oldstyle digit 6 \\ +067 \>\TCCHAR{067} \> oldstyle digit 7 \\* +070 \>\TCCHAR{070} \> oldstyle digit 8 \\* +071 \>\TCCHAR{071} \> oldstyle digit 9 \\ +\rule{\linewidth}{.4pt}\>\\ +Miscellaneous\>\\ +\rule{\linewidth}{.4pt}\>\\ +115 \>\TCCHAR{115} \> mho sign \\ +117 \>\TCCHAR{117} \> big circle \\ +127 \>\TCCHAR{127} \> ohm sign \\ +136 \>\TCCHAR{136} \> arrow up \\ +137 \>\TCCHAR{137} \> arrow down \\ +140 \>\TCCHAR{140} \> backtick (ASCII grave) \\ +142 \>\TCCHAR{142} \> born \\ +144 \>\TCCHAR{144} \> died \\ +154 \>\TCCHAR{154} \> leaf \\ +155 \>\TCCHAR{155} \> married \\ +156 \>\TCCHAR{156} \> musical note\\ +176 \>\TCCHAR{176} \> low tilde \\ +177 \>\TCCHAR{177} \> short equals\\ +\rule{\linewidth}{.4pt}\>\\ +TS1-symbols \>\\ +\rule{\linewidth}{.4pt}\>\\ +200 \>\TCCHAR{200} \> ASCII-style breve \\ +201 \>\TCCHAR{201} \> ASCII-style hachek\\ +202 \>\TCCHAR{202} \> double tick (ASCII double acute) \\ +203 \>\TCCHAR{203} \> double backtick \\ +204 \>\TCCHAR{204} \> dagger \\ +205 \>\TCCHAR{205} \> ddager \\ +206 \>\TCCHAR{206} \> double vert \\ +207 \>\TCCHAR{207} \> perthousand\\ +210 \>\TCCHAR{210} \> bullet \\ +211 \>\TCCHAR{211} \> centigrade \\ +212 \>\TCCHAR{212} \> dollaroldstyle\\ +213 \>\TCCHAR{213} \> centoldstyle\\ +214 \>\TCCHAR{214} \> florin \\ +215 \>\TCCHAR{215} \> colon \\ +216 \>\TCCHAR{216} \> won \\ +217 \>\TCCHAR{217} \> naira \\ +220 \>\TCCHAR{220} \> guarani \\ +221 \>\TCCHAR{221} \> peso \\ +222 \>\TCCHAR{222} \> lira \\ +223 \>\TCCHAR{223} \> recipe \\ +224 \>\TCCHAR{224} \> interrobang \\ +225 \>\TCCHAR{225} \> gnaborretni \\ +226 \>\TCCHAR{226} \> dong sign \\ % vietnamese currency +227 \>\TCCHAR{227} \> trademark \\ +\rule{\linewidth}{.4pt}\>\\* +Symbols from ISO-8859-1 (latin-1)\>\\* +\rule{\linewidth}{.4pt}\>\\* +242 \>\TCCHAR{242} \> cent \\* +243 \>\TCCHAR{243} \> sterling \\ +244 \>\TCCHAR{244} \> currency sign \\ +245 \>\TCCHAR{245} \> yen \\ +246 \>\TCCHAR{246} \> broken vertical bar \\ +247 \>\TCCHAR{247} \> section sign \\ +250 \>\TCCHAR{250} \> high dieresis\\ +251 \>\TCCHAR{251} \> copyright \\ +252 \>\TCCHAR{252} \> feminine ordinal indicator \\ +254 \>\TCCHAR{254} \> logical not \\ +256 \>\TCCHAR{256} \> circled R \\ +257 \>\TCCHAR{257} \> macron\\ +260 \>\TCCHAR{260} \> degree sign \\ +261 \>\TCCHAR{261} \> plus-minus sign \\ +262 \>\TCCHAR{262} \> superscript 2 \\ +263 \>\TCCHAR{263} \> superscript 3 \\ +264 \>\TCCHAR{264} \> tick (ASCII-style acute) \\ +265 \>\TCCHAR{265} \> micro sign \\ +266 \>\TCCHAR{266} \> pilcrow sign \\ +267 \>\TCCHAR{267} \> centered dot \\ +271 \>\TCCHAR{271} \> superscript 1\\ +272 \>\TCCHAR{272} \> masculine ordinal indicator\\ +274 \>\TCCHAR{274} \> fraction one quarter\\ +275 \>\TCCHAR{275} \> fraction one half \\ +276 \>\TCCHAR{276} \> fraction three quarters\\ +326 \>\TCCHAR{326} \> multiplication sign (times) \\ +366 \>\TCCHAR{366} \> division sign \\ +\rule{\linewidth}{.4pt}\>\\ +\end{tabbing} +\end{Article} + +\section*{Editor's note} +Users of PostScript fonts (like \BV) will want to know how many of the +Text Companion symbols are available to them. The following table +shows those that can be easily derived from Monotype Baskerville, and its +Expert set, with the corresponding PostScript names. Some others could be +`faked' in the virtual font; a \LaTeX\ package which provides simple +access to these symbols, and redefines existing macros to remove +dependence on maths fonts, is under preparation by Sebastian Rahtz. + +\begin{center} +\begin{tabular}{|ll|ll|ll|ll|} +\hline +quotesinglbase & \textquotesinglbase & +quotedblbase & \textquotedblbase & +threequartersemdash & \textthreequartersemdash & +dollar & \textdollar \\ +quotesingle & \textquotesingle & +fraction & \textfraction & +zerooldstyle & \textzerooldstyle & +oneoldstyle & \textoneoldstyle\\ +twooldstyle & \texttwooldstyle & +threeoldstyle & \textthreeoldstyle & +fouroldstyle & \textfouroldstyle & +fiveoldstyle & \textfiveoldstyle \\ +sixoldstyle & \textsixoldstyle & +sevenoldstyle & \textsevenoldstyle & +eightoldstyle & \texteightoldstyle & +nineoldstyle & \textnineoldstyle\\ +asciitilde & \textasciitilde & +quotedbl & \textquotedbl & +dagger & \textdagger & +daggerdbl & \textdaggerdbl \\ +perthousand & \textperthousand & +bullet & \textbullet & +dollaroldstyle & \textdollaroldstyle & +centoldstyle & \textcentoldstyle \\ +florin & \textflorin & +colonmonetary & \textcolonmonetary & +trademark & \texttrademark & +cent & \textcent \\ +sterling & \textsterling & +currency & \textcurrency & +yen & \textyen & +brokenbar & \textbrokenbar \\ +section & \textsection & +copyright & \textcopyright & +ordfeminine & \textordfeminine & +logicalnot & \textlogicalnot \\ +registered & \textregistered & +macron & \textmacron & +degree & \textdegree & +plusminus & \textplusminus \\ +twosuperior & \texttwosuperior & +threesuperior & \textthreesuperior & +mu & \textmu & +paragraph & \textparagraph \\ +periodcentered & \textperiodcentered & +onesuperior & \textonesuperior & +ordmasculine & \textordmasculine & +onequarter & \textonequarter \\ +onehalf & \textonehalf & +threequarters & \textthreequarters & +multiply & \textmultiply & +divide & \textdivide\\ +\hline +\end{tabular} +\end{center} diff --git a/usergrps/uktug/baskervi/5_5/txaccent.mf b/usergrps/uktug/baskervi/5_5/txaccent.mf new file mode 100644 index 0000000000..c33c62017e --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txaccent.mf @@ -0,0 +1,159 @@ +% txaccent.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Version 1.0 +% 31-AUG-1995 +% +% Content: +% +% Accents for capital letters + + +% A dirty trick, better left unseen. |cap_height| and |cap_height#| +% are restored at the end of this file. + +numeric saved_cap_height; saved_cap_height=cap_height; +cap_height:=hi.x_height; +numeric saved_cap_height#; saved_cap_height#=cap_height#; +cap_height#:=hi.x_height#; + +dcchar"Grave accent"; +beginchar(oct"0",9u#,x_height#,0); % |put_gravis| changes the height +adjust_fit(0,0); +put_gravis; +endchar; + + +dcchar"Acute accent"; % using acute from plfonts +beginchar(oct"1",9u#,x_height#,0); % |put_accent| changes the height +italcorr h#*slant-if serifs: 1.5 fi u#; +adjust_fit(0,0); +put_accent; +endchar; + +dcchar"Circumflex (hat) accent"; +beginchar(oct"002",9u#,cap_accent_height#,0); +if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#; +else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#; +fi +adjust_fit(0,0); +uppercase_hat(.5w,0,1,2,3,4,5); +penlabels(1,2,3,4,5); endchar; + +dcchar"Tilde (squiggle) accent"; +beginchar(oct"003",7u#,cap_accent_height#,0); +italcorr h#*slant-u#; +adjust_fit(0,0); +uppercase_tilde(0,0,1,2,3,4,5); +penlabels(1,2,3,4,5); endchar; + +dcchar"Umlaut (double dot) accent"; +beginchar(oct"004",9u#,cap_accent_height#,0); +adjust_fit(0,0); +uppercase_umlaut(0,0,1,2,3,4); +penlabels(1,2,3,4); +endchar; + +dcchar"Double acute accent (Long Hungarian umlaut accent)"; +beginchar(oct"005",9u#,min(asc_height#,2x_height#),0); +italcorr h#*slant-u#; +adjust_fit(0,0); +if monospace: hpos_corr=-2u; put_accent; hpos_corr=2u; put_accent; +else: hpos_corr=-1.5u; put_accent; hpos_corr=1.5u; put_accent; fi +endchar; + +dcchar"Scandinavian circle accent"; +beginchar(oct"006",13u#+.5width_adj#,cap_accent_height#,0); +adjust_fit(cap_serif_fit#,cap_serif_fit#); +y[-1]= cap_height+if hefty: .5 fi accent_gap; +uppercase_circle(.5w,y[-1],1,2,3,4); +penlabels(1,2,3,4); endchar; + +dcchar"Hachek (check) accent"; +beginchar(oct"007",9u#,uc_acc_height#,0); +adjust_fit(0,0); +uc_hachek_accent(.5w); +endchar; + +dcchar"Breve accent"; +beginchar(oct"10",9u#,cap_accent_height#,0); +italcorr h#*slant+.5vair#-1.5u#; +adjust_fit(0,0); +uppercase_breve(.5w,0,1,2,3); +penlabels(1,2,3); endchar; + +dcchar"Macron (bar) accent"; +numeric macron_breadth#; macron_breadth#=.2[vair#,stem#]; +beginchar(oct"011",9u#,cap_accent_height#,0); +italcorr h#*slant-.75u#; +adjust_fit(0,0); +numeric macron_breadth; macron_breadth:=Vround .2[vair,stem]; +pickup if serifs: crisp.nib else: fine.nib fi; +pos1(macron_breadth,90); pos2(macron_breadth,90); +top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u; +filldraw stroke z1e--z2e; % bar +penlabels(1,2); endchar; + +dcchar"Dot accent"; +beginchar(oct"012",5u#,x_height#,0); +adjust_fit(0,0); +put_dot(tiny,max(dot_size#,cap_curve#)); +endchar; + +dcchar"Cedilla accent"; +beginchar(oct"013",8u#,0,.875desc_depth#); +adjust_fit(0,0); +uppercase_cedilla(.5w,0,1,2,3,4,5); +penlabels(1,2,3,4,5); endchar; + +dcchar"Ogonek"; +beginchar(oct"014",5u#,0,desc_depth#); +italcorr 0; +adjust_fit(0,0); +ogon_one := 1; +ogon_two := 2; +ogon_three := 3; +if serifs: + x[ogon_one]r=0.7w; + %+outer_jut; +else: + x[ogon_one]r=0.6w; +fi + pickup crisp.nib; + pos[ogon_one]( + if 0.9vair>currentbreadth: 0.9vair else: currentbreadth+eps fi,-60); + pos[ogon_two](stem,0); + pos[ogon_three](vair,145); + x[ogon_two]=x[ogon_one]-2.5u if monospace: /expansion_factor fi ; + x[ogon_three]=x[ogon_one]+0.5u if monospace: /expansion_factor fi; + bot y[ogon_one]r = 0; + bot y[ogon_three]=0.5(-d-o); %0.4 + bot y[ogon_two]=0.5(-d-o); + filldraw stroke z[ogon_one]e{dir 225}... + z[ogon_two]e{dir -110}...{dir 60}z[ogon_three]e; % hook +penlabels(1,2,3); endchar; + +dcchar"Tie accent"; +beginchar(oct"033",max(6u#,4u#+cap_stem#),uc_acc_height#,0); % same width as `I' +italcorr 4/9[x_height#,uc_acc_height#]*slant+5u#+2letter_fit#+.5hair#; +adjust_fit(if monospace:2u#,2u# else:serif_fit#,serif_fit# fi); +pickup fine.nib; pos1(hair,180); pos2(vround 1/5[vair,stem],90); +pos3(hair,0); +lft x1r=hround(.5w-.5hair); x2=.5[x1,x3]; +rt x3r=hround(w+4.5u+2letter_fit+.5hair); +y1=y3=cap_height + if hefty: .5 fi accent_gap; top y2r=cap_height+acc_height; +filldraw stroke super_arc.e(1,2) & super_arc.e(2,3); % arc +penlabels(1,2,3); endchar; + +% Restore original values of |cap_height| and |cap_height#| +cap_height:=saved_cap_height; numeric saved_cap_height; +cap_height#:=saved_cap_height#; numeric saved_cap_height#; +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txgen.mf b/usergrps/uktug/baskervi/5_5/txgen.mf new file mode 100644 index 0000000000..25cb475d24 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txgen.mf @@ -0,0 +1,109 @@ +% txgen.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% was originally |gen.mf| by DEK +% changed |cmchar| to |dcchar| +% moved divorced symbol to position "c" (was "1") +% +% characters for Jill's genealogy publications + +dcchar "Cross (death symbol)"; +beginchar("d",9u#,.65[x_height#,asc_height#],.1(asc_height#-x_height#)); +adjust_fit(0,0); pickup tiny.nib; +numeric light_stem; light_stem=Vround .5[vair,stem]; +pos1(stem,0); pos2(.4[hair,stem],0); pos3(stem,0); +%pos4(stem,90); pos5(.5[vair,stem],90); pos6(stem,90); +pos4(light_stem,90); pos5(.5[vair,light_stem],90); pos6(light_stem,90); +x1=x2=x3=.5w; top y1=h; bot y3=-d; y2=y4r; +y4=y5=y6; y4l=good.y .6[-d,h]; x4=good.x u; x6=r-x4; x5=x2; +filldraw z1l...z2l{down}...z3l--z3r...z2r{up}...z1r--cycle; % vertical stroke +filldraw z4l...z5l...z6l--z6r...z5r...z4r--cycle; % horizontal stroke +penlabels(1,2,3,4,5,6); endchar; + +dcchar "Rings (marriage symbol)"; +beginchar("m",9u#,v_center(x_height#)); +adjust_fit(0,0); pickup tiny.nib; +numeric light_stem; light_stem=Vround .5[vair,stem]; +pos1(light_stem,90); pos3(light_stem,-90); +pos2(light_stem,180); pos4(.3[hair,light_stem],0); +x1=x3=.5[x2,x4]; lft x2r=hround(-u-.5light_stem); rt x4r=hround(.6w+.5stem); +%top y1r=vround(h+.5light_stem); y2=y4=.5[y1,y3]; +%bot y3r=vround(-d-.5light_stem); +top y1r=h; y2=y4=.5[y1,y3]; +bot y3r=-d; +pos5(light_stem,90); pos7(light_stem,-90); +pos6(.3[hair,light_stem],180); pos8(light_stem,0); +x5-x1=x6-x2=x7-x3=x8-x4; rt x8r=hround(w+u+.5light_stem); +y5-y1=y6-y2=y7-y3=y8-y4=0; +filldraw stroke pulled_arc.e(1,2)&pulled_arc.e(2,3)&pulled_arc.e(3,4) + &pulled_arc.e(4,1); % left ring +filldraw stroke pulled_arc.e(5,6)&pulled_arc.e(6,7)&pulled_arc.e(7,8) + &pulled_arc.e(8,5); % right ring +penlabels(1,2,3,4,5,6,7,8); endchar; + +dcchar "Five-pointed star (birth symbol)"; +beginchar("b",9u#,v_center(x_height#)); +adjust_fit(0,0); pickup tiny.nib; +numeric theta; theta=360/5; % degrees between points +pos0(curve,0); pos1(rule_thickness,90); x0=x1=good.x .5w; +top y1r=vround(math_axis+.5x_height+.5rule_thickness); +ypart(.5[z1,z0+(z1-z2) rotated 2theta])=math_axis; +pos2(curve,theta); pos3(rule_thickness,90+theta); +z2=z0; z3-z0=(z1-z0) rotated theta; +z4=whatever[z0l,z1r]=whatever[z2r,z3r]; +filldraw for n=0 upto 4: + z0+(z1r-z0)rotated(n*theta)--z0+(z4-z0)rotated(n*theta)--endfor + cycle; % star +penlabels(0,1,2,3,4); endchar; + +dcchar "Divided rings (divorce symbol)"; +beginchar("c",9u#,v_center(x_height#)); +adjust_fit(0,0); pickup tiny.nib; +numeric light_stem; light_stem=Vround .5[vair,stem]; +pos11(stem,0); pos12(.4[hair,stem],0); pos13(stem,0); +x11=x12=x13=.5w; top y11=round 1.3h; bot y13=round(-d-.3h); y12=.6[y13,y11]; +filldraw z11l...z12l{down}...z13l + --z13r...z12r{up}...z11r--cycle; % vertical stroke +pos1(light_stem,90); pos3(light_stem,-90); +pos2(light_stem,180); pos4(.3[hair,light_stem],0); +x1=x3=.5[x2,x4]; lft x2r=hround(-3u-.5light_stem); rt x4r=hround(.25w+.5stem); +top y1r=h; y2=y4=.5[y1,y3]; +bot y3r=-d; +pos5(light_stem,90); pos7(light_stem,-90); +pos6(.3[hair,light_stem],180); pos8(light_stem,0); +x5-x1=x6-x2=x7-x3=x8-x4; rt x8r=hround(w+3u+.5light_stem); +y5-y1=y6-y2=y7-y3=y8-y4=0; +filldraw stroke pulled_arc.e(1,2)&pulled_arc.e(2,3)&pulled_arc.e(3,4) + &pulled_arc.e(4,1); % left ring +filldraw stroke pulled_arc.e(5,6)&pulled_arc.e(6,7)&pulled_arc.e(7,8) + &pulled_arc.e(8,5); % right ring +penlabels(1,2,3,4,5,6,7,8,11,12,13); endchar; + +dcchar "Leaf"; +beginchar("l",18u#,asc_height#,0); +adjust_fit(0,0); pickup pencircle scaled .6rule_thickness; +z1=(0,0); z2=(w,h); +z3=.5[z1,z2]+.25((z2-z1)rotated 90); +z4=.5[z1,z2]+.25((z2-z1)rotated-90); +path p[]; p3=z1...z3{z2-z1}...z2; p4=z1...z4{z2-z1}...z2; +draw p3; % upper edge +draw p4; % lower edge +draw z1 -- z2; % stem +z5=1/4[z1,z2]; z6=.55[z1,z2]; +z35=p3 intersectionpoint (z5--(x5,2h)); +z36=p3 intersectionpoint (z6--(x6,2h)); +z45=p4 intersectionpoint (z5--(2w,y5)); +z46=p4 intersectionpoint (z6--(2w,y6)); +draw z35--z5--z45; % vein +draw z36--z6--z46; % vein +labels(1,2,3,4,5,6,35,36,45,46); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txifract.mf b/usergrps/uktug/baskervi/5_5/txifract.mf new file mode 100644 index 0000000000..d0713a71bc --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txifract.mf @@ -0,0 +1,139 @@ +% txifract.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Ready made fractions 1/2, 1/4, 3/4 in italic style + +dcchar"Italic fraction one quarter"; +beginchar(oct"274",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); +top y1=h+apex_o; bot y2=c_height+rule_thickness; +filldraw stroke z1e--z2e; % stem +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+apex_o; top y4l=.8[y2,h]+apex_o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+apex_o+1)--(x3l,h+apex_o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..{left}z4e; % point +penlabels(1,2,3,4); +clearxy; +numeric hh; hh=c_height-2rule_thickness; +pos1(stem,0); pos6(stem,0); pos7(stem,0); +pos2(bar,-45); pos3(bar,-90); pos4(bar,-90); pos5(bar,-45); +rt x1r=hround(.5w+.5u+.5stem); lft x2l=hround .25u; +x3=2.75u; x4=w-2u; rt x5r=hround(w-.25u); +rt x6r=rt x7r=hround(2/3w+.5stem); +y1+.5stem=hh+o; bot y2r=0; bot y3r=vround(.08hh-.5bar); +bot y4r=vround-.5bar; bot y5r=vround(.03hh-.5bar); +y6+.5stem=bar_height; y7-.5stem=-d; +filldraw circ_stroke z1e{down}...{3(x2-x1),y2-y1}z2e; % diagonal +filldraw stroke z2e{z1-z2}...z3e{right}..{right}z4e + ...{x5-x4,2(y5-y4)}z5e; % bar +filldraw z6l---z7l..z7r---z6r..cycle; % stem +penlabels(1,2,3,4,5,6,7); +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +dcchar"Italic fraction one half"; +beginchar(oct"275",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); +top y1=h+apex_o; bot y2=c_height+rule_thickness; +filldraw stroke z1e--z2e; % stem +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+apex_o; top y4l=.8[y2,h]+apex_o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+apex_o+1)--(x3l,h+apex_o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..{left}z4e; % point +penlabels(1,2,3,4); +clearxy; +pickup fine.nib; +numeric hh; hh=c_height-2rule_thickness; +pos1(vair,45); pos2(vair,0); pos3(vair,-90); pos4(hair,-180); +pos5(vair,-270); pos6(curve,-360); pos7(hair,-405); pos8(hair,-360); +x1=x2-.5u; rt x2r=hround(3.5u+.5vair); +x3=.6[x2,x4]; lft x4r=hround(u-.5hair); +x5=x7=.5w-.5u; rt x6r=hround(w-u); lft x8l=hround(1.5u-.5hair); +y1=.5[.5x_height-d,hh]; y2=1/3[y1,y3]; y4=.5x_height-d; +bot y3r=vround .78[-d,y4]; +top y5r=hh+o; y6=.5[y5,y7]; y7=.52[-d,y4]; bot y8=-d-o; +filldraw stroke + if not hefty: z1e{2(x2-x1),y2-y1}...{down}z2e...{left}z3e...fi + z4e{up}...pulled_arc.e(5,6) + ...z7e{2(x7-x6),y7-y6}...{down}z8e; % main stroke +pos9(vair,-90); pos10(vstem+curve-stem,-90); pos11(hair,0); +x9=w-x10=2.5u; rt x11r=hround(w-.5u+.5hair); +y9=.25[y10,y7]; bot y10r=-d-o; y11=.38[-d,.5x_height]; +filldraw stroke z8e{up}...z9e{right}..{right}z10e...{up}z11e; % bar +penlabels(1,2,3,4,5,6,7,8,9,10,11); +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +dcchar"Italic fraction three quarters"; +beginchar(oct"276",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric dd; dd=c_height+rule_thickness; +pickup fine.nib; +pos1(vair,45); pos2(vair,0); pos3(vair,-90); pos4(hair,-180); +pos5(vair,-270); pos6(stem,-360); pos7(bar,-450); pos8(bar,-450); +x1=x2-.5u; rt x2r=hround(3.5u+.5vair); x3=.5[x2,x4]; lft x4r=hround u; +x5=x7=.5w; rt x6r=hround(w-u); x8=x7-u; +y1=.5[x_height,h]; y2=.5[y1,y3]; y7=y8=.52[dd,h]; bot y3r=vround 1/4[y7,h]; +y4=1/3[y3,y5]; top y5r=h+o; y6=.5[y5,y7]; +filldraw stroke if not hefty: +z1e{2(x2-x1),y2-y1}...{down}z2e...{left}z3e...fi + z4e{up}...pulled_arc.e(5,6) & pulled_arc.e(6,7)..z8e; % upper arc +pos7'(vair,90); z7'l=z7r; +pos9(curve,0); pos10(vair,-90); pos11(hair,-180); pos12(flare,-180); +rt x9r=hround(w-u); x10=.5w-.5u; lft x11r=hround .75u; +y9=.25[dd,h]; bot y10r=dd-o; y11=dd+1/3x_height; bulb(10,11,12); % bulb +filldraw stroke pulled_arc.e(7',9) & pulled_arc.e(9,10); % lower arc +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); +clearxy; +numeric hh; hh=c_height-2rule_thickness; +pos1(stem,0); pos6(stem,0); pos7(stem,0); +pos2(bar,-45); pos3(bar,-90); pos4(bar,-90); pos5(bar,-45); +rt x1r=hround(.5w+.5u+.5stem); lft x2l=hround .25u; +x3=2.75u; x4=w-2u; rt x5r=hround(w-.25u); +rt x6r=rt x7r=hround(2/3w+.5stem); +y1+.5stem=hh+o; bot y2r=0; bot y3r=vround(.08hh-.5bar); +bot y4r=vround-.5bar; bot y5r=vround(.03hh-.5bar); +y6+.5stem=bar_height; y7-.5stem=-d; +filldraw circ_stroke z1e{down}...{3(x2-x1),y2-y1}z2e; % diagonal +filldraw stroke z2e{z1-z2}...z3e{right}..{right}z4e + ...{x5-x4,2(y5-y4)}z5e; % bar +filldraw z6l---z7l..z7r---z6r..cycle; % stem +penlabels(1,2,3,4,5,6,7); +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txisuper.mf b/usergrps/uktug/baskervi/5_5/txisuper.mf new file mode 100644 index 0000000000..c0dac5d0d7 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txisuper.mf @@ -0,0 +1,120 @@ +% txisuper.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Superscript digits 1,2,3 in italic style +% Male and female ordinal indicators + +dcchar "Italic superscipt numeral 1"; +beginchar(oct"271",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); pickup tiny.nib; +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); top y1=h+apex_o; +bot y2=.5asc_height; +filldraw stroke z1e--z2e; % stem +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+apex_o; top y4l=.8[bot y2,h]+apex_o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+apex_o+1)--(x3l,h+apex_o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..{left}z4e; % point +penlabels(1,2,3,4); endchar; + + +dcchar "Italic superscript numeral 2"; +beginchar(oct"262",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); pickup fine.nib; +pos1(vair,45); pos2(vair,0); pos3(vair,-90); pos4(hair,-180); +pos5(vair,-270); pos6(curve,-360); pos7(hair,-405); pos8(hair,-360); +x1=x2-.5u; rt x2r=hround(3.5u+.5vair); +x3=.6[x2,x4]; lft x4r=hround(u-.5hair); +x5=x7=.5w-.5u; rt x6r=hround(w-u); lft x8l=hround(1.5u-.5hair); +y1=.5[y4,h]; y2=1/3[y1,y3]; +bot y8=.5asc_height-oo; +y4=.78[bot y8,h]; +bot y3r=vround .78[bot y8,y4]; +top y5r=h+o; y6=.5[y5,y7]; y7=.52[bot y8,y4]; +filldraw stroke if not hefty:z1e{2(x2-x1),y2-y1}...{down}z2e...{left}z3e...fi + z4e{up}...pulled_arc.e(5,6)...z7e{2(x7-x6),y7-y6}...{down}z8e; % main stroke +pos9(vair,-90); pos10(vstem+curve-stem,-90); pos11(hair,0); +x9=w-x10=2.5u; rt x11r=hround(w-.5u+.5hair); +y9=.25[y10,y7]; bot y10r=bot y8; y11=.38[bot y8,y4]; +filldraw stroke z8e{up}...z9e{right}..{right}z10e...{up}z11e; % bar +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + +dcchar "Italic superscript numeral 3"; +beginchar(oct"263",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); pickup fine.nib; +pos1(vair,45); pos2(vair,0); pos3(vair,-90); pos4(hair,-180); +pos5(vair,-270); pos6(stem,-360); pos7(bar,-450); pos8(bar,-450); +x1=x2-.5u; rt x2r=hround(3.5u+.5vair); x3=.5[x2,x4]; lft x4r=hround u; +x5=x7=.5w; rt x6r=hround(w-u); x8=x7-u; +y[-1]=.5asc_height; % dummy point +y1=.5[y[-1]+x_height,h]; y2=.5[y1,y3]; y7=y8=.52[y[-1],h]; +bot y3r=vround 1/4[y7,h]; +y4=1/3[y3,y5]; top y5r=h+o; y6=.5[y5,y7]; +filldraw stroke if not hefty: + z1e{2(x2-x1),y2-y1}...{down}z2e...{left}z3e...fi + z4e{up}...pulled_arc.e(5,6) & pulled_arc.e(6,7)..z8e; % upper arc +pos7'(vair,90); z7'l=z7r; +pos9(curve,0); pos10(vair,-90); pos11(hair,-180); pos12(flare,-180); +rt x9r=hround(w-u); x10=.5w-.5u; lft x11r=hround .75u; +y9=.25[y[-1],h]; bot y10r=y[-1]-o; y11=1/3x_height+y[-1]; +bulb(10,11,12); % bulb +filldraw stroke pulled_arc.e(7',9) & pulled_arc.e(9,10); % lower arc +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; + +dcchar"Italic female ordinal indicator"; +beginchar(oct"252",8u#,body_height#,0); +italcorr .7body_height#*slant; +adjust_fit(0,0); +numeric hh; hh=vround .5body_height; +pickup fine.nib; +pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270); +pos4(stem,0); x4=x0; y4+.5stem=vround .98hh; +x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve); +rt x4r=hround(w-2.5u+.5stem); +top y1r=hh+oo; bot y3r=-oo; y0=y2=.5[y1,y3]; +filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2) + & pulled_arc.e(2,3) & super_arc.e(3,0); % bowl +x5=x4; x7=w; hook_out(5,6,7); % closing hook +filldraw circ_stroke z4e--z5e; % stem +pickup extra_rule.nib; +x14=hround u; x15=hround(w-.5u); +top y14=-rule_thickness; y15=y14; +draw z14--z15; % underline +currentpicture:=currentpicture shifted (0,hh); +penlabels(0,1,2,3,4,5,6,7,14,15); endchar; + +dcchar"Italic male ordinal indicator"; +beginchar(oct"272",8u#,body_height#,0); +numeric hh; hh=vround .5body_height; +italcorr .7body_height#*slant; +adjust_fit(0,0); +pickup fine.nib; +pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(curve,360); +x1=x3=.5w; lft x2r=hround(1.5u-.5curve); x4=w-x2; +top y1r=hh+oo; y2=y4=.5[y1,y3]; bot y3r=-oo; +filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3) + & pulled_arc.e(3,4) & pulled_arc.e(4,1); % bowl +pickup extra_rule.nib; +x5=w-x6=hround u; +top y5=-rule_thickness; y6=y5; +draw z5--z6; % underline +currentpicture:=currentpicture shifted (0,hh); +penlabels(1,2,3,4,5,6); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txmacros.mf b/usergrps/uktug/baskervi/5_5/txmacros.mf new file mode 100644 index 0000000000..224b7f1411 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txmacros.mf @@ -0,0 +1,27 @@ +% txmacros.mf +% +% +% (c) Copyright 1995 J"org Knappen +% (c) Copyright 1990, 1992 Norbert Schwarz +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Version 1.0 +% 31-AUG-1995 +% +% Additional macros needed for the tc fonts + +% |center_on| from cmbase +def center_on(expr x) = if not monospace: % change width for symmetric fit + r:=r+2x-w; w:=2x; fi enddef; +% +% The tc fonts contain accents for capital letters +% +vardef is_cap = true enddef; +% +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txolddig.mf b/usergrps/uktug/baskervi/5_5/txolddig.mf new file mode 100644 index 0000000000..8e0923c0c6 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txolddig.mf @@ -0,0 +1,329 @@ +% txolddig.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% This was olddig.mf from The Computer Modern Fonts by D. E. Knuth +% Changed |cmchar| to |dcchar| +% This file contains the ten digits in so-called old style. +% Character codes \0060 through \0071 are generated. + +dcchar "Oldstyle numeral 0"; +beginchar("0",9u#,x_height#,0); +italcorr .7x_height#*slant-max(.2u#,.95u#-.5curve#); +adjust_fit(0,0); +penpos1(vair,90); penpos3(vair,-90); penpos2(curve,180); penpos4(curve,0); +if not monospace: interim superness:=sqrt(more_super*hein_super); fi +x2r=hround max(.7u,1.45u-.5curve); +x4r=w-x2r; x1=x3=.5w; y1r=h+o; y3r=-o; +y2=y4=.5h-vair_corr; y2l:=y4l:=.52h; +penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3) + & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl +penlabels(1,2,3,4); endchar; + +dcchar "Oldstyle numeral 1"; +beginchar("1",9u#,x_height#,0); +italcorr x_height#*slant+.5cap_stem#-4.25u#; +adjust_fit(0,0); +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pickup tiny.nib; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); top y1=h+apex_o; bot y2=0; +filldraw stroke z1e--z2e; % stem +if not serifs: save slab; slab=bar; fi +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+apex_o; top y4l=if monospace: .8 else: .9 fi\\ h+apex_o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); +tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+apex_o+1)--(x3l,h+apex_o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..z4e{left}; % point +penlabels(1,2,3,4); endchar; + +dcchar "Oldstyle numeral 2"; +beginchar("2",9u#,x_height#,0); +italcorr .8x_height#*slant-.4u#; +adjust_fit(0,0); +numeric arm_thickness, hair_vair; hair_vair=.25[vair,hair]; +arm_thickness=Vround(if hefty:slab+2stem_corr else:.75[vair,cap_stem] fi); +pickup crisp.nib; pos7(arm_thickness,-90); pos8(hair,0); +bot y7r=0; lft x7=hround .8u; rt x8r=hround(w-.9u); y8=good.y(y7l+beak/3)+eps; +arm(7,8,a,.3beak_darkness,beak_jut); % arm and beak +pickup fine.nib; pos2(slab,90); pos3(.4[curve,cap_curve],0); +top y2r=h+o; x2=.5(w-.5u); rt x3r=hround(w-.9u); y3+.5vair=.75h; +if serifs: numeric bulb_diam; bulb_diam=hround .8[hair,flare]; + pos0(bulb_diam,180); pos1(cap_hair,180); + lft x1r=hround u; y1-.5bulb_diam=2/3h; + (x,y2l)=whatever[z1l,z2r]; x2l:=x; bulb(2,1,0); % bulb and arc +else: x2l:=x2l-.25u; pos1(flare,angle(-9u,h)); + lft x1r=hround .75u; bot y1l=vround .7h; y1r:=good.y y1r+eps; x1l:=good.x x1l; + filldraw stroke term.e(2,1,left,.9,4); fi % terminal and arc +pos4(.25[hair_vair,cap_stem],0); +pos5(hair_vair,0); pos6(hair_vair,0); +y5=arm_thickness; y4=.3[y5,y3]; top y6=min(y5,slab,top y7l); +lft x6l=crisp.lft x7; z4l=whatever[z6l,(x3l,bot .58h)]; z5l=whatever[z6l,z4l]; +erase fill z4l--z6l--lft z6l--(lft x6l,y4l)--cycle; % erase excess at left +filldraw stroke z2e{right}..tension atleast .9 and atleast 1 + ..z3e{down}.. z4e---z5e--z6e; % stroke +penlabels(0,1,2,3,4,5,6,7,8); endchar; + +dcchar "Oldstyle numeral 3"; +beginchar("3",9u#,x_height#,desc_depth#); +italcorr .8x_height#*slant-.4u#; +adjust_fit(0,0); +numeric top_thickness,mid_thickness,bot_thickness; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +mid_thickness=max(fine.breadth,vround 2/3vair); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +pickup fine.nib; pos2(top_thickness,90); top y2r=h+o; +pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),0); +rt x3r=hround(w-1.25u); +pos4(vair,-90); pos5(vair,-90); +pos6(mid_thickness,90); x2=x6=x8=.5[1.5u,x7]; +pos7(cap_curve,0); rt x7r=hround(w-.75u); lft x5=min(hround 3u,lft x6); +pos8(bot_thickness,-90); bot y8r=-d-o; +y3=.6[top y4l,bot y2l]; y7=.5[bot y6l,top y8l]; +top y5l=vround(.54[-d,h]+.5vair); y5r=y6l; +x4=1/3[x5,x3l]; z4=z5+whatever*(150u,h+d); +filldraw stroke pulled_super_arc.e(2,3)(.5superpull) + & z3e{down}...z4e---z5e; % upper bowl +filldraw z5r--z6l--z6r--z5l---cycle; % middle tip +filldraw stroke pulled_super_arc.e(6,7)(.5superpull) + & pulled_super_arc.e(7,8)(.5superpull); % lower bowl +if serifs: numeric bulb_diam[]; + bulb_diam1=flare+.5(cap_stem-stem); bulb_diam2=flare+cap_stem-stem; + pos0(bulb_diam1,180); pos1(hair,180); + lft x0r=hround 1.25u; y0=min(.9[-d,h]-.5bulb_diam1,.75[-d,h]+.5bulb_diam1); + bulb(2,1,0); % upper bulb + pos10(bulb_diam2,-180); pos9(cap_hair,-180); + lft x10r=hround .75u; y10=max(.1[-d,h]+.5bulb_diam2,.3[-d,h]-.5bulb_diam2); + bulb(8,9,10); % lower bulb +else: pos1(.5[vair,flare],angle(-8u,h+d)); lft x1r=hround u; + bot y1l=(vround .75[-d,h])+o; y1r:=good.y y1r+eps; x1l:=good.x x1l; + pos9(bot_thickness,angle(-2u,-h-d)); + lft x9r=hround .75u; top y9l=(vround .25[-d,h])-o; + y9r:=good.y y9r-eps; x9l:=good.x x9l; + filldraw stroke term.e(2,1,left,1,4); % upper terminal + filldraw stroke term.e(8,9,left,1,4); fi % lower terminal +penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +dcchar "Oldstyle numeral 4"; +beginchar("4",9u#,x_height#,desc_depth#); +italcorr x_height#*slant+.5stem#-2.5u#; +adjust_fit(0,0); +numeric light_stem, light_stem', diag_stem, alpha, cut; cut=.75notch_cut; +light_stem=hround .4[fudged.stem,fudged.cap_stem]; +light_stem'=hround max(tiny.breadth,light_stem-2stem_corr); +diag_stem=max(tiny.breadth,.4[vair,fudged.hair]); +pickup crisp.nib; pos5(cap_bar,90); pos6(cap_bar,90); +lft x5=hround .5u; rt x6=hround(w-.5u); bot y5l=0; +z4l=top lft z5r; y2=y2'=y5=y6; x1r=x2r=hround(w-3u+.5light_stem); +penpos1(light_stem',0); penpos2(light_stem',0); y1=y3=h+apex_o+apex_oo; +x3r+apex_corr=x1r; alpha=diag_ratio(1,diag_stem,y3-y4l,x3r-x4l); +penpos3(alpha*diag_stem,0); penpos4(alpha*diag_stem,0); +x0=x1l; z0=whatever[z3r,z4r]; +x5'=x5; z5''=z5'+penoffset z4-z3 of currentpen=whatever[z4l,z3l]; +fill diag_end(2r,1r,1,.5,3l,4l)---z5''...lft z5' + ---lft z5l -- (x4r,y5l) -- z4r + if y0<h-cut:{z3r-z4r}...{up}(x1l-1,h-cut) + --(x1l,h-cut) else: -- z0 fi + --z2l--z2r--cycle; % diagonal and upper stem +filldraw stroke z5e--z6e; % bar +pickup tiny.nib; pos7(light_stem,0); pos2'(light_stem,0); x2'=x7; +rt x7r=x1r; bot y7=-d if not serifs:-o fi; +filldraw stroke z2'e--z7e; % lower stem +if serifs: dish_serif(7,2',a,1/3,1.75u, + b,1/3,min(1.75u,w-.5u-rt x7r)); fi % serif +penlabels(0,1,2,3,4,5,6,7); endchar; + +dcchar "Oldstyle numeral 5"; +beginchar("5",9u#,x_height#,desc_depth#); +italcorr x_height#*slant-u#; +adjust_fit(0,0); +numeric bot_thickness,light_hair; +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +light_hair=hround(cap_hair if hefty: -2stem_corr fi); +pickup tiny.nib; pos5(vair,180); pos6(vair,90); +bot y5=vround(.53[-d,h]-vair); +top y6r=max((vround .61803[-d,h])+o,top y6r+y5+eps-y6l); +pos3(light_hair,0); pos4(light_hair,0); +lft x3l=max(1.35u,2.1u-.5light_hair); x3=x4=x5; y4=y5; +top y3=h if not hefty: +o fi; +filldraw stroke z3e--z4e; % thin stem +penpos7(cap_stem-fine,0); penpos8(bot_thickness-fine,-90); +fine.rt x7r=hround(w-.9u); x8=.5[u,x7]; x6=.5[x5,x7]; +erase fill z5--bot z5--(x6,bot y5)--z6{left} + ..tension .9 and 1..{x5-x6,3(y5-y6)}cycle; % erase excess in middle +filldraw stroke z6e{left}..tension .9 and 1..{x5-x6,3(y5-y6)}z5e; % link +pickup fine.nib; pos6'(vair,90); z6'=z6; +y7=.5[y6,y8]; bot y8r=-d-o; +filldraw stroke pulled_arc.e(6',7) & pulled_arc.e(7,8); % bowl +if serifs: pos9(hair,-180); y9=.5[-d,y5]; lft x9r=hround .9u; + pos10(flare+1/3(cap_stem-stem),-180); bulb(8,9,10); % bulb +else: pos9(3/7[bot_thickness,flare],angle(-7u,-h-d)); + lft x9r=hround .9u; bot y9r=(vround .15[-d,h])-o; + x9l:=good.x x9l; y9l:=good.y y9l; + filldraw stroke term.e(8,9,left,1,4); fi % terminal +if hefty: pickup crisp.nib; pos1(slab,90); pos2(hair,0); + top y1r=h; x1=x4; rt x2r=hround(w-1.5u); + y2=y1l-eps; arm(1,2,a,0,0); % arm +else: numeric flag_breadth; flag_breadth=7/8[vair,cap_curve]; + pos1(flag_breadth,90); pos2(flag_breadth,60); + pos0(vair,90); top y1r=tiny.top y3; top y2r=(vround .95[-d,h])+o; y0r=y1r; + lft x1=tiny.lft x3l; x2r=.5[x1,x0]; rt x0=hround(w-1.6u); + erase fill top z1r--z1r...{right}z2r + --(x2r,top y1r)--cycle; % erase excess at top + filldraw stroke z1e...{right}z2e...z0e; fi % flag +penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +dcchar "Oldstyle numeral 6"; +beginchar("6",9u#,fig_height#,0); +italcorr fig_height#*slant-u#; +adjust_fit(0,0); +numeric top_thickness,bot_thickness,side_thickness,pull; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +side_thickness=max(fine.breadth,hround 1/3[curve,cap_curve]); +pull=min(.25,1.5superpull); +pickup fine.nib; pos2(top_thickness,-270); +pos3(side_thickness,-180); pos4(bot_thickness,-90); +pos5(side_thickness,0); pos6(vair,90); +lft x3r=w-rt x5r=hround max(.75u,1.5u-.5side_thickness); +x4=x6-.1u=x2-u=.5w; +top y2r=h+o; y3=.5[y2,y4]; bot y4r=-o; +y5=.5[y4,y6]; top y6=vround 5/8h+o; +path p; p=pulled_super_arc.l(3,4)(pull); +numeric t; t=xpart(p intersectiontimes((x3r,y5)--(x4,y5))); +pos7(thin_join,180); z7l=point t of p; +(x,y6r)=whatever[z7l,z6l]; x6r:=min(x,.5[x5r,x6]); +filldraw stroke pulled_super_arc.e(2,3)(pull) + & {{interim superness:=more_super; pulled_super_arc.e(3,4)(pull)}} + & {{less_tense; pulled_super_arc.e(4,5)(pull) & pulled_super_arc.e(5,6)(pull)}} + & z6e{left}...{direction t of p}z7e; % arc and bowl +if serifs: pos1(hair,-360); pos0(flare,-360); + rt x0r=max(rt x2+eps,hround(w-1.2u)); + y0=vround min(.9h-.5flare,.85h+.5flare)+o; + {{less_tense; bulb(2,1,0)}}; % arc and bulb +else: pos1(vround .1[top_thickness,flare],90); + top y1r=vround .97h+o; rt x1=hround(x5-.5); + filldraw stroke term.e(2,1,right,.9,4); fi % terminal +penlabels(0,1,2,3,4,5,6,7); endchar; + +dcchar "Oldstyle numeral 7"; +beginchar("7",9u#,x_height#,desc_depth#); +italcorr x_height#*slant; +adjust_fit(0,0); +numeric arm_thickness, bot_width, top_shift, top_hair; +if hefty: arm_thickness=Vround(slab+2stem_corr); top_shift=0; + bot_width=hround .51[curve,cap_curve]; top_hair=.4[thin_join,bot_width]; +else: arm_thickness=Vround .4[stem,cap_stem]; top_shift=.5u; + bot_width=flare; top_hair=cap_hair; fi +if top_hair<tiny.breadth: top_hair:=tiny.breadth; fi +pickup crisp.nib; pos2(arm_thickness,90); pos1(hair,180); +top y2r=h; rt x2=hround(w-.75u+top_shift); +lft x1r=hround(.75u+.5top_shift); y1=good.y(y2l-beak/2)-eps; +arm(2,1,a,.3beak_darkness,-beak_jut); % arm and beak +pos3(hair,180); y3=good.y(y2r+beak/6)+eps; z3r=whatever[z1r,z.a0]; +penpos2'(2epsilon,-90); z2'=z2r; +arm(2',3,b,beak_darkness,x3r-x.a0); % upward extension of beak +pickup tiny.nib; pos4(top_hair,0); pos6(bot_width,0); +bot y4=max(h-arm_thickness,h-slab,bot y2l); rt x4r=crisp.rt x2; +lft x6l=hround(3.5u+top_shift-.5bot_width); +if serifs: y6-.5bot_width=-d-o; filldraw z6l{down}..{up}z6r--cycle; % bulb +else: bot y6=-d-oo; fi +if hefty: erase fill rt z4r--z4r...{down}z6r + --(rt x4r,y6)--cycle; % erase excess at top + filldraw stroke z4e...{down}z6e; % stroke +else: pos5(top_hair,0); y5=2/3[-d,h]; z5=whatever[z4,(.75u,y6)]; + erase fill rt z4r--z4r--z5r--(rt x4r,y5)--cycle; % erase excess at top + filldraw stroke z4e---z5e...{down}z6e; fi % stroke +penlabels(1,2,3,4,5,6); endchar; + +dcchar "Oldstyle numeral 8"; +beginchar("8",9u#,fig_height#,0); +italcorr fig_height#*slant-u#; +adjust_fit(0,0); +numeric top_thickness,mid_thickness,bot_thickness,upper_side,lower_side,theta; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +x0=.5w; y0=.54h; +if hefty: mid_thickness=vround 2/3vair; upper_side=hround(stem-3stem_corr); + lower_side=hround min(.5[curve,cap_curve]-stem_corr,upper_side+.25u); + penpos1(top_thickness,90); penpos2(upper_side,180); + penpos3(mid_thickness,270); penpos8(upper_side,360); + penpos4(mid_thickness,90); penpos7(lower_side,180); + penpos6(bot_thickness,270); penpos5(lower_side,360); + penpos0(vair,90); z3l=z0r; z4l=z0l; + x1=x6=.5w; x2r=w-x8r=hround u; x7r=w-x5r=hround .75u; + top y1r=h+o; bot y6r=-o; y2=y8=.5[y1l,y3l]; y7=y5=.5[y4l,y6l]; + filldraw stroke pulled_arc.e(1,2) + & pulled_arc.e(2,3); % left half of upper bowl + filldraw stroke pulled_arc.e(4,5) + & pulled_arc.e(5,6); % right half of lower bowl + filldraw stroke pulled_arc.e(6,7) + & pulled_arc.e(7,4); % left half of lower bowl + filldraw stroke pulled_arc.e(3,8) + & pulled_arc.e(8,1); % right half of upper bowl +else: pickup fine.nib; theta=90-angle(18u,h); slope:=-h/18u; + upper_side=max(fine.breadth,hround(.5[hair,stem]-stem_corr)); + lower_side=hround(.5[hair,stem]+stem_corr); + if lower_side>1.2upper_side: upper_side:=lower_side; fi + pos1(top_thickness,-90); pos6(bot_thickness,-90); + x1=x6=.5w; top y1l=h+o; bot y6r=-o; pos0(cap_stem,theta); + lft x2l=w-rt x8l=hround 1.25u; lft x7r=w-rt x5r=hround .75u; + x2r-x2l=upper_side-fine; x5r-x5l=lower_side-fine; + ellipse_set(1l,2l,3l,0l); ellipse_set(1r,2r,3r,0r); + ellipse_set(6l,5l,4l,0l); ellipse_set(6r,5r,4r,0r); + numeric tau; tau=max(.8,.20710678/(superness-.5)); + filldraw stroke z1e{left}..tension atleast tau..z2e{down} + ..z3e---z4e..z5e{down}..tension atleast tau..z6e{left}; % S stroke + pos7(lower_side,180); pos8(upper_side,180); + y7=.5[y5l,y5r]; y8=.5[y2l,y2r]; pos9(vair,90); z9=z0; + filldraw stroke z1e{right}..tension atleast tau..z8e{down} + ..tension atleast tau and atleast 1..{-18u,-.618h}z9e; % upper right stroke + filldraw stroke z6e{left}..tension atleast tau..z7e{up} + ..tension atleast tau and atleast 1..{18u,.5h}z9e; fi % lower left stroke +penlabels(0,1,2,3,4,5,6,7,8,9); endchar; + +dcchar "Oldstyle numeral 9"; +beginchar("9",9u#,x_height#,desc_depth#); +italcorr x_height#*slant-u#; +adjust_fit(0,0); +numeric top_thickness,bot_thickness,side_thickness,pull; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +side_thickness=max(fine.breadth,hround 1/3[curve,cap_curve]); +pull=min(.25,1.5superpull); +pickup fine.nib; pos2(bot_thickness,-90); +pos3(side_thickness,0); pos4(top_thickness,90); +pos5(side_thickness,180); pos6(vair,270); +w-rt x3r=lft x5r=hround max(.75u,1.5u-.5side_thickness); +x4-.1u=x6+.1u=x2+.75u=.5w; +bot y2r=-d-o; y3=.5[y2,y4]; top y4r=h+o; +y5=.5[y4,y6]; bot y6=(vround 3/8[-d,h])-o; +path p; p=pulled_super_arc.l(3,4)(pull); +numeric t; t=xpart(p intersectiontimes((x3r,y5)--(x4,y5))); +pos7(thin_join,360); z7l=point t of p; +(x,y6r)=whatever[z7l,z6l]; x6r:=max(x,.5[x5r,x6]); +filldraw stroke pulled_super_arc.e(2,3)(pull) + & {{interim superness:=more_super; pulled_super_arc.e(3,4)(pull)}} + & {{less_tense; pulled_super_arc.e(4,5)(pull) & pulled_super_arc.e(5,6)(pull)}} + & z6e{right}...{direction t of p}z7e; % arc and bowl +if serifs: pos1(hair,-180); pos0(flare,-180); + lft x0r=min(lft x2-eps,hround 1.2u); + y0=vround max(.1[-d,h]+.5flare,.15[-d,h]-.5flare)-o; + {{less_tense; bulb(2,1,0)}}; % arc and bulb +else: pos1(.1[bot_thickness,flare],-120); + bot y1r=(vround .07[-d,h])-o; lft x1r=hround 1.3u; + filldraw stroke term.e(2,1,left,.9,4); fi % terminal +penlabels(0,1,2,3,4,5,6,7); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txpseudo.mf b/usergrps/uktug/baskervi/5_5/txpseudo.mf new file mode 100644 index 0000000000..e4a2d3d3b0 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txpseudo.mf @@ -0,0 +1,63 @@ +% txpseudo.mf +% +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% This file contains pseudoparameters which are not entered in the +% parameter files, but are computed from the initial parameter set. +% There are also ad hoc parameters needed only once, and scratch +% parameters with different values at each occuerence (like |theta|). +% +% Diameters of dots + +numeric idot_diam#,udot_diam#,pdot_diam#; +idot_diam#=max(dot_size#,cap_curve#); % dot of letters `i' and `j' +udot_diam#=max(dot_size#,cap_curve#); % umlaut dots +pdot_diam#=if monospace: 5/4 fi\\ dot_size#; % punctuation dots +define_whole_blacker_pixels(idot_diam,udot_diam,pdot_diam); + +% |limit_dist| is used in |put_cross| +% (the value of |u| is changed by |mono_adjust|, hence the global setting) + +numeric limit_dist; limit_dist=5/4u; + +% More parametrisations for accents from csaccent.mf (csfonts): + +numeric uc_acc_height, uc_acc_height#, + lc_acute_height, lc_acute_height#, + lc_hachek_height, lc_hachek_height#, + lc_circle_height, lc_circle_height#, + accent_u, accent_u#, + accent_thin, + uc_acc_shift, asc_acc_shift; +if unknown circ_weight: circ_weight:=1; fi + +uc_acc_height# = cap_height#+asc_height#-x_height#; +lc_acute_height# = asc_height#; +lc_hachek_height# = lc_acute_height#; +lc_circle_height# = lc_acute_height#; +accent_u# = u#; % unexpanded dimension unit + +accent_thin = if thin_join > crisp: thin_join else: crisp+eps fi; +define_whole_vertical_pixels(uc_acc_height,lc_acute_height, + lc_hachek_height,lc_circle_height); +define_pixels(accent_u); + +uc_acc_shift = cap_height - x_height; +asc_acc_shift = asc_height - x_height; + +% Height of floating accents for capitals (note, that TeX raises them +% by |uc_acc_shift|) + +numeric cap_accent_height, cap_accent_height#; +cap_accent_height# = acc_height# + x_height#; +define_whole_vertical_pixels(cap_accent_height); + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txrfract.mf b/usergrps/uktug/baskervi/5_5/txrfract.mf new file mode 100644 index 0000000000..7597f36e6d --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txrfract.mf @@ -0,0 +1,200 @@ +% txrfract.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Ready made fractions 1/2, 1/4, 3/4 in roman style + + +dcchar"Fraction one quarter"; +beginchar(oct"274",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pickup tiny.nib; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); +top y1=h+o; bot y2=c_height+rule_thickness; +filldraw stroke z1e--z2e; % stem +if not serifs: save slab; slab=bar; fi +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+o; top y4l=if monospace: .8 else: .9 fi\\ [bot y2,h]+o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); +tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+o+1)--(x3l,h+o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..z4e{left}; % point +penlabels(1,2,3,4); +clearxy; +numeric hh; hh=c_height-2rule_thickness; +numeric light_stem, light_stem', diag_stem, alpha, cut; cut=.75notch_cut; +light_stem=hround .4[fudged.stem,fudged.cap_stem]; +light_stem'=hround max(tiny.breadth,light_stem-2stem_corr); +diag_stem=max(tiny.breadth,.4[vair,fudged.hair]); +pickup crisp.nib; pos5(cap_bar,90); pos6(cap_bar,90); +lft x5=hround .5u; rt x6=hround(w-.5u); +top y5r=vround(if serifs: 5/18[slab-d,hh-light_stem]+1 + else:.35[-d,hh-light_stem] fi+.5cap_bar); +z4l=top lft z5r; y2=y2'=y5=y6; x1r=x2r=hround(w-3u+.5light_stem); +penpos1(light_stem',0); penpos2(light_stem',0); y1=y3=hh+apex_o+apex_oo; +x3r+apex_corr=x1r; alpha=diag_ratio(1,diag_stem,y3-y4l,x3r-x4l); +penpos3(alpha*diag_stem,0); penpos4(alpha*diag_stem,0); +x0=x1l; z0=whatever[z3r,z4r]; +x5'=x5; z5''=z5'+penoffset z4-z3 of currentpen=whatever[z4l,z3l]; +fill diag_end(2r,1r,1,.5,3l,4l)---z5''...lft z5' + ---lft z5l -- (x4r,y5l) -- z4r + if y0<hh-cut:{z3r-z4r}...{up}(x1l-1,hh-cut) + --(x1l,hh-cut) else: -- z0 fi + --z2l--z2r--cycle; % diagonal and upper stem +filldraw stroke z5e--z6e; % bar +pickup tiny.nib; pos7(light_stem,0); rt x7r=x1r; bot y7=-d; +pos2'(light_stem,0); x2'=x7; +filldraw stroke z2'e--z7e; % lower stem +if serifs: dish_serif(7,2',a,1/3,1.75u, + b,1/3,min(1.75u,w-.5u-rt x7r)); fi % serif +penlabels(0,1,2,3,4,5,6,7); +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +dcchar"Fraction one half"; +beginchar(oct"275",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pickup tiny.nib; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); +top y1=h+o; bot y2=c_height+rule_thickness; +filldraw stroke z1e--z2e; % stem +if not serifs: save slab; slab=bar; fi +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+o; top y4l=if monospace: .8 else: .9 fi\\ [bot y2,h]+o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); +tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+o+1)--(x3l,h+o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..z4e{left}; % point +penlabels(1,2,3,4); +clearxy; +numeric arm_thickness, hair_vair; hair_vair=.25[vair,hair]; +arm_thickness=Vround(if hefty:slab+2stem_corr else:.4[stem,cap_stem] fi); +pickup crisp.nib; pos7(arm_thickness,-90); pos8(hair,0); +bot y7r=-d; lft x7=hround .9u; rt x8r=hround(w-.9u); +y8=good.y(y7l+beak/2)+eps; +arm(7,8,a,.3beak_darkness,beak_jut); % arm and beak +pickup fine.nib; pos2(slab,90); pos3(.4[curve,cap_curve],0); +top y2r=c_height-2rule_thickness+o; +x2=.5(w-.5u); rt x3r=hround(w-.9u); y3+.5vair=.75[-d,top y2r]; +if serifs: numeric bulb_diam; bulb_diam=hround(flare+2/3(cap_stem-stem)); + pos0(bulb_diam,180); pos1(cap_hair,180); + lft x1r=hround .9u; y1-.5bulb_diam=2/3[-d,top y2r]; + (x,y2l)=whatever[z1l,z2r]; x2l:=x; bulb(2,1,0); % bulb and arc +else: x2l:=x2l-.25u; pos1(flare,angle(-9u,h)); + lft x1r=hround .75u; bot y1l=vround .7[-d,top y2r]; + y1r:=good.y y1r+eps; x1l:=good.x x1l; + filldraw stroke term.e(2,1,left,.9,4); fi % terminal and arc +pos4(.25[hair_vair,cap_stem],0); +pos5(hair_vair,0); pos6(hair_vair,0); +y5=arm_thickness-d; y4=.3[y5,y3]; top y6=min(y5,slab-d,top y7l); +lft x6l=crisp.lft x7; z4l=whatever[z6l,(x3l,bot .58[-d,top y2r])]; +z5l=whatever[z6l,z4l]; +erase fill z4l--z6l--lft z6l--(lft x6l,y4l)--cycle; % erase excess at left +filldraw stroke z2e{right}..tension atleast .9 and atleast 1 + ..z3e{down}.. z4e---z5e--z6e; % stroke +penlabels(0,1,2,3,4,5,6,7,8); +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +dcchar"Fraction three quarters"; +beginchar(oct"276",8u#,body_height#,desc_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric c_height; c_height=good.y .5[h,-d]+.5rule_thickness; +numeric top_thickness,mid_thickness,bot_thickness; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +mid_thickness=max(fine.breadth,vround 2/3vair); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +pickup fine.nib; pos2(top_thickness,90); top y2r=h+o; +pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),0); +rt x3r=hround(w-1.25u); +pos4(vair,-90); pos5(vair,-90); +pos6(mid_thickness,90); x2=x6=x8=.5[1.5u,x7]; +pos7(cap_curve,0); rt x7r=hround(w-.75u); lft x5=min(hround 3u,lft x6)-eps; +pos8(bot_thickness,-90); bot y8r=c_height+rule_thickness-o; +y3=.6[top y4l,bot y2l]; y7=.5[bot y6l,top y8l]; +top y5l=vround(.54[bot y8r,h]+.5vair); y5r=y6l; +x4=1/3[x5,x3l]; z4=z5+whatever*(150u,h); +filldraw stroke pulled_super_arc.e(2,3)(.5superpull) + & z3e{down}...z4e---z5e; % upper bowl +filldraw z5r--z6l--z6r--z5l---cycle; % middle tip +filldraw stroke pulled_super_arc.e(6,7)(.5superpull) + & pulled_super_arc.e(7,8)(.5superpull); % lower bowl +if serifs: numeric bulb_diam[]; + bulb_diam1=flare+.5(cap_stem-stem); bulb_diam2=flare+cap_stem-stem; + pos0(bulb_diam1,180); pos1(hair,180); + lft x0r=hround 1.25u; + y0=min(.9[bot y8r,h]-.5bulb_diam1,.75[bot y8r,h]+.5bulb_diam1); + bulb(2,1,0); % upper bulb + pos10(bulb_diam2,-180); pos9(cap_hair,-180); + lft x10r=hround .75u; + y10=max(.1[bot y8r,h]+.5bulb_diam2,.3[bot y8r,h]-.5bulb_diam2); + bulb(8,9,10); % lower bulb +else: pos1(.5[vair,flare],angle(-8u,h)); + lft x1r=hround u; bot y1l=vround .75[bot y8r,h]+o; + y1r:=good.y y1r+eps; x1l:=good.x x1l; + pos9(bot_thickness,angle(-2u,-h)); + lft x9r=hround .75u; top y9l=vround .25[bot y8r,h]-o; + y9r:=good.y y9r-eps; x9l:=good.x x9l; + filldraw stroke term.e(2,1,left,1,4); % upper terminal + filldraw stroke term.e(8,9,left,1,4); fi % lower terminal +penlabels(0,1,2,3,4,5,6,7,8,9,10); +clearxy; +numeric hh; hh=c_height-2rule_thickness; +numeric light_stem, light_stem', diag_stem, alpha, cut; cut=.75notch_cut; +light_stem=hround .4[fudged.stem,fudged.cap_stem]; +light_stem'=hround max(tiny.breadth,light_stem-2stem_corr); +diag_stem=max(tiny.breadth,.4[vair,fudged.hair]); +pickup crisp.nib; pos5(cap_bar,90); pos6(cap_bar,90); +lft x5=hround .5u; rt x6=hround(w-.5u); +top y5r=vround(if serifs: 5/18[slab-d,hh-light_stem]+1 + else:.35[-d,hh-light_stem] fi+.5cap_bar); +z4l=top lft z5r; y2=y2'=y5=y6; x1r=x2r=hround(w-3u+.5light_stem); +penpos1(light_stem',0); penpos2(light_stem',0); y1=y3=hh+apex_o+apex_oo; +x3r+apex_corr=x1r; alpha=diag_ratio(1,diag_stem,y3-y4l,x3r-x4l); +penpos3(alpha*diag_stem,0); penpos4(alpha*diag_stem,0); +x0=x1l; z0=whatever[z3r,z4r]; +x5'=x5; z5''=z5'+penoffset z4-z3 of currentpen=whatever[z4l,z3l]; +fill diag_end(2r,1r,1,.5,3l,4l)---z5''...lft z5' + ---lft z5l -- (x4r,y5l) -- z4r + if y0<hh-cut:{z3r-z4r}...{up}(x1l-1,hh-cut) + --(x1l,hh-cut) else: -- z0 fi + --z2l--z2r--cycle; % diagonal and upper stem +filldraw stroke z5e--z6e; % bar +pickup tiny.nib; pos7(light_stem,0); rt x7r=x1r; bot y7=-d; +pos2'(light_stem,0); x2'=x7; +filldraw stroke z2'e--z7e; % lower stem +if serifs: dish_serif(7,2',a,1/3,1.75u, + b,1/3,min(1.75u,w-.5u-rt x7r)); fi % serif +pickup rule.nib; +top y98=top y99=c_height; x98=w-x99=hround .5u; +draw z98--z99; % fraction bar +labels(98,99); endchar; + +endinput; + diff --git a/usergrps/uktug/baskervi/5_5/txrsuper.mf b/usergrps/uktug/baskervi/5_5/txrsuper.mf new file mode 100644 index 0000000000..d81851f7db --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txrsuper.mf @@ -0,0 +1,184 @@ +% txrsuper.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Superscript digits 1,2,3 in roman style +% Male and female ordinal indicator in roman style + +dcchar "Superscript numeral 1"; +beginchar(oct"271",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric light_stem; light_stem=hround .4[stem',cap_stem']; +pickup tiny.nib; +pos1(light_stem,0); pos2(light_stem,0); +lft x1l=lft x2l=hround(.5(w+.5u)-.5cap_stem'); top y1=h+o; +bot y2=.5asc_height; +filldraw stroke z1e--z2e; % stem +if not serifs: save slab; slab=bar; fi +dish_serif(2,1,a,1/3,min(2.25u,lft x2l-1.5u), + b,1/3,min(2.25u,w-1.25u-rt x2r)); % serif +pickup crisp.nib; pos3(slab,-90); pos4(bar,-90); +top y3l=h+o; top y4l=if monospace: .85 else: .9 fi\\ h+o; +lft x4=max(1.25u,tiny.lft x1l-2.35u); +tiny.rt x1r=lft x3+.25[tiny,hair]; +erase fill z3l{x4l-x3l,3(y4l-y3l)}...z4l{left} + --(x4l,h+o+1)--(x3l,h+o+1)--cycle; % erase excess at top +filldraw stroke z3e{x4e-x3e,3(y4e-y3e)}..z4e{left}; % point +penlabels(1,2,3,4); endchar; + +dcchar "Superscript numeral 2"; +beginchar(oct"262",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric arm_thickness, hair_vair; hair_vair=.25[vair,hair]; +arm_thickness=Vround(if hefty:slab+2stem_corr else:.4[stem,cap_stem] fi); +pickup crisp.nib; pos7(arm_thickness,-90); pos8(hair,0); +bot y7r=.5asc_height; +lft x7=hround .9u; rt x8r=hround(w-.9u); y8=good.y(y7l+beak/2)+eps; +arm(7,8,a,.3beak_darkness,beak_jut); % arm and beak +pickup fine.nib; pos2(slab,90); pos3(.4[curve,cap_curve],0); +top y2r=h+o; x2=.5(w-.5u); rt x3r=hround(w-.9u); +y3+.5vair=.75[bot y7r,h]; +if serifs: numeric bulb_diam; bulb_diam=hround(flare+2/3(cap_stem-stem)); + pos0(bulb_diam,180); pos1(cap_hair,180); + lft x1r=hround .9u; y1-.5bulb_diam=2/3[bot y7r,h]; + (x,y2l)=whatever[z1l,z2r]; x2l:=x; bulb(2,1,0); % bulb and arc +else: x2l:=x2l-.25u; pos1(flare,angle(-9u,h)); + lft x1r=hround .75u; bot y1l=vround .7[bot y7r,h]; + y1r:=good.y y1r+eps; x1l:=good.x x1l; + filldraw stroke term.e(2,1,left,.9,4); fi % terminal and arc +pos4(.25[hair_vair,cap_stem],0); +pos5(hair_vair,0); pos6(hair_vair,0); +y5=arm_thickness+bot y7r; +y4=.3[y5,y3]; top y6=min(y5,slab+bot y5r,top y7l); +lft x6l=crisp.lft x7; z4l=whatever[z6l,(x3l,bot .58[bot y7r,h])]; +z5l=whatever[z6l,z4l]; +erase fill z4l--z6l--lft z6l--(lft x6l,y4l)--cycle; % erase excess at left +filldraw stroke z2e{right}..tension atleast .9 and atleast 1 + ..z3e{down}.. z4e---z5e--z6e; % stroke +penlabels(0,1,2,3,4,5,6,7,8); endchar; + +dcchar "Superscript numeral 3"; +beginchar(oct"263",8u#,body_height#,0); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); +numeric top_thickness,mid_thickness,bot_thickness; +top_thickness=max(fine.breadth,vround(slab-2vair_corr)); +mid_thickness=max(fine.breadth,vround 2/3vair); +bot_thickness=max(fine.breadth,vround(slab-vair_corr)); +pickup fine.nib; pos2(top_thickness,90); top y2r=h+o; +pos3(max(fine.breadth,.6[curve,cap_curve]-stem_corr),0); +rt x3r=hround(w-1.25u); +pos4(vair,-90); pos5(vair,-90); +pos6(mid_thickness,90); x2=x6=x8=.5[1.5u,x7]; +pos7(cap_curve,0); rt x7r=hround(w-.75u); lft x5=min(hround 3u,lft x6)-eps; +pos8(bot_thickness,-90); +bot y8r=.5asc_height-oo; +y3=.6[top y4l,bot y2l]; y7=.5[bot y6l,top y8l]; +top y5l=vround(.54[bot y8r,h]+.5vair); y5r=y6l; +x4=1/3[x5,x3l]; z4=z5+whatever*(150u,h); +filldraw stroke pulled_super_arc.e(2,3)(.5superpull) + & z3e{down}...z4e---z5e; % upper bowl +filldraw z5r--z6l--z6r--z5l---cycle; % middle tip +filldraw stroke pulled_super_arc.e(6,7)(.5superpull) + & pulled_super_arc.e(7,8)(.5superpull); % lower bowl +if serifs: numeric bulb_diam[]; + bulb_diam1=flare+.5(cap_stem-stem); bulb_diam2=flare+cap_stem-stem; + pos0(bulb_diam1,180); pos1(hair,180); + lft x0r=hround 1.25u; + y0=min(.9h-.5bulb_diam1,.75[bot y8r,h]+.5bulb_diam1); + bulb(2,1,0); % upper bulb + pos10(bulb_diam2,-180); pos9(cap_hair,-180); + lft x10r=hround .75u; + y10=max(.1[bot y8r,h]+.5bulb_diam2,.3[bot y8r,h]-.5bulb_diam2); + bulb(8,9,10); % lower bulb +else: pos1(.5[vair,flare],angle(-8u,h)); + lft x1r=hround u; bot y1l=vround .75[bot y8r,h]+oo; + y1r:=good.y y1r+eps; x1l:=good.x x1l; + pos9(bot_thickness,angle(-2u,-h)); + lft x9r=hround .75u; top y9l=vround .25[bot y8r,h]-oo; + y9r:=good.y y9r-eps; x9l:=good.x x9l; + filldraw stroke term.e(2,1,left,1,4); % upper terminal + filldraw stroke term.e(8,9,left,1,4); fi % lower terminal +penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +dcchar"Female ordinal indicator"; +beginchar(oct"252",8u#,body_height#,0); +numeric hh; hh=vround .5body_height; +bh#:=min(.7bar_height#,.5body_height#-bar_height#); define_pixels(bh); +italcorr .7body_height#*slant; +adjust_fit(0,0); +pickup fine.nib; top y3r=hh+vround 1.5oo; +if serifs: pos1(flare,180); pos2(hair,180); + pos3(vair,90); lft x1r=hround max(u,2.1u-.5flare); x3=.5w-.5u; + y1=min(bh+.5flare+2vair+2,.9[bh,hh]-.5flare); + bulb(3,2,1); % bulb +else: pos1(5/7[vair,flare],95); x1l=good.x 1.5u; x1r:=good.x x1r; + pos3(1/8[vair,thin_join],90); + x3=.5w-.2u; top y1r=vround .82[bh,top y3r]; + filldraw stroke term.e(3,1,left,.9,4); fi % terminal +pos4(stem,0); rt x4r=hround(w-2.5u+.5stem); y4=1/3[bh,hh]; +pos5(stem,0); x5=x4; y5=max(.55bh,2vair); +filldraw stroke super_arc.e(3,4)&z4e..z5e; % arc and stem +pos6(.3[thin_join,vair],90); x6=x4; bot y6=bh; +pos7(hround(curve-2stem_corr),180); +lft x7r=hround max(.5u,1.5u-.5curve); y7=1/3[top y8l,top y6r]; +pos8(vair,270); x8l=.5w-.75u; bot y8r=-oo; +pos9(thin_join,360); z9l=z5l; +(x,y8r)=whatever[z8l,z9l]; x8r:=max(x,x8-u); +{{interim superness:=more_super; + filldraw stroke z9e{down}...z8e{left}...{up}z7e&super_arc.e(7,6)}}; % bowl +if serifs: numeric shaved_stem; shaved_stem=hround(stem-3stem_corr); + if hair#+.5stem#>1.5u#: pickup tiny.nib; + pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5; + pos10(shaved_stem,0); x10=x5'; y10=.2[.5tiny,bh]; + pos11(shaved_stem,0); rt x11r=hround(w-.25u); bot y11=0; + pos12(shaved_stem,0); x11=x12; top y12=slab+eps; + filldraw z5'l---z10l...z11l{right}--z11r + --z12r{left}...z10r+.75(z12-z11)---z5'r--cycle; % foot + else: pickup crisp.nib; pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5; + pos10(shaved_stem,0); x10=x5'; y10=1/3bh; + pos11(.2[vair,stem],90); x11r=.5[x10r,x12r]; bot y11l=-vround .5oo; + pos12(hair,180); rt x12l=hround(w-.1u); y12=max(y10,y11+vair); + pos13(hair,180); x13=x12; top y13=max(vround .6bh,top y12); + (x',y11l)=whatever[z11r,z12r]; x11l:=max(x',x10); + filldraw stroke z5'e---z10e...z11e{right}...z12e---z13e; fi % hook +else: numeric shaved_stem; shaved_stem=hround(stem-stem_corr); + pickup tiny.nib; pos5'(shaved_stem,0); rt x5'r=fine.rt x5r; y5'=y5; + pos10(shaved_stem,0); x10=x5'; bot y10=0; + filldraw stroke z5'e--z10e; fi % base of stem +pickup extra_rule.nib; +x14=w-x15=hround u; +top y14=-rule_thickness; y15=y14; +draw z14--z15; % underline +currentpicture:=currentpicture shifted (0,hh); +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15); endchar; + +dcchar"Male ordinal indicator"; +beginchar(oct"272",8u#,body_height#,0); +numeric hh; hh=vround .5body_height; +italcorr .7body_height#*slant; +adjust_fit(0,0); +penpos1(vair,90); penpos3(vair',-90); +penpos2(curve,180); penpos4(curve,0); +x2r=hround max(.5u,1.25u-.5curve); +x4r=w-x2r; x1=x3=.5w; y1r=hh+vround 1.5oo; y3r=-oo; +y2=y4=.5hh-vair_corr; y2l:=y4l:=.52hh; +penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3) + & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle; % bowl +pickup extra_rule.nib; +x5=w-x6=hround u; +top y5=-rule_thickness; y6=y5; +draw z5--z6; % underline +currentpicture:=currentpicture shifted (0,hh); +penlabels(1,2,3,4,5,6); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/txsymb.mf b/usergrps/uktug/baskervi/5_5/txsymb.mf new file mode 100644 index 0000000000..5048e13cb3 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txsymb.mf @@ -0,0 +1,52 @@ +% txsymb.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Version 1.0 +% 31-AUG-1995 +% +% Driver file for the tc fonts +% +mode_setup; +font_setup; + +input dxaccess; % accent accessories +input txpseudo; % pseudoparameters +input txmacros; % additional macros +input txaccent; % flat accents for capital letters +input txolddig; % old style digits (original cm) +input txgen; % genealogical symbols (by DEK) +input txsymbol; % misc. symbols +if variant_g: % italics? + input txisuper; % superscript 1,2,3 + input txifract; % fractions 1/4, 1/2, 3/4 +else: input txrsuper; % superscript 1,2,3 + input txrfract; % fractions 1/4, 1/2, 3/4 +fi; + +font_coding_scheme:="TeX text companion symbols 1---TS1"; +if known boundarychar: boundarychar:=oct"027"; fi +font_slant slant; font_x_height x_height#; +if monospace: font_normal_space 9u#; % no stretching or shrinking + font_quad 18u#; + font_extra_space 9u#; +else: font_normal_space 6u#+2letter_fit#; + font_normal_stretch 3u#; font_normal_shrink 2u#; + font_quad 18u#+4letter_fit#; + font_extra_space 2u#; +fi +font_character_set 11; % <-- preliminary setting +font_acc_height acc_height#; +font_cap_height cap_height#; +font_asc_height asc_height#; +font_rule_thickness rule_thickness#; +%font_baselineskip baselineskip#; + +bye. diff --git a/usergrps/uktug/baskervi/5_5/txsymbol.mf b/usergrps/uktug/baskervi/5_5/txsymbol.mf new file mode 100644 index 0000000000..baf5fefdd7 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/txsymbol.mf @@ -0,0 +1,1817 @@ +% txsymbol.mf +% +% (c) Copyright 1995 J"org Knappen +% +% This file is part of dcfonts version 1.2 +% +% Please read the files 00readme.txt, 00inst.txt, 00error.txt, and +% copyrite.txt for further information +% +% You find some documentation in dcdoc.tex (needs LaTeX2e) +% +% Version 1.0 +% 31-AUG-1995 +% +% Miscellaneous symbols for the TS1 encoding +% +% Heavily borrowing from existent fonts, like Computer Modern, AMS symbols +% and wasy symbols + +dcchar"Single straight base quote"; % jk +beginchar(oct"015",7u#,asc_height#,0); + numeric shifth_down; + adjust_fit(0,0); + x1=x2=.5w; + y2=max(.5[bar_height,x_height]+.5vair,h-x_height)-the_shift; + if serifs: + y1=flare/2; the_shift=h-.5stem-y1; + pickup crisp.nib; + pos1(flare,0); pos2(vair,0); + filldraw circ_stroke (z1e--z2e); % stem and bulb + else: + top y1=stem; the_shift=h-y1; + pickup fine.nib; + pos1(stem,0); pos2(vair,0); + filldraw stroke z1e--z2e; % stem + fi + charht:=dot_size#; chardp:=desc_depth#; + penlabels(1,2,3,4); +endchar; + +dcchar"Double straight base quotes"; % from pl_cud (plfonts) +beginchar(oct"022",9u#,asc_height#,0); + numeric top_width#,spread#,shifth_down; + top_width#=if serifs: flare# else: stem# fi; + spread#=max(3u#,top_width#+.5u#); define_pixels(spread); + adjust_fit(0,0); + numeric the_shift; + x1=x2; x3=x4=w-x1; x3-x1=spread+2; y1=y3; + y2=y4=max(.5[bar_height,x_height]+.5vair,h-x_height)-the_shift; + if serifs: + y1=flare/2; the_shift=h-.5stem-y1; + pickup crisp.nib; + pos1(flare,0); pos2(vair,0); pos3(flare,0); pos4(vair,0); + filldraw circ_stroke (z1e--z2e); % left stem and bulb + filldraw circ_stroke (z3e--z4e); % right stem and bulb + else: + top y1=stem; the_shift=h-y1; + pickup fine.nib; + pos1(stem,0); pos2(vair,0); pos3(stem,0); pos4(vair,0); + filldraw stroke z1e--z2e; % left stem + filldraw stroke z3e--z4e; % right stem + fi + charht:=dot_size#; chardp:=desc_depth#; + penlabels(1,2,3,4); +endchar; + +dcchar "twelve u dash"; +beginchar(oct"025",12u#,x_height#,0); +italcorr .61803x_height#*slant+.5u#; +adjust_fit(letter_fit#,letter_fit#); +pickup crisp.nib; pos1(vair,90); pos2(vair,90); +top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps; +filldraw stroke z1e--z2e; % bar +penlabels(1,2); endchar; + +dcchar "three quarters em dash"; +beginchar(oct"026",13.5u#,x_height#,0); +italcorr .61803x_height#*slant+.5u#; +adjust_fit(letter_fit#,letter_fit#); +pickup crisp.nib; pos1(vair,90); pos2(vair,90); +top y1r=top y2r=vround(.61803h+.5vair); lft x1=-eps; rt x2=w+eps; +filldraw stroke z1e--z2e; % bar +penlabels(1,2); endchar; + +dcchar "Leftward arrow"; % from sym.mf (cmfonts) +compute_spread(.45x_height#,.55x_height#); +beginchar(oct"030",18u#,v_center(spread#+rule_thickness#)); +adjust_fit(0,0); pickup crisp.nib; +pos1(rule_thickness,90); pos2(rule_thickness,90); +pos3(rule_thickness,0); pos4(rule_thickness,0); +y0=y1=y2=math_axis; x1+.5rule_thickness=hround(w-u); lft x0=hround u; +y3-y0=y0-y4=if monospace:.24 else:.36 fi asc_height+eps; +x3=x4=x0+if monospace:3u else:4u fi+eps; +pos5(rule_thickness,angle(z4-z0)); z5l=z0; +pos6(rule_thickness,angle(z3-z0)); z6l=z0; +z9=.2[.5[z3,z4],z0]; +numeric t; path p; p=z4r{z9-z4}..z6r; +t=xpart(p intersectiontimes((0,y2l)--(w,y2l))); x2=xpart point t of p; +filldraw z0..{z4-z9}z4l--subpath (0,t) of\\(z4r{z9-z4}..z6r) + --z2l---z1l..z1r---z2r--subpath (t,0) of\\(z3r{z9-z3}..z5r) + --z3l{z9-z3}..z0 & cycle; % arrowhead and stem +penlabels(0,1,2,3,4,5,6,9); endchar; + +dcchar "Rightward arrow"; % from sym.mf (cmfonts) +compute_spread(.45x_height#,.55x_height#); +beginchar(oct"031",18u#,v_center(spread#+rule_thickness#)); +adjust_fit(0,0); pickup crisp.nib; +pos1(rule_thickness,90); pos2(rule_thickness,90); +pos3(rule_thickness,0); pos4(rule_thickness,0); +y0=y1=y2=math_axis; x1-.5rule_thickness=hround u; rt x0=hround(w-u); +y3-y0=y0-y4=if monospace:.24 else:.36 fi asc_height+eps; +x3=x4=x0-if monospace:3u else:4u fi-eps; +pos5(rule_thickness,angle(z4-z0)); z5l=z0; +pos6(rule_thickness,angle(z3-z0)); z6l=z0; +z9=.2[.5[z3,z4],z0]; +numeric t; path p; p=z4l{z9-z4}..z6r; +t=xpart(p intersectiontimes((0,y2l)--(w,y2l))); x2=xpart point t of p; +filldraw z0..{z4-z9}z4r--subpath (0,t) of\\(z4l{z9-z4}..z6r) + --z2l---z1l..z1r---z2r--subpath (t,0) of\\(z3l{z9-z3}..z5r) + --z3r{z9-z3}..z0 & cycle; % arrowhead and stem +penlabels(0,1,2,3,4,5,6,9); endchar; + +dcchar"Tie accent"; % from italms (cmfonts) +beginchar(oct"032",5u#,asc_height#,0); +italcorr 4/9[x_height#,asc_height#]*slant+4.5u#+2letter_fit#+.5hair#; +adjust_fit(if monospace:2u#,2u# else:serif_fit#,serif_fit# fi); +pickup fine.nib; pos1(hair,180); pos2(vround 1/5[vair,stem],90); +pos3(hair,0); +lft x1r=hround(.5w-.5hair); x2=.5[x1,x3]; +rt x3r=hround(w+4u+2letter_fit+.5hair); +y1=y3=4/9[x_height,asc_height]; top y2r=vround 8/9[x_height,asc_height]; +filldraw stroke super_arc.e(1,2) & super_arc.e(2,3); % arc +penlabels(1,2,3); endchar; + +iff not variant_g: % not italic +dcchar"Blank symbol"; % jk +beginchar(oct"040",10u#+serif_fit#,asc_height#,0); +italcorr .5x_height#*slant+min(.5curve#-u#,-.25u#); +adjust_fit(serif_fit#,0); +pickup tiny.nib; pos1(stem',0); pos2(stem,0); +pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2; +lft x1l=hround(2.5u-.5stem'); top y1=h; +numeric edge; edge=rt x2r; +pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180); +pos4(vair,90); pos5(curve,0); pos6(vair,-90); penpos7(x3l-x3r,-180); +rt x3l=max(rt x3l-(lft x3r-tiny.lft x2l),1/3[rt x2,edge]); +y3=1/8[bar_height,x_height]; +x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo; +rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height; +x6l=x4l-.2u; bot y6r=-oo; +x7=x3; y7=min(y3,y6+y4-y3+.6vair); +(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x4,x5r]); +(x',y6r)=whatever[z7l,z6l]; x6r:=min(x',.5[x6,x5r]); +filldraw stroke z3e{up}...pulled_arc.e(4,5)&pulled_arc.e(5,6)...{up}z7e; % bowl +y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l)); +y2=ypart(((edge,h)--(edge,0))intersectionpoint(z6l{left}...{up}z7l)); +pickup tiny.nib; filldraw stroke z1e--z0'e--z0e--z2e; % stem +pickup crisp.nib; pos8(hair,0); pos7'(stem,0); +z7'=z2; x8l=x7'l; bot y8=0; +filldraw stroke z7'e--z8e; % point +if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); fi % upper serif +put_cross(.5stem+if serifs: .9max(limit_dist,jut) else: 1.8u fi,.5stem+3u); +penlabels(0,1,2,3,4,5,6,7,8); endchar; + +iff variant_g: % italic +dcchar"Blank symbol"; % jk +beginchar(oct"040",8u#,asc_height#,0); +italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi; +adjust_fit(0,0); pickup tiny.nib; +pos1(stem,0); pos2(stem,0); x1=x2; +lft x1l=hround(1.5u-.5stem); top y1=h; y2=.5x_height; +filldraw stroke z1e--z2e; % stem +sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif +pickup fine.nib; pos2'(stem,-180); pos3(vair,-90); +pos4(curve,0); pos5(vair,90); pos0(hair,180); +z0=z2=z2'; x3=x5=.5[x2,x4]; rt x4r=hround(w-1.5u+.5curve); +bot y3r=-oo; top y5r=x_height+oo; y4=y2; +filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4) + & pulled_arc.e(4,5) & super_arc.e(5,0); % bowl +math_fit(-.3x_height#*slant+.5curve#-u#,ic#); +put_cross(.5stem+if serifs: .9max(limit_dist,jut) else: 1.8u fi,.5stem+3u); +penlabels(0,1,2,3,4,5); endchar; + +dcchar"Dollar sign"; % from romanp (cm) +beginchar("$",9u#,body_height#,body_height#-asc_height#); +italcorr fig_height#*slant-.5u#; % same as for digits +adjust_fit(0,0); +numeric theta; theta=90-angle(50u,asc_height); slope:=-asc_height/50u; +pickup fine.nib; pos2(slab,-90); +pos0(cap_stem,theta); pos7(slab,-90); +x2=x0=x7=.5w; top y2l=asc_height+oo; bot y7r=-oo; +y0=.52asc_height; lft x3l=hround u; rt x6r=hround(w-u); +x3r-x3l=x6r-x6l=hround .35[slab,cap_stem]-fine; +ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r; +ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r; +filldraw stroke super_arc.e(2,3) & z3e{down} + ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke +if serifs: pos1(hair,0); pos8(hair,180); + pos10(flare,0); pos9(flare,180); + rt x1r=hround(w-u); lft x8r=hround u; y1=.5[y0,y2]; y8=.5[y0,y7]; + {{less_tense; pos2'(slab,90); z2'=z2; bulb(2',1,10); % upper arc and bulb + bulb(7,8,9)}}; % lower arc and bulb +else: pos1(.6[slab,flare],-100); pos8(flare,-100); + rt x1l=hround(w-1.3u); lft x8r=hround .8u; + top y1l=vround .92asc_height+oo; bot y8r=vround .1asc_height-oo; + filldraw stroke term.e(2,1,right,.9,4); % upper arc and terminal + filldraw stroke term.e(7,8,left,1,4); fi % lower arc and terminal +pickup crisp.nib; pos12(bar,0); pos11(bar,0); +lft x12l=lft x11l=hround(.5w-.5bar); top y12=h; bot y11=-d; +filldraw stroke z12e--z11e; % vertical crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12); endchar; + + +dcchar "Straight single quote"; % from romsub (cm) +beginchar(oct"047",5u#,asc_height#,0); +italcorr asc_height#*slant+.5 if serifs: flare# else: stem# fi -2u#; +adjust_fit(0,0); +x1=x2=.5w; y2=max(.5[bar_height,x_height]+.5vair,h-x_height); +if serifs: pickup crisp.nib; pos1(flare,0); pos2(vair,0); + y1+.5stem=h; filldraw circ_stroke z1e--z2e; % stem and bulb +else: pickup fine.nib; pos1(stem,0); pos2(vair,0); + top y1=h; filldraw stroke z1e--z2e; fi % stem +penlabels(1,2); endchar; + +dcchar "Double hyphen or short equals sign"; % jk +compute_spread(.45x_height#,.55x_height#); +beginchar(oct"055",6u#,v_center(spread#+rule_thickness#)); +italcorr h#*slant-.5u#; +adjust_fit(0,0); +numeric thickness; thickness=if hefty:bar else:.75[hair,stem] fi; +pickup crisp.nib; pos1(thickness,90); pos2(thickness,90); +pos3(thickness,90); pos4(thickness,90); +y1=y2; y3=y4; +top y1=vround .5h+.5thickness+.5spread; +top y3=vround .5h+.5thickness-.5spread; +rt x2=hround(w-u)+eps; +if monospace: x2=w-x1 else: lft x1=hround .2u-eps fi; +x3=x1; x4=x2; +filldraw stroke z1e--z2e; % upper bar +filldraw stroke z3e--z4e; % lower bar +penlabels(1,2,3,4); endchar; + +dcchar "Asterisk at the axis"; % from mathsy +beginchar(oct"052",9u#,v_center(x_height#)); +adjust_fit(0,0); +numeric ast_flare; ast_flare=hround .7[thin_join,stem]; +x0=.5w; y0=h-.5x_height; +for d=-150 step 60 until 150: z[d]=z0+.5dir d xscaled 7.5u yscaled x_height; + numeric theta; theta=angle(z[d]-z0); + fill z0+.5(0,-thin_join)rotated theta + ---z[d]+.5(-ast_flare,-ast_flare)rotated theta + ..z[d]..z[d]+.5(-ast_flare,ast_flare)rotated theta + ---z0+.5(0,thin_join)rotated theta--cycle; endfor % diagonal at angle |d| +labels(0,[-150],[-90],[-30],30,90,150); endchar; + +dcchar "Fraction"; % from punct (cm)" Virgule (slash)" +beginchar("/",9u#,body_height#,paren_depth#); +italcorr body_height#*slant-.5u#; +adjust_fit(0,0); pickup rule.nib; +rt x1=hround(w-u)+eps; top y1=h+eps; +lft x2=hround u-eps; bot y2=-d-eps; +draw z1--z2; % diagonal +penlabels(1,2); endchar; + +dcchar"Mho sign (turned Omega)"; % from lasy +beginchar(oct"115",13u#,cap_height#,0); +italcorr cap_height#*slant-.35u#; %italcorr .75cap_height#*slant-.5u#; +adjust_fit(0,0); +pickup tiny.nib; pos1(vair,-90); pos2(cap_curve,0); +pos3(vair,0); pos4(cap_curve,180); pos5(vair,180); +x1=.5w; bot y1r=0-o; lft x4r=hround u; y2=y4=1/3h; x2=w-x4; +rt x5l=hround(1/3(w+.5u)+.5hair); top y3=top y5=h; x3=w-x5; +filldraw stroke z3e{down}...{down}z2e + & pulled_super_arc.e(2,1)(.5superpull) + & pulled_super_arc.e(1,4)(.5superpull) + & z4e{up}...{up}z5e; % bowl +numeric arm_thickness; path p; p=z3{down}...{down}z2; +arm_thickness=Vround(if hefty:slab+2stem_corr else:.75[slab,cap_vstem] fi); +pickup crisp.nib; pos6(arm_thickness,90); pos7(fudged.hair,0); +top y6r=h; x6=x3; rt x7r=hround (w-.8u); y7=good.y(y6l-.5beak)+eps; +(x,y)=p intersectionpoint((0,y6l)--(w+h,y6l)); x6l:=x; +arm(6,7,a,.5beak_darkness,1.2beak_jut); % right arm and beak +pos8(arm_thickness,90); pos9(fudged.hair,180); +y8=y6; y9=y7; x8+x6=x9+x7=w; x8l:=w-x6l; +arm(8,9,b,.5beak_darkness,-1.2beak_jut); % left arm and beak +math_fit(0,.5ic#); penlabels(1,2,3,4,5,6,7,8,9); endchar; + +dcchar"Big circle for copyright, etc"; +beginchar("O",20u#,body_height#,max(paren_depth#,desc_depth#)); autorounded; +adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup rule.nib; +if .5w <> good.x .5w: change_width; fi +lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); endchar; + +dcchar"Ohm sign (ISO 6937)"; % from greeku (cmfonts) +beginchar(oct"127",13u#,cap_height#,0); +italcorr .75cap_height#*slant-.5u#; +adjust_fit(0,0); +pickup tiny.nib; pos1(vair,90); pos2(cap_curve,180); +pos3(vair,180); pos4(cap_curve,0); pos5(vair,0); +x1=.5w; top y1r=h+o; lft x2r=hround u; y2=y4=2/3h; x4=w-x2; +rt x3l=hround(1/3(w+.5u)+.5hair); bot y3=bot y5=0; x5=w-x3; +filldraw stroke z3e{up}...{up}z2e + & pulled_super_arc.e(2,1)(.5superpull) + & pulled_super_arc.e(1,4)(.5superpull) + & z4e{down}...{down}z5e; % bowl +numeric arm_thickness; path p; p=z3{up}...{up}z2; +arm_thickness=Vround(if hefty:slab+2stem_corr else:.75[slab,cap_vstem] fi); +pickup crisp.nib; pos6(arm_thickness,-90); pos7(fudged.hair,-180); +bot y6r=0; x6=x3; lft x7r=hround .8u; y7=good.y(y6l+.5beak)+eps; +(x,y)=p intersectionpoint((0,y6l)--(w,y6l)); x6l:=x; +arm(6,7,a,.5beak_darkness,-1.2beak_jut); % left arm and beak +pos8(arm_thickness,-90); pos9(fudged.hair,0); +y8=y6; y9=y7; x8+x6=x9+x7=w; x8l:=w-x6l; +arm(8,9,b,.5beak_darkness,1.2beak_jut); % right arm and beak +math_fit(0,.5ic#); penlabels(1,2,3,4,5,6,7,8,9); endchar; + +dcchar"Musical note (one eigth note)"; % jk +beginchar("n",11u#,asc_height#,0); +pickup rule.nib; +x1=3/5w; x2=x1; top y1=h; bot y2=.5bar_height; +lft x3=u; x5= x2; x4=x6=.5[x3,x5]; +y3=y5=vround(.5bar_height); y4=y6-bar_height=-oo; +x7=x1; rt x9=w-u; x8=.5[x7,x9]; +y7=y1; bot y9=vround(.5bar_height); y8=.5[y7,y9]; +draw z1--z2; % stem +filldraw z3{down}...z4{right}...z5{up}...z6{left}...cycle; % body +draw z7{down}...z8...{down}z9; % flag +endchar; + + +dcchar "Upward arrow"; % from sym +beginchar(oct"136",9u#,asc_height#,asc_depth#); +italcorr .76asc_height#*slant+.5crisp#-u#; +adjust_fit(0,0); pickup crisp.nib; +pos1(rule_thickness,0); pos2(rule_thickness,0); +pos3(rule_thickness,90); pos4(rule_thickness,90); +lft x1l=hround(.5w-.5rule_thickness); y1-.5rule_thickness=-d; +x0=x1=x2; top y0=h; x0-x3=x4-x0=if monospace:3u else:4u fi+eps; +y3=y4=y0-if monospace:.24 else:.36 fi asc_height-eps; +pos5(rule_thickness,angle(z4-z0)); z5l=z0; +pos6(rule_thickness,angle(z3-z0)); z6l=z0; +z9=.2[.5[z3,z4],z0]; +numeric t; path p; p=z4l{z9-z4}..z6r; +t=xpart(p intersectiontimes((x2r,-d)--(x2r,h))); y2=ypart point t of p; +filldraw z0..{z4-z9}z4r--subpath (0,t) of\\(z4l{z9-z4}..z6r) + --z2r---z1r..z1l---z2l--subpath (t,0) of\\(z3l{z9-z3}..z5r) + --z3r{z9-z3}..z0 & cycle; % arrowhead and stem +penlabels(0,1,2,3,4,5,6,9); endchar; + +dcchar "Downward arrow"; % from sym +beginchar(oct"137",9u#,asc_height#,asc_depth#); +adjust_fit(0,0); pickup crisp.nib; +pos1(rule_thickness,0); pos2(rule_thickness,0); +pos3(rule_thickness,90); pos4(rule_thickness,90); +lft x1l=hround(.5w-.5rule_thickness); y1+.5rule_thickness=h; +x0=x1=x2; bot y0=-d; x0-x3=x4-x0=if monospace:3u else:4u fi+eps; +y3=y4=y0+if monospace:.24 else:.36 fi asc_height+eps; +pos5(rule_thickness,angle(z4-z0)); z5l=z0; +pos6(rule_thickness,angle(z3-z0)); z6l=z0; +z9=.2[.5[z3,z4],z0]; +numeric t; path p; p=z4r{z9-z4}..z6r; +t=xpart(p intersectiontimes((x2r,-d)--(x2r,h))); y2=ypart point t of p; +filldraw z0..{z4-z9}z4l--subpath (0,t) of\\(z4r{z9-z4}..z6r) + --z2r---z1r..z1l---z2l--subpath (t,0) of\\(z3r{z9-z3}..z5r) + --z3l{z9-z3}..z0 & cycle; % arrowhead and stem +penlabels(0,1,2,3,4,5,6,9); endchar; + +dcchar"Backwards tick mark"; % from accent (cmfonts, grave accent) +beginchar(oct"140",9u#,min(asc_height#,2x_height#),0); +adjust_fit(0,0); +if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1]; + y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair); + numeric theta; theta=angle(z2-z1)+90; + pos1(stem,theta); pos2(hair,theta); + filldraw circ_stroke z1e--z2e; % diagonal +else: pickup fine.nib; pos1(stem,0); pos2(vair,0); + lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair); + top y1=h; bot y2=vround 2/3[h,x_height]; + filldraw stroke z1e--z2e; fi % diagonal +penlabels(1,2); endchar; + +dcchar "Low lying tilde (squiggle)"; +beginchar(oct"176",11u#,min(bar_height#,2/7x_height#),0); +italcorr h#*slant-u#; +adjust_fit(0,0); +if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4h); + pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem]; + pos1(vair,theta+90); pos2(vair,theta+90); + pos3(vair,theta+90); pos4(vair,theta+90); + z2-z1=z4-z3=(mid_width-crisp)*dir theta; + lft x1r=w-rt x4l=hround 1.5u; top y4r=h; + bot y1l=0; + pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta; + filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l + --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle; % stroke +else: pickup fine.nib; pos1(vair,180); pos2(vair,90); + pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180); + lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4; + bot y1=bot y4l=0; + top y2r=top y5=h; y3=.5[y2,y4]; + filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke +penlabels(1,2,3,4,5); endchar; + +iff not monospace: +dcchar "Double hyphen-hyphenchar"; % jk +compute_spread(.45x_height#,.55x_height#); +beginchar(oct"177",3u#,v_center(spread#+rule_thickness#)); +italcorr h#*slant-.5u#; +adjust_fit(0,0); +numeric thickness; thickness=if hefty:bar else:.75[hair,stem] fi; +pickup crisp.nib; pos1(thickness,90); pos2(thickness,90); +pos3(thickness,90); pos4(thickness,90); +y1=y2; y3=y4; +top y1=vround .5h+.5thickness+.5spread; +top y3=vround .5h+.5thickness-.5spread; +rt x2=hround(2w-u)+eps; +lft x1=hround .2u-eps; +x3=x1; x4=x2; +filldraw stroke z1e--z2e; % upper bar +filldraw stroke z3e--z4e; % lower bar +penlabels(1,2,3,4); endchar; + +iff monospace: +dcchar "Double hyphen-hyphenchar"; % jk +compute_spread(.45x_height#,.55x_height#); +beginchar(oct"177",6u#,v_center(spread#+rule_thickness#)); +italcorr h#*slant-.5u#; +adjust_fit(0,0); +numeric thickness; thickness=if hefty:bar else:.75[hair,stem] fi; +pickup crisp.nib; pos1(thickness,90); pos2(thickness,90); +pos3(thickness,90); pos4(thickness,90); +y1=y2; y3=y4; y1-y3=spread; .5[y1,y3]=math_axis; +rt x2=hround(w-u)+eps; +if monospace: x2=w-x1 else: lft x1=hround .2u-eps fi; +x3=x1; x4=x2; +filldraw stroke z1e--z2e; % upper bar +filldraw stroke z3e--z4e; % lower bar +penlabels(1,2,3,4); endchar; + +dcchar"Breve"; +beginchar(oct"200",11u#,min(asc_height#,2x_height#),0); +italcorr h#*slant+.5vair#-1.5u#; +adjust_fit(0,0); +pickup crisp.nib; pos1(vair,-180); pos3(vair,0); +top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair); +numeric mid_thickness; mid_thickness=vround 1/3[vair,stem]; +pos2(mid_thickness,-90); x2=.5w; +bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness); +filldraw stroke z1e{down}...z2e{right}...{up}z3e; % stroke +penlabels(1,2,3); endchar; + +dcchar "Hachek (Caron)"; +beginchar(oct"201",11u#,min(asc_height#,2x_height#),0); +h':=vround min(asc_height,2x_height); % height of circumflex being inverted +if serifs: italcorr h#*slant+.5hair#-1.75u#; + adjust_fit(0,0); + pickup crisp.nib; pos2'(.5[vair,curve],90); top y2'r=h; + pos2(.5[vair,curve],90); x2=.5w; + x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height); + pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90); + filldraw stroke z1e--z2e--z3e; % diagonals +else: italcorr h#*slant-.5stem#+.5vair#-.75u#; + adjust_fit(0,0); + pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3; + pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w; + top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair); + z0=whatever[z1r,z2r]=whatever[z2l,z3l]; + y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l; + filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi % diagonals +penlabels(0,1,2,3,4); endchar; + +dcchar"Double tick mark (inch sign)"; % from accent (hungarian long umlaut) +beginchar(oct"202",9u#,min(asc_height#,2x_height#),0); +italcorr h#*slant-u#; +adjust_fit(0,0); +x3-x1=x4-x2=hround 3u; y3=y1; y4=y2; +if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u; + y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair); + numeric theta; theta=angle(z2-z1)+90; + pos1(stem,theta); pos2(hair,theta); + pos3(stem,theta); pos4(hair,theta); + filldraw circ_stroke z1e--z2e; % left diagonal + filldraw circ_stroke z3e--z4e; % right diagonal +else: pickup fine.nib; pos1(stem,0); pos2(vair,0); + pos3(stem,0); pos4(vair,0); + rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair); + top y1=h; bot y2=vround 2/3[h,x_height]; + filldraw stroke z1e--z2e; % left diagonal + filldraw stroke z3e--z4e; fi % right diagonal +penlabels(1,2,3,4); endchar; + +dcchar"Double backwards tick mark"; % jk +beginchar(oct"203",9u#,min(asc_height#,2x_height#),0); +adjust_fit(0,0); +x3-x1=x4-x2=hround 3u; y3=y1; y4=y2; +if serifs: pickup crisp.nib; x1-.5stem=hround 1.5u; x2=3.5u; + y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair); + numeric theta; theta=angle(z2-z1)+90; + pos1(stem,theta); pos2(hair,theta); + pos3(stem,theta); pos4(hair,theta); + filldraw circ_stroke z1e--z2e; % left diagonal + filldraw circ_stroke z3e--z4e; % right diagonal +else: pickup fine.nib; pos1(stem,0); pos2(vair,0); + pos3(stem,0); pos4(vair,0); + lft x1l=hround 1.5u; rt x2r=hround(.5w-u+.5vair); + top y1=h; bot y2=vround 2/3[h,x_height]; + filldraw stroke z1e--z2e; % left diagonal + filldraw stroke z3e--z4e; fi % right diagonal +penlabels(1,2,3,4); endchar; + + +dcchar "Dagger mark"; % from mathsy +beginchar(oct"204",8u#,asc_height#,desc_depth#); +adjust_fit(0,0); pickup fine.nib; +pos1(stem,0); pos2(thin_join,0); pos3(stem,0); pos4(hair,0); +pos5(stem,90); pos2'(thin_join,90); pos6(stem,90); z2'=z2; +x1=x2=x3=x4; x1-.5stem=hround(.5w-.5stem); center_on(x1); +x5-.5stem=hround u; x6=w-x5; +y1+.5stem=h+oo; y2=y5=y6; y3=.57y2; bot y4=-d-o; +y5+.5stem=floor(x_height+.5stem); +filldraw circ_stroke z1e{down}..z2e{down}..z3e{down}..z4e; % stem +filldraw circ_stroke z5e{right}..{right}z2'e; % left bulb +filldraw circ_stroke z6e{left}..{left}z2'e; % right bulb +penlabels(1,2,3,4,5,6); endchar; + +dcchar "Double dagger mark"; % from mathsy +beginchar(oct"205",8u#,asc_height#,desc_depth#); +adjust_fit(0,0); pickup fine.nib; +pos1(stem,0); pos2(thin_join,0); pos3(stem,0); +pos4(stem,90); pos2'(thin_join,90); pos5(stem,90); z2'=z2; +x1=x2=x3; x1-.5stem=hround(.5w-.5stem); center_on(x1); +x4-.5stem=hround u; x5=w-x4; +y1+.5stem=h+oo; y2=y4=y5=.5[y1,y3]; y3-.5stem=ceiling(.5[-d,h]); +filldraw circ_stroke z1e{down}..{down}z2e; % top stem +filldraw circ_stroke z3e{up}..{up}z2e; % upper middle stem +filldraw circ_stroke z4e{right}..{right}z2'e; % top left bulb +filldraw circ_stroke z5e{left}..{left}z2'e; % top right bulb +pos6(stem,0); pos7(thin_join,0); pos8(stem,0); +pos9(stem,90); pos7'(thin_join,90); pos0(stem,90); z7'=z7; +x6=x7=x8=x1; x9=x4; x0=x5; +y6=y3-stem-1; y7=y9=y0=.5[y6,y8]; y8-.5stem=-d-oo; +filldraw circ_stroke z6e{down}..{down}z7e; % lower middle stem +filldraw circ_stroke z8e{up}..{up}z7e; % bottom stem +filldraw circ_stroke z9e{right}..{right}z7'e; % bottom left bulb +filldraw circ_stroke z0e{left}..{left}z7'e; % bottom right bulb +penlabels(1,2,3,4,5,6,7,8,9,0); endchar; + +dcchar "Double vertical line (norm or cardinality)"; % from mathsy +% Change (jk): Made the two lines as close as in \P +beginchar(oct"206",9u#,body_height#,paren_depth#); +adjust_fit(0,0); pickup rule.nib; +x1=x2; top y1=h; .5[y1,y2]=math_axis; +x3=x4=w-x1; y3=y1; y4=y2; +x3-x1=ceiling(rule_thickness+1.25u); +draw z1--z2; draw z3--z4; % stems +labels(1,2,3,4); endchar; + +dcchar "Per mill sign"; % by Emma Pease +beginchar(oct"207",15u#+max(6u#,2fudge*(hair#+stem#)), + body_height#,body_height#-asc_height#); +italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi; +adjust_fit(0,0); pickup fine.nib; +numeric left_curve,right_curve; +left_curve=hround 5/6[fudged.hair,fudged.stem]; +right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi)); +pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360); +top y1r=h; lft x2r=hround u; rt x4r=hround(.5(w-6u)-1.5u); +bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height); +x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3]; +filldraw stroke pulled_super_arc.e(1,2)(superpull) + & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl +filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl +% +pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360); +bot y7r=-d; rt x8r=hround(w-7u); lft x6r=hround(.5(w-6u)+1.5u); +top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height); +x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7]; +filldraw stroke pulled_super_arc.e(5,6)(superpull) + & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl +filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl +% +pos13(vair,90); pos14(left_curve,180); pos15(vair,270); +pos16(right_curve,360); +bot y15r=-d; rt x16r=hround(w-u); lft x14r=hround(.5(w-6u)+1.5u+6u); +top y13r=vround(if monospace: .3 else: .5 fi\\ asc_height); +x13=x15=.5[x14,x16]; y14=y16=.5[y13,y15]; +filldraw stroke pulled_super_arc.e(13,14)(superpull) + & pulled_super_arc.e(14,15)(superpull); % left half of lower bowl +filldraw stroke super_arc.e(15,16) & super_arc.e(16,13); % right half of lower bowl +% +pickup rule.nib; top y9=h; bot y10=-d; +if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps); + draw z9--z10; % diagonal +else: rt x9=hround(w-6u-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal + pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90); + pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90); + path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r; + filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16); endchar; + +dcchar "Bullet"; % from mathsy +beginchar(oct"210",9u#,v_center(7u#)); +adjust_fit(0,0); pickup rule.nib; autorounded; +if .5w <> good.x .5w: change_width; fi +lft x6=hround u; x2=w-x6; top y8=h; y2=math_axis; circle_points; +filldraw z8{right}...z1{z2-z8}...z2{down}...z3{z4-z2}...z4{left} + ...z5{z6-z4}...z6{up}...z7{z8-z6}...cycle; % circle and interior +labels(1,2,3,4,5,6,7,8); endchar; + +dcchar"Centigrade sign"; +if serifs: beginchar(oct"211",13u#,cap_height#,0); + italcorr cap_height#*slant-.5u#; + adjust_fit(4u#,0); + pickup fine.nib; pos1(cap_hair,0); pos2(cap_band,90); + pos3(cap_curve,180); pos4(cap_band,270); pos5(hair,360); + rt x1r=rt x5r=hround(w-u); lft x3r=hround u; x2=x4=.55[x3,x1]; + top y2r=h+o; bot y4r=-o; y3=.5[y2,y4]; + bot y1=min(vround max(.6h,x_height-.5vair),bot y2l-eps); + y5=max(good.y .95(h-y1),y4l+eps); + (x2l',y2l)=whatever[z2r,z1l]; x2l:=min(x2l',x2l+.5u); + (x4l',y4l)=whatever[z4r,z5l]; x4l:=min(x4l',x4l+.5u); + filldraw stroke z1e{x2-x1,10(y2-y1)} + ...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{up}z5e; % arc + pos6(.3[fine.breadth,cap_hair],0); x6r=x1r; top y6=h+o; + x1r-x1'=2cap_curve-fine; y1'=y1; + path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{left}; + numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb +else: beginchar(oct"211",11.5u#,cap_height#,0); + italcorr cap_height#*slant-.5u#; + adjust_fit(4u#,0); + pickup fine.nib; pos1(1.2flare,80); pos2(slab,90); + pos3(cap_curve,180); pos4(slab,270); pos5(flare,275); + rt x1r=hround(w-1.1u); x2=x4=.5w+1.25u; + lft x3r=hround max(u,2u-.5cap_curve); rt x5r=hround(w-.9u); + top y1r=vround .95h+o; top y2r=h+o; y3=.5h; + bot y4r=-o; bot y5r=vround .08h-o; y5l:=good.y y5l; x5l:=good.x x5l; + filldraw stroke rterm.e(2,1,right,.9,4) & super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,right,.8,4); fi % arc and terminals +penlabels(1,1',2,3,4,5,6); +clearxy; +pickup rule.nib; autorounded; +lft x6=-4u; rt x2=0; top y8=h; y8-y2=x2-x8; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); +math_fit(-.3cap_height#*slant-.5u#,.5ic#); +endchar; + +dcchar "Oldstyle dollar sign"; % based on romanp (cm) +beginchar(oct"212",11u#,body_height#,body_height#-asc_height#); +italcorr fig_height#*slant-.5u#; % same as for digits +adjust_fit(0,0); +numeric theta; theta=90-angle(50u,asc_height); slope:=-asc_height/50u; +pickup fine.nib; pos2(slab,-90); +pos0(cap_stem,theta); pos7(slab,-90); +x2=x0=x7=.5w; top y2l=asc_height+oo; bot y7r=-oo; +y0=.52asc_height; lft x3l=hround u; rt x6r=hround(w-u); +x3r-x3l=x6r-x6l=hround .35[slab,cap_stem]-fine; +ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r; +ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r; +filldraw stroke super_arc.e(2,3) & z3e{down} + ..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke +if serifs: pos1(hair,0); pos8(hair,180); + pos10(flare,0); pos9(flare,180); + rt x1r=hround(w-u); lft x8r=hround u; y1=.5[y0,y2]; y8=.5[y0,y7]; + {{less_tense; pos2'(slab,90); z2'=z2; bulb(2',1,10); % upper arc and bulb + bulb(7,8,9)}}; % lower arc and bulb +else: pos1(.6[slab,flare],-100); pos8(flare,-100); + rt x1l=hround(w-1.3u); lft x8r=hround .8u; + top y1l=vround .92asc_height+oo; bot y8r=vround .1asc_height-oo; + filldraw stroke term.e(2,1,right,.9,4); % upper arc and terminal + filldraw stroke term.e(7,8,left,1,4); fi % lower arc and terminal +pickup crisp.nib; pos12(bar,0); pos11(bar,0); pos13(bar,0); pos14(bar,0); +x11=x12; x13=x14=w-x11; x13-x11=ceiling(rule_thickness+1.25u); +top y12=top y14=h; bot y11=bot y13=-d; +filldraw stroke z12e--z11e; % left vertical crossbar +filldraw stroke z14e--z13e; %right vertical crossbar +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14); endchar; + +dcchar "Oldstyle cent sign"; % jk, based on cm `c' +beginchar(oct"213",9u#,x_height#+.5desc_depth#,.5desc_depth#); +italcorr x_height#*slant-.2u#; +adjust_fit(0,0); +pickup fine.nib; pos2(vair',90); pos4(vair',270); +x2=x4=.5(w+u); top y2r=vround(x_height+1.5oo); bot y4r=-oo; +pos3(curve,180); lft x3r=hround max(.6u,1.35u-.5curve); y3=.5x_height; +if serifs: pos1(hair,0); pos0(flare,0); + y1=min(bar_height+.5flare+2vair'+2,.9[bar_height,x_height]-.5flare); + rt x1r=hround(w-.7u); bulb(2,1,0); % bulb + pos5(hair,0); rt x5r=hround(w-.5u); + y5=max(good.y(.5bar_height-.9),y4l+vair'); + (x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u); + filldraw stroke pulled_super_arc.e(2,3)(.7superpull) + & pulled_super_arc.e(3,4)(.5superpull) + ..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; % arc and lower terminal +else: pos1(4/7[vair',flare],80); + rt x1r=hround(w-.6u); top y1r=vround .82[bar_height,top y2r]; + filldraw stroke term.e(2,1,right,.8,4); % upper terminal + pos5(.6[vair',flare],275); rt x5r=hround(w-.5u); + y5r=good.y(y5r+1/3bar_height-y5); y5l:=good.y y5l; x5l:=good.x x5l; + forsuffixes e=l,r: path p.e; p.e=z4e{right}..tension .9 and 1..z5e; + if angle direction 1 of p.e>75: + p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor + filldraw stroke pulled_super_arc.e(2,3)(.7superpull) + & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal +pickup crisp.nib; +x7=x3; x6=w-x7; y6=h; y7=-d; +numeric theta; theta=angle(z7-z6)-90; +pos6(vair,theta); pos7(vair,theta); +filldraw stroke z6e--z7e; % diagonal +penlabels(0,1,2,3,4,5,6,7); endchar; + +iff variant_g: % I use this as marker for italic fonts +dcchar "Italic florin sign (italic letter f)"; % from itall (cm) +beginchar(oct"214",max(1.5u#,stem#)+max(3.5u#,2flare#), + asc_height#,desc_depth#); +italcorr asc_height#*slant+.75u#; +adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib; +numeric theta; z88=(.5w-.5u,h); z89=(.5w+.5u,-d); theta=angle(z88-z89); +pos0(flare,0); pos1(hair,0); pos2(vair,90); +pos3(.5[hair,stem],180); pos4(stem,theta+90); +pos5(stem,theta-90); pos6(.5[hair,stem],0); +pos7(vair,-90); pos8(hair,-180); pos9(flare,-180); +rt x1r=hround(w+.25u); lft x8r=hround-.35u; x2=.6[x1,x4]; x7=.6[x8,x5]; +y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo; +y4=.25[x_height,h]; y5=.5[-d,y4]; +z4=whatever[z88,z89]; z5=whatever[z88,z89]; +x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7]; +bulb(2,1,0); bulb(7,8,9); % bulbs +filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper arc +filldraw z4r--z5l--z5r--z4l--cycle; % stem +filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower arc +pickup crisp.nib; pos20(bar,90); pos21(bar,90); +top y20r=top y21r=x_height; +lft x20=lft x4r-.5stem-u; rt x21=rt x4l+.5stem+1.5u; +filldraw stroke z20e--z21e; % crossbar +math_fit(desc_depth#*slant+u#,x_height#*slant); +penlabels(0,1,2,3,4,5,6,7,8,9,20,21,88,89); endchar; + + +iff not variant_g: +dcchar "Florin sign (The letter f)"; % from romanl (cm) +beginchar(oct"214",5.5u#,asc_height#,0); +italcorr asc_height#*slant+if serifs:flare#-.25u# else: 1.25u# fi; +adjust_fit(stem_shift#,if monospace: .5u# else:-stem_shift# fi); +pickup tiny.nib; pos1(stem',0); lft x1l=hround(2.5u-.5stem'); +pickup fine.nib; numeric bulb_diam; +if serifs: bulb_diam=hround .8[stem,flare]; + pos2(bulb_diam,0); y2+.5bulb_diam=.9[x_height,h+oo]; + if monospace: rt x2r=hround(w-.5u)+1 else: lft x2l=hround(w-.75u+.5) fi; +else: pos2(5/7[vair,flare],90); top y2r=h; + rt x2=hround(if monospace:w-.5u else:w+.75u fi); fi +f_stroke(1,2,a,b,c,jut,if not monospace:1.25fi\\ jut); % stem, terminal, serif +pickup crisp.nib; top y3r=top y4r=x_height; lft x3=hround .5u-1; +pos3(bar,90); pos4(bar,90); +rt x4=hround(w-if monospace:.75u+1 else:1/3u fi); +filldraw stroke z3e--z4e; % bar +penlabels(1,2,3,4); endchar; + +dcchar"Colon sign or Cedi sign"; % Panamese or Ghanese currency +if serifs: beginchar(oct"215",13u#,body_height#,body_height#-asc_height#); + italcorr cap_height#*slant-.5u#; + adjust_fit(0,0); + pickup fine.nib; pos1(cap_hair,0); pos2(cap_band,90); + pos3(cap_curve,180); pos4(cap_band,270); pos5(hair,360); + rt x1r=rt x5r=hround(w-u); lft x3r=hround u; x2=x4=.55[x3,x1]; + numeric hh; hh=cap_height; + top y2r=hh+o; bot y4r=-o; y3=.5[y2,y4]; + bot y1=min(vround max(.6hh,x_height-.5vair),bot y2l-eps); + y5=max(good.y .95(hh-y1),y4l+eps); + (x2l',y2l)=whatever[z2r,z1l]; x2l:=min(x2l',x2l+.5u); + (x4l',y4l)=whatever[z4r,z5l]; x4l:=min(x4l',x4l+.5u); + filldraw stroke z1e{x2-x1,10(y2-y1)} + ...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{up}z5e; % arc + pos6(.3[fine.breadth,cap_hair],0); x6r=x1r; top y6=hh+o; + x1r-x1'=2cap_curve-fine; y1'=y1; + path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{left}; + numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb + pickup crisp.nib; pos12(bar,0); pos11(bar,0); + lft x12l=lft x11l=hround(x2-.5bar); top y12=h; bot y11=-d; + filldraw stroke z12e--z11e; % vertical crossbar +else: beginchar(oct"215",11.5u#,body_height#,body_height#-asc_height#); + italcorr cap_height#*slant-.5u#; + adjust_fit(0,0); + pickup fine.nib; pos1(1.2flare,80); pos2(slab,90); + pos3(cap_curve,180); pos4(slab,270); pos5(flare,275); + rt x1r=hround(w-1.1u); x2=x4=.5w+1.25u; + lft x3r=hround max(u,2u-.5cap_curve); rt x5r=hround(w-.9u); + numeric hh; hh=cap_height; + top y1r=vround .95hh+o; top y2r=hh+o; y3=.5hh; + bot y4r=-o; bot y5r=vround .08hh-o; y5l:=good.y y5l; x5l:=good.x x5l; + filldraw stroke rterm.e(2,1,right,.9,4) & super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,right,.8,4); % arc and terminals + pickup crisp.nib; pos12(bar,0); pos11(bar,0); + lft x12l=lft x11l=hround(x2-.5bar); top y12=h; bot y11=-d; + filldraw stroke z12e--z11e; % vertical crossbar +fi +math_fit(-.3cap_height#*slant-.5u#,.5ic#); +penlabels(1,1',2,3,4,5,6,11,12); endchar; + +dcchar"Won sign"; % Korean currency +beginchar(oct"216",18u#,cap_height#,0); +italcorr cap_height#*slant+.25u#; +adjust_fit(cap_serif_fit#,cap_serif_fit#); +numeric stem[],outer_jut,upper_notch,alpha,mid_corr; +outer_jut=.7cap_jut; x1l=w-x8r=l+letter_fit+outer_jut+.25u; +stem1=fudged.cap_stem-stem_corr; +stem4=min(fudged.hair if hefty:-2stem_corr fi,stem1); +stem2=stem4 if hefty:-2stem_corr fi; +stem3=stem1 if hefty:-2stem_corr fi; +x2-x1=x4-x3=x6-x5=x8-x7; x2l+apex_corr=x3l; x6l+apex_corr=x7l; +y1=y8=h; y2=y3=y6=y7=-apex_o; y4=y5=if monospace: vround .6 fi\\ h; +mid_corr=if monospace or hefty:-apex_corr else: 1/3jut fi; +alpha=diag_ratio(4,stem2-stem3+stem4,y1-y2,x8r-x1l+mid_corr-2apex_corr); +penpos1(alpha*stem1,0); penpos2(alpha*stem1,0); +penpos3(alpha*stem2,0); penpos4(alpha*stem2,0); +penpos5(alpha*stem3,0); penpos6(alpha*stem3,0); +penpos7(alpha*stem4,0); penpos8(alpha*stem4,0); +x4l-x1l=floor(x4l-x1l+.5(x5r+mid_corr-x4r)); % |x5r+mid_corr| $\approx$ |x4r| +z23=whatever[z1r,z2r]=whatever[z3l,z4l]; +z45=whatever[z3r,z4r]=whatever[z5l,z6l]; +z67=whatever[z5r,z6r]=whatever[z7l,z8l]; upper_notch=y4-cap_notch_cut; +fill diag_end(1l,2l,1,1,3r,4r){z4-z3} + ...if y45<upper_notch:(x45,upper_notch)+.5left{up} + --(x45,upper_notch)+.5right{down} else: z45&z45 fi + ...{z6-z5}diag_end(5l,6l,1,1,7r,8r)--diag_end(7r,8r,1,1,8l,7l){z7-z8} + ...if y67>cap_notch_cut:(x67,cap_notch_cut)+.5right{down} + --(x67,cap_notch_cut)+.5left{up} else: z67&z67 fi + ...{z5-z6}special_diag_end(6,5,4,3){z3-z4} + ...if y23>cap_notch_cut:(x23,cap_notch_cut)+.5right{down} + --(x23,cap_notch_cut)+.5left{up} else: z23&z23 fi + ...{z1-z2}diag_end(2r,1r,1,1,1l,2l)--cycle; % diagonals +if serifs: numeric inner_jut[]; pickup tiny.nib; + prime_points_inside(1,2); prime_points_inside(5,6); +prime_points_inside(8,7); + if monospace: inner_jut1=inner_jut4=1.5cap_jut; + elseif hefty: inner_jut1=inner_jut4=cap_jut; + else: fill diag_end(6r,5r,1,1,5l,6l) + --.5[z5l,z6l]--.5[z5r,z6r]--cycle; % middle stem + inner_jut2=.7inner_jut1; inner_jut4=1.1inner_jut3; + if rt x1'r+cap_jut+.5u+1<=lft x5'l-.7cap_jut: inner_jut1=cap_jut; + else: rt x1'r+inner_jut1+.5u+1=lft x5'l-inner_jut2; fi + if rt x5'r+cap_jut+.5u+1<=lft x8'l-1.1cap_jut: inner_jut3=cap_jut; + else: rt x5'r+inner_jut3+.5u+1=lft x8'l-inner_jut4; fi + dish_serif(5',6,e,1/3,inner_jut2,f,1/2,inner_jut3); fi % middle serif + dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut1); % left serif + dish_serif(8',7,c,.6,inner_jut4,d,1/2,outer_jut)(dark); fi % right serif +pickup extra_rule.nib; +x9=x11=x1l; x10=x12=x8r; y9=y10; +top y9=bar_height; y11=y12; draw z9--z10; +y11-y9=spread; draw z11--z12; % crossing bars +math_fit(.75u#-cap_height#*slant,ic#-2.5u#); +penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,23,45,67); endchar; + +dcchar"Naira sign"; % Nigerian currency +beginchar(oct"217",13u#+width_adj#,cap_height#,0); +italcorr cap_height#*slant-cap_serif_fit#+cap_jut#-2.5u#+ +min(.5cap_stem#,u#); +adjust_fit(cap_serif_fit#+.25u#,cap_serif_fit#+.25u#); +numeric thin_stem; thin_stem=hround(fudged.hair+stem_corr); +pickup tiny.nib; pos1(thin_stem,0); pos2(thin_stem,0); +pos3(thin_stem,0); pos4(thin_stem,0); +pickup tiny.nib; top y1=top y3=h; bot y2=bot y4=0; +x1=x2; x3=x4; x1l=w-x3r; +rt x3r=hround min(w-2u,w-3u+.5fudged.cap_stem); +filldraw stroke z1e--z2e; % left stem +filldraw stroke z3e--z4e; % right stem +if hefty: penpos5(fudged.cap_stem,0); penpos6(fudged.cap_stem,0); + x5l=x1; x6r=x4; y5=h; y6=0; + numeric upper_notch,lower_notch; + upper_notch=h-cap_notch_cut; lower_notch=cap_notch_cut; + x1'=rt x1r; z1'=whatever[z5l,z6l]; x4'=lft x4l; z4'=whatever[z5r,z6r]; + fill z5l.. + if y1'<upper_notch: {right}(x1'+1,upper_notch){down}... fi + {z6-z5}diag_in(5l,6l,1,6r)--z6r.. + if y4'>lower_notch: {left}(x4'-1,lower_notch){up}... fi + {z5-z6}diag_in(6r,5r,1,5l)--cycle; % diagonal +else: penpos5(whatever,0); penpos6(whatever,90); + z5l=z1l; z6l=z4l; + z7=z6l+(max(eps,cap_stem-3stem_corr-tiny),0) rotated (angle(z5l-z6l)-90); + z5r=z7+whatever*(z5l-z6l); z6r=z7+whatever*(z5l-z6l); + filldraw stroke z5e..z6e; fi % diagonal +if serifs: if hefty: serif(1,2,a,1/3,-cap_jut); % upper left serif + else: serif(5,6,a,1/3,-cap_jut); fi % upper left serif + dish_serif(2,1,b,1/2,cap_jut,c,1/2,cap_jut)(dark); % lower left serif + dish_serif(3,4,e,1/2,cap_jut,f,1/2,cap_jut)(dark); fi % upper right serif +pickup extra_rule.nib; +x8=x10=0; x9=x11=w; y10=y11; +top y8=bar_height; y8=y9; draw z8--z9; +y10-y8=spread; draw z10--z11; % crossing bars +math_fit(0,max(.5ic#-.5u#,0)); +penlabels(1,1',2,3,4,4',5,6,7,8,9,10,11); endchar; + +dcchar"Guarani sign"; % Currency of Paraguay +if serifs: beginchar(oct"220",14u#,body_height#,body_height#-asc_height#); + italcorr cap_height#*slant-1.5u#-.5cap_serif_fit#; + adjust_fit(0,.5cap_serif_fit#); + numeric hh; hh=cap_height; + pickup tiny.nib; pos0(cap_stem,0); pos7(cap_stem,0); + rt x0r=hround(w-2u); y0=good.y(.1[bar_height,x_height]+1); x7=x0; + pickup fine.nib; + if hefty: bot y7=0; pos5(cap_stem,0); x5=x0; top y5=tiny.top y0; + else: pos5(cap_hair,0); pos8(cap_stem,0); + y7=.5bar_height; z5l=z8l; z8=z7; x9=x8r; bot y9=0; + filldraw z8l{down}..{4(x9-x8),y9-y8}z9--z8r--cycle; fi % spur + pos1(cap_hair,0); pos2(cap_band,90); + pos3(cap_curve,180); pos4(cap_band,270); + rt x1r=hround(w-2u); lft x3r=hround u; x2=x4=.55[x3,x1]; + top y2r=hh+o; bot y4r=-o; y3=.5[y2,y4]; + bot y1=min(vround max(.6hh,x_height-.5vair),bot y2l-eps); + (x2l',y2l)=whatever[z2r,z1l]; x2l:=min(x2l',x2l+.5u); + (x4l',y4l)=whatever[z4r,z5l]; x4l:=min(x4l',x4l+.5u); + filldraw stroke z1e{x2-x1,10(y2-y1)} + ...pulled_arc.e(2,3) & pulled_arc.e(3,4)...z5e{up}; % arc + pos6(.3[fine.breadth,cap_hair],0); x6r=x1r; top y6=hh+o; + x1r-x1'=2cap_curve-fine; y1'=y1; + path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{left}; + numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb + pickup tiny.nib; filldraw stroke z0e--z7e; % stem + dish_serif(0,7,a,1/3,max(cap_jut,2.25u),b,1/3,1.25u); % serif + pickup crisp.nib; pos12(bar,0); pos11(bar,0); + lft x12l=lft x11l=hround(x2-.5bar); top y12=h; bot y11=-d; + filldraw stroke z12e--z11e; % vertical crossbar + math_fit(-.3cap_height#*slant-.5u#,ic#); +else: beginchar(oct"220",14u#,body_height#,body_height#-asc_height#); + italcorr cap_height#*slant-.5u#; + adjust_fit(0,0); + numeric hh; hh=cap_height; + pickup fine.nib; pos1(1.2flare,80); pos2(slab,90); + pos3(cap_curve,180); pos4(slab,270); pos5(flare,270); + rt x1r=hround(w-1.35u); x2=x4=.5w+u; + lft x3r=hround max(u,2u-.5cap_curve); rt x5l=hround(w-1.2u); + top y1r=vround .93hh+o; top y2r=hh+o; y3=.5hh; + bot y4r=-o; bot y5r=vround .07hh-o; + filldraw stroke rterm.e(2,1,right,.9,4)&super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,right,1,4); % arc and terminals + pos0(stem,0); pos7(stem,0); + z7r=z5r; x0=x7; top y0=1+vround .35[bar_height,x_height]; + filldraw stroke z0e--z7e; % stem + pos8(cap_bar,90); pos9(cap_bar,90); + z0r=z9r; y8=y9; lft x8=hround x4; + filldraw stroke z8e--z9e; % bar + pickup crisp.nib; pos12(bar,0); pos11(bar,0); + lft x12l=lft x11l=hround(x2-.5bar); top y12=h; bot y11=-d; + filldraw stroke z12e--z11e; % vertical crossbar + math_fit(-.3cap_height#*slant-.5u#,.5ic#); fi +penlabels(0,1,1',2,3,4,5,6,7,8,9,11,12); endchar; + +dcchar"Peso sign"; +beginchar(oct"221",12u#,cap_height#,0); +italcorr .75cap_height#*slant-.5u#; +adjust_fit(cap_serif_fit#+.25u#,0); +pickup tiny.nib; penpos1(cap_stem'-tiny,0); penpos2(cap_stem-tiny,0); +pos0(cap_stem',0); pos0'(cap_stem,0); +lft x1l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; +x1l=x2l=x0l=x0'l; y0=y0'=y7; +penpos3(cap_band,90); penpos4(cap_band,90); +penpos5(cap_curve if hefty:-3stem_corr fi,0); +penpos6(.5[vair,cap_band],-90); penpos7(.5[vair,cap_band],-90); +z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; +x7=x2; y7l=vround .5h; x4=x6=.5w+.75u; x5r=hround(w-u); +x4l:=x6l:=x4-.25cap_curve; +filldraw stroke z1e--z0e--z0'e--z2e; % stem +fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe +if serifs: nodish_serif(1,0,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + dish_serif(2,0',c,1/3,cap_jut,d,1/3,cap_jut); fi % lower serif +pickup extra_rule.nib; +x8=0; x9=.5[x1r,x5r]; top y8=bar_height; y8=y9; draw z8--z9; +math_fit(0,ic#-2.5u#); penlabels(0,1,2,3,4,5,6,7); labels(8,9); +endchar; + +dcchar "Lira sign"; % +compute_spread(.35x_height#,.45x_height#); +beginchar(oct"222",12u#,asc_height#,0); +adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib; +pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180); +pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4; +x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u; +y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo; +rt x1r=hround(w-1.5u); bulb(2,1,0); % bulb +filldraw stroke pulled_arc.e(2,3)..z4e; % stem +numeric light_stem; light_stem=2/3[vair,vstem]; +pos6(.5[hair,light_stem],-180); pos7(light_stem,-300); +pos8(light_stem,-300); pos9(hair,-180); +lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9l=hround(w-u); +y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h; +filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right} + ..{right}z8e...{up}z9e; % loop and arm +pickup extra_rule.nib; +x10=3u; x11=w-4.5u; x12=3u; x13=w-4.5u; +top y12=bar_height; +y11=y10; y13=y12; y10-y12=spread; +draw z10--z11; % upper bar +draw z12--z13; % lower bar +penlabels(1,2,3,4,5,6,7,8,9,10,11,12,13); endchar; + +dcchar"Recipe sign"; +beginchar(oct"223",if serifs: 12u#+.5max(2u#,cap_curve#) + else:12.5u#-.5width_adj# fi,cap_height#,0); +italcorr .75cap_height#*slant- if serifs: 1.75 else: .5 fi\\ u#; +adjust_fit(cap_serif_fit#,0); +pickup tiny.nib; pos1(cap_stem',0); pos2(cap_stem',0); +lft x1l=lft x2l=hround max(2u,3u-.5cap_stem'); top y1=h; bot y2=0; +filldraw stroke z1e--z2e; % stem +penpos3(cap_band,90); penpos4(cap_band,90); +penpos5(cap_curve if hefty:-3stem_corr fi,0); +penpos6(vair,-90); penpos7(vair,-90); +z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; +x7=x2; y7l=vround(.5h+.5vair); x4=x6; +if serifs: x4=.5w-.5u; x5r=hround(w-2.25u); +else: x4=.5w+.5u; x5r=hround(w-u); fi +x4l:=x6l:=x4-.125cap_curve; +fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe +if serifs: pos6'(vair,-90); pos0(cap_stem,180); + pos8(cap_curve,180); pos9(vair,-90); pos10(hair,0); + z6'=z6; lft x0r=lft x8r=hround(x5-2/3u-.5cap_curve); + y8=1/3[y2,y7]; y0=3/5[y2,y7]; x9=.5[x8l,x10r]; + bot y9r=-o; rt x10r=hround(w-.05u); y10=1/4[y2,y7]; + filldraw stroke z6'e{right}..z0e---z8e....z9e{right}..z10e{up}; % tail + nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + dish_serif(2,1,c,1/3,cap_jut,d,1/3,.5cap_jut); % lower serif +else: penpos8(cap_stem-2stem_corr,0); penpos9(cap_stem,0); + x8=x6+.5u; y8=y6; x9r=hround(w-.5u); y9=0; + fill z8l--diag_end(8l,9l,.5,1,9r,8r)--z8r--cycle; fi % tail +x1:=x8; +put_cross(.5cap_stem+if serifs: .9max(limit_dist,cap_jut) else: .8u fi, + .5cap_stem+if serifs: 3u else: 4u fi); +math_fit(0,.75ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +iff not variant_g: % not italic +dcchar"Interrobang"; +beginchar(oct"224",8.5u#,asc_height#,0); +italcorr .8asc_height#*slant; +adjust_fit(0,0); +pickup tiny.nib; pos7(dot_size,0); pos8(dot_size,90); +lft x7l=hround(.5w-.25u-.5dot_size); bot y8l=0; z7=z8; % dot(7,8); % dot +numeric bot_width; +bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos2(vair,90); pos3(curve,0); +pos4(vair,-90); pos5(bot_width,0); pos6(bot_width,0); +x2=x4=x5=x6=x7; rt x3r=hround(w-u); bot y6=1+.25[top y8r,x_height]; +top y2r=hround .9h+oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2]; +{{interim superness:=more_super; +filldraw stroke pulled_super_arc.e(2,3)(superpull) + & subpath (0,1) of super_arc.e(3,4) .. z5e---z6e\\}}; % arc and stem +if serifs: pos1(hair,180); pos0(flare,180); + lft x1r=hround u; y1=y3; bulb(2,1,0); % bulb +else: pos1(Vround 5/7[vair,flare],110); + lft x1r=hround u; top y1r=vround .9[y6,top y2r]; + filldraw stroke term.e(2,1,left,1,4); fi % terminal +penlabels(0,1,2,3,4,5,6,7,8); +clearxy; +pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); +lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; dot(3,4); % dot +numeric bot_width; +bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0); +x1=x2=x3; bot y2=.25[top y4r,x_height]+1; +if square_dots: top y1=h; + filldraw stroke z1e--z2e; % stem +else: top z0=(x1,h+o); y1+.5dot_size=h+o; + filldraw z1r...z0...z1l---z2l--z2r---cycle; fi % stem and bulb +penlabels(0,1,2,3,4); endchar; + +iff not variant_g: % not italic +dcchar"Gnaborretni"; +beginchar(oct"225",8.5u#,asc_height#-desc_depth#,desc_depth#); +adjust_fit(0,0); +pickup tiny.nib; pos7(dot_size,0); pos8(dot_size,90); +lft x7l=hround(.5w-.25u-.5dot_size); top y8r=h; z7=z8; % dot(7,8); % dot +numeric top_width; +top_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos2(vair,270); pos3(curve,180); +pos4(vair,90); pos5(top_width,180); pos6(top_width,180); +x2=x4=x5=x6=x7; lft x3r=hround u; top y6=.25[bot y8l,h-x_height]-1; +bot y2r=hround .1asc_height-d-oo; y3=.75[y6,y2]; y4=.5[y6,y2]; y5=.1[y6,y2]; +{{interim superness:=more_super; +filldraw stroke pulled_super_arc.e(2,3)(superpull) + & subpath (0,1) of super_arc.e(3,4) .. z5e---z6e\\}}; % arc and stem +if serifs: pos1(hair,0); pos0(flare,0); + rt x1r=hround(w-u); y1=y3; bulb(2,1,0); % bulb +else: pos1(Vround 5/7[vair,flare],-70); + rt x1r=hround(w-u); bot y1r=vround .9[y6,bot y2r]; + filldraw stroke term.e(2,1,right,1,4); fi % terminal +penlabels(0,1,2,3,4,5,6,7,8); +clearxy; +pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); +lft x3l=hround(.5w-.5dot_size); top y4r=h; z3=z4; dot(3,4); % dot +numeric top_width; +top_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos1(dot_size,0); pos2(top_width,0); +x1=x2=x3; top y2=.25[bot y4l,h-x_height]-1; +if square_dots: bot y1=-d; + filldraw stroke z1e--z2e; % stem +else: bot z0=(x1,-d-o); y1-.5dot_size=-d-o; + filldraw z1l...z0...z1r---z2r--z2l---cycle; fi % stem and bulb +penlabels(0,1,2,3,4); endchar; + +iff variant_g: % italic +dcchar"Interrobang"; +beginchar(oct"224",9u#,asc_height#,0); +italcorr asc_height#*slant-u#; +adjust_fit(0,0); +adjust_fit(0,0); pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90); +lft x10l=hround(.5w-.5dot_size); bot y11l=0; z10=z11; % dot(10,11); % dot +pickup fine.nib; pos1(flare,180); pos2(hair,180); pos3(vair,90); +lft x1r=hround u; x3=.5w; +y1-.5flare=x_height; top y3r=hround .9h+o; bulb(3,2,1); % bulb +pos8(vair,-90); x8=.5w; bot y8r=.25[top y11r,x_height]+1; +numeric theta; theta=90+angle(10u,y3-y8); slope:=(y3-y8)/10u; +pos3'(vair,-90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3]; +rt x4l=hround(w-1.5u); lft x7r=hround 1/3w; +x4l-x4r=x7l-x7r=hround .5[vair,vstem]-fine; +ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r; +ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r; +pos9(hair,0); rt x9r=hround(2/3w+.5hair); y9=good.y .5[y8,y0]; +filldraw stroke super_arc.e(3',4) & z4e{down} + ..z5e---z6e..z7e{down} & super_arc.e(7,8)...{up}z9e; % main stroke +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); +clearxy; +pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); +lft x3l=hround(.5w-.5dot_size); bot y4l=0; z3=z4; dot(3,4); % dot +numeric bot_width; +bot_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos1(dot_size,0); pos2(bot_width,0); +x1=x2=x3; bot y2=.25[top y4r,x_height]+1; +if square_dots: top y1=h; + filldraw stroke z1e--z2e; % stem +else: top z0=(x1,h+o); y1+.5dot_size=h+o; + filldraw z1r...z0...z1l---z2l--z2r---cycle; fi % stem and bulb +penlabels(0,1,2,3,4); endchar; + +iff variant_g: % italic +dcchar"Gnaborretni"; +beginchar(oct"225",9u#,asc_height#-desc_depth#,desc_depth#); +adjust_fit(0,0); +pickup tiny.nib; pos10(dot_size,0); pos11(dot_size,90); +lft x10l=hround(.5w-.5dot_size); top y11r=h; z10=z11; % dot(10,11); % dot +pickup fine.nib; pos1(flare,0); pos2(hair,0); pos3(vair,-90); +rt x1r=hround(w-u); x3=.5w; y1+.5flare=asc_height-x_height-d; +bot y3r=hround .1asc_height-d-o; bulb(3,2,1); % bulb +pos8(vair,90); x8=.5w; top y8r=.25[bot y11l,y1+.5flare]-1; +numeric theta; theta=angle(10u,y8-y3)-90; slope:=(y8-y3)/10u; +pos3'(vair,90); z3'=z3; pos0(vstem,theta); x0=x3; y0=1/3[y8,y3]; +lft x4l=hround 1.5u; rt x7r=hround 2/3w; +x4r-x4l=x7r-x7l=hround .5[vair,vstem]-fine; +ellipse_set(3'l,4l,5l,0l); ellipse_set(3'r,4r,5r,0r); y4=y4r; +ellipse_set(8l,7l,6l,0l); ellipse_set(8r,7r,6r,0r); y7=y7r; +pos9(hair,180); lft x9r=hround(1/3w-.5hair); y9=good.y .5[y8,y0]; +filldraw stroke super_arc.e(3',4) & z4e{up} + ..z5e---z6e..z7e{up} & super_arc.e(7,8)...{down}z9e; % main stroke +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); +clearxy; +pickup tiny.nib; pos3(dot_size,0); pos4(dot_size,90); +lft x3l=hround(.5w-.5dot_size); top y4r=h; z3=z4; dot(3,4); % dot +numeric top_width; +top_width=if hefty:max(hround .8dot_size,fine.breadth) else: hair fi; +pickup fine.nib; pos1(dot_size,0); pos2(top_width,0); +x1=x2=x3; top y2=.25[bot y4l,h-x_height]-1; +if square_dots: bot y1=-d; + filldraw stroke z1e--z2e; % stem +else: bot z0=(x1,-d-o); y1-.5dot_size=-d-o; + filldraw z1l...z0...z1r---z2r--z2l---cycle; fi % stem and bulb +penlabels(0,1,2,3,4); endchar; + +iff not variant_g: % not italic +dcchar"Dong sign"; % Vietnamese currency +beginchar(oct"226",10u#+serif_fit#,body_height#,0); +italcorr asc_height#*slant-serif_fit#+.5stem#-2u#; +adjust_fit(0,serif_fit#); +numeric hh; hh=asc_height; +pickup tiny.nib; pos1(stem',0); pos2(stem,0); +pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2; +rt x1r=hround(w-2.5u+.5stem'); top y1=hh; +numeric edge; edge=lft x2l; +pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0); +pos4(vair,90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360); +lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),1/3[lft x2,edge]); +y3=1/8[bar_height,x_height]; +x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo if monospace: -hair fi; +lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height if monospace: -.5hair fi; +x6l=x4l-.2u; bot y6r=-oo; +x7=x3; y7=min(y3,y6+y4-y3+.6vair); +(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]); +(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]); +filldraw stroke z3e{up}...pulled_arc.e(4,5) + & pulled_arc.e(5,6)...{up}z7e; % bowl +y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{left}z4l)); +pickup tiny.nib; bot y2=if serifs:-min(oo,serif_drop) else: 0 fi; +filldraw stroke z1e--z0'e--z0e--z2e; % stem +if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif + sloped_serif.r(2,0,b,1/3,jut,min(oo,serif_drop)); fi % lower serif +% + pos8(bar,90); pos9(bar,90); + x8=.5[x4,x5]; + if serifs: x9=x2r+jut; else: x9=w; fi + if serifs: y8=y9=.5[y.a2-.5slab,y4+.5vair]; + else: y8=y9=.5[x_height,asc_height-serif_drop]; fi + filldraw stroke z8e--z9e; +currentpicture:=currentpicture shifted (0,body_height-asc_height); +pickup rule.nib; +x10=x5; x11=x9; top y10=0; y10=y11; +draw z10--z11; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar; + +iff variant_g: %italic +dcchar"Italic Dong sign"; % Vietnamese currency +beginchar(oct"226",9u#,body_height#,0); +italcorr max(1/3x_height#*slant+.5hair#+.5u#, + h#*slant+.5stem#-2u#) if math_fitting:-.5u# fi; +adjust_fit(0,0); pickup fine.nib; +pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270); +x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve); +x4+.5stem=hround(w-2.5u+.5stem); +top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3]; +filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2) + & pulled_arc.e(2,3) & super_arc.e(3,0); % bowl +x5=x0; x7=w; hook_out(5,6,7); % closing hook +pickup tiny.nib; pos5'(stem,0); pos4(stem,0); +z5'=z5; top y4=h; filldraw stroke z4e--z5'e; % stem +sloped_serif.l(4,5',a,1/3,jut,serif_drop); % serif +math_fit(-.3x_height#*slant+.5curve#-u#,ic#); +% the bar + pos8(bar,90); pos9(bar,90); + x8=x1; % .5[x1,x4]; + x9=x6; + y8=y9=.5[y.a2-.5slab,y1+.5vair]; + filldraw stroke z8e--z9e; +currentpicture:=currentpicture shifted (0,body_height-asc_height); +pickup rule.nib; +x10=x2; x11=x9; top y10=0; y10=y11; +draw z10--z11; +penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar; + +dcchar"Trademark"; % jk, design based on logo font +beginchar(oct"227",12u#,body_height#,0); +italcorr .7body_height#; +adjust_fit(0,0); +numeric ww, hh; ww=.5w; hh=vround .5body_height; +pickup pencircle xscaled hair yscaled vair; +lft x1=-eps; x2=ww-x1; x3=x4=.5ww; +y1=y2=y3; top y1=hh; bot y4=-o; +draw z1--z2; draw z3--z4; +labels(1,2,3,4); +clearxy; +x1=x2=hround(ww+u); x4=x5=hround(w-u); x3=hround .5[x1,x4]; +y1=y5; y2=y4; bot y1=-o; +top y2=hh+o; y3=vround (y1+.5bar_height); +draw z1--z2--z3--z4--z5; +labels(1,2,3,4,5); +currentpicture:=currentpicture shifted (0,hh); +endchar; + +dcchar"Per ten thousand sign"; % Yannis, Unicode Computer Modern +beginchar(oct"230",9u#+max(6u#,2fudge*(hair#+stem#)), + body_height#,body_height#-asc_height#); +italcorr if hefty: .4asc_height#*slant-.5u# else: h#*slant-u# fi; +adjust_fit(0, + 2*(.5*(9u#+max(6u#,2fudge*(hair#+stem#))) + -2.5u#+5/6[fudged.hair#,fudged.stem#])); +pickup fine.nib; +numeric left_curve,right_curve; +left_curve=hround 5/6[fudged.hair,fudged.stem]; +right_curve=max(fine.breadth,hround(fudged.hair if hefty:-2stem_corr fi)); +pos1(vair,90); pos2(left_curve,180); pos3(vair,270); pos4(right_curve,360); +top y1r=h; lft x2r=hround u; rt x4r=hround(.5w-1.5u); +bot y3r=floor(if monospace: .7 else: .5 fi\\ asc_height); +x1=x3=.5[x2,x4]; y2=y4=.5[y1,y3]; +pos5(vair,90); pos6(left_curve,180); pos7(vair,270); pos8(right_curve,360); +bot y7r=-d; rt x8r=hround(w-u); lft x6r=hround(.5w+1.5u); +top y5r=vround(if monospace: .3 else: .5 fi\\ asc_height); +x5=x7=.5[x6,x8]; y6=y8=.5[y5,y7]; +filldraw stroke pulled_super_arc.e(5,6)(superpull) + & pulled_super_arc.e(6,7)(superpull); % left half of lower bowl +filldraw stroke super_arc.e(7,8) & super_arc.e(8,5); % right half of lower bowl +hihi:=(.5*(9u#+max(6u#,2fudge*(hair#+stem#))) + -2.5u#+5/6[fudged.hair#,fudged.stem#]) +if monospace: *expansion_factor fi *hppp; +picture petit_zero; petit_zero := currentpicture; +pickup rule.nib; top y9=h; bot y10=-d; +if hefty: x9=good.x(x5-eps); x10=good.x(x1+eps); + draw z9--z10; % diagonal +else: rt x9=hround(w-2.5u); lft x10=hround 2.5u; draw z9--z10; % diagonal + pickup fine.nib; pos9(rule_thickness,angle(z9-z10)+90); + pos11(vair,angle(z1r-z4r)-90); pos12(vair,angle(z9-z10)+90); + path p; p=super_arc.r(1,4); z11r=point 2/3 of p; z12r=z9r; + filldraw stroke z11e{direction 2/3 of p}...{z9-z10}z12e; fi % link +pickup fine.nib; +filldraw stroke pulled_super_arc.e(1,2)(superpull) + & pulled_super_arc.e(2,3)(superpull); % left half of upper bowl +filldraw stroke super_arc.e(3,4) & super_arc.e(4,1); % right half of upper bowl +addto currentpicture also (petit_zero shifted (hihi,0)); +addto currentpicture also (petit_zero shifted (2hihi,0)); +picture petit_zero; % Release resources allocated to the picture variable +penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; + +dcchar "Alternate pilcrow sign"; % one vertical bar only +beginchar(oct"231",8.5u#,asc_height#,desc_depth#); +adjust_fit(0,0); pickup rule.nib; autorounded; +top y1=h; bot y6=-d-eps; y4=y9=y1; +y3=y5=good.y .5[y1,y6]; +lft x2=hround u; y2=.5[y1,y3]; rt x9=hround(w-.5u); x4=x5=x6=good.x(x9-1.5u); +x1=x3=min(.5w,x4); +filldraw z4..z1{left}...z2{down}...{right}z5--cycle; % filled bowl +draw z9--z4--z6; % left stem and upper serif +if serifs: + x11=x9; x10-x6=x4-x9; + bot y10=-d-eps; y10=y11; + draw z10--z11; % lower serif +fi +labels(1,2,3,4,5,6,9,10,11); endchar; + +dcchar"Baht sign"; % currency of Thailand +beginchar(oct"232",12.5u#,body_height#,body_height#-asc_height#); +italcorr .75cap_height#*slant-.5u#; +adjust_fit(cap_serif_fit#,0); +numeric hh; hh=cap_height; +numeric left_stem,right_curve,middle_weight; +left_stem=cap_stem-hround 2stem_corr; middle_weight=.6vair+.5; +pickup tiny.nib; pos1(left_stem,0); pos2(left_stem,0); +lft x1l=lft x2l=hround max(2u,3u-.5left_stem); top y1=hh; bot y2=0; +filldraw stroke z1e--z2e; % stem +penpos3(cap_band,90); penpos4(cap_band,90); +penpos6(middle_weight,-90); penpos7(middle_weight,-90); +penpos8(middle_weight,90); penpos9(middle_weight,90); +penpos5(right_curve-stem_corr,0); penpos10(right_curve,0); +penpos11(cap_band,-90); penpos12(cap_band,-90); +z3r=top z1; y4=y3; y5=.5[y4,y6]; y6=y7; y7l-y8l=vair; +z12r=bot z2; y11=y12; y10=.5[y11,y9]; y8=y9; .5[y7l,y8l]=.52hh; +x4=x6; x9=x11=x4+.5u; x7=x8=x1; x9l:=x4+.25u; +x5r=hround(w-1.5u); x10r=hround(w-u); +if serifs: right_curve=cap_curve-stem_corr; x4=.5[x1,w-1.5u]; +else: right_curve=cap_curve-3stem_corr; x4=.5[x1,w-2.5u]; + x4l:=x4l-.5u; x9l:=x9l-.5u; fi +x6l:=x6l-.5u; x11l:=x11l-.5u; +fill stroke z3e..super_arc.e(4,5) & super_arc.e(5,6)..z7e; % upper lobe +fill stroke z8e..super_arc.e(9,10) & super_arc.e(10,11)..z12e; % lower lobe +if serifs: nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + nodish_serif(2,1,c,1/3,cap_jut,d,1/3,.5cap_jut); fi % lower serif +pickup crisp.nib; pos13(bar,0); pos14(bar,0); +rt x13r=rt x14r=rt x4; top y13=h; bot y14=-d; +filldraw stroke z13e--z14e; % vertical crossbar +math_fit(0,.5ic#); penlabels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; + + +dcchar "Cent sign"; % from wasychr (wasy) +% Modified height and depth (jk) +beginchar(oct"242",9u#,x_height#+.5desc_depth#,.5desc_depth#); +italcorr x_height#*slant-.2u#; +adjust_fit(0,0); +pickup fine.nib; pos2(vair',90); pos4(vair',270); +x2=x4=.5(w+u); top y2r=vround(x_height+1.5oo); bot y4r=-oo; +pos3(curve,180); lft x3r=hround max(.6u,1.35u-.5curve); y3=.5x_height; +if serifs: pos1(hair,0); pos0(flare,0); + y1=min(bar_height+.5flare+2vair'+2,.9[bar_height,x_height]-.5flare); + rt x1r=hround(w-.7u); bulb(2,1,0); % bulb + pos5(hair,0); rt x5r=hround(w-.5u); + y5=max(good.y(.5bar_height-.9),y4l+vair'); + (x,y4l)=whatever[z4r,z5l]; x4l:=min(x,x4l+.5u); + filldraw stroke pulled_super_arc.e(2,3)(.7superpull) + & pulled_super_arc.e(3,4)(.5superpull) + ..tension .9 and 1..{x5-x4,5(y5-y4)}z5e; % arc and lower terminal +else: pos1(4/7[vair',flare],80); + rt x1r=hround(w-.6u); top y1r=vround .82[bar_height,top y2r]; + filldraw stroke term.e(2,1,right,.8,4); % upper terminal + pos5(.6[vair',flare],275); rt x5r=hround(w-.5u); + y5r=good.y(y5r+1/3bar_height-y5); y5l:=good.y y5l; x5l:=good.x x5l; + forsuffixes e=l,r: path p.e; p.e=z4e{right}..tension .9 and 1..z5e; + if angle direction 1 of p.e>75: + p.e:=z4e{right}..tension atleast.9 and 1..{dir 75}z5e; fi endfor + filldraw stroke pulled_super_arc.e(2,3)(.7superpull) + & pulled_super_arc.e(3,4)(.5superpull) & p.e; fi % arc and lower terminal +pickup crisp.nib; +x6=x7=x8=x9=x2; y7=y2; y8=y4; bot y9=-d; y6-y7 = y8-y9; +pos6(bar,0); pos7(bar,0); +pos8(bar,0); pos9(bar,0); +filldraw stroke z6e--z7e; % upper bar +filldraw stroke z8e--z9e; % lower bar +penlabels(0,1,2,3,4,5,6,7,8,9); endchar; + +dcchar "Sterling sign"; % from italp (cm) +% already contains bug fix found by Yannis Haralambous +beginchar(oct"243",12u#,asc_height#,0); +adjust_fit(0,.75asc_height#*slant-.5u#); pickup fine.nib; +pos0(flare,0); pos1(hair,0); pos2(vair,90); pos3(stem,180); +pos4(stem,180); pos4'(stem,0); pos5(vair,-90); z4'=z4; +x2=2/3w-.5u; rt x3l=rt x4l=hround(.5w-u+.5stem); x5=2.5u; +y1=y3=.75h; top y2=h+oo; y4=.25h; bot y5r=-oo; +rt x1r=hround(w-1.5u); bulb(2,1,0); % bulb +filldraw stroke pulled_arc.e(2,3)..z4e; % stem +numeric light_stem; light_stem=2/3[vair,vstem]; +pos6(.5[hair,light_stem],-180); pos7(light_stem,-300); +pos8(light_stem,-300); pos9(hair,-180); +lft x6r=hround u; x7=3u; x8=w-3.5u; rt x9l=hround(w-u); +y6=.4[y5,y7]; top y7r=vround .2h; bot y8l=-oo; y9=good.y .2h; +filldraw stroke pulled_arc.e(4',5)...z6e{up}...z7e{right} + ..{right}z8e...{up}z9e; % loop and arm +pos10(bar,90); pos11(bar,90); x10=3u; x11=w-4.5u; +top y10r=top y11r=vround(.5h+.5bar); filldraw stroke z10e--z11e; % bar +penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar; + +dcchar "Currency sign"; % from rsym (wasy) +beginchar(oct"244",1.13 min(asc_height#,9/7x_height#)+2u#, + min(asc_height#,9/7x_height#),0); +italcorr x_height#*slant; +adjust_fit(if monospace: u#,u# else: 0,0 fi); +pickup rule.nib; autorounded; +x4 = good.x .5w; x2-x6=y8-y4; y2=good.y .5h; bot y4=-oo; +circle_points; +z9 = 1.30[z5,z1]; +z10 = 1.30[z7,z3]; +z11 = 1.30[z1,z5]; +z12 = 1.30[z3,z7]; +draw_circle; +draw z1--z9; +draw z3--z10; +draw z5--z11; +draw z7--z12; +labels(1,2,3,4,5,6,7,8,9,10,11,12); endchar; + + +dcchar "Yen symbol"; % from asymbols (msam) +% Change (jk): Use correct pen for horizontal bars +compute_spread(.45x_height#, .55x_height#); +beginchar(oct"245",13u#,cap_height#,0); %% adapted from "Y" +italcorr cap_height#*slant+.45u#; +adjust_fit(cap_serif_fit#,cap_serif_fit#); numeric +left_stem,right_stem,outer_jut,dy,alpha; +left_stem=cap_stem-stem_corr; right_stem=min(cap_hair if +hefty:-2stem_corr fi,left_stem); outer_jut=.75cap_jut; +x1l=w-x4r=l+letter_fit+outer_jut+.05u; +x2l=x5l=hround(.5w-.5left_stem); x3r=x5r; y1=y4=h; +y2=y3=y5=.4h; dy=y1-y2; alpha=((x2l-x1l)++dy)/dy; +penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0); +penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0); +penpos5(left_stem,0); penpos6(left_stem,0); x5=x6; y6=0; +z0=whatever[z1r,z2r]=whatever[z3l,z4l]; if +y0>y2+cap_notch_cut: y0:=y2+cap_notch_cut; + fill z0+.5right{up}...{z4-z3}diag_end(3l,4l,1,1,4r,3r)--z5r +--diag_end(5r,6r,1,1,6l,5l)--z5l--diag_end(2l,1l,1,1,1r,2r){z2-z1} + ...{down}z0+.5left--cycle; % diagonals and stem +else: fill z0--diag_end(0,4l,1,1,4r,3r)--z5r + --diag_end(5r,6r,1,1,6l,5l)--z5l + --diag_end(2l,1l,1,1,1r,0)--cycle; fi % diagonals & stem +if serifs: numeric inner_jut; pickup tiny.nib; + prime_points_inside(1,2); prime_points_inside(4,3); +prime_points_inside(6,5); + if rt x1'r+cap_jut+.5u+1<=lft x4'l-cap_jut: +inner_jut=cap_jut; + else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi + dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % upper left serif + dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); % upper right serif + dish_serif(6',5,e,1/3,cap_jut,f,1/3,cap_jut); fi % lower serif +pickup extra_rule.nib; +x7=x9=x1l; x8=x10=x4r; y9=y10; +top y7=bar_height; y7=y8; draw z7--z8; +y9-y7=spread; draw z9--z10; % crossing bars +penlabels(0,1,2,3,4,5,6,1',2',3',4',5',6',7,8,9,10); endchar; + +dcchar "Broken vertical bar"; % jk +beginchar(oct"246",3u#,body_height#,paren_depth#); +italcorr body_height#*slant - u#; +adjust_fit(0,0); pickup rule.nib; +top y1=h; .5[y1,y4]=math_axis; +compute_spread(.45x_height#,.55x_height#); y2-y3=spread; +.5[y2,y3]=math_axis; +x1=x2=x3=x4=good.x .5w; +draw z1--z2; draw z3--z4; +labels(1,2,3,4); endchar; + +dcchar "Section sign"; % from mathsy, renovated (jk) +beginchar(oct"247",6.5u#+max(1.5u#,stem#),asc_height#,desc_depth#); +adjust_fit(0,0); pickup fine.nib; +numeric s_slab; s_slab=if serifs:slab else:vround .2[slab,cap_stem] fi; +numeric ess'; ess'=max(fine.breadth,cap_ess); +numeric sstem; sstem=hround .5[s_slab,ess']-fine; +if sstem < fine.breadth: sstem:=fine.breadth; fi +pos2(vair,90); pos3(sstem,180); +pos4(ess',270); pos4'(vair,270); +pos5'(sstem,0); pos5(sstem,180); +pos6(ess',90); pos6'(vair,90); pos7(sstem,0); +pos8(vair,-90); +top y2r=h+oo; bot y8r=-d-oo; +y3=.52[y4,y2]; y5=.52[y4,y6]; y7=.52[y6,y8]; y5'=.52[y6,y4]; +y2-y4=y4-y6=y6-y8; +bot z4'=bot z4; top z6'=top z6; +lft x3r=hround 1.25u; +x2=x4=x6=x8=.5w; x5=x7=w-x3; x5'=x3; +if serifs: + pos0(stem,0); pos1(hair,0); pos9(hair,-180); pos10(stem,-180); + rt x1r=hround(w-1.5u); x9=w-x1; y2-y1=y9-y8=(y2-y8)/8; + bulb(2,1,0); bulb(8,9,10); % bulbs +else: + pos1(.6[slab,flare],-100); pos9(flare,-100); pos2'(vair,-90); + rt x1l=hround(w-1.3u); lft x9r=hround .8u; z2'=z2; + top y1l=vround .92asc_height+oo; bot y9r=vround .1asc_height-d-oo; + filldraw stroke term.e(2',1,right,.9,4); % upper arc and terminal + filldraw stroke term.e(8,9,left,.9,4); % lower arc and terminal +fi +filldraw stroke z2e{left}...z3e{down}...z4e{3(x5-x3),y5-y3} + ...z5e{down}...{left}z6'e; % upper stroke +filldraw stroke z4'e{left}...z5'e{down}...z6e{3(x7-x5'),y7-y5'} + ...z7e{down}...{left}z8e; % upper stroke +penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +dcchar "Umlaut (double dot) accent"; % from accent (cm) +numeric dot_diam#,dot_diam; +dot_diam#=max(dot_size#,cap_curve#); +beginchar(oct"250",9u#,min(asc_height#,10/7x_height#+.5dot_diam#),0); +dot_diam=max(tiny.breadth,hround(max(dot_size,cap_curve)-2stem_corr)); +italcorr h#*slant+.5dot_diam#-2.25u#; +adjust_fit(0,0); +pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90); +x1=x2=2.75u; top y2r=h+1; +if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi +y1=.5[y2l,y2r]; dot(1,2); % left dot +pos3(dot_diam,0); penpos4(y2r-y2l,90); y3=y4=y1; x3=x4=w-x1; +dot(3,4); % right dot +penlabels(1,2,3,4); endchar; + +dcchar"Copyright"; +beginchar(oct"251",20u#,body_height#,max(paren_depth#,desc_depth#)); +autorounded; +adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup rule.nib; +if .5w <> good.x .5w: change_width; fi +lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); +clearxy; autorounding:=0; +numeric hh,ll,rr; hh=vround .7cap_height; ll=hround(.5w-6u); +rr=hround(.5w+5u); +if serifs: + pickup fine.nib; pos1(cap_hair,0); pos2(cap_band,90); + pos3(cap_curve,180); pos4(cap_band,270); pos5(hair,360); + rt x1r=rt x5r=hround(rr-u); lft x3r=hround(ll+u); x2=x4=.55[x3,x1]; + top y2r=hh+o; bot y4r=-o; y3=.5[y2,y4]; + bot y1=min(vround max(.6hh,.7x_height-.5vair),bot y2l-eps); + y5=max(good.y .95(hh-y1),y4l+eps); + (x2l',y2l)=whatever[z2r,z1l]; x2l:=min(x2l',x2l+.5u); + (x4l',y4l)=whatever[z4r,z5l]; x4l:=min(x4l',x4l+.5u); + filldraw stroke z1e{x2-x1,10(y2-y1)} + ...pulled_arc.e(2,3) & pulled_arc.e(3,4)...{up}z5e; % arc + pos6(.3[fine.breadth,cap_hair],0); x6r=x1r; top y6=hh+o; + x1r-x1'=2cap_curve-fine; y1'=y1; + path upper_arc; upper_arc=z1{x2-x1,10(y2-y1)}..z2{left}; + numeric t; t=xpart(upper_arc intersectiontimes (z6l--z1')); + filldraw z1r--z6r--z6l--subpath(t,0) of upper_arc--cycle; % barb +else: + pickup fine.nib; pos1(1.2flare,80); pos2(slab,90); + pos3(cap_curve,180); pos4(slab,270); pos5(flare,275); + rt x1r=hround(rr-1.1u); x2=x4=.5w+1.25u; + lft x3r=ll+hround max(u,2u-.5cap_curve); rt x5r=hround(rr-.9u); + top y1r=vround .95hh+o; top y2r=hh+o; y3=.5hh; + bot y4r=-o; bot y5r=vround .08hh-o; y5l:=good.y y5l; x5l:=good.x x5l; + filldraw stroke rterm.e(2,1,right,.9,4) & super_arc.e(2,3) + & super_arc.e(3,4) & term.e(4,5,right,.8,4); fi % arc and terminals +penlabels(1,1',2,3,4,5,6); endchar; + +dcchar "Logical not sign"; % from sym +beginchar(oct"254",12u#,x_height#,0); +italcorr x_height#*slant-.5u#; +adjust_fit(0,0); pickup rule.nib; +lft x1=hround u-eps; x2=x3=w-x1; +y1=y2=good.y .5[bar_height,h]; y2-y3=1.2(h-bar_height); +draw z1--z2--z3; % bar and stem +labels(1,2,3); endchar; + +dcchar"Registered"; +beginchar(oct"256",20u#,body_height#,max(paren_depth#,desc_depth#)); +autorounded; +adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup rule.nib; +if .5w <> good.x .5w: change_width; fi +lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); +clearxy; autorounding:=0; +numeric hh,ll,rr; hh=vround .7cap_height; ll=hround(.5w-6u); +rr=hround(.5w+6u); +pickup tiny.nib; pos1(cap_stem',0); pos2(cap_stem',0); +lft x1l=lft x2l=ll+hround max(2u,3u-.5cap_stem'); top y1=hh; bot y2=0; +filldraw stroke z1e--z2e; % stem +penpos3(cap_band,90); penpos4(cap_band,90); +penpos5(cap_curve if hefty:-3stem_corr fi,0); +penpos6(vair,-90); penpos7(vair,-90); +z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; +x7=x2; y7l=vround(.5hh+.5vair); x4=x6; +if serifs: x4=.5w-.5u; x5r=hround(rr-2.25u); +else: x4=.5w+.5u; x5r=hround(rr-u); fi +x4l:=x6l:=x4-.125cap_curve; +fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe +if serifs: pos6'(vair,-90); pos0(cap_stem,180); + pos8(cap_curve,180); pos9(vair,-90); pos10(hair,0); + z6'=z6; lft x0r=lft x8r=hround(x5-2/3u-.5cap_curve); + y8=1/3[y2,y7]; y0=3/5[y2,y7]; x9=.5[x8l,x10r]; + bot y9r=-o; rt x10r=hround(rr-.25u); y10=1/3[y2,y7]; + filldraw stroke z6'e{right}..z0e---z8e....z9e{right}..z10e{up}; % tail + nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + dish_serif(2,1,c,1/3,cap_jut,d,1/3,cap_jut); % lower serif +else: penpos8(cap_stem-2stem_corr,0); penpos9(cap_stem,0); + x8=x6+.5u; y8=y6; x9r=hround(rr-.5u); y9=0; + fill z8l--diag_end(8l,9l,.5,1,9r,8r)--z8r--cycle; fi % tail +penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar; + +dcchar"High bar (Macron)"; % jk +beginchar(oct"257",14u#,min(asc_height#,2x_height#),0); +adjust_fit(0,0); pickup rule.nib; +lft x1=hround 1.5u-eps; x2=w-x1; top y1=top y2=h; +draw z1--z2; % bar +labels(1,2); endchar; + +dcchar "Plus-or-minus sign"; % from sym +beginarithchar(oct"261"); pickup rule.nib; +numeric shiftup; shiftup=vround 1.5u; +x1=x2=.5w; lft x3=lft x5=hround u-eps; x4=x6=w-x3; +.5[y1,y2]=y3=y4=math_axis+shiftup; top y1=h+shiftup; y5=y6=y2; +draw z1--z2; % stem +draw z3--z4; % plus bar +draw z5--z6; % minus bar +labels(1,2,3,4,5,6); endchar; + +dcchar"Degree sign"; % Yannis, Unicode Computer Modern +beginchar(oct"260",4u#,cap_height#,0); +adjust_fit(if monospace: 1.5u#,1.5u# else: u#,u# fi); +pickup rule.nib; autorounded; +if .5w <> good.x .5w: change_width; fi +lft x6=0; x2=w-x6; top y8=h; y8-y2=x2-x8; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); endchar; + +dcchar"Tick mark"; %from accent (cmfonts, acute accent) +beginchar(oct"264",9u#,min(asc_height#,2x_height#),0); +italcorr h#*slant-if serifs: 1.5 fi u#; +adjust_fit(0,0); +if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1]; + y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair); + numeric theta; theta=angle(z2-z1)+90; + pos1(stem,theta); pos2(hair,theta); + filldraw circ_stroke z1e--z2e; % diagonal +else: pickup fine.nib; pos1(stem,0); pos2(vair,0); + rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair); + top y1=h; bot y2=vround 2/3[h,x_height]; + filldraw stroke z1e--z2e; fi % diagonal +penlabels(1,2); endchar; + +iff not variant_g: +dcchar"Micro sign"; % jk, based on cm `u' +beginchar(oct"265",10u#,x_height#,desc_depth#); +italcorr x_height#*slant-serif_fit#+.5stem#-2u#; +adjust_fit(serif_fit#+stem_shift#,serif_fit#-stem_shift#); +numeric light_vair; light_vair=vair if hefty: -vround 2vair_corr fi; +if light_vair<fine.breadth: light_vair:=fine.breadth; fi +pickup tiny.nib; pos1(stem,0); pos2(stem,0); pos7(stem,0); +pos3(stem,0); pos4(stem',0); +lft x1l=hround(2.5u-.5stem); x1=x2=x7; x3=w-x1; x3r=x4r; +if serifs: top y1=h+min(oo,serif_drop); bot y4=-min(oo,serif_drop); +else: top y1=h; bot y4=0; fi +pos0(stem,0); pos0'(stem',0); +x0=x3; x0'=x4; y0=y0'; bot y7=-d; +penpos2'(stem-fine,-180); z2'=z2; y3=y1; y2=.5bar_height; +penpos5(max(eps,light_vair-fine),-90); penpos6(thin_join-fine,0); +y6=y0=2/3bar_height; +filldraw stroke z1e--z7e; % left stem +filldraw stroke z3e..z0e--z0'e..z4e; % right stem +pickup fine.nib; bot y5r=-oo; x5l=.5w-.25u; lft x6l=tiny.lft x0l; +(x,y5r)=whatever[z5l,z6l]; x5r:=max(x,.5[x5,x2'r]); +filldraw stroke {{interim superness:=hein_super; + pulled_arc.e(2',5)}} & z5e{right}...{up}z6e; % arc +if serifs: sloped_serif.l(1,2,a,1/3,jut,serif_drop); % upper left serif + sloped_serif.l(3,0,b,1/3,jut,serif_drop); % upper right serif + sloped_serif.r(4,0',c,1/3,jut,min(oo,serif_drop)); % lower right serif + pickup crisp.nib; + dish_serif(7,1,d,1/3,jut,e,1/3,jut); fi % lower left serif +penlabels(1,2,3,4,5,7); labels(6); endchar; + +iff variant_g: % This triggers italics +dcchar "Micro sign"; % from greekl (cm) +beginchar(oct"265",9u#,x_height#,desc_depth#); +italcorr 1/3x_height#*slant+.5hair#+.5u#; +adjust_fit(0,0); pickup fine.nib; interim superness:=more_super; +pos1(stem,-180); pos2(stem,-180); x1=x2=x3; lft x1r=hround(1.5u-.5stem); +y1+.5stem=h+oo; y2-.5stem=-d-o; +filldraw z1r---z2r..z2l---z1l..cycle; % left stem +pos3(stem,-180); pos4(vair,-90); pos5(hair,0); x4=.5[x3,x5]; +pos6(stem,0); rt x6r=hround(w-2.5u+.5stem); +x5=x6=x7; x9=w; hook_out(7,8,9); % closing hook +y3=.7[y4,y5]; bot y4r=-oo; y5=.57h; y6+.5stem=h; +filldraw stroke super_arc.e(3,4)...{up}z5e; % left stem and arc +filldraw circ_stroke z6e--z7e; % right stem +math_fit(desc_depth#*slant+.5stem#-u#,ic#); +penlabels(1,2,3,4,5,6,7,8,9); endchar; + +dcchar "Paragraph mark"; % from mathsy +beginchar(oct"266",11u#,asc_height#,desc_depth#); +adjust_fit(0,0); pickup rule.nib; autorounded; +top y1=h; bot y6=-d-eps; y4=y7=y9=y1; +y8=y6; y3=y5=good.y .5[y1,y6]; +x7-x4=ceiling(rule_thickness+1.25u); +lft x2=hround u; y2=.5[y1,y3]; x4=x5=x6; rt x9=hround(w-.5u); +x7=x8=good.x(x9-1.5u); x1=x3=min(.5w,x4); +filldraw z4..z1{left}...z2{down}...{right}z5--cycle; % filled bowl +draw z9--z4--z6; % left stem and upper serif +draw z7--z8; % right stem +if serifs: + x11=x9; x10-x8=x4-x9; + bot y10=-d-eps; y10=y11; + draw z10--z11; % lower serif +fi +labels(1,2,3,4,5,6,7,8,9,10,11); endchar; + +dcchar "Period raised to axis height"; % from sym +beginchar(oct"267",5u#,v_center(7u#)); +adjust_fit(0,0); pickup fine.nib; +numeric dot_diam#; dot_diam#=if monospace: 5/4 fi\\ dot_size#; +define_whole_blacker_pixels(dot_diam); +pos1(dot_diam,0); pos2(dot_diam,90); +lft x1l=hround(.5w-.5dot_diam); y1+.5dot_diam=vround(math_axis+.5dot_diam); +z1=z2; dot(1,2); % dot +penlabels(1,2); endchar; + +dcchar "Times operator"; % from mathsy +beginarithchar(oct"326"); pickup rule.nib; +x1=good.x(1/sqrt2)[.5w,rt u]; y1=good.y(1/sqrt2)[math_axis,bot h]; +x2=x3=w-x1; x4=x1; .5[y1,y2]=.5[y3,y4]=math_axis; y2=y4; +draw z1--z2; draw z3--z4; % diagonals +labels(1,2,3,4); endchar; + +dcchar "Elementary division operator"; % from mathsy +beginarithchar(oct"366"); pickup fine.nib; pickup rule.nib; +numeric del; del=dot_size-currentbreadth; +x3-.5del=good.x(.5w-.5del); center_on(x3); +y3+.5del=good.y(math_axis+math_spread[.5x_height,.6x_height]+.5del); +lft x1=hround u-eps; x2=w-x1; y1=y2=math_axis; +draw z1--z2; % bar +pos3(dot_size,0); pos4(dot_size,90); z3=z4; +pos5(dot_size,0); pos6(dot_size,90); z5=z6; x5=x3; .5[y3,y5]=math_axis; +dot(3,4); dot(5,6); % dots +penlabels(1,2,3,4,5,6); endchar; + + +endinput; + +% <-- circled R is problematic... + +%% include these parameters to shrink R so it fits inside a circle +% + + +begingroup + +save u, width_adj, cap_serif_fit, letter_fit, + body_height, cap_height, x_height, bar_height, comma_depth, + flare, cap_hair, stem, cap_stem, cap_curve, cap_ess, + cap_jut, beak_jut, beak, slab, cap_bar, cap_band, cap_notch_cut, + o, apex_o; +numeric radius; +old.u:=u; old.cap_curve:=cap_curve; old.cap_height:=cap_height; +old.u#:=u#; old.cap_curve#:=cap_curve#; old.cap_height#:=cap_height#; +forsuffixes $=u, width_adj, cap_serif_fit, letter_fit, + body_height, cap_height, x_height, bar_height, +comma_depth, flare, cap_hair, +stem, cap_stem, cap_curve, cap_ess, + cap_jut, beak_jut, beak, +slab, cap_bar, +cap_band, cap_notch_cut, + o, apex_o: $.#:=lower.$.#; endfor +fudge:=lower.fudge; +font_setup; +% Changed by Stefan Lindner 15.03.1991 -sl +% original: radius=.5(6u++cap_height)+3u; radius=radius#*hppp; +radius#=.5(6u#++cap_height#)+3u#; radius:=radius#*hppp; +% end of change + +dcchar "Circle-R brand"; % from asymbols (msam) +beginchar(oct"256",13u#, .52cap_height#+radius#,radius#-.52cap_height#); +adjust_fit(4u#,4u#); +pickup tiny.nib; pos1(cap_stem',0); pos2(cap_stem',0); +lft x1l=lft x2l=hround max(2u,3u-.5cap_stem'); +top y1=cap_height; bot y2=0; +filldraw stroke z1e--z2e; % stem +penpos3(cap_band,90); penpos4(cap_band,90); +penpos5(cap_curve,0); +penpos6(vair,-90); penpos7(vair,-90); +z3r=top z1; y4=y3; y5=.5[y4l,y6l]; y6=y7; +x7=x2; y7l=vround(.5cap_height+.5vair); x4=x6; +x4=.5w-.5u; x5r=hround(w-2.25u); +x4l:=x6l:=x4-.125cap_curve; +fill stroke z3e..pulled_arc.e(4,5) & pulled_arc.e(5,6)..z7e; % lobe +pos6'(vair,-90); pos0(cap_stem,180); + pos8(cap_curve,180); pos9(vair,-90); pos10(hair,0); + z6'=z6; lft x0r=lft x8r=hround(x5-2/3u-.5cap_curve); + y8=1/3[y2,y7]; y0=3/5[y2,y7]; x9=.5[x8l,x10r]; + bot y9r=-o; rt x10r=hround(w-.05u); y10=1/4[y2,y7]; + filldraw stroke z6'e{right}..z0e---z8e....z9e{right}..z10e{up}; % tail + nodish_serif(1,2,a,1/3,cap_jut,b,1/3,.5cap_jut); % upper serif + dish_serif(2,1,c,1/3,cap_jut,d,1/3,cap_jut); % lower serif +math_fit(0,.75ic#); +pickup rule.nib; +z100=(hround w/2,.52cap_height); z101=z100+(0,radius); z103=z100-(0,radius); +z102=z100+(radius,0); z104=z100-(radius,0); +draw z101...z102...z103...z104...cycle; +penlabels(0,1,2,3,4,5,6,7,8,9,10,100,101,102,103,104); +endchar; + +endgroup; + +cmchar "Circle for copyright, etc."; +beginchar(oct"015",18u#,asc_height#,desc_depth#); autorounded; +adjust_fit(if monospace:-3u#,-3u# else: 0,0 fi); pickup rule.nib; +lft x6=hround u; x2=w-x6; top y8=h+o; bot y4=-d-o; +circle_points; draw_circle; % circle +labels(1,2,3,4,5,6,7,8); endchar; + +endinput; diff --git a/usergrps/uktug/baskervi/5_5/word.tex b/usergrps/uktug/baskervi/5_5/word.tex new file mode 100644 index 0000000000..bbee2459c2 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/word.tex @@ -0,0 +1,87 @@ +\title{Department of euphuistic fewtrils} +\author{gleanings from the Chairman} +\begin{Article} +A mailing list long long ago in another galaxy +carried a missive from a linguaphile wondering +about the word `coaybtete-leranus' found in Microsoft Word thesaurus. +Later letters had many suggestions about the origins of the word. +Here are some selections from all the speculations, guesses, musings, +and expert opinions\ldots + +\section{Verify-it-first department} +\noindent\emph{Lee Dickey }: + Instead of `coaybtete-leranus' + I found `coaybtete-leranous' + +\noindent\emph{Helfrich Raymond }: + YES, my Mac Word 5.1 shows this synonym for common!!! + Disgruntled ex-employee on the way out? + Or, soon-to-be-ex-disgruntled-employee? + +\noindent\emph{Jeffrey Windsor }: + The OED doesn't list it either. I checked the Oxford English + Dictionary, 2nd ed., and found nothing near to `coayete-leranus.' + As a matter of fact, there is nothing between `coax' and `cob.' + And if it's not in the OED, it isn't. + +\section{To-err-is-human-to-really-foul-it-up-takes-a-computer department} +\noindent\emph{David J. Swift }: + I bet it's an algorithm belch. + +\noindent\emph{Bob Funchess }: + I suspect this is an artifact caused by the way many computerized + spelling dictionaries and thesauri store words. + +\subsection{Ask-the-source department} +\noindent\emph{Jason Reed }: + I called Microsoft, as I live in Seattle and the call is + local, contacted somebody in MS-Word (Mac) (206-635-7200), + anyway\ldots they told me that it was a unknown word placed + there by mistake. + +\section{It's-a-plagiarism-protection-device department} +\noindent\emph{Andy Eddy, Editorial Manager, New Media Group }: + Authors of reference material often put misspellings, fake words or + phrases into their work. That way, if there's a question of another + reference copying material, words like this would be red flags of + where the material came from and very strong evidence in a legal + argument. + +\noindent\emph{Thomas Hudson }: + \ldots putting in tiny inconsistencies that shouldn't interfere with + normal use (who's going to use `coaybtete-leranus'?) but would be an + instant tipoff if somebody steals their thesaurus database. + +\noindent\emph{Bernard Booth }: + When I ran my bookshop we often resorted to various versions of + Books In Print --- an extremely useful resource, we discovered, + however, that BiP was littered with bogus entries (which were + occasionally ordered by customers), the reason for this was to + provide proof of plagiarism if someone ever released their own + list. All D.J.Dwyer would have to do is to cite the deliberate + errors in the text to prove that it was merely a copy of their + own work. + +\noindent\emph{Lee Dickey }: + Map makers are known to include things in their maps that are + deliberately wrong, just to use in the event that they find a + blatant copy, because then they can prove that it came from + \noindent\emph{their} map, and not from other source. + +\section{Other-interesting-tid-bits department} +\noindent\emph{Jim Falconer }: + I tried re-arranging the letters, in case this was an anagram. + I came up with `Your Seattle Beacon', which seems just too damn + coincidental not to have been done on purpose (not to mention that + it was set up to be a synonym for `stodgy' or `dull'). + +\noindent\emph{Luke McGuff }: + I've heard that if you type `supercalifragilisticexpialidocious' + into an otherwise-empty Word document, you get `precocious.' + +\section{Conclusion} +Most of the responses suggested that the word was a deliberate inclusion, +designed to thwart unauthorized copying. That seems like the most valid +explanation. Thank you all for helping solve the mystery of the Word! + +\end{Article} diff --git a/usergrps/uktug/baskervi/5_5/zappa.eps b/usergrps/uktug/baskervi/5_5/zappa.eps new file mode 100644 index 0000000000..36477f60ef --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/zappa.eps @@ -0,0 +1,449 @@ +%!PS-Adobe-2.0 EPSF-1.2 +%%Creator: Adobe Illustrator 88(TM) format generated by CorelTRACE Version 2.0C +%%Title: C:\GRAPH\ZAPPA.EPS +%%BoundingBox: 0 0 128.2 141.8 +%%CreationDate: Sat Dec 17 16:33:11 1994 +%%DocumentFonts: +%%ColorUsage: B & W +%%TileBox: 0 0 128.2 141.8 +%%EndComments +%%BeginProcSet:Adobe_Illustrator_1.1 0 0 +% Copyright 1992 Corel Corporation. + +% All rights reserved. +/wPSMDict 150 dict def +wPSMDict begin +/bd {bind def} bind def +/ld {load def} bd +/xd {exch def} bd +/_ null def +/$c 0 def +/$m 0 def +/$y 0 def +/$k 0 def +/$t 1 def +/$n _ def +/$o 0 def +/$C 0 def +/$M 0 def +/$Y 0 def +/$K 0 def +/$T 1 def +/$N _ def +/$O 0 def +/$h false def +/$al 0 def +/$tr 0 def +/$le 0 def +/$lx 0 def +/$ly 0 def +/$ctm matrix currentmatrix def +/@cp /closepath ld +/@gs /gsave ld +/@gr /grestore ld +/@MN {2 copy le{pop}{exch pop}ifelse}bd +/setcmykcolor where {pop}{/setcmykcolor{4 1 roll +3 {3 index add 1 @MN 1 exch sub 3 1 roll} repeat +setrgbcolor +pop}bd}ifelse +/@tc{dup 1 ge{pop}{4 {dup +6 -1 roll +mul +exch}repeat +pop}ifelse}bd +/@scc{$c $m $y $k $t @tc setcmykcolor true}bd +/@SCC{$C $M $Y $K $T @tc setcmykcolor true}bd +/@sm{/$ctm $ctm currentmatrix def}bd +/x {/$t xd /$n xd +/$k xd /$y xd /$m xd /$c xd}bd +/X {/$T xd /$N xd +/$K xd /$Y xd /$M xd /$C xd}bd +/g {1 exch sub 0 0 0 +4 -1 roll +_ 1 x}bd +/G {1 exch sub 0 0 0 +4 -1 roll +_ 1 X}bd +/k {_ 1 x}bd +/K {_ 1 X}bd +/d /setdash ld +/i {dup 0 ne {setflat} {pop} ifelse}bd +/j /setlinejoin ld +/J /setlinecap ld +/M /setmiterlimit ld +/w /setlinewidth ld +/O {/$o xd}bd +/R {/$O xd}bd +/c /curveto ld +/C /c ld +/l /lineto ld +/L /l ld +/m /moveto ld +/n /newpath ld +/N /newpath ld +/F {@scc{eofill}if n} bd +/f {@cp F}bd +/S {@SCC{stroke}if n} bd +/s {@cp +S}bd +/B {@gs F @gr +S}bd +/b {@cp B }bd +/u {}bd +/U {}bd +%%EndProlog +%%BeginSetup +%%EndSetup +1 i +2 J +0 j +4 M +[]0 d +%%Note: traced as Normale omtrek +0 g +24.0 3.7 m +24.0 3.7 24.0 3.8 24.0 3.8 C +22.5 6.2 20.6 8.4 19.0 10.9 C +18.1 11.7 17.8 12.8 16.9 13.7 C +16.3 15.0 15.2 15.8 14.6 17.0 C +13.6 18.2 12.7 19.6 12.0 20.7 C +11.4 21.4 11.0 22.0 10.5 22.8 C +9.9 25.2 9.8 27.4 9.2 29.7 C +9.0 33.2 8.1 36.5 7.9 40.0 C +7.2 42.8 7.2 45.4 6.6 48.0 C +6.3 48.5 6.4 48.9 6.6 49.3 C +5.5 53.2 L +5.2 52.7 5.9 52.0 5.5 51.3 C +5.6 49.5 6.2 47.8 6.2 46.1 C +6.6 45.1 6.2 44.3 6.6 43.5 C +6.4 42.8 6.8 42.2 6.6 41.4 C +7.1 40.2 6.9 39.0 7.3 37.9 C +7.3 36.7 7.6 35.5 7.7 34.4 C +7.9 33.5 7.9 32.8 8.1 32.1 C +8.6 30.8 8.5 29.3 8.7 28.1 C +9.1 27.1 8.5 26.1 9.3 25.4 C +9.2 23.7 9.4 22.0 10.6 21.0 C +11.5 19.4 L +12.1 19.0 L +15.4 14.4 L +15.6 14.2 16.0 14.0 16.1 13.6 C +23.0 4.5 L +23.9 3.6 L +23.9 3.6 24.0 3.7 24.0 3.7 C +f +0 g +94.0 7.6 m +94.2 7.6 94.5 7.7 94.8 7.8 C +96.0 9.3 96.7 11.1 97.8 12.8 C +97.8 13.3 97.9 13.7 97.7 13.9 C +97.3 14.1 96.7 14.0 96.4 14.4 C +96.4 14.5 96.4 14.6 96.4 14.7 C +95.1 15.3 93.5 15.3 92.1 16.0 C +90.6 16.5 89.4 17.0 87.7 17.3 C +87.0 17.8 86.2 17.9 85.3 18.0 C +85.0 17.7 84.8 17.3 84.5 17.0 C +84.2 16.1 83.9 15.4 83.5 14.7 C +83.3 14.5 83.1 14.2 83.0 13.8 C +82.9 13.5 82.5 13.1 82.1 12.9 C +82.0 11.0 L +82.5 10.3 83.6 10.4 84.4 9.8 C +86.0 9.4 87.7 9.1 89.3 8.9 C +90.1 8.2 91.4 8.4 92.1 7.9 C +92.8 7.7 93.4 7.8 94.0 7.6 C +f +0 g +108.7 17.9 m +108.7 17.9 108.8 18.0 108.8 18.0 C +109.2 18.8 109.8 19.6 110.2 20.5 C +110.1 21.9 111.2 22.6 111.2 24.0 C +111.6 24.7 111.8 25.5 112.2 26.1 C +112.5 27.4 113.1 28.3 113.1 29.6 C +112.9 31.3 L +112.0 32.1 111.1 33.0 110.4 34.0 C +109.7 34.4 109.0 34.9 108.8 35.7 C +108.9 36.5 108.4 36.8 108.1 37.4 C +108.1 37.5 108.1 37.6 108.0 37.7 C +103.9 39.8 L +103.5 40.2 102.9 41.0 102.1 40.9 C +99.6 41.4 97.2 41.6 94.8 41.5 C +92.5 42.2 90.3 41.1 88.2 41.9 C +86.9 41.3 L +86.6 41.3 86.7 41.6 86.6 41.9 C +85.5 41.8 84.3 42.0 83.1 41.8 C +81.0 42.2 79.3 41.6 77.7 40.7 C +76.7 38.6 L +74.9 37.0 L +74.9 36.9 74.9 36.8 74.9 36.7 C +74.8 36.4 74.5 36.3 74.3 36.1 C +72.3 32.4 L +71.1 30.1 L +70.2 28.8 69.6 27.2 69.3 25.5 C +68.9 24.9 L +68.9 24.1 68.9 23.4 69.5 22.8 C +69.6 22.3 69.5 21.9 69.8 21.6 C +70.0 21.4 70.2 21.2 70.6 21.2 C +72.0 22.7 73.4 23.9 75.0 25.2 C +75.3 25.8 76.0 26.1 76.2 26.8 C +78.6 27.6 79.6 30.4 82.1 31.1 C +82.8 31.5 83.5 31.2 84.2 31.0 C +87.8 31.2 91.3 29.6 94.9 29.2 C +97.2 28.1 99.5 29.2 101.6 28.5 C +102.0 28.6 102.3 28.4 102.6 28.4 C +103.3 27.7 104.4 27.6 104.7 26.5 C +104.7 26.0 104.7 25.7 104.7 25.4 C +105.3 24.6 106.3 24.5 107.2 24.2 C +107.5 24.2 107.7 24.2 107.8 24.2 C +108.0 24.1 108.2 23.9 108.3 23.7 C +108.1 18.1 L +108.2 18.0 108.5 17.9 108.7 17.9 C +f +1 g +104.5 27.8 m +105.0 27.8 L +105.2 28.0 104.5 27.8 104.3 28.0 C +104.2 27.9 104.3 27.8 104.4 27.7 C +104.4 27.7 104.5 27.8 104.5 27.8 C +f +0 g +43.0 28.6 m +43.1 28.7 43.2 28.7 43.2 28.8 C +44.7 47.7 L +44.6 48.1 44.3 48.3 43.9 48.4 C +43.7 48.3 43.6 48.3 43.5 48.3 C +42.7 47.7 43.5 46.4 42.9 45.6 C +43.4 43.4 42.6 41.5 42.9 39.4 C +42.6 38.3 42.6 37.4 42.6 36.6 C +43.2 33.8 42.2 31.2 42.6 28.8 C +42.6 28.7 42.8 28.5 43.0 28.6 C +f +0 g +116.0 40.2 m +118.1 40.2 120.2 39.8 122.3 40.5 C +122.9 41.5 123.3 42.4 123.8 43.4 C +124.3 47.3 124.0 51.3 123.4 55.0 C +123.4 57.6 122.7 60.1 122.3 62.4 C +122.2 64.0 121.8 65.2 121.4 66.6 C +121.0 67.3 121.0 68.1 120.7 68.8 C +120.6 69.0 120.7 69.1 120.7 69.3 C +120.2 69.6 120.3 70.3 120.0 70.9 C +120.0 71.4 119.7 71.7 119.7 72.2 C +119.2 73.5 118.7 74.4 118.3 75.7 C +117.6 77.5 116.7 79.2 116.3 81.1 C +115.5 82.0 115.4 82.8 114.9 83.7 C +114.7 84.4 114.2 84.9 113.9 85.5 C +109.8 92.7 L +108.4 94.5 L +107.7 96.1 L +107.4 96.2 107.0 96.5 106.9 96.9 C +105.4 98.8 L +105.3 100.0 104.2 100.2 103.7 101.0 C +103.6 101.5 L +102.7 101.9 L +102.5 102.1 102.7 102.4 102.7 102.7 C +102.4 103.4 101.5 103.9 100.7 104.0 C +100.9 103.0 L +102.0 102.2 L +102.7 100.9 103.7 99.9 104.9 99.1 C +105.6 97.0 107.5 95.4 108.6 93.4 C +108.7 92.8 109.4 92.5 109.5 92.0 C +110.3 90.4 L +111.4 89.0 L +111.6 88.2 L +114.2 84.1 L +114.6 82.5 L +115.4 81.4 115.7 79.7 116.5 78.6 C +117.0 76.4 118.2 74.9 118.8 72.7 C +119.6 71.5 119.5 69.9 120.2 68.7 C +120.2 68.1 120.5 67.8 120.7 67.5 C +120.8 64.8 122.1 62.6 122.3 60.0 C +122.4 59.5 122.5 59.1 122.4 58.7 C +123.2 57.5 122.6 55.9 123.1 54.6 C +123.1 53.9 123.4 53.5 123.4 52.9 C +123.5 51.9 123.2 51.1 123.4 50.1 C +123.8 48.7 123.3 47.5 123.4 46.0 C +122.9 44.5 123.6 42.8 122.5 41.7 C +119.6 40.3 116.1 41.0 112.9 41.3 C +112.6 41.3 112.9 41.0 113.0 40.9 C +116.0 40.2 L +f +0 g +107.0 43.9 m +107.0 43.9 107.1 43.9 107.1 43.9 C +107.1 44.5 L +106.7 44.9 106.2 45.2 106.0 45.7 C +104.5 47.0 L +103.6 47.5 103.1 48.6 102.1 49.0 C +100.7 50.6 98.1 50.6 96.2 50.3 C +96.1 50.3 96.1 50.2 96.1 50.1 C +96.9 49.7 97.9 49.3 98.6 48.6 C +100.5 47.9 102.9 47.7 104.1 46.1 C +105.4 45.9 105.7 44.4 107.0 43.9 C +f +0 g +89.6 52.2 m +89.6 52.2 89.7 52.2 89.8 52.3 C +89.8 53.3 88.7 54.6 89.0 55.6 C +91.3 57.2 93.7 58.8 96.6 59.1 C +97.2 59.0 97.7 58.9 98.2 58.6 C +101.4 56.4 L +101.4 56.4 101.5 56.5 101.5 56.6 C +100.8 57.2 L +100.4 57.8 L +98.7 59.2 L +97.5 60.2 95.7 59.8 94.1 59.2 C +92.2 58.7 90.9 57.6 89.1 56.9 C +88.9 56.7 88.6 56.4 88.6 56.0 C +88.1 55.2 L +89.1 52.6 L +89.1 52.5 89.3 52.3 89.6 52.2 C +f +0 g +109.2 57.6 m +109.2 57.6 109.3 57.6 109.4 57.7 C +109.2 61.0 L +109.1 61.0 109.0 61.1 108.9 61.1 C +108.3 60.6 L +109.0 57.6 L +109.0 57.6 109.2 57.6 109.2 57.6 C +f +0 g +61.9 101.9 m +62.5 102.0 L +63.3 103.0 L +62.7 104.2 L +62.6 104.2 62.5 104.3 62.3 104.4 C +62.1 104.5 62.0 104.9 61.9 105.3 C +61.9 105.7 62.3 105.9 62.7 106.1 C +63.6 106.1 64.4 106.2 65.2 106.2 C +65.2 106.3 65.4 106.2 65.3 106.4 C +65.1 106.6 64.9 106.7 64.7 106.9 C +62.1 107.5 60.4 104.9 57.8 105.2 C +57.2 104.9 56.7 104.6 56.1 104.4 C +56.1 104.2 55.9 104.4 56.1 104.2 C +61.9 101.9 L +f +0 g +85.2 102.5 m +85.2 102.6 85.2 102.7 85.3 102.8 C +85.1 104.5 85.3 106.2 84.8 107.8 C +84.8 108.6 84.4 109.1 84.4 109.8 C +84.4 110.3 84.2 110.5 84.0 110.9 C +84.0 110.9 84.0 111.0 83.9 111.0 C +83.8 111.0 83.7 111.1 83.6 111.1 C +83.5 111.0 83.3 111.0 83.3 110.7 C +83.4 109.2 L +83.3 109.0 83.2 108.8 82.9 108.7 C +80.7 108.6 L +78.9 110.1 L +77.7 111.6 75.9 112.4 74.3 113.5 C +73.1 113.8 72.7 114.8 71.7 115.3 C +71.4 115.5 71.4 115.7 71.2 115.9 C +70.4 116.2 L +70.3 116.2 70.3 116.1 70.2 116.0 C +70.7 115.2 71.5 114.5 71.1 113.4 C +71.5 112.7 72.0 111.9 72.6 111.7 C +73.5 110.7 74.6 110.2 75.4 109.2 C +75.8 108.9 L +76.3 108.4 77.1 108.3 77.7 107.6 C +78.2 107.4 78.6 106.9 78.9 106.5 C +78.9 106.4 78.9 106.3 79.0 106.1 C +79.6 105.8 L +79.9 105.7 79.9 105.2 80.3 105.2 C +81.7 104.5 L +82.3 104.5 L +83.1 103.9 L +83.3 103.9 83.3 104.0 83.5 104.0 C +83.8 103.3 84.3 102.8 85.1 102.5 C +85.1 102.5 85.2 102.5 85.2 102.5 C +f +0 g +70.5 102.8 m +70.5 102.8 70.6 102.9 70.6 102.9 C +70.6 103.0 70.7 102.9 70.6 103.1 C +67.6 105.3 L +67.2 105.2 67.0 105.5 66.6 105.6 C +65.9 105.9 L +70.5 102.8 L +f +0 g +90.0 104.2 m +89.6 108.8 L +89.6 108.8 89.5 108.9 89.5 109.0 C +89.4 109.0 89.3 109.0 89.2 109.0 C +88.9 109.0 88.7 108.8 88.6 108.6 C +89.1 107.2 89.4 105.8 89.6 104.2 C +89.7 104.2 89.8 104.0 90.0 104.2 C +f +0 g +102.6 105.6 m +103.5 105.6 104.3 106.0 104.9 106.7 C +105.4 107.7 106.2 108.3 107.5 108.6 C +108.1 108.6 108.6 108.4 109.2 108.2 C +111.2 109.1 112.5 111.2 114.2 112.6 C +114.5 112.9 114.8 113.1 114.9 113.4 C +114.8 113.6 114.8 113.7 114.5 113.8 C +113.4 113.4 L +113.2 112.8 112.5 112.7 111.8 112.6 C +111.4 112.7 111.0 112.8 110.8 113.1 C +110.7 113.9 L +110.7 114.1 110.6 114.1 110.5 114.0 C +110.4 113.9 110.3 113.8 110.2 113.7 C +108.7 112.9 L +106.2 110.1 L +106.2 110.0 106.2 109.9 106.2 109.8 C +106.2 109.7 106.2 109.6 106.1 109.5 C +104.8 109.2 L +104.6 108.8 104.3 108.5 103.8 108.4 C +103.6 108.2 103.8 108.0 103.7 107.7 C +103.7 107.6 103.7 107.5 103.6 107.5 C +103.0 107.2 102.4 106.9 102.2 106.2 C +102.1 106.1 102.1 106.0 102.2 105.9 C +102.2 105.8 102.4 105.7 102.6 105.6 C +f +0 g +48.7 106.5 m +50.6 106.6 52.2 108.0 54.1 108.4 C +56.9 109.4 59.7 110.5 62.6 111.2 C +63.7 111.1 64.6 111.8 65.6 111.6 C +68.4 110.3 L +69.0 109.6 L +72.0 108.1 L +72.1 108.1 72.2 108.2 72.2 108.3 C +69.6 110.5 67.0 112.5 64.2 114.6 C +62.9 115.0 62.4 116.2 60.7 115.6 C +60.0 115.0 59.4 114.6 58.8 114.2 C +56.9 114.0 56.2 112.6 54.9 111.8 C +54.6 111.4 54.1 111.0 53.5 111.0 C +51.8 109.8 L +51.4 108.8 50.1 108.7 49.3 107.8 C +49.0 107.7 48.8 107.6 48.6 107.5 C +48.3 107.0 L +48.3 106.8 48.4 106.6 48.6 106.5 C +48.6 106.5 48.7 106.5 48.7 106.5 C +f +0 g +116.0 117.7 m +116.1 117.7 116.1 117.7 116.2 117.8 C +116.5 118.5 115.9 119.0 116.1 119.9 C +115.8 120.7 115.7 121.4 115.4 122.1 C +115.3 122.8 115.1 123.4 114.9 124.1 C +114.4 124.7 114.4 125.5 114.2 126.1 C +114.2 126.8 113.5 127.1 113.6 127.9 C +113.4 128.7 113.3 129.3 113.0 130.0 C +112.9 130.1 112.9 130.2 112.9 130.2 C +112.6 130.8 L +111.0 136.7 L +110.9 136.8 111.0 136.7 110.9 136.8 C +110.6 136.9 110.4 136.9 110.1 136.9 C +109.8 136.5 110.3 136.1 110.4 135.7 C +110.4 133.7 111.8 132.4 111.8 130.4 C +112.2 129.8 112.0 129.2 112.4 128.6 C +112.4 127.7 113.2 127.1 112.9 126.2 C +113.9 123.4 L +114.8 122.8 114.1 121.5 114.8 120.7 C +114.8 119.9 115.3 119.3 115.4 118.5 C +115.6 118.1 115.6 117.8 116.0 117.7 C +f +%%Trailer +end +showpage diff --git a/usergrps/uktug/baskervi/5_5/zappa.pcx b/usergrps/uktug/baskervi/5_5/zappa.pcx Binary files differnew file mode 100644 index 0000000000..95fadedc78 --- /dev/null +++ b/usergrps/uktug/baskervi/5_5/zappa.pcx |