At 2023-06-13T17:15:56-0500, G. Branden Robinson wrote:
> I don't think we're _quite_ there, though; we need to contrive italic
> corrections too, which seems like it would be harder without a real
> font,[1] since they vary by glyph.  See the attachments.
[...]
> [1] Well, maybe not.  We can hand roll 24 italic corrections and pass
>     them as second arguments to this `pdf:SS` macro.  It can
>     interpolate them as \h'' horizontal motions after interpolating
>     `\$1`.  Might be a good idea to express the corrections in ems so
>     they'll scale on their own.

I undertook to do this.  Lacking experience as a real typographer, I did
things by eyeballing them with sample inputs that seemed likely
provocative of glyph collisions in mathematical typesetting, and by
limiting myself to adjustments in increments of 1/12th em.

Here is the result.  Really trying to not forget the attachments this
time.

Regards,
Branden
diff --git a/tmac/pdf.tmac b/tmac/pdf.tmac
index 6a2fa7bba..7dad3868d 100644
--- a/tmac/pdf.tmac
+++ b/tmac/pdf.tmac
@@ -36,36 +36,38 @@ am solely responsible for any bugs I may have introduced into this file.
 .mso ps.tmac
 .
 .de pdf:SS
-.      fchar \\$1 \\S'16'\\$1\\S'0'
+.  fchar \\$1 \s'\\\\n[.ps]u*89u/100u'\h'\\$2'\S'16'\\$1\\S'0'\h'\\$3'\
+\s'0'
+.\"fchar \\$1 \s'\\\\n[.ps]u*89u/100u'\S'16'\\$1\\S'0'\s'0'
 ..
-.pdf:SS \[+h]
-.pdf:SS \[ts]
-.pdf:SS \[*a]
-.pdf:SS \[*b]
-.pdf:SS \[*x]
-.pdf:SS \[*d]
-.pdf:SS \[*e]
-.pdf:SS \[*f]
-.pdf:SS \[*g]
-.pdf:SS \[*y]
-.pdf:SS \[*i]
-.pdf:SS \[+f]
-.pdf:SS \[*k]
-.pdf:SS \[*l]
-.pdf:SS \[*m]
-.pdf:SS \[*n]
-.pdf:SS \[*o]
-.pdf:SS \[*p]
-.pdf:SS \[*h]
-.pdf:SS \[*r]
-.pdf:SS \[*s]
-.pdf:SS \[*t]
-.pdf:SS \[*u]
-.pdf:SS \[+p]
-.pdf:SS \[*w]
-.pdf:SS \[*c]
-.pdf:SS \[*q]
-.pdf:SS \[*z]
+.pdf:SS \[*a] -1m/12u 1m/12u
+.pdf:SS \[*b] -1m/12u 1m/12u
+.pdf:SS \[*g] -1m/12u 3m/12u
+.pdf:SS \[*d] -1m/12u 1m/6u
+.pdf:SS \[*e] -1m/12u 1m/12u
+.pdf:SS \[*z] -1m/12u 1m/6u
+.pdf:SS \[*y] -1m/12u 1m/12u
+.pdf:SS \[*h] -1m/12u 1m/6u
+.pdf:SS \[*i] -1m/12u 1m/12u
+.pdf:SS \[*k] -1m/12u 1m/6u
+.pdf:SS \[*l] -1m/12u 1m/12u
+.pdf:SS \[*m] -1m/12u 1m/12u
+.pdf:SS \[*n] -1m/12u 1m/12u
+.pdf:SS \[*c] -1m/12u 1m/6u
+.pdf:SS \[*o] -1m/12u 1m/12u
+.pdf:SS \[*p] -1m/12u 1m/12u
+.pdf:SS \[*r] -1m/12u 1m/12u
+.pdf:SS \[*s] -1m/12u 1m/6u
+.pdf:SS \[*t] -1m/12u 1m/6u
+.pdf:SS \[*u] -1m/12u 1m/12u
+.pdf:SS \[*f] -1m/12u 1m/12u
+.pdf:SS \[*x] -1m/12u 1m/12u
+.pdf:SS \[*q] -1m/12u 1m/6u
+.pdf:SS \[*w] -1m/12u 1m/12u
+.pdf:SS \[+f] -1m/12u 1m/12u
+.pdf:SS \[+h] -1m/12u 1m/12u
+.pdf:SS \[+p] -1m/12u 1m/6u
+.pdf:SS \[ts] -1m/12u 1m/12u
 .char \[lh] \X'pdf: xrev'\[rh]\X'pdf: xrev'
 .nr pdf:bm.nl 1
 .de pdfmark

Attachment: italic-greeks-uncorrected.pdf
Description: italic-greeks-uncorrected.pdf

Attachment: italic-greeks-corrected.pdf
Description: italic-greeks-corrected.pdf

Attachment: signature.asc
Description: PGP signature

Reply via email to