summaryrefslogtreecommitdiff
path: root/macros/xetex/latex/bidi-atbegshi/test-RTL.tex
diff options
context:
space:
mode:
Diffstat (limited to 'macros/xetex/latex/bidi-atbegshi/test-RTL.tex')
-rw-r--r--macros/xetex/latex/bidi-atbegshi/test-RTL.tex23
1 files changed, 12 insertions, 11 deletions
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