zr-tex8r

% LuaLaTeX文書; 文字コードはUTF-8
\documentclass[a4paper]{ltjsarticle}
\usepackage[noto-jp]{luatexja-preset}
% 欧文はLatin Modernのまま
\usepackage{newunicodechar,luacode}
%↓入力中のU+FFFDを一旦U+F8FDに置き換える
\begin{luacode*}
luatexbase.add_to_callback('process_input_buffer', function (s)
  if s:match('\xef\xbf\xbd') then
    return s:gsub('\xef\xbf\xbd', '\xef\xa3\xbd')

zr-tex8r

%#!lualatex
\documentclass{article}
\usepackage[papersize={100mm,148mm},margin=0cm,
  noheadfoot]{geometry}
\usepackage{luatexja-fontspec}
\usepackage{amsmath,tikz,graphicx,xcolor,xparse,pgfmath}
\ltjsetparameter{jacharrange={-2}}
\usetikzlibrary{calc,positioning}
\colorlet{k}{black}
\newcommand{\cLet}{\pgfmathsetmacro}

zr-tex8r

Compile with:

pdftex "\catcode64=11 \input texmas2022.tex"

zr-tex8r

年賀状宛名印刷用文書クラス Addrite

全体構成

• document : config list?→ block-text → block-text → document
  document ?:cfgs from to で全ての宛先面の印刷からなる文書を出力する。

  cfgs には設定項目のリストを指定し、既定値は空リスト（つまり既定の設定を使う）である。

from は高々1個の+address-fromコマンドのみからなるブロックテキストで、この+address-fromの出力は全てのページ（宛先面）に共通して配置される。

zr-tex8r

% hanoi.satyh: Tower of Hanoi with graphics
%
% Copyright (c) 2022 Takayuki YATO (aka. "ZR")
%   GitHub:   https://github.com/zr-tex8r
%   Twitter:  @zr_tex8r
% Distributed under the MIT License.

%=========================================================== module Hanoi
module Hanoi : sig

zr-tex8r

let text-box-board w h ib =
  let (tw, th, _) = get-natural-metrics ib in
  let gtxt = draw-text ((w -' tw) *' 0.5, (h -' th) *' 0.5) ib in
  inline-graphics w h 0pt (fun p -> [shift-graphics p gtxt])
let text-board ctx w h fname fsize str =
  let ctx = ctx |> (set-font-size fsize)
    |> (set-font Latin (fname, 1., 0.)) in
  let ib = read-inline ctx (embed-string str) in
  text-box-board w h ib

zr-tex8r

let_=`888888888888888888888888888888888888888888888888888888888888888888888
~#;}-\$"@`let([(-*);(-/)],nj,(^/)::(&/+-'+.>.*:/),(&-),(!))=((*)::[(/)],(!)
,[`@.]='}#*?;@=#\:<\=$<"|&^?"}~{?;ve;;`;`).':_,,`],[],8)let(*)o(*/)=((o))::
(*/)let([(//);(/-)],[_;(^-);(&/.''<);rec-;(^--)],(/<+->),(/),_::(^*-)::_)=(
[(!)-(!);(!)-/(!)],(^/)*`ドド`*`スコ`*`スコ`*`スコ`*(&-),(!)-*8,(let-rec(>)
`@`i=i|(-)r=(-)^(r)in(>)),(^/)*`ラブ注入♡`*[`\-,::]${'<@,_>:~}"#_#"(`])let
(-:)(*<*+-)(*>-)=(*<*+-)-((*<*+-)-/(*>-)-*(*>-))let-rec(!->)|8=(^-)|_=(^--)
let((/--)::[(/->);(/.>);(/.-)],ov)=([(/-)+(/-);(!)>>(/-);(!)-(/-);(/<+->)-*
(/<+->)],{,'=~[__]:?(})let((!),(/.--)::[(/.*-);(/.->)],_)=(nj,[(/.>)-*(/.>)
-*(/.>)-*(/.>)-*(/.>);((/-)<<((/->)-*(!)-(/-)))-(/-);(!)-*((/--)-*8+(/-))<<

zr-tex8r

% Compile this file with 'pdftex' command!

%% \DequeNew\DEQ : Makes a new deque \DEQ.
%% \DequePushBack\DEQ{<text>} : Pushes-back <text> to \DEQ.
%% \DequePushFront\DEQ{<text>} : Pushes-front <text> to \DEQ.
%% \DequePopBack\DEQ : Pops-back from \DEQ and sets the popped text
% to \DequePopped.
%% \DequePopFront\DEQ : Pops-front from \DEQ and sets the popped text
% to \DequePopped.

zr-tex8r

実行方法

plain pdfTeXを用いて以下のコマンド行のように実行する：

pdftex -translate-file=./ddsk ddsk.tex

注意

• pdfTeXで和文文字を出力するため、ipaex-type1パッケージがインストールされている必要がある。

zr-tex8r

\input sclatex
\dump