summaryrefslogtreecommitdiff
path: root/fonts/cm/sauter/vms
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 /fonts/cm/sauter/vms
Initial commit
Diffstat (limited to 'fonts/cm/sauter/vms')
-rw-r--r--fonts/cm/sauter/vms/make_sauter_pk.com91
1 files changed, 91 insertions, 0 deletions
diff --git a/fonts/cm/sauter/vms/make_sauter_pk.com b/fonts/cm/sauter/vms/make_sauter_pk.com
new file mode 100644
index 0000000000..faa8eb4a79
--- /dev/null
+++ b/fonts/cm/sauter/vms/make_sauter_pk.com
@@ -0,0 +1,91 @@
+$!make_sauter_pk.com
+$! V1.5 13-NOV-1994
+$!
+$! (c) Copyright 1992, 1993, 1994 J"org Knappen
+$!
+$! Benutzung:
+$! @make_sauter_pk MODENAME FONTNAME SIZELIST
+$! Beispiel:
+$! @make_sauter_pk laserjet cmr 5,6,7,8,9,10,11,12,14,17,20,25
+$!
+$! Modell:
+$! $write/file=FONTNAME'SIZE.mf "design_size=EXACTSIZE; input BFONTNAME"
+$! $mf "\mode=MODENAME; input FONTNAME'SIZE"
+$! $gftopk FONTNAME'SIZE.DPIgf
+$!
+$! Hierbei ist MODENAME zum Beispiel laserjet oder dec_lnp
+$! BFONTNAME zum Beispiel b-cmr
+$! EXACTSIZE zum Beispiel 14.4
+$! SIZE zum Beispiel 14
+$!
+$! Gehe zum gew"unschten Verzeichnis und initialisiere TeX und METAFONT
+$! set def $diskx:[scratch.mf]
+$! env tex
+$!
+$! Fahre fort bei Fehler
+$ on error then continue
+$! Abbruch mit Ctrl-Y
+$ on control_y then goto ctrly
+$!
+$! Gib etwas Hilfe
+$ if P1 .eqs. "?" then goto HILFE
+$ if P3 .eqs. "" then goto HILFE
+$ if P4 .nes. "" then goto HILFE
+$!
+$! Initialisierung
+$ MODENAME=f$edit(P1,"lowercase")
+$ FONTNAME=f$edit(P2,"lowercase")
+$ BFONTNAME=f$fao("b-!AS",FONTNAME)
+$ DPI="300"
+$! 300 dpi ist die Voreinstellung, aber der laserjetIV hat 600 dpi
+$! Aufl"osung
+$ if MODENAME .eqs. "ljiv" then DPI="600"
+$!
+$! Jetzt kommt die Schleife zur Berechnung der Fonts
+$ next=0
+$ schleife:
+$ SIZE=f$element(next,",",p3)
+$ if SIZE .eqs. "," then $goto ausgang
+$ EXACTSIZE=SIZE
+$ if SIZE .eqs. 11 then EXACTSIZE="10.95"
+$ if SIZE .eqs. 14 then EXACTSIZE="14.4"
+$ if SIZE .eqs. 17 then EXACTSIZE="17.28"
+$ if SIZE .eqs. 20 then EXACTSIZE="20.74" ! war: 20.736
+$ if SIZE .eqs. 25 then EXACTSIZE="24.88" ! war: 24.8832
+$ if SIZE .eqs. 30 then EXACTSIZE="29.86" ! war: 29.85976
+$ if SIZE .eqs. 36 then EXACTSIZE="35.83" ! war: 35.831712
+$!
+$ GFDATEI=f$fao("!AS.!ASgf",FONTNAME,DPI)
+$ PKDATEI=f$fao("!AS!AS.pk",FONTNAME,SIZE)
+$ ORITFMDATEI=f$fao("!AS.tfm",BFONTNAME)
+$ TFMDATEI=f$fao("!AS!AS.tfm",FONTNAME,SIZE)
+$ MFDATEI=f$fao("!AS!AS.mf",FONTNAME,SIZE)
+$!
+$! Schreibe eine .mf-Datei f"ur den zu erzeugenden Font
+$ open/write file 'MFDATEI
+$ write file "design_size=''EXACTSIZE';"
+$ write file "input ''BFONTNAME';"
+$ close file
+$!
+$ command=f$fao("mf/batch ""\mode:=!AS; input !AS""",MODENAME,MFDATEI)
+$! write sys$output command
+$ on error then continue
+$ command
+$!
+$ gftopk 'f$fao("!AS!AS.!ASgf",FONTNAME,SIZE,DPI)
+$!
+$! Schlie"se die Schleife
+$ next=next+1
+$ goto schleife
+$!
+$! Hilfe...
+$ HILFE:
+$ write sys$output "Usage: @make_sauter_pk MODENAME FONTNAME SIZELIST"
+$ write sys$output -
+ "Example: @make_sauter_pk laserjet cmr 5,6,7,8,9,10,11,12,14,17,20,25"
+$! Normales Ende
+$ ausgang:
+$ exit
+$! Ende durch Ctrl-Y
+$ ctrly:
+$ exit 1