From 01b69c78ff33854f7f28149e8167cb4219fcb416 Mon Sep 17 00:00:00 2001
From: Norbert Preining <norbert@preining.info>
Date: Mon, 14 Feb 2022 03:01:43 +0000
Subject: CTAN sync 202202140301

---
 macros/xetex/latex/bidi-atbegshi/test-RTL.tex | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

(limited to 'macros/xetex/latex/bidi-atbegshi/test-RTL.tex')

diff --git a/macros/xetex/latex/bidi-atbegshi/test-RTL.tex b/macros/xetex/latex/bidi-atbegshi/test-RTL.tex
index a4d416176b..5ce8c975b9 100644
--- a/macros/xetex/latex/bidi-atbegshi/test-RTL.tex
+++ b/macros/xetex/latex/bidi-atbegshi/test-RTL.tex
@@ -1,25 +1,26 @@
 \documentclass{article}
-\usepackage{lipsum}
 \usepackage{bidi-atbegshi}
-\usepackage[RTLdocument]{bidi}
-\setbox0\hbox{\Huge\textbf{Upper Left}}
-\setbox1\hbox{\Huge\textbf{Upper Right}}
-\setbox2\hbox{\Huge\textbf{Lower Left}}
-\setbox3\hbox{\Huge\textbf{Lower Right}}
+\usepackage{ptext}
+\usepackage{xepersian}
+\settextfont{IRXLotus}
+\setbox0\hboxR{\Huge\textbf{چپ بالا}}
+\setbox1\hboxR{\Huge\textbf{راست بالا}}
+\setbox2\hboxR{\Huge\textbf{چپ پایین}}
+\setbox3\hboxR{\Huge\textbf{راست پایین}}
 \AtBeginShipout{%
 \AtBeginShipoutUpperRight{%
-\put(0,\LengthToUnit{-\ht1}){\usebox1}
+\put(-\wd1,-\ht1){\usebox1}
 }%
 \AtBeginShipoutUpperLeft{%
-\put(\LengthToUnit{-\wd0},\LengthToUnit{-\ht0}){\usebox0}
+\put(0,-\ht0){\usebox0}
 }%
 \AtBeginShipoutLowerRight{%
-\put(0,\LengthToUnit{\dp3}){\usebox3}
+\put(-\wd3,\dp3){\usebox3}
 }%
 \AtBeginShipoutLowerLeft{%
-\put(\LengthToUnit{-\wd2},\LengthToUnit{\dp2}){\usebox2}
+\put(0,\dp2){\usebox2}
 }%
 }
 \begin{document}
-\lipsum
+\ptext
 \end{document}
\ No newline at end of file
-- 
cgit v1.2.3

