From 8c1715033ba8ede3ebc5b28401b83df34ba8ae28 Mon Sep 17 00:00:00 2001
From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Fri, 16 Feb 2024 14:40:09 +0900
Subject: [PATCH] gh #3

---
 src/patches/lltjcore.sty | 24 +++++++++++++++---------
 test/test37-tombow.tex   | 16 ++++++++++++++++
 2 files changed, 31 insertions(+), 9 deletions(-)
 create mode 100644 test/test37-tombow.tex

diff --git a/src/patches/lltjcore.sty b/src/patches/lltjcore.sty
index fff3432..111e59b 100644
--- a/src/patches/lltjcore.sty
+++ b/src/patches/lltjcore.sty
@@ -137,22 +137,28 @@
 }
 \def\@outputtombow{%
   \iftombow
-  \vbox to\z@{\kern\dimexpr-10mm-\@tombowbleed\relax
+  \vbox to\z@{\kern-\@tombowbleed\relax
     \boxmaxdepth\maxdimen
       \moveleft\@tombowbleed\vbox to\@@paperheight{%
 	  \color@begingroup
 	  \@tombowcolor
-      \hbox to\@@paperwidth{\hskip\@tombowbleed\relax
-         \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip\@tombowbleed}%
-      \kern-10mm%
-      \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
+      \setbox\z@\hbox to\@@paperwidth{\hskip\@tombowbleed\relax
+         \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip\@tombowbleed}
+      \ht\z@=\z@\dp\z@=\z@\box\z@%
+      \kern\@tombowbleed
+      \setbox\z@\hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
+      \ht\z@=\z@\dp\z@=\z@\box\z@%
       \vfill
-      \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
+      \setbox\z@\hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
+      \ht\z@=\z@\dp\z@=\z@\box\z@%
       \vfill
-      \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
-      \kern-10mm%
-      \hbox to\@@paperwidth{\hskip\@tombowbleed\relax
+      \setbox\z@\hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
+      \ht\z@=\z@\dp\z@=\z@\box\z@
+      \kern\@tombowbleed
+      \setbox\z@\hbox to\@@paperwidth{\hskip\@tombowbleed\relax
          \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip\@tombowbleed}%
+      \ht\z@=\z@\dp\z@=\z@\box\z@%
+      \kern\dimexpr10mm%
       \color@endgroup
     }\vss
   }%
diff --git a/test/test37-tombow.tex b/test/test37-tombow.tex
new file mode 100644
index 0000000..8cfe4da
--- /dev/null
+++ b/test/test37-tombow.tex
@@ -0,0 +1,16 @@
+\documentclass[a6paper]{ltjsarticle}
+%\documentclass[paper=b5j]{jlreq}
+\usepackage{luatexja-adjust}
+\ltjenableadjust[profile]
+\usepackage[pdfbox]{gentombow}
+\begin{document}
+\noindent\makeatletter
+\smash{\rlap{%
+  \kern\dimexpr-\oddsidemargin-1in-10mm%
+  \raisebox{\dimexpr-.5\paperheight+\headsep+\headheight+\topskip+\topmargin+1in}%
+    {\vrule height0mm depth.5\paperheight width 5pt\vrule height.5\paperheight depth 0mm width 5pt}%
+}}%
+aiueo \strip@pt\dimexpr0.35145980351459803\paperheight mm%
+
+\end{document}
+
-- 
2.11.0