@airmark/quiver 0.38.0 → 0.39.0

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/fonts/TeXGyreTermes/README-TeX-Gyre-Termes.txt

@@ -0,0 +1,317 @@
+###########################################################################
+############          The TeX Gyre Collection of Fonts         ############
+############                 The font Termes                   ############
+###########################################################################
+
+Font: TeX Gyre Termes
+Authors: Bogus\l{}aw Jackowski and Janusz M. Nowacki
+Version: 2.004
+Date: 7 X 2009
+Downloads: http://www.gust.org.pl/projects/e-foundry/tex-gyre/termes
+
+License:
+  % Copyright 2006--2009 for TeX Gyre extensions by B. Jackowski
+  % and J.M. Nowacki (on behalf of TeX Users Groups).
+  % Vietnamese characters were added by Han The Thanh.
+  %
+  % This work can be freely used and distributed under
+  % the GUST Font License (GFL -- see GUST-FONT-LICENSE.txt)
+  % which is actually an instance of the LaTeX Project Public License
+  % (LPPL -- see http://www.latex-project.org/lppl.txt ).
+  %
+  % This work has the maintenance status "maintained". The Current Maintainer
+  % of this work is Bogus\l{}aw Jackowski and Janusz M. Nowacki.
+  %
+  % This work consists of the files listed
+  % in the MANIFEST-TeX-Gyre-Termes.txt file.
+
+###########################################################################
+############         A BRIEF DESCRIPTION OF THE PACKAGE        ############
+###########################################################################
+
+The current package contains the most recent version of the TeX Gyre
+Termes family of fonts in the PostScript Type 1 and OpenType formats.
+TeX Gyre Termes is based on the URW Nimbus Roman No9 L kindly released
+by URW++ Design and Development Inc. under GFL (independently of the GPL
+release accompanying Ghostscript). The Vietnamese glyphs were added
+by Han The Thanh.
+
+TeX Gyre Termes can be used as a replacement for the renowned
+Times (new) Roman font (designed by Stanley Morison together with
+Starling Burgess and Victor Lardent for the London newspaper ``The
+Times''; it was first issued by the Monotype Corporation in 1932 --
+see the article by Charles Bigelow for interesting details:
+http://www.truetype-typography.com/articles/times.htm ).
+
+Note that the widths of the TeX Gyre Termes glyphs are almost consistent with
+the relevant Adobe metric data (for the glyphs from the Adobe Standard
+Encoding):
+  ftp://ftp.adobe.com/pub/adobe/type/win/all/afmfiles/base35/tib_____.afm
+  ftp://ftp.adobe.com/pub/adobe/type/win/all/afmfiles/base35/tibi____.afm
+  ftp://ftp.adobe.com/pub/adobe/type/win/all/afmfiles/base35/tii_____.afm
+  ftp://ftp.adobe.com/pub/adobe/type/win/all/afmfiles/base35/tir_____.afm
+
+Exceptions are: `logicalnot' and `minus' in the bold italic variant
+(Adobe: 606, TeX Gyre: 570 which is consistent with other math glyphs)
+and `exclamdown' in the regular italic variant (Adobe: 389, TeX Gyre: 333
+which is consistent with the width of the `exclam' glyph).
+
+                           *   *   *
+
+The TeX Gyre project, following the Latin Modern project, aims at providing
+a rich collection of diacritical characters in the attempt to cover as many
+Latin-based scripts as possible. To our knowledge, the repertoire of
+characters covers all European languages as well as some other Latin-based
+alphabets such as Vietnamese and Navajo; at the request of users, recent
+extensions (following the enhancement of the Latin Modern collection)
+provide glyphs sufficient for typesetting of romanized transliterations
+of Arabic and Sanskrit scripts. We have frequently used the information
+presented by Michael Everson at the ``The Alphabets of Europe''
+( http://www.evertype.com/alphabets/ ) web site. If you know about European
+languages that are not covered completely or if some glyphs have apparently
+wrong shapes -- please let us know. Note, however, that Greek glyphs
+bear provisional character.
+
+The TeX Gyre Project was launched and is supported by TeX USERS GROUPS
+(CS TUG, DANTE eV, GUST, NTG, TUG India, TUG). Hearty thanks to the
+representatives of these groups and also to all people who helped with
+comments, ideas, remarks, bug reports, objections, hints, consolations, etc.
+
+                           *   *   *
+
+The TeX Gyre Termes family consists of 4 text fonts: regular,
+italic, bold and bold italic (qtmr, qtmri, qtmb, qtmbi).
+
+The TeX Gyre Termes family can be freely used and distributed
+under the GUST Font License (see above) which is actually
+an instance of the LaTeX Project Public License
+(LPPL; see http://www.latex-project.org/lppl.txt ).
+
+                           *   *   *
+
+The package consists of the files in the directories conforming
+to the TeX Directory Structure (v. 1.1). The directories contain:
+
+doc/fonts/tex-gyre             this file, manifest, licence, test files,
+                               and, moreover, selected files used as input
+                               for generating OTFs (meant as a technical
+                               documentation of the OTFs)
+tex/latex/tex-gyre             support for LaTeX (*.fd and *.sty files,
+                               prepared by Marcin Woli\'nski)
+fonts/enc/dvips/tex-gyre       support for dvips (*.enc files);
+                               NOTE: all fonts of the TeX Gyre family
+                                 share the same *.enc files with
+                                 a few exceptions: CS, QX, and RM encodings
+                                 for TeX Gyre Cursor (monospace) differ
+                                 from the standard ones (because of the
+                                 compatibility with Computer Modern
+                                 typewriter fonts requested by users),
+                                 and, moreover, CS, L7x, QX and RM encodings
+                                 for TeX Gyre Chorus exploit exceptionally
+                                 the `lslash_lslash' ligature
+fonts/map/dvips/tex-gyre       support for dvips (*.map files)
+fonts/opentype/public/tex-gyre fonts in the OpenType format (*.otf files)
+fonts/type1/public/tex-gyre    PostScript (Type 1) font files and printer
+                               font metric files (*.pfb and *.pfm,
+                               respectively);
+fonts/tfm/public/tex-gyre      TeX font metric files (*.tfm) for:
+                               -- CS (CSTUG) encoding (cs-*.tfm),
+                               -- EC (Cork) encoding (ec-*.tfm),
+                               -- L7x (Lithuanian) encoding (l7x-*.tfm),
+                               -- QX (GUST) encoding (qx-*.tfm),
+                               -- RM (Regular Math or OT1) encoding (rm-*.tfm),
+                               -- Y&Y's TeX'n'ANSI aka LY1 encoding
+                                  (texnansi-*.tfm),
+                               -- T5 (Vietnamese) encoding (t5-*.tfm),
+                               -- Text Companion for EC fonts aka TS1
+                                  (ts1-*.tfm).
+                               Encodings CS, EC, L7x, QX, RM, Y&Y, and T5
+                               have their cap-small-caps counterparts
+                               (*-sc.tfm).
+fonts/afm/public/tex-gyre      Adobe font metric files (*.afm);
+
+Email contact: Bogus\l{}aw Jackowski aka Jacko, B_Jackowski@gust.org.pl
+
+                           *   *   *
+
+In ConTeXt, support for TeX Gyre Collection can be found in the typescript
+definition files:
+
+  ... /tex/context/base/type-enc.tex
+  ... /tex/context/base/type-syn.tex
+  ... /tex/context/base/type-exa.tex
+  ... /tex/context/base/type-map.tex
+
+Additional encoding and map files can be found under:
+
+  ... /texmf/fonts/map/pdftex/context
+  ... /texmf/fonts/enc/pdftex/context
+
+                           *   *   *
+
+All four font files, qtmb, qtmbi, qtmr, qtmri, contain the same repertoire
+of 1089 characters, namely (these are the names used in Type 1 fonts):
+
+A a a.sc Aacute aacute aacute.sc Abreve abreve abreve.sc Abreveacute
+abreveacute abreveacute.sc Abrevedotbelow abrevedotbelow
+abrevedotbelow.sc Abrevegrave abrevegrave abrevegrave.sc Abrevehookabove
+abrevehookabove abrevehookabove.sc Abrevetilde abrevetilde abrevetilde.sc
+Acaron acaron acaron.sc Acircumflex acircumflex acircumflex.sc
+Acircumflexacute acircumflexacute acircumflexacute.sc Acircumflexdotbelow
+acircumflexdotbelow acircumflexdotbelow.sc Acircumflexgrave
+acircumflexgrave acircumflexgrave.sc Acircumflexhookabove
+acircumflexhookabove acircumflexhookabove.sc Acircumflextilde
+acircumflextilde acircumflextilde.sc Acute acute acute.dup acute.ts1
+Acutecomb acutecomb Adblgrave adblgrave adblgrave.sc Adieresis adieresis
+adieresis.sc Adotbelow adotbelow adotbelow.sc AE ae AE.dup ae.dup ae.sc
+AEacute aeacute aeacute.sc Agrave agrave agrave.sc Ahookabove ahookabove
+ahookabove.sc Alpha alpha Amacron amacron amacron.sc ampersand anglearc
+angleleft angleright Aogonek aogonek aogonek.sc Aogonekacute aogonekacute
+aogonekacute.sc approxequal Aring aring aring.sc Aringacute aringacute
+aringacute.sc arrowdown arrowleft arrowright arrowup asciicircum
+asciitilde asterisk asteriskmath at at.alt Atilde atilde atilde.sc B b
+b.sc backslash baht bar Beta beta bigcircle blanksymbol born braceleft
+braceright bracketleft bracketright Breve breve breve.ts1 Breveacute
+breveacute brevebelow brevebelowcomb brevebelowinverted
+brevebelowinvertedcomb Brevecomb brevecomb Brevegrave brevegrave
+Brevehookabove brevehookabove Breveinverted breveinverted
+Breveinvertedcomb breveinvertedcomb Brevetilde brevetilde brokenbar
+bullet C c c.sc Cacute cacute cacute.sc Caron caron caron.ts1 Caroncomb
+caroncomb Ccaron ccaron ccaron.sc Ccedilla ccedilla ccedilla.sc
+Ccircumflex ccircumflex ccircumflex.sc Cdotaccent cdotaccent
+cdotaccent.sc cedilla cedilla.dup cent cent.oldstyle centigrade Chi chi
+Circumflex circumflex circumflex.dup Circumflexacute circumflexacute
+Circumflexcomb circumflexcomb Circumflexgrave circumflexgrave
+Circumflexhookabove circumflexhookabove Circumflextilde circumflextilde
+colon colonmonetary comma commaaccent commaaccentcomb copyleft copyright
+copyright.alt currency cwm cwmascender cwmcapital cyrBreve cyrbreve
+cyrFlex cyrflex D d d.sc dagger daggerdbl dblbracketleft dblbracketright
+dblGrave dblgrave dblgrave.ts1 dblGravecomb dblgravecomb dblverticalbar
+Dcaron dcaron dcaron.sc Dcroat dcroat dcroat.sc Ddotbelow ddotbelow
+ddotbelow.sc degree Delta delta diameter died Dieresis dieresis
+dieresis.dup dieresis.ts1 Dieresisacute dieresisacute Dieresiscaron
+dieresiscaron Dieresiscomb dieresiscomb Dieresisgrave dieresisgrave
+discount divide divorced Dlinebelow dlinebelow dlinebelow.sc dollar
+dollar.oldstyle dong Dotaccent dotaccent Dotaccentcomb dotaccentcomb
+dotbelow dotbelowcomb dotlessi dotlessi.sc dotlessj dotlessj.dup
+dotlessj.sc E e e.sc Eacute eacute eacute.sc Ebreve ebreve ebreve.sc
+Ecaron ecaron ecaron.sc Ecircumflex ecircumflex ecircumflex.sc
+Ecircumflexacute ecircumflexacute ecircumflexacute.sc Ecircumflexdotbelow
+ecircumflexdotbelow ecircumflexdotbelow.sc Ecircumflexgrave
+ecircumflexgrave ecircumflexgrave.sc Ecircumflexhookabove
+ecircumflexhookabove ecircumflexhookabove.sc Ecircumflextilde
+ecircumflextilde ecircumflextilde.sc Edblgrave edblgrave edblgrave.sc
+Edieresis edieresis edieresis.sc Edotaccent edotaccent edotaccent.sc
+Edotbelow edotbelow edotbelow.sc Egrave egrave egrave.sc Ehookabove
+ehookabove ehookabove.sc eight eight.oldstyle eight.prop
+eight.taboldstyle ell ellipsis Emacron emacron emacron.sc emdash endash
+Eng eng eng.sc Eogonek eogonek eogonek.sc Eogonekacute eogonekacute
+eogonekacute.sc Epsilon epsilon epsilon.alt equal Ereversed ereversed
+ereversed.sc estimated Eta eta Eth eth eth.sc Etilde etilde etilde.sc
+eturned eturned.sc Euro exclam exclamdown F f f.sc f_k ff ffi ffl fi five
+five.oldstyle five.prop five.taboldstyle fl florin four four.oldstyle
+four.prop four.taboldstyle fraction fraction.alt G g g.sc Gacute gacute
+gacute.sc Gamma gamma Gbreve gbreve gbreve.sc Gcaron gcaron gcaron.sc
+Gcedilla gcedilla Gcircumflex gcircumflex gcircumflex.sc Gcommaaccent
+gcommaaccent gcommaaccent.sc Gdotaccent gdotaccent gdotaccent.sc
+Germandbls germandbls germandbls.dup germandbls.sc gnaborretni Grave
+grave grave.ts1 Gravecomb gravecomb greater greaterequal
+greaterorequalslant guarani guillemotleft guillemotright guilsinglleft
+guilsinglright H h h.sc Hbar hbar hbar.sc Hbrevebelow hbrevebelow
+hbrevebelow.sc Hcircumflex hcircumflex hcircumflex.sc Hdieresis hdieresis
+hdieresis.sc Hdotbelow hdotbelow hdotbelow.sc Hookabove hookabove
+Hookabovecomb hookabovecomb horn Htilde htilde htilde.sc Hungarumlaut
+hungarumlaut hungarumlaut.ts1 Hungarumlautcomb hungarumlautcomb hyphen
+hyphen.alt hyphen.dup hyphen.prop hyphendbl hyphendbl.alt I i i.sc Iacute
+iacute iacute.sc Ibreve ibreve ibreve.sc Icaron icaron icaron.sc
+Icircumflex icircumflex icircumflex.sc Idblgrave idblgrave idblgrave.sc
+Idieresis idieresis idieresis.sc Idieresisacute idieresisacute
+idieresisacute.sc Idotaccent idotaccent.sc Idotbelow idotbelow
+idotbelow.sc Igrave igrave igrave.sc Ihookabove ihookabove ihookabove.sc
+IJ ij ij.sc Imacron imacron Imacron.alt imacron.alt imacron.alt.sc
+imacron.sc infinity interrobang Iogonek iogonek iogonek.sc Iogonekacute
+iogonekacute iogonekacute.sc Iota iota Itilde itilde itilde.sc J j j.sc
+J_caron Jacute jacute jacute.sc jcaron jcaron.sc Jcircumflex jcircumflex
+jcircumflex.sc K k k.sc Kappa kappa Kcedilla kcedilla Kcommaaccent
+kcommaaccent kcommaaccent.sc L l l.sc Lacute lacute lacute.sc Lambda
+lambda Lcaron lcaron lcaron.sc Lcedilla lcedilla Lcommaaccent
+lcommaaccent lcommaaccent.sc Ldot ldot ldot.sc Ldotbelow ldotbelow
+ldotbelow.sc Ldotbelowmacron ldotbelowmacron ldotbelowmacron.sc leaf less
+lessequal lessorequalslant linebelow linebelowcomb lira logicalnot longs
+lozenge lscript Lslash lslash lslash.sc Ltilde ltilde ltilde.sc M m m.sc
+Macron macron Macron.alt macron.alt macron.dup macron.ts1 macronbelow
+macronbelowcomb Macroncomb macroncomb married Mdotbelow mdotbelow
+mdotbelow.sc mho minus minusplus Mu mu mu.alt multiply musicalnote N n
+n.sc Nacute nacute nacute.sc naira nbspace Ncaron ncaron ncaron.sc
+Ncedilla ncedilla Ncommaaccent ncommaaccent ncommaaccent.sc Ndotaccent
+ndotaccent ndotaccent.sc Ndotbelow ndotbelow ndotbelow.sc nine
+nine.oldstyle nine.prop nine.taboldstyle notequal Ntilde ntilde ntilde.sc
+Nu nu numbersign numero O o o.sc Oacute oacute oacute.sc Obreve obreve
+obreve.sc Ocaron ocaron ocaron.sc Ocircumflex ocircumflex ocircumflex.sc
+Ocircumflexacute ocircumflexacute ocircumflexacute.sc Ocircumflexdotbelow
+ocircumflexdotbelow ocircumflexdotbelow.sc Ocircumflexgrave
+ocircumflexgrave ocircumflexgrave.sc Ocircumflexhookabove
+ocircumflexhookabove ocircumflexhookabove.sc Ocircumflextilde
+ocircumflextilde ocircumflextilde.sc Odblgrave odblgrave odblgrave.sc
+Odieresis odieresis odieresis.sc Odotbelow odotbelow odotbelow.sc OE oe
+OE.dup oe.dup oe.sc ogonek Ograve ograve ograve.sc ohm Ohookabove
+ohookabove ohookabove.sc Ohorn ohorn ohorn.sc Ohornacute ohornacute
+ohornacute.sc Ohorndotbelow ohorndotbelow ohorndotbelow.sc Ohorngrave
+ohorngrave ohorngrave.sc Ohornhookabove ohornhookabove ohornhookabove.sc
+Ohorntilde ohorntilde ohorntilde.sc Ohungarumlaut ohungarumlaut
+ohungarumlaut.sc Omacron omacron omacron.sc Omega omega Omicron omicron
+one one.oldstyle one.prop one.superior one.taboldstyle onehalf onequarter
+Oogonek oogonek oogonek.sc Oogonekacute oogonekacute oogonekacute.sc
+openbullet ordfeminine ordmasculine Orogate orogate orogate.sc Oslash
+oslash Oslash.dup oslash.dup oslash.sc Oslashacute oslashacute
+oslashacute.sc Otilde otilde otilde.sc P p p.sc paragraph paragraph.alt
+parenleft parenright partialdiff percent period periodcentered permyriad
+perthousand perthousandzero peso Phi phi phi.alt Pi pi pi.alt plus
+plusminus Psi psi published Q q q.sc question questiondown
+quillbracketleft quillbracketright quotedbl quotedblbase quotedblbase.ts1
+quotedblleft quotedblright quoteleft quoteleft.dup quoteright
+quoteright.dup quotesinglbase quotesinglbase.ts1 quotesingle
+quotesingle.ts1 R r r.sc Racute racute racute.sc radical Rcaron rcaron
+rcaron.sc Rcedilla rcedilla Rcommaaccent rcommaaccent rcommaaccent.sc
+Rdblgrave rdblgrave rdblgrave.sc Rdotaccent rdotaccent rdotaccent.sc
+Rdotbelow rdotbelow rdotbelow.sc Rdotbelowmacron rdotbelowmacron
+rdotbelowmacron.sc recipe referencemark registered registered.alt Rho rho
+rho.alt Ring ring Ringacute ringacute Ringcomb ringcomb ringhalfleft
+ringhalfright S s s.sc Sacute sacute sacute.sc Scaron scaron scaron.sc
+Scedilla scedilla scedilla.sc schwa Scircumflex scircumflex
+scircumflex.sc Scommaaccent scommaaccent scommaaccent.sc Sdotbelow
+sdotbelow sdotbelow.sc section semicolon servicemark seven seven.oldstyle
+seven.prop seven.taboldstyle sfthyphen Sigma sigma sigma1 six
+six.oldstyle six.prop six.taboldstyle slash space star sterling summation
+suppress T t t.sc Tau tau Tcaron tcaron tcaron.sc Tcedilla tcedilla
+tcedilla.sc Tcommaaccent tcommaaccent tcommaaccent.sc Tdieresis tdieresis
+tdieresis.sc Tdotbelow tdotbelow tdotbelow.sc Theta theta theta.alt Thorn
+thorn thorn.sc three three.oldstyle three.prop three.superior
+three.taboldstyle threequarters threequartersemdash tie tieaccentcapital
+tieaccentcapital.new tieaccentlowercase tieaccentlowercase.new Tilde
+tilde tilde.dup tildebelow tildebelowcomb Tildecomb tildecomb tildelow
+Tlinebelow tlinebelow tlinebelow.sc trademark Ttilde ttilde ttilde.sc
+twelveudash two two.oldstyle two.prop two.superior two.taboldstyle U u
+u.sc Uacute uacute uacute.sc Ubreve ubreve ubreve.sc Ubrevebelowinverted
+ubrevebelowinverted ubrevebelowinverted.sc Ucaron ucaron ucaron.sc
+Ucircumflex ucircumflex ucircumflex.sc Udblgrave udblgrave udblgrave.sc
+Udieresis udieresis udieresis.sc Udieresisacute udieresisacute
+udieresisacute.sc Udieresiscaron udieresiscaron udieresiscaron.sc
+Udieresisgrave udieresisgrave udieresisgrave.sc Udotbelow udotbelow
+udotbelow.sc Ugrave ugrave ugrave.sc Uhookabove uhookabove uhookabove.sc
+Uhorn uhorn uhorn.sc Uhornacute uhornacute uhornacute.sc Uhorndotbelow
+uhorndotbelow uhorndotbelow.sc Uhorngrave uhorngrave uhorngrave.sc
+Uhornhookabove uhornhookabove uhornhookabove.sc Uhorntilde uhorntilde
+uhorntilde.sc Uhungarumlaut uhungarumlaut uhungarumlaut.sc Umacron
+umacron umacron.sc underscore undertie undertieinverted uni2010 uni2011
+uni2423 Uogonek uogonek uogonek.sc Upsilon upsilon Uring uring uring.sc
+Utilde utilde utilde.sc V v v.sc W w w.sc Wacute wacute wacute.sc
+Wcircumflex wcircumflex wcircumflex.sc Wdieresis wdieresis wdieresis.sc
+weierstrass Wgrave wgrave wgrave.sc won X x x.sc Xi xi Y y y.sc Yacute
+yacute yacute.sc Ycircumflex ycircumflex ycircumflex.sc Ydieresis
+ydieresis ydieresis.sc Ydotbelow ydotbelow ydotbelow.sc yen Ygrave ygrave
+ygrave.sc Yhookabove yhookabove yhookabove.sc Ytilde ytilde ytilde.sc Z z
+z.sc Zacute zacute zacute.sc Zcaron zcaron zcaron.sc Zdotaccent
+zdotaccent zdotaccent.sc Zdotbelow zdotbelow zdotbelow.sc zero
+zero.oldstyle zero.prop zero.slash zero.taboldstyle Zeta zeta
+

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/afam.typ

@@ -1,71 +1,10 @@
-#let font = "Liberation Serif"
-
-#let blank(v) = v == none or v == [] or v == ""
-
-#let ordinal(n) = {
-  let mod = calc.rem(n, 10)
-  let teen = n >= 11 and n <= 13
-  let suffix = if teen or mod == 0 or mod >= 4 { "th" }
-    else if mod == 1 { "st" }
-    else if mod == 2 { "nd" }
-    else { "rd" }
-  str(n) + suffix
-}
-
-#let month-year(d) = upper(d.display("[month repr:long]")) + " " + str(d.year())
-
-#let citation(f) = {
-  set page(paper: "us-letter", margin: 0pt)
-  set text(font: font, size: 15pt, fill: black, hyphenate: false)
-  set par(leading: 0.5em, spacing: 0.5em)
-
-  place(top + left, dx: 187pt, dy: 32.6pt, image("medal-afam.png", width: 242.9pt))
-
-  place(center + top, dy: 164.8pt, text(size: 21.5pt, weight: "bold")[DEPARTMENT OF THE AIR FORCE])
-  place(center + top, dy: 208.1pt, text(size: 11.7pt, weight: "bold")[THIS IS TO CERTIFY THAT])
-  place(center + top, dy: 222.7pt, text(size: 15.6pt, weight: "bold")[THE AIR AND SPACE ACHIEVEMENT MEDAL])
-  // A later award centers the cluster under the medal name. Basic prints no line.
-  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
-  let drop = if cluster == none { 0pt } else { 16pt }
-  if cluster != none {
-    place(center + top, dy: 250pt + drop, text(size: 11.7pt, weight: "bold", cluster))
-  }
-  place(center + top, dy: 275pt + drop, text(size: 11.7pt, weight: "bold")[HAS BEEN AWARDED TO])
-  place(center + top, dy: 293pt + drop, text(size: 9.8pt, upper(f.rank)))
-  place(center + top, dy: 308.5pt + drop, text(size: 11.7pt, weight: "bold")[FOR])
-  place(center + top, dy: 326.6pt + drop, text(size: 11.7pt, upper(f.service)))
-  place(center + top, dy: 343.3pt + drop, text(size: 9.8pt)[#f.period_from #h(8pt) TO #h(8pt) #f.period_to])
-  place(center + top, dy: 369.8pt + drop, text(size: 11.7pt, weight: "bold")[ACCOMPLISHMENTS])
-  // The seal is 69.5pt tall and stays on the page, so the signature stops here.
-  let sign-dy = 716pt
-  let given-dy = sign-dy - 16pt
-  let story-dy = 406.7pt + drop
-  let story-h = given-dy - 8pt - story-dy
-  // Half an inch keeps the 15pt lines off the page edge.
-  let side = 36pt
-  let story-w = 612pt - side - side
-  let story = block(width: story-w, {
-    set par(justify: true, leading: 0.5em, spacing: 0.65em)
-    // A pasted line break reflows across the block.
-    show linebreak: [ ]
-    show parbreak: [ ]
-    f.accomplishments
-  })
-  place(top + left, dx: side, dy: story-dy, block(width: story-w, height: story-h, clip: true, story))
-
-  place(top + left, dx: 464.7pt, dy: sign-dy - 8pt, image("seal.png", width: 69.5pt))
-  place(top + left, dx: 82.7pt, dy: given-dy, text(size: 11.7pt)[
-    GIVEN UNDER MY HAND THIS
-    #h(12pt)
-    #if type(f.signed_on) == datetime {
-      ordinal(f.signed_on.day())
-      h(12pt)
-      [DAY OF]
-      h(12pt)
-      month-year(f.signed_on)
-    }
-  ])
-  place(top + left, dx: 82.7pt, dy: sign-dy, line(length: 211pt, stroke: 0.6pt))
-  place(top + left, dx: 82.7pt, dy: sign-dy + 15.4pt, text(size: 11.7pt, f.commander_name))
-  place(top + left, dx: 82.7pt, dy: sign-dy + 28.9pt, text(size: 11.7pt, f.commander_title))
-}
+#import "citation.typ": citation as base
+
+#let citation(f) = base(
+  f,
+  image-file: "medal-afam.png",
+  title: [DEPARTMENT OF THE AIR FORCE],
+  preamble: ([THIS IS TO CERTIFY THAT],),
+  medal-name: [THE AIR AND SPACE ACHIEVEMENT MEDAL],
+  awarded: [HAS BEEN AWARDED TO],
+)

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/afcm.typ

@@ -1,48 +1,10 @@
-#let font = "Liberation Serif"
-
-#let blank(v) = v == none or v == [] or v == ""
-
-#let citation(f) = {
-  set page(paper: "us-letter", margin: 0pt)
-  set text(font: font, size: 15pt, fill: black, hyphenate: false)
-  set par(leading: 0.5em, spacing: 0.5em)
-
-  // Headings sit 3pt right of the page center, matching the certificate.
-  let heading(dy, size, weight, body) = {
-    place(center + top, dx: 3pt, dy: dy, text(size: size, weight: weight, body))
-  }
-
-  place(top + left, dx: 203.3pt, dy: 57.7pt, image("medal-afcm.png", width: 211.6pt))
-
-  heading(185.6pt, 24.5pt, "bold")[DEPARTMENT OF THE AIR FORCE]
-  heading(226.2pt, 13.7pt, "bold")[THIS IS TO CERTIFY THAT]
-  heading(246.3pt, 17.6pt, "bold")[THE AIR AND SPACE COMMENDATION MEDAL]
-  // The medal name ends near 264pt and the next heading starts at 287pt.
-  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
-  if cluster != none {
-    heading(267.5pt, 11.7pt, "bold", cluster)
-  }
-  heading(288.6pt, 13.7pt, "bold")[HAS BEEN AWARDED TO]
-  heading(305.1pt, 9.8pt, "regular", upper(f.rank))
-  heading(332.6pt, 13.7pt, "bold")[FOR]
-  heading(359.6pt, 11.7pt, "regular", upper(f.service))
-  heading(383.4pt, 9.8pt, "regular")[#f.period_from #h(8pt) TO #h(8pt) #f.period_to]
-  heading(408.4pt, 13.7pt, "bold")[ACCOMPLISHMENTS]
-  let side = 36pt
-  let story-w = 612pt - side - side
-  let story-dy = 447pt
-  let story = block(width: story-w, {
-    set par(justify: true, leading: 0.5em, spacing: 0.65em)
-    show linebreak: [ ]
-    show parbreak: [ ]
-    f.accomplishments
-  })
-  place(top + left, dx: side, dy: story-dy, story)
-
-  heading(716pt, 9.8pt, "regular")[GIVEN UNDER MY HAND]
-  heading(730pt, 9.8pt, "regular", f.signed_on)
-  place(top + left, dx: 465.6pt, dy: 720pt, image("seal.png", width: 69.7pt))
-  place(top + left, dx: 82.8pt, dy: 746pt, line(length: 200pt, stroke: 0.6pt))
-  place(top + left, dx: 82.8pt, dy: 754pt, text(size: 11.7pt, f.commander_name))
-  place(top + left, dx: 82.8pt, dy: 768pt, text(size: 11.7pt, f.commander_title))
-}
+#import "citation.typ": citation as base
+
+#let citation(f) = base(
+  f,
+  image-file: "medal-afcm.png",
+  title: [DEPARTMENT OF THE AIR FORCE],
+  preamble: ([THIS IS TO CERTIFY THAT],),
+  medal-name: [THE AIR AND SPACE COMMENDATION MEDAL],
+  awarded: [HAS BEEN AWARDED TO],
+)

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/citation.typ

@@ -0,0 +1,57 @@
+#import "config.typ": *
+#import "primitives.typ": *
+
+// One certificate. A medal supplies its image, its title, the lines between the
+// title and the medal's name, and the line that names the recipient; everything
+// else is shared.
+//
+// - f (dictionary): oak_leaf_cluster, recipient, reason, period_from, period_to,
+//   accomplishments, signed_on, signer_name, signer_grade,
+//   signer_title, footer, an array of (label, value) pairs, and
+//   signing_field, a function (width, height) => the widget over the signing
+//   space.
+// - preamble (array): lines at `preamble-size`, a line apart.
+#let citation(
+  f,
+  image-file: none,
+  title: none,
+  preamble: (),
+  preamble-size: size.certify,
+  medal-name: none,
+  awarded: none,
+) = {
+  set page(paper: "us-letter", margin: 0pt)
+  set text(font: font, size: size.line, fill: black, hyphenate: false)
+  set par(spacing: 0pt)
+
+  let signer = (
+    if not blank(f.signer_name) { text(weight: "bold", f.signer_name) },
+    f.signer_grade,
+    f.signer_title,
+  ).filter(l => not blank(l))
+  closing-block(f.signed_on, signer, signing-field: f.signing_field)
+  footer-block(f.footer)
+
+  v(medal-image.top)
+  align(center, image(image-file, height: medal-image.height))
+  heading-line(title, above: pitch.title, size: size.title)
+  for (i, l) in preamble.enumerate() {
+    let above = if i == 0 { pitch.preamble * preamble-size } else { pitch.single }
+    heading-line(l, above: above, size: preamble-size)
+  }
+  heading-line(medal-name, above: pitch.medal, size: size.medal)
+  let cluster = f.oak_leaf_cluster
+  if not blank(cluster) {
+    heading-line(cluster, above: pitch.cluster, size: size.heading)
+  }
+  heading-line(awarded, above: pitch.awarded, size: size.heading)
+  heading-line(upper(f.recipient), above: pitch.recipient, bold: true)
+  heading-line([FOR], above: pitch.for-line)
+  heading-line(upper(f.reason), above: pitch.reason, bold: true)
+  let period = if not (blank(f.period_from) and blank(f.period_to)) [#f.period_from TO #f.period_to]
+  heading-line(period, above: pitch.single, bold: true)
+  heading-line([ACCOMPLISHMENTS], above: pitch.accomplishments, size: size.heading)
+  v(accomplishments.gap)
+
+  accomplishments-block(f.accomplishments, closing.given - closing.clearance)
+}

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/config.typ

@@ -0,0 +1,63 @@
+// Type and geometry every citation shares, in points on a us-letter page.
+
+#let font = "TeX Gyre Termes"
+
+#let size = (
+  title: 22pt,
+  medal: 18pt,
+  certify: 16pt,
+  heading: 14pt,
+  line: 12pt,
+)
+
+// Baseline to baseline, from the line above; `title` from the medal image's foot,
+// and `preamble` a multiple of the preamble's size.
+#let pitch = (
+  title: 17.5pt,
+  preamble: 2.7,
+  medal: 32pt,
+  cluster: 18pt,
+  awarded: 30.5pt,
+  recipient: 28pt,
+  for-line: 29.5pt,
+  reason: 27.5pt,
+  accomplishments: 27pt,
+  single: 14pt,
+)
+
+#let medal-image = (top: 76pt, height: 136pt)
+
+// The paragraph sets at the largest size that fits its space, down to `min`.
+#let accomplishments = (
+  max: 10pt,
+  min: 8pt,
+  step: 0.25pt,
+  side: 72pt,
+  pitch: 1.01em,
+  // The clip's top stands `gap` below the ACCOMPLISHMENTS baseline, and the first
+  // baseline `top-edge` below the clip's top, room for an accented capital.
+  gap: 2.5pt,
+  top-edge: 0.9em,
+)
+
+#let closing = (
+  // The baseline of GIVEN UNDER MY HAND; the date's is a line below it.
+  given: 637pt,
+  // The paragraph ends this far above the "GIVEN UNDER MY HAND" baseline.
+  clearance: 20pt,
+  rule: 693pt,
+  column: 72pt,
+  rule-length: 180pt,
+  // The signer writes in the space this tall above the rule.
+  signing: 38pt,
+  name-drop: 13.5pt,
+  seal: (x: 459pt, y: 654pt, size: 68pt),
+)
+
+// The administrative line at the page foot: each entry's left edge, in the order
+// Special Order, Condition, PAS, RDP.
+#let footer = (
+  baseline: 751.5pt,
+  size: 8pt,
+  stops: (139pt, 251pt, 328pt, 467pt),
+)

package/quills/medal_citation/0.1.0/packages/tonguetoquill-medal-citation/src/msm.typ

@@ -1,53 +1,18 @@
-#let font = "Liberation Serif"
+#import "citation.typ": citation as base
+#import "config.typ": size
 
-#let blank(v) = v == none or v == [] or v == ""
-
-#let citation(f) = {
-  set page(paper: "us-letter", margin: 0pt)
-  set text(font: font, size: 15pt, fill: black, hyphenate: false)
-  set par(leading: 0.5em, spacing: 0.5em)
-
-  // Headings sit 2.4pt right of the page center, matching the certificate.
-  let heading(dy, size, weight, body) = {
-    place(center + top, dx: 2.4pt, dy: dy, text(size: size, weight: weight, body))
-  }
-
-  place(top + left, dx: 187.6pt, dy: 47.3pt, image("medal-msm.png", width: 242.2pt))
-
-  heading(162.7pt, 22.5pt, "bold")[THE UNITED STATES OF AMERICA]
-  heading(188.0pt, 13.7pt, "regular")[TO ALL WHO SHALL SEE THESE PRESENTS, GREETING:]
-  heading(203.9pt, 13.7pt, "regular")[THIS IS TO CERTIFY THAT THE PRESIDENT OF THE UNITED STATES OF]
-  heading(219.8pt, 13.7pt, "regular")[AMERICA AUTHORIZED BY EXECUTIVE ORDER, 16 JANUARY 1969]
-  heading(235.6pt, 13.7pt, "regular")[HAS]
-  heading(251.5pt, 13.7pt, "regular")[AWARDED]
-  heading(270.2pt, 17.6pt, "bold")[THE MERITORIOUS SERVICE MEDAL]
-  // The medal name ends near 288pt and "TO" starts at 314pt.
-  let cluster = if blank(f.oak_leaf_cluster) or f.oak_leaf_cluster == "Basic" { none } else { upper(f.oak_leaf_cluster) }
-  if cluster != none {
-    heading(293.5pt, 11.7pt, "bold", cluster)
-  }
-  heading(314.9pt, 12.7pt, "bold")[TO]
-  heading(339.9pt, 9.8pt, "regular", upper(f.rank))
-  heading(352pt, 12.7pt, "bold")[FOR]
-  heading(366pt, 11.7pt, "regular", upper(f.service))
-  heading(379pt, 9.8pt, "regular")[#f.period_from #h(8pt) TO #h(8pt) #f.period_to]
-  heading(391pt, 12.7pt, "bold")[ACCOMPLISHMENTS]
-  let side = 36pt
-  let story-w = 612pt - side - side
-  let story-dy = 429pt
-  let story = block(width: story-w, {
-    set par(justify: true, leading: 0.5em, spacing: 0.65em)
-    show linebreak: [ ]
-    show parbreak: [ ]
-    f.accomplishments
-  })
-  place(top + left, dx: side, dy: story-dy, story)
-
-  heading(694pt, 9.8pt, "regular")[GIVEN UNDER MY HAND]
-  heading(706pt, 9.8pt, "regular", f.signed_on)
-  place(top + left, dx: 82.7pt, dy: 726pt, line(length: 158pt, stroke: 0.6pt))
-  place(top + left, dx: 271.8pt, dy: 718pt, image("seal.png", width: 69.6pt))
-  place(top + left, dx: 82.7pt, dy: 734pt, text(size: 11.7pt, f.commander_name))
-  place(top + left, dx: 82.7pt, dy: 748pt, text(size: 11.7pt, f.commander_grade))
-  place(top + left, dx: 82.7pt, dy: 762pt, text(size: 11.7pt, f.commander_title))
-}
+#let citation(f) = base(
+  f,
+  image-file: "medal-msm.png",
+  title: [THE UNITED STATES OF AMERICA],
+  preamble: (
+    [TO ALL WHO SHALL SEE THESE PRESENTS, GREETING:],
+    [THIS IS TO CERTIFY THAT THE PRESIDENT OF THE UNITED STATES OF],
+    [AMERICA AUTHORIZED BY EXECUTIVE ORDER, 16 JANUARY 1969],
+    [HAS],
+    [AWARDED],
+  ),
+  preamble-size: size.line,
+  medal-name: [THE MERITORIOUS SERVICE MEDAL],
+  awarded: [TO],
+)