pstricks (16nov24)

git-svn-id: svn://tug.org/texlive/trunk@72868 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 33 insertions, 3 deletions

diff --git a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
index 66b00657b99..094dcbb232d 100644
--- a/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
+++ b/Master/texmf-dist/tex/generic/pstricks/pstricks.tex
@@ -88,8 +88,8 @@
 
 \let\pgfforeach\foreach
 %
-\def\fileversion{3.20}
-\def\filedate{2024/07/09}
+\def\fileversion{3.21}
+\def\filedate{2024/11/16}
 \pst@addfams{pstricks}
 %
 %\define@boolkey[psset]{pstricks}[Pst@]{useURWfonts}[true]{}
@@ -4109,6 +4109,36 @@ pop
 \define@key[psset]{pstricks}{margin}[0pt]{\ps@readmargin#1,,,,\@nil}
 \psset[pstricks]{margin=0pt}
 %
+
+\ExplSyntaxOn
+\define@key[psset]{pstricks}{alt}[]{\tl_set:Ne\l__tag_graphic_alt_tl{\text_purify:n{#1}}}
+%\define@boolkey[psset]{pstricks}[]{artifact}[true]{}
+\define@key[psset]{pstricks}{artifact}{%
+    \bool_set_true:N \l__tag_graphic_artifact_bool
+    \bool_set_false:N \l__tag_graphic_BBox_bool
+}
+\define@key[psset]{pstricks}{actualtext}[]{%
+    \tl_set:Ne\l__tag_graphic_actual_tl{\text_purify:n{#1}}
+    \bool_set_false:N \l__tag_graphic_BBox_bool
+}
+\define@key[psset]{pstricks}{correct-BBox}{%
+    \bool_set_true:N \l__tag_graphic_bboxcorr_bool
+    \seq_set_split:Nnn\l__tag_graphic_bboxcorr_seq{~}{#1~0pt~0pt~0pt~0pt}%
+}
+\define@key[psset]{pstricks}{tag}[]{%
+    \str_case:nnF {#1}{
+      {artifact}
+            {
+               \bool_set_true:N \l__tag_graphic_artifact_bool
+               \bool_set_false:N \l__tag_graphic_BBox_bool
+            }
+            {false}{\tag_stop:}
+          }
+          {\tl_set:Nn\l__tag_graphic_struct_tl{#1}}
+      }
+
+\ExplSyntaxOff
+
 \newcount\ps@imagectr
 \ps@imagectr=0
 %\newif\ifPst@findcoor
@@ -4120,7 +4150,7 @@ pop
 \def\pst@@picture[#1]{\@ifnextchar({\pst@@picture@i[#1]}{\pst@@picture@@i[#1]}}%
 \def\pst@@picture@@i[#1]{%
   \def\pic@coor{(0,0)(0,0)}%
-%  \gdef\pscoor{(10,10)}%
+  \gdef\pscoor{(10,10)}%
   \ifPst@calcframe
     \typeout{>>>Check for file \jobname-\the\numexpr\ps@imagectr+1.psaux}%
     \IfFileExists{\jobname-\the\numexpr\ps@imagectr+1.psaux}