[latex3-commits] [git/LaTeX3-latex3-pdfresources] master: savings some experiments (be1454a)

[Ulrike Fischer]

Repository : https://github.com/latex3/pdfresources
On branch  : master
Link       : https://github.com/latex3/pdfresources/commit/be1454ad1e3afd1549030fc9c122e607a42ef1d4

>---------------------------------------------------------------

commit be1454ad1e3afd1549030fc9c122e607a42ef1d4
Author: Ulrike Fischer <fischer at troubleshooting-tex.de>
Date:   Sat Mar 7 21:16:38 2020 +0100

    savings some experiments


>---------------------------------------------------------------

be1454ad1e3afd1549030fc9c122e607a42ef1d4
 experiments/pageattr-luatex.tex | 39 ++++++++++++++++++++++++++++++++++
 experiments/pageattr-test.tex   | 47 +++++++++++++++++++++++++++++++++++++++++
 2 files changed, 86 insertions(+)

diff --git a/experiments/pageattr-luatex.tex b/experiments/pageattr-luatex.tex
new file mode 100644
index 0000000..9303e92
--- /dev/null
+++ b/experiments/pageattr-luatex.tex
@@ -0,0 +1,39 @@
+\documentclass{article}
+\usepackage{graphicx}
+\usepackage{l3pdf}
+\ExplSyntaxOn
+\pdf_uncompress:
+\ExplSyntaxOff
+\usepackage{atbegshi}
+\directlua{attrtable={} attrtable.rotate=0}
+\makeatletter
+\AtBeginShipout
+  {
+    \AtBeginShipoutAddToBox
+     {
+      \latelua{attrtable.rotate=\ifodd\c at page -90 \else 90\fi}
+     }
+
+    \AtBeginShipoutAddToBoxForeground
+      {
+        \latelua{pdf.setpageattributes ("/Rotate ".. attrtable.rotate)}
+      }
+  }
+
+\begin{document}\makeatletter
+some text
+
+\begin{figure}
+%\latelua{pdf.setpageattribute("/Rotate 90")}
+%\latelua{pdf.setpageattribute("/Rotate \ifodd\c at page -90 \else 90\fi")}
+%\latelua{attrtable.rotate=\ifodd\c at page -90 \else 90\fi}
+\rotatebox{90}{\resizebox{15cm}{!}{linksherum}}
+\end{figure}
+
+\begin{figure}
+%\latelua{pdf.setpageattributes("/Rotate -90")}
+%\latelua{pdf.setpageattributes("/Rotate \ifodd\c at page -90 \else 90\fi")}
+\rotatebox{-90}{\resizebox{15cm}{!}{rechtsherum}}
+\end{figure}
+
+\end{document}
\ No newline at end of file
diff --git a/experiments/pageattr-test.tex b/experiments/pageattr-test.tex
new file mode 100644
index 0000000..1457772
--- /dev/null
+++ b/experiments/pageattr-test.tex
@@ -0,0 +1,47 @@
+% !Mode:: "TeX:DE:UTF-8:Main"
+\documentclass{article}
+\usepackage{pdfresources}
+\ExplSyntaxOn
+\pdf_uncompress:
+\ExplSyntaxOff
+\begin{document}
+\ExplSyntaxOn\makeatletter
+\protected\def\rotatepage{\ifnum\c at page =3 90\else 0 \fi}
+\pdf_pageattr_gput:nn {Rotate}{\rotatepage}
+\ExplSyntaxOff
+
+text \newpage test \newpage test \newpage test
+\end{document}
+
+\documentclass{report}
+\usepackage{iftex}
+
+\begin{document}
+abc
+\begin{figure}[!p]
+some text \rule{1cm}{0.6\textheight}
+\iftutex
+ \ifluatex
+  \latelua{pdf.setpageattributes("/Rotate \ifodd\value{page} 90 \else -90\fi")}
+ \else
+  \special{pdf: put @thispage <</Rotate -90>>}
+ \fi
+\else
+\global\pdfpageattr{/Rotate -90} %affects page 1
+\fi
+\end{figure}
+
+\begin{figure}[!p]
+some text \rule{1cm}{0.6\textheight}
+\iftutex
+ \ifluatex
+  \latelua{pdf.setpageattributes("/Rotate \ifodd\value{page} 90 \else -90\fi")}
+ \else
+
+  \special{pdf: put @thispage <</Rotate 90>>}
+ \fi
+\else
+\global\pdfpageattr{/Rotate 90}   %affects page 1
+\fi
+\end{figure}
+\end{document} 
\ No newline at end of file