<html>
  <head>
    <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  </head>
  <body>
    Lieber Herr Ott,<br>
    <br>
    wiederum herzlichen Dank für Ihre Mühe und diese sehr wertvollen
    Hinweise, die ich überaus schätze! Ich werde gerne versuchen, diese
    umzusetzen. Schon einmal musste ich bei einem Font (Cardo-Regular)
    gewisse doppelte Einträge von Hand löschen, bis sich #*PSFONT
    zufriedengab.<br>
    <br>
    Ebenfalls mit meinen besten Wünschen und Grüßen,<br>
    Urs Leo Gantenbein<br>
    <br>
    <div class="moz-cite-prefix">Am 02.10.2022 um 16:49 schrieb Wilhelm
      Ott:<br>
    </div>
    <blockquote type="cite"
      cite="mid:e5421d73-f3b5-4f55-cb3-5fd6881ea0e4@uni-tuebingen.de">Lieber
      Herr Gantenbein,
      <br>
      <br>
      mit reichlich Verspätung hier eine Antwort auf Ihre Frage, wie Sie
      <br>
      bei der von Ihnen verwendete Schrift EB Garamond die Kapitälchen
      <br>
      für #SATZ und Umgebung zugänglich machen können.
      <br>
      <br>
      Sie haben für die Kapitälchen den Font EBGaramond12-SC gewählt,
      <br>
      in dem die Kapitälchen an den Adressen ("octal character code")
      <br>
      und mit den Namen stehen, die sonst für die Kleinbuchstaben
      gelten.
      <br>
      <br>
      Wenn nichts anderes angegeben ist, setzt #*PSFONT wegen
      <br>
      MODUS=-STD- voraus, dass dem AFM-File des Fonts, aus dem
      <br>
      die Dicktentabelle für das Satzprogramm erstellt werden soll, der
      <br>
      Adobe Standard Encoding Vector zugrunde liegt, bei dem z. B. auf
      <br>
      der Adresse 97 = oktal 141  bei einer lateinischen Schrift der
      <br>
      Kleinbuchstabe a mit dem Namen "a" steht.
      <br>
      <br>
      Für Kapitälchenschriften wird jedoch der Expert Encoding Vector
      <br>
      erwartet, bei dem sich auf der Adresse oktal 141 das Kapitälchen-a
      <br>
      mit dem Namen "Asmall" oder "a.sc" findet. Wenn dies - wie im Fall
      <br>
      von EBGaramond12-SC - nicht der Fall ist (dort heißt das
      <br>
      Kapitälchen-a nur "a"), kann man dies mit der Angabe SEV (für
      <br>
      Standard Encoding Vector) angeben.
      <br>
      <br>
      Wenn in dem Ihrer mail beigefügten Programm garadef.tu in Zeile 22
      <br>
      hinter die 49024 noch ein ", mo=SEV" angefügt wird, sollten in
      <br>
      gara.def auch die Dicktenwerte für die Kapitälchen eingefügt
      werden
      <br>
      und die Blockaden in der PS-Ausgabe verschwinden.
      <br>
      <br>
      ----
      <br>
      <br>
      Normalerweise wird man heute jedoch kaum mehr eigene Fonts
      <br>
      für die Kapitälchen vorfinden, da sich diese in den selben Fonts
      <br>
      finden wie die Grundbuchstaben; wie Sie selbst in Ihrer mail
      <br>
      schreiben, können Sie ja mit
      <br>
         mac       <e21/>&!(#U49021\e.sc\480)
      <br>
      aus der normalen EBGaramond "die Kapitälchen ...  hervorlocken".
      <br>
      <br>
      Dieses "Hervorlocken" kann man auch für #*PSFONT tun, und zwar,
      <br>
      wie Sie es ebenfalls versucht haben, mit #*PSFONTVOR und
      <br>
      der Spezifikationsangabe ZEICHENSATZ = KAP.
      <br>
      <br>
      In garadef.tu könnte man zu diesem Zweck die Zeilen 21-22 ersetzen
      <br>
      durch:
      <br>
      <br>
         #da,afm1sc,seq-ap
      <br>
         #*psfontvor,afm1,afm1sc,+,kap
      <br>
         #*psfont,afm1sc,gara.def, num=49024
      <br>
      <br>
      Im Fall der EBGaramond funktioniert es trotzdem nicht, weil
      <br>
      wie Sie selbst schon in ihrer Mail angemerkt haben, dieser
      <br>
      Font mehrfach identische Glyphen mit unterschiedlichen Namen
      <br>
      enthält, so z.B. die Kapitälchen als A.sc und als a.sc etc.,
      <br>
      worüber sich, wie Sie schreiben, ^#*PFONT prompt beschwert.
      <br>
      <br>
      In #*PSFONTVOR waren solche Fälle noch nicht berücksichtigt:
      <br>
      bisher sind mir solche Fonts noch nicht begegnet.
      <br>
      <br>
      Deshalb müssen, bis es eine verbesserte Version von #*PSFONTVOR
      gibt,
      <br>
      soche überflüssigen Einträge aus der .afm-Datei (bzw. einer Kopie
      <br>
      davon) entfernt werden, bevor #*PSFONTVOR aufgerufen wird.
      <br>
      In den drei oben genannten Zeilen muss also die Zeile mit dem
      <br>
      Makro-Aufruf von #*psfontvor ersetzt werden durch:
      <br>
      <br>
          #da,afm1.kor,fr=-
      <br>
          #um,afm1,-std-,0,+,co=bin
      <br>
          #ko,-std-,afm1.kor,,+,*
      <br>
          zf-       ~ N {\A}.sc ~
      <br>
          zf-       ~ N {\A}{00}{&a}.sc ~
      <br>
          zf-       ~ N uniFB{\0}{\0} ~
      <br>
          *eof
      <br>
          #*psfontvor,afm1.kor,afm1sc,+,kap
      <br>
      <br>
      (das ist wohl weniger Arbeit als die doppelten Einträge von Hand
      <br>
      zu löschen).
      <br>
      <br>
      Einen Unterschied im Satz-Ergebnis werden Sie feststellen: dort
      <br>
      trinken die Toren nicht TEE (mit Kapitälchen) wie im obigen
      Beispiel,
      <br>
      sondern normale Tee: das Zeichen, das mit &!(#U49024\e\480)
      <br>
      angesteuert wird, ist jetzt kein Kapitälchen-E, sondern der
      <br>
      Kleinbuchstabe e.
      <br>
      <br>
      Mit den besten Wünschen und Grüßen
      <br>
      <br>
      Wilhelm Ott
      <br>
      <br>
----------------------------------------------------------------------
      <br>
      Prof. Dr. Wilhelm Ott                 phone:  +49-7071-987656
      <br>
      c/o pagina GmbH                     fax:    +49-7071-987622
      <br>
      Herrenberger Straße 51              e-mail:
      <a class="moz-txt-link-abbreviated" href="mailto:wilhelm.ott@uni-tuebingen.de">wilhelm.ott@uni-tuebingen.de</a>
      <br>
      D-72070 Tübingen
      <br>
      <br>
      <br>
      On Tue, 20 Sep 2022, Urs Leo Gantenbein wrote:
      <br>
      <br>
      <blockquote type="cite">Date: Tue, 20 Sep 2022 20:00:56 +0200
        <br>
        From: Urs Leo Gantenbein
        <a class="moz-txt-link-rfc2396E" href="mailto:ursleo.gantenbein@paracelsus-project.org"><ursleo.gantenbein@paracelsus-project.org></a>
        <br>
        Reply-To: Mailingliste zum Thema TUSTEP
        <a class="moz-txt-link-rfc2396E" href="mailto:tustep-liste@itug.de"><tustep-liste@itug.de></a>
        <br>
        To: tustep-list <a class="moz-txt-link-rfc2396E" href="mailto:tustep-liste@itug.de"><tustep-liste@itug.de></a>
        <br>
        Subject: [Tustep-Liste] Kapitälchen bei benutzereigenem
        Schriftsatz
        <br>
            einschalten
        <br>
        <br>
        Liebe TUSTEP-Liste,
        <br>
        <br>
        auf der Suche nach einer guten Garamond-Schrift für TUSTEP bin
        ich auf die interessante Realisation *EB Garamond* gestoßen.
        Dieses sog. Egenolff-Berner-Specimen von 1592 wurde von Georg
        Duffner nachgezeichnet und von Google weiterentwickelt. Die
        kostenlosen Fonts verfügen über einen umfangreichen Zeichensatz
        mit Kerning-Angaben und sind hier erhältlich:
        <br>
        <br>
        <a class="moz-txt-link-freetext" href="https://fonts.google.com/specimen/EB+Garamond">https://fonts.google.com/specimen/EB+Garamond</a>
        <br>
        <a class="moz-txt-link-freetext" href="https://www.1001fonts.com/eb-garamond-font.html">https://www.1001fonts.com/eb-garamond-font.html</a> (hier mit einer
        gesonderten Kapitälchenschrift)
        <br>
        <br>
        Es ist mir gelungen, EB Garamond zu integrieren. Weitere Angaben
        zum Vorgehen finden sich im TUSTEP-Wiki:
        <br>
<a class="moz-txt-link-freetext" href="https://wiki.itug.de/doku.php?id=tustep:loesungen:satz_mit_modul_satz:schriften">https://wiki.itug.de/doku.php?id=tustep:loesungen:satz_mit_modul_satz:schriften</a>
        <br>
        <br>
        *Einzig die Kapitälchen lassen sich nicht einschalten*, und aus
        diesem Grund wende ich mich an die Liste. Zunächst gilt es bei
        benutzereigenen Fonts, die Datei *gara.def* zu erstellen, die
        für #SATZ und #*PSAUS aus den *.afm-Dateien die notwendigen
        Schriftinformationen zusammenstellt. Diese Definitionsdatei muss
        über den Parameter SCHRIFTEN angegeben werden
        <br>
        <br>
        Inhalt der TUE-Datei *garadef.tu*:
        <br>
        <br>
        <blockquote type="cite"># - Erstellt Fontdefinitionen
          <br>
          # - =========================
          <br>
          # de,va=*
          <br>
           fafm1=C:\psfonts\EBGaramond-Regular.afm
          <br>
           fafm2=C:\psfonts\EBGaramond-Italic.afm
          <br>
           fafm3=C:\psfonts\EBGaramond-SemiBold.afm
          <br>
           fafm4=C:\psfonts\EBGaramond12-SC.afm
          <br>
           fafm5=C:\psfonts\EBGaramond-SemiBoldItalic.afm
          <br>
           *eof
          <br>
          <br>
          # da,*gara.def*,seq-ap
          <br>
          # lo,gara.def
          <br>
          # da,afm1'afm2'afm3'afm4'afm5,fdf-ap
          <br>
          <br>
          # *upload,<fafm1>,afm1,lo=+,me=-
          <br>
          # *psfont,afm1,gara.def,num=49021
          <br>
          # *upload,<fafm2>,afm2,lo=+,me=-
          <br>
          # *psfont,afm2,gara.def,num=49022
          <br>
          # *upload,<fafm3>,afm3,lo=+,me=-
          <br>
          # *psfont,afm3,gara.def,num=49023
          <br>
          # *upload,<fafm4>,afm4,lo=+,me=-
          <br>
          # *psfont,afm4,gara.def,num=49024
          <br>
          # *upload,<fafm5>,afm5,lo=+,me=-
          <br>
          # *psfont,afm5,gara.def,num=49025
          <br>
          <br>
           #lo,,afm1'afm2'afm3'afm4'afm5
          <br>
        </blockquote>
        <br>
        Der Grundschrift gab ich hier die Nummer 49021. Entsprechend
        werden die Schrägschrift (49022), die Halbfettschrift (49023),
        die Kapitälchen (49024) und die halbfette Schrägschrift (49025)
        mit Nummern versehen.
        <br>
        <br>
        Der erste Teil der Satzroutine *gara.sa* sieht wie folgt aus.
        Die Kapitälchenschrift 49024 muss im dritten Umschaltbereich
        liegen. Die halbfette Schrägschrift habe ich auf den sechsten
        Umschaltbereich gelegt:
        <br>
        <br>
        <blockquote type="cite"># an,gara.tf'gara.def
          <br>
          # da,ziel'prot'aus,fr=-
          <br>
          <br>
           #sa,gara.tf,ziel,t,+,*,aus,prot,*sch=gara.def*
          <br>
           abb       999999
          <br>
           sch       49021 49022 49024 49023 31901 49025
          <br>
           gro       10,5+2 9+1  8,5//10 10,5+2 12+2 10+3 8,5+2 8,5+2
          <br>
           bre       299
          <br>
           hoe       480  1  0  0  3
          <br>
           sei       1  -2
          <br>
           mon       1  0  299  56  56
          <br>
           aus       0  0  0  1/10  1/3  1
          <br>
           sil       10  1/6  1/12  5  2  2
          <br>
           $         0  3/2  -10.
          <br>
          && &       0  2!  0  0  20
          <br>
          &&         2  1  0   2   8
          <br>
          &          2  1  0   1   5
          <br>
           mac       <pp>$$$
          <br>
           mac       </pp>
          <br>
           mac       <bz/>$$$=$$$
          <br>
           mac       <i>#/+
          <br>
           mac       </i>#/-
          <br>
           mac       <b>#f+
          <br>
           mac       </b>#f-
          <br>
           mac       <c>#k+
          <br>
           mac       </c>#k-
          <br>
           mac       <e21/>&!(#U49021\e.sc\480)
          <br>
           mac       <n21/>&!(#U49021\n.sc\605)
          <br>
           mac       <o21/>&!(#U49021\o.sc\616)
          <br>
           mac       <r21/>&!(#U49021\r.sc\540)
          <br>
           mac       <e24/>&!(#U49024\e\480)
          <br>
           *eof
          <br>
          <br>
          # da,temp.ps'gara.ps'gara.pdf,fdf-ap
          <br>
          #
          *psaus,aus,1-1,100,-9+166,lo=+,ko=-,da=temp.ps,op=a4,*sch=gara.def*
          <br>
        </blockquote>
        <br>
        Weiter müssen die neuen Schriften auch Ghostscript bekannt
        gemacht werden. Leider genügt es in meinem Fall mit Ghostscript
        9.10 nicht, wenn ich (via GhostView) in den erweiterten Optionen
        meinen Fontpfad C:\psfonts\ sowohl bei den /Options /wie auch
        beim /Include Path/ angebe. Deshalb kopiere ich die
        *.pfa-Schriften, wie von Herrn Ott empfohlen, vor die von
        #*PSAUS ausgegebene Postscriptdatei temp.ps:
        <br>
        <br>
        Zweiter Teil der Satzroutine *gara.sa*:
        <br>
        <br>
        <blockquote type="cite"># - Fonts vor temp.ps kopieren:
          <br>
          # - ---------------------------
          <br>
          # makro
          <br>
           $$ mode TUSCRIPT, {}
          <br>
           fpfa1 = "C:\psfonts\EBGaramond-Regular.pfa"
          <br>
           define fpfa1
          <br>
           fpfa2 = "C:\psfonts\EBGaramond-Italic.pfa"
          <br>
           define fpfa2
          <br>
           fpfa3 = "C:\psfonts\EBGaramond-SemiBold.pfa"
          <br>
           define fpfa3
          <br>
           fpfa4 = "C:\psfonts\EBGaramond12-SC.pfa"
          <br>
           define fpfa4
          <br>
           fpfa5 = "C:\psfonts\EBGaramond-SemiBoldItalic.pfa"
          <br>
           define fpfa5
          <br>
           source = full_name (TUSTEP,"temp.ps")
          <br>
           dest = full_name (TUSTEP,"gara.ps")
          <br>
           execute "copy
          {fpfa1}+{fpfa2}+{fpfa3}+{fpfa4}+{fpfa5}+{source} {dest}"
          <br>
           *eof
          <br>
           #lo,,temp.ps
          <br>
          <br>
          # *ps2pdf,gara.ps,gara.pdf,br=415,ho=615
          <br>
          # *zepdf,gara.pdf </blockquote>
        <br>
        Mit dieser Satzroutine möchte ich jetzt den folgenden
        Beispieltext *gara.tf* setzen:
        <br>
        <br>
        <blockquote type="cite"> <pp>Ich <i>wusste
          wohl</i>, mein ++Brutus++{,
          <br>
           dass, als ich das, was die geistreichsten und gelehrtesten
          <br>
           Philosophen in <b>griechischer Sprache</b>
          behandelt hatten, in
          <br>
           lateinischer wiedergab, meine Arbeit mancherlei Tadel finden
          würde.</pp>
          <br>
           <bz/>
          <br>
           <pp>Die <c>Tadler</c> und die
          T<o21/><r21/><e21/><n21/>
          <br>
           trinken T<e24/><e24/>.</pp>
          <br>
           <bz/>
          <br>
           <pp>""Da steh' ich nun, ich armer Tor,</pp>
          <br>
           <pp>Und bin so klug als wie zuvor!""{</pp>
          <br>
        </blockquote>
        <br>
        Hier versuche ich, die Kapitälchen sowohl über den dritten
        Umschaltbereich ++ ... ++{ wie auch über die Makros <c>#k+
        ... </c>#k- anzusprechen, leider beide Male ohne Erfolg.
        Die Kapitälchen lassen sich trotzdem hervorlocken, wenn man sie
        direkt als Zeichen mit &!(#Ummmmm\zeichenname\dickte)
        einsetzt, sowohl aus der Kapitälchenschrift 49024 wie auch aus
        der Grundschrift 49021, die in diesem Fall die Kapitälchen mit
        der Namensendung *.sc bereits enthält. Die halbfette
        Schrägschrift hingegen lässt sich über den sechsten Umschalt
        bereich "" ... ""{ bestens anwenden:
        <br>
        <br>
        <br>
        Woran liegt das wohl? Hat EBGaramond12-SC.pfa ein falsches
        Format? An der Stelle der Kleinbuchstaben a, b, c, ... stehen
        die entsprechenden Kapitälchen. Ich habe die verschiedensten
        Sachen ausprobiert, zum Beispiel ein K in Klammern hinter die
        Fontnummern gesetzt usw. Auch habe ich versucht, mit #*PSFONTVOR
        und dem Parameter ze=kap die Kapitälchen aus der Grundschrift
        EBGaramond-Regular.pfa, welche ja echte Kapitälchen enthält, zu
        extrahieren und eine entsprechende *.afm-Datei zu erstellen:
        <br>
        <br>
        <blockquote type="cite"> #de,va=*
          <br>
           fafm1=C:\psfonts\EBGaramond-Regular.afm
          <br>
           *eof
          <br>
          <br>
          # da,afm1'afm2,fdf-ap
          <br>
          # da,sc,fr=-
          <br>
          <br>
          # *upload,<fafm1>,afm1,lo=+,me=-
          <br>
          # *psfontvor,afm1,sc,lo=+,ze=kap
          <br>
          # um,sc,afm2,mo=-1,co=ascii,nl=win,lo=+
          <br>
          # *download,afm2,C:\psfonts\EBGaramond-SmallCaps.afm,lo=+,me=-
          <br>
          <br>
           #lo,,afm1'afm2 </blockquote>
        <br>
        Aber dann wusste ich nicht, was ich mit der neuen *.afm-Datei
        anfangen sollte. Zudem enthielt sie doppelte Namenseinträge, was
        von #*PSFONT prompt beanstandet wurde. Vielleicht müssten die
        doppelten Einträge von Hand gelöscht werden.
        <br>
        <br>
        Ich möchte mich für den langen Eintrag entschuldigen, aber die
        Sache ist komplex und ich wollte sie möglichst genau darstellen.
        Wenn Interesse an meinen Fontdateien besteht, können sie hier
        heruntergeladen werden (5,4 MB):
        <br>
        <a class="moz-txt-link-freetext" href="https://www.paracelsus-project.org/docs/garafonts.zip">https://www.paracelsus-project.org/docs/garafonts.zip</a>
        <br>
        <br>
        <br>
        Mit vielem Dank voraus und besten Grüßen
        <br>
        <br>
        Urs Leo Gantenbein
        <br>
        <br>
        <br>
        ---
        <br>
        *Urs Leo Gantenbein, Dr. med. M. Sc. ETH*
        <br>
        Project Leader of the Zurich Paracelsus Project, University of
        Zurich
        <br>
        Ackeretstrasse 16, CH-8400 Winterthur, SWITZERLAND
        <br>
        <a class="moz-txt-link-abbreviated" href="http://www.paracelsus.uzh.ch">www.paracelsus.uzh.ch</a> <a class="moz-txt-link-rfc2396E" href="https://www.paracelsus.uzh.ch/"><https://www.paracelsus.uzh.ch/></a>
        <br>
        <br>
        Research Affiliate:
        <br>
        Paleopathology and Mummy Studies Group
        <br>
        Institute of Evolutionary Medicine, University of Zurich
        <br>
        <a class="moz-txt-link-abbreviated" href="http://www.iem.uzh.ch">www.iem.uzh.ch</a> <a class="moz-txt-link-rfc2396E" href="https://www.iem.uzh.ch/"><https://www.iem.uzh.ch/></a>
        <br>
        Institute of Swiss Reformation History, University of Zurich
        <br>
        <a class="moz-txt-link-abbreviated" href="http://www.irg.uzh.ch">www.irg.uzh.ch</a> <a class="moz-txt-link-rfc2396E" href="https://www.irg.uzh.ch/"><https://www.irg.uzh.ch/></a>
        <br>
        <br>
      </blockquote>
      <br>
      <fieldset class="moz-mime-attachment-header"></fieldset>
    </blockquote>
    <br>
    <div class="moz-signature">-- <br>
      <b>Urs Leo Gantenbein, Dr. med. M. Sc. ETH</b><br>
      Project Leader of the Zurich Paracelsus Project, University of
      Zurich<br>
      Ackeretstrasse 16, CH-8400 Winterthur, SWITZERLAND<br>
      <a class="moz-txt-link-abbreviated" href="http://www.paracelsus.uzh.ch">www.paracelsus.uzh.ch</a><br>
      <br>
      <i>Research Affiliate:</i><br>
      Paleopathology and Mummy Studies Group<br>
      Institute of Evolutionary Medicine, University of Zurich<br>
      <a class="moz-txt-link-abbreviated" href="http://www.iem.uzh.ch">www.iem.uzh.ch</a><br>
      Institute of Swiss Reformation History, University of Zurich<br>
      <a class="moz-txt-link-abbreviated" href="http://www.irg.uzh.ch">www.irg.uzh.ch</a></div>
  </body>
</html>