「1TeXのロゴ」をSATySFiしたい話

今日は、皆さんお待ちかねの、きりたんぽの日！

というわけで早速、SATySFiで「1TeXのロゴ」を出力してみましょう！

texlogoパッケージを使って解決しない話

「SATySFiでTeX関係のロゴ」というと一昨年のクリスマスのネタにありましたね。

texlogoパッケージ（Gist/puripuri2100）

というわけで早速……アレ？

f:id:zrbabbler:20201110142612p:plain — texlogoで出力できるロゴの一覧表（test.pdfより）

\OneTeX がない……。（ざんねん🙃）

結局自力で解決する話

仕方がないので、作ってみた。

@require: stdja

let-inline ctx \OneTeX =
  let size = get-font-size ctx in
  let krn r = inline-skip (0pt -' size *' r) in
  let f = read-inline ctx in
  let fE = ctx |> set-manual-rising (0pt -' (size *' 0.15))
               |> read-inline in
  let dsone = math-char MathOrd (string-unexplode [0x1D7D9]) in
  let one = embed-math (set-font-size (size *' 1.44) ctx) dsone in
    one ++ krn 0.2 ++ f {T} ++ krn 0.125 ++ fE {E} ++ krn 0.08 ++ f {X}

in

document (|
  title = {今日はきりたんぽの日！};
  author = {某ZR（アレ）};
  show-title = false; show-toc = false;
|) '<
  +p {I love \OneTeX;!}
>