Typescript Bodoni Old Fashion

[Philipp Gesang <pgesang@ix.urz.uni-heidelberg.de>]

[-- Attachment #1.1.1: Type: text/plain, Size: 606 bytes --]

Hi all,

[1] I just bought the Bodoni Old Fashion fonts from URW and made
    a typescript. It is attached to this mail (plus a test file
    for whoever needs it). Maybe it could be included in the
    minimals as third-party typescript.

[2] Can we get the strings
      \definesystemconstant{SerifSemiBold}
      \definesystemconstant{SerifSemiBoldItalic}
    added to mult-sys.mkiv? This would allow the use of
    “\s!SerifSemiBold” in typescripts.

Thanks, Philipp

-- 
()  ascii ribbon campaign - against html e-mail
/\  www.asciiribbon.org   - against proprietary attachments

[-- Attachment #1.1.2: type-bodoniof.mkiv --]
[-- Type: text/plain, Size: 2355 bytes --]

%D \module
%D   [       file=type-bodoniof,
%D        version=2010-12-03 23:47:43+0100,
%D          title=\CONTEXT\ Typescript Macros,
%D       subtitle=Font Definitions for URW++ Bodoni Old Fashion,
%D         author=Philipp Gesang,
%D           date=\currentdate,
%D      copyright=Philipp Gesang]
%C
%C This file may be distributed under 2-clause BSD license.

%%% Typescript for the Bodoni Old Fashion font by URW++.
%%% <http://www.urwpp.de/cgi-bin1/dalcgi/source/fontliste0.htd?sprache=english&auswahl=-1&fontnummer=b054013t&m4pb-id=wd16d94b94f7f2e2cf9987dbeae12bccd5a861fbdec>

\starttypescriptcollection [bodoni-of]

\starttypescript [\s!serif] [bodoni-of]
  \definefontsynonym [Bodoni-OF-Regular]        [name:BodoniOldFasURW-Reg]    [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-Italic]         [name:BodoniOldFasURW-RegIta] [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-Bold]           [name:BodoniOldFasURW-Bol]    [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-BoldItalic]     [name:BodoniOldFasURW-BolIta] [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-SemiBold]       [name:BodoniOldFasURW-Med]    [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-SemiBoldItalic] [name:BodoniOldFasURW-MedIta] [\s!features=\s!default]
  \definefontsynonym [Bodoni-OF-Smallcaps]      [name:BodoniOldFasURWSC-Reg]  [\s!features=\s!default]
\stoptypescript

\starttypescript [\s!serif] [bodoni-of]
  \setups[\s!font:\s!fallback:\s!serif]
  \definefontsynonym [\s!Serif]               [Bodoni-OF-Regular]        [\s!features=\s!default]
  \definefontsynonym [\s!SerifItalic]         [Bodoni-OF-Italic]         [\s!features=\s!default]
  \definefontsynonym [\s!SerifBold]           [Bodoni-OF-Bold]           [\s!features=\s!default]
  \definefontsynonym [\s!SerifBoldItalic]     [Bodoni-OF-BoldItalic]     [\s!features=\s!default]
  \definefontsynonym [\s!SerifSemiBold]       [Bodoni-OF-SemiBold]       [\s!features=\s!default]
  \definefontsynonym [\s!SerifSemiBoldItalic] [Bodoni-OF-SemiBoldItalic] [\s!features=\s!default]
  \definefontsynonym [\s!SerifCaps]           [Bodoni-OF-Smallcaps]      [\s!features=\s!default]
\stoptypescript

\starttypescript [bodoni-of]
  \definetypeface [bodoni-of] [rm] [\s!serif] [bodoni-of] [\s!default]
  \quittypescriptscanning
\stoptypescript

\stoptypescriptcollection

[-- Attachment #1.1.3: test.tex --]
[-- Type: text/x-tex, Size: 4238 bytes --]

\definesystemconstant{SerifSemiBold}
\definesystemconstant{SerifSemiBoldItalic}

\definefontalternative[sbo]    
\definefontalternative[sbi]

\definebodyfont [default] [rm]
  [tf=Serif sa 1,
   bf=SerifBold sa 1,
   it=SerifItalic sa 1,
   sl=SerifSlanted sa 1,
   bi=SerifBoldItalic sa 1,
   bs=SerifBoldSlanted sa 1,
   sbo=SerifSemiBold sa 1,
   sbi=SerifSemiBoldItalic sa 1,
   sc=SerifCaps sa 1]

\definefontfeature[default]   [default] [mode=node,script=latn,kern=yes,liga=yes]
%\definefontfeature[smallcaps] [default] [smcp=yes,kern=yes,liga=yes] %% not supported
\definefontfeature[allalts]   [default] [aalt=yes] % provides superscript 1 2 3
\definefontfeature[denoms]    [default] [dnom=yes] % denominators
\definefontfeature[numerator] [default] [numr=yes] % numerators
\definefontfeature[superscrp] [default] [sups=yes] % superscript
\definefontfeature[diphthong] [default] [dpng=yes] % deprecated since otf v.1.4, seems to work for ‘ae’ -> ‘æ’ and ‘oe’ -> ‘œ’

\usetypescriptfile[type-bodoniof]
\usetypescript[bodoni-of]

\setupbodyfont[bodoni-of,12pt]

\def\testing[#1]{%
  \bgroup#1%
    abcdefghijklmnopqrstuvwxyz\par
    \centerline{\hfill ff ffi ffl fi fl ft ct Th\hfill}\par
    \hfill ABCDEFGHIJKLMNOPQRSTUVWXYZ\par
    %% Numbers -- sadly no text figures except in the SC variant‽
    0123456789\hfill
    {\addff{superscrp} 0123456789}\hfill
    %% Diacritics
    ěščřžýáíéóůúňďť\hfill
    ąśæåżźćóęł\par
    Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm
    Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz
    Ąą Ęę Łł Ćć Śś Żż Źź Ńń Ěě Šš Čč Řř Žž
    Áá Éé Íí Óó Úú Ůů Ďď Ľľ Ňň Ťť Ææ Åå Øø
    Āā Ēē Īī Ōō Ūū Ėė Įį Ǫǫ Ųų %% As expected, there’s no ‘ǫ’
    {\addff{diphthong} Ae ae AE Oe OE oe}
    \par
    %% Non-Alphabetical
    - -- --- „“ “” „” ‚‘ ‘’ ‚’ «»
    . ! ? ‽ , ; · … : ° + - = \lettertilde\space
    \letterpercent\ § \letterbackslash\ / \letterat\space
    \letterampersand\ \letterbar\ \letterunderscore\space
    ¶ * † ‡
    ™ © € \$ \#
    ( ) [ ] \{ \}
    \par
  \egroup
  \hairline%
  \blank[line]
}

\def\lem{%
  \language[pl]
  Jeżeli możemy mówić o~tym, co zaszło, i o tym, co nie zaszło,
  jakim sposobem moglibyśmy nie mówić o~tym, co zajść w~ogóle
  nie może?%
}

\def\mayr{%
  \language[en]
  Analysis differs from reduction by not claiming that the
  components of a system, revealed by analysis, provide complete
  information on all  the properties of a system, because
  analysis does not supply a full description of the interactions
  among the components of a system.  In spite of its being a
  highly heuristic method for the study of complex systems, it
  would be an error to refer to analysis as reduction.%
}

\startbuffer[jenomnadbrnemne]
  Na Capri sněžilo
  vlci ohrožují turecké vesnice
  Akropolis pod sněhem
  v~ulicích New Yorku půlmetrové závěje
  a setkání dvou cyklonů
  způsobilo sněhový uragán
  v~Moldávii

  Jenom nad Brnem ne
  Tam je pevná střecha z~popílku

  Závěje na té střeše
  trčí do výše jednoho kilometru
  a dokonce
  se ani nepřesouvají
\stopbuffer

\def\kundera{%
  \language[cz]
  \blank[line]
  \WORDS{Jenom nad Brnem ne}
  \blank[line]
  \startlines
  \getbuffer[jenomnadbrnemne]
  \stoplines
}

\def\partest[#1]{%
  \section{Ludvík Kundera napsal}
  {#1\kundera\par}

  \section{Ernst Mayr wrote}
  {#1\mayr\par}

  \section{Stanisław Lem napisał}
  {#1\lem \lem \lem}\par
}

\definecolumnset[two][n=2] \mainlanguage[en] \setuptolerance[horizontal,tolerant]

\setuphead[section][%
  number=yes,
  style=\tf,
  numberstyle=\bf,
  textstyle=\sbo,
]
\starttext

%\addff{smallcaps}
%\addff{allalts}
%\addff{denoms}
%\addff{numerator}
%\addff{superscrp}
%\addff{diphthong}

\testing[\rm]
\testing[\it]
\testing[\sc]
\testing[\sbo]
\testing[\bf]
\testing[\sbi]
\testing[\bi]

\page
\partest[\rm]
\partest[\it]
\partest[\sc]
\partest[\sbo]
\partest[\bf]
\partest[\sbi]
\partest[\bi]

\stoptext


[-- Attachment #1.2: Type: application/pgp-signature, Size: 198 bytes --]

[-- Attachment #2: Type: text/plain, Size: 486 bytes --]

___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________