summaryrefslogtreecommitdiff
path: root/usergrps/uktug/baskervi/5_5
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /usergrps/uktug/baskervi/5_5
Initial commit
Diffstat (limited to 'usergrps/uktug/baskervi/5_5')
-rw-r--r--usergrps/uktug/baskervi/5_5/TS1cmr.fd22
-rw-r--r--usergrps/uktug/baskervi/5_5/TS1mbvx.fd60
-rw-r--r--usergrps/uktug/baskervi/5_5/agm.tex365
-rw-r--r--usergrps/uktug/baskervi/5_5/bask5_5.expslist0
-rw-r--r--usergrps/uktug/baskervi/5_5/bask5_5.rep0
-rw-r--r--usergrps/uktug/baskervi/5_5/bask5_5.tex88
-rw-r--r--usergrps/uktug/baskervi/5_5/bask5_5.uni1
-rw-r--r--usergrps/uktug/baskervi/5_5/baskerv.cls695
-rw-r--r--usergrps/uktug/baskervi/5_5/dctc.mf116
-rw-r--r--usergrps/uktug/baskervi/5_5/dxaccess.mf878
-rw-r--r--usergrps/uktug/baskervi/5_5/dxbase.mf1224
-rw-r--r--usergrps/uktug/baskervi/5_5/editor.tex307
-rw-r--r--usergrps/uktug/baskervi/5_5/election.tex23
-rw-r--r--usergrps/uktug/baskervi/5_5/fancyvrb.rc202
-rw-r--r--usergrps/uktug/baskervi/5_5/fine.tex249
-rw-r--r--usergrps/uktug/baskervi/5_5/group.tex385
-rw-r--r--usergrps/uktug/baskervi/5_5/hhcount.sty337
-rw-r--r--usergrps/uktug/baskervi/5_5/hhflxbox.sty519
-rw-r--r--usergrps/uktug/baskervi/5_5/hhmuf.sty600
-rw-r--r--usergrps/uktug/baskervi/5_5/hhparmrk.sty479
-rw-r--r--usergrps/uktug/baskervi/5_5/hhpmark.tex832
-rw-r--r--usergrps/uktug/baskervi/5_5/hhpmbsa.tex3
-rw-r--r--usergrps/uktug/baskervi/5_5/hhpmbsb.tex2
-rw-r--r--usergrps/uktug/baskervi/5_5/hhpmsca.tex42
-rw-r--r--usergrps/uktug/baskervi/5_5/hhpmtsa.tex13
-rw-r--r--usergrps/uktug/baskervi/5_5/hhqueue.sty62
-rw-r--r--usergrps/uktug/baskervi/5_5/hhunits.sty135
-rw-r--r--usergrps/uktug/baskervi/5_5/hhutils0.sty25
-rw-r--r--usergrps/uktug/baskervi/5_5/reese.tex123
-rw-r--r--usergrps/uktug/baskervi/5_5/tcr.mf88
-rw-r--r--usergrps/uktug/baskervi/5_5/tcr1000.mf6
-rw-r--r--usergrps/uktug/baskervi/5_5/tcr1000.tfmbin0 -> 1396 bytes
-rw-r--r--usergrps/uktug/baskervi/5_5/tcr1095.mf6
-rw-r--r--usergrps/uktug/baskervi/5_5/tcr1200.mf6
-rw-r--r--usergrps/uktug/baskervi/5_5/tcstdedt.tex319
-rw-r--r--usergrps/uktug/baskervi/5_5/textcomp.sty189
-rw-r--r--usergrps/uktug/baskervi/5_5/textcomp.tex650
-rw-r--r--usergrps/uktug/baskervi/5_5/txaccent.mf159
-rw-r--r--usergrps/uktug/baskervi/5_5/txgen.mf109
-rw-r--r--usergrps/uktug/baskervi/5_5/txifract.mf139
-rw-r--r--usergrps/uktug/baskervi/5_5/txisuper.mf120
-rw-r--r--usergrps/uktug/baskervi/5_5/txmacros.mf27
-rw-r--r--usergrps/uktug/baskervi/5_5/txolddig.mf329
-rw-r--r--usergrps/uktug/baskervi/5_5/txpseudo.mf63
-rw-r--r--usergrps/uktug/baskervi/5_5/txrfract.mf200
-rw-r--r--usergrps/uktug/baskervi/5_5/txrsuper.mf184
-rw-r--r--usergrps/uktug/baskervi/5_5/txsymb.mf52
-rw-r--r--usergrps/uktug/baskervi/5_5/txsymbol.mf1817
-rw-r--r--usergrps/uktug/baskervi/5_5/word.tex87
-rw-r--r--usergrps/uktug/baskervi/5_5/zappa.eps449
-rw-r--r--usergrps/uktug/baskervi/5_5/zappa.pcxbin0 -> 21274 bytes
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
new file mode 100644
index 0000000000..6efd5ef050
--- /dev/null
+++ b/usergrps/uktug/baskervi/5_5/tcr1000.tfm
Binary files differ
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
new file mode 100644
index 0000000000..95fadedc78
--- /dev/null
+++ b/usergrps/uktug/baskervi/5_5/zappa.pcx
Binary files differ