Simtel MSDOS - Coast to Coast/simteldosarchivecoasttocoast2.iso/sprint/hplj3j11.zip/HPALLEN.TCT

Text File | 1991-09-02 | 3KB | 94 lines

@style(comments yes)
;
; HPALLEN.TCT: A. Brunson's HPLJ-III.TCT rev. by J. Celoni, S.J. 7-4-91
;
@style(widestblank 1.5)
;
; If you like, uncomment next line to set default font and size
;@style(font Times,size 12 point)
;
; Generic kerning pairs for all fonts
@tct('AT' 'A@hsp(-0.12 em)T')
@tct('AV' 'A@hsp(-0.14 em)V')
@tct('AW' 'A@hsp(-0.10 em)W')
@tct('AY' 'A@hsp(-0.12 em)Y')
@tct('Av' 'A@hsp(-0.08 em)v')
@tct('Aw' 'A@hsp(-0.08 em)w')
@tct('Ay' 'A@hsp(-0.08 em)y')
@tct('FA' 'F@hsp(-0.10 em)A')
@tct('Fa' 'F@hsp(-0.03 em)a')
@tct('Fo' 'F@hsp(-0.05 em)o')
@tct('LV' 'L@hsp(-0.12 em)V')
@tct('LW' 'L@hsp(-0.10 em)W')
@tct('LY' 'L@hsp(-0.20 em)Y')
@tct('PA' 'P@hsp(-0.15 em)A')
@tct('Pa' 'P@hsp(-0.03 em)a')
@tct('Pe' 'P@hsp(-0.03 em)e')
@tct('Po' 'P@hsp(-0.05 em)o')
@tct('TA' 'T@hsp(-0.07 em)A')
@tct('Ta' 'T@hsp(-0.07 em)a')
@tct('Te' 'T@hsp(-0.07 em)e')
@tct('To' 'T@hsp(-0.07 em)o')
@tct('Tu' 'T@hsp(-0.07 em)u')
@tct('Ty' 'T@hsp(-0.07 em)y')
@tct('VA' 'V@hsp(-0.13 em)A')
@tct('VO' 'V@hsp(-0.08 em)O')
@tct('Va' 'V@hsp(-0.08 em)a')
@tct('Ve' 'V@hsp(-0.08 em)e')
@tct('Vo' 'V@hsp(-0.09 em)o')
@tct('WA' 'W@hsp(-0.10 em)A')
@tct('WO' 'W@hsp(-0.05 em)O')
@tct('Wa' 'W@hsp(-0.08 em)a')
@tct('We' 'W@hsp(-0.08 em)e')
@tct('Wo' 'W@hsp(-0.08 em)o')
@tct('YA' 'Y@hsp(-0.15 em)A')
@tct('YO' 'Y@hsp(-0.08 em)O')
@tct('Ya' 'Y@hsp(-0.16 em)a')
@tct('Ye' 'Y@hsp(-0.16 em)e')
@tct('Yo' 'Y@hsp(-0.16 em)o')
;
; Make a double dash into an em dash
@tct("--" "@pub[@char(77)]")
;
; Ligatures
@tct("fi"  "@pub[@char(169)]")
@tct("fl"  "@pub[@char(170)]")
@tct("ff"  "@pub[@char(171)]")
@tct("ffi" "@pub[@char(172)]")
@tct("ffl" "@pub[@char(173)]")
;
; Macros for double and single quotation mark substitutions
@macro(Qop = "@pub[@char(126)]")
@macro(Qcl = "@pub[@char(34)]")
@macro(Sop = "@pub[@char(96)]")
@macro(Scl = "@pub[@char(39)]")
;
; Convert open double quotes from " to special open quote character
@tct(' "' "@set(inquote 1)@Qop")
@tct('("' "@set(inquote 1)(@Qop")
@tct('["' "@set(inquote 1)[@Qop")
@tct('{"' "@set(inquote 1){@Qop")
@tct("``" "@set(inquote 1)@Qop")
;
; Convert close double quotes from " to special close quote character
@tct('"' "@set(inquote +1)@if(inquote&1,y "@Qop",n "@Qcl")")
@tct("''" "@set(inquote 0)@Qcl")
;
; Convert open/close single quotes from `' to special characters
@tct("`" "@Sop")
@tct("'" "@Scl")
;
; (C) (R) (TM):
@tct("(C)"  "@lgl(^)")
@tct("(R)"  "@lgl(\)")
@tct("(TM)" "@lgl(~)")
;
; Special cases:  left delims within double quotes
@tct('"("' "@Qop(@Qcl")
@tct('"["' "@Qop[@Qcl")
@tct('"{"' "@Qop{@Qcl")
;
; Redefine ASCII 247d ≈ as typewriter-like double quote symbol
@tct('@char(247)' '"')
@style(comments no)