summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/media9
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2019-02-20 22:42:23 +0000
committerKarl Berry <karl@freefriends.org>2019-02-20 22:42:23 +0000
commita7203744a046f9c6afbea27c854863cdd3574e86 (patch)
tree324b4e07c3429dae9d9dfb955c311d505483aa7e /Master/texmf-dist/tex/latex/media9
parent5f504031ed7adf80df087900d09c3c62bb2da50b (diff)
media9 (20feb19)
git-svn-id: svn://tug.org/texlive/trunk@50076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/media9')
-rw-r--r--Master/texmf-dist/tex/latex/media9/media9.sty14
-rw-r--r--Master/texmf-dist/tex/latex/media9/pdfbase.sty764
2 files changed, 430 insertions, 348 deletions
diff --git a/Master/texmf-dist/tex/latex/media9/media9.sty b/Master/texmf-dist/tex/latex/media9/media9.sty
index f94e4e419a3..396dc36aae4 100644
--- a/Master/texmf-dist/tex/latex/media9/media9.sty
+++ b/Master/texmf-dist/tex/latex/media9/media9.sty
@@ -37,11 +37,11 @@
\RequirePackage{xparse}
\RequirePackage{atbegshi}
-\def\g@mix@date@tl{2019/01/02}
-\def\g@mix@version@tl{0.94}
+\def\g@mix@date@tl{2019/02/19}
+\def\g@mix@version@tl{0.95}
-\def\g@mix@liiikerneldate{2017/05/29}
-\def\g@mix@liiipkgdate{2017/05/29}
+\def\g@mix@liiikerneldate{2019/02/15}
+\def\g@mix@liiipkgdate{2018/10/17}
\ProvidesExplPackage{media9}{\g@mix@date@tl}{\g@mix@version@tl}
{acrobat-9/X compatible media}
@@ -711,16 +711,16 @@
\tl_gset:Nx\g_mix_wd_tl{\dim_abs:n{\g_mix_wdarg_tl}}
\tl_gset:Nx\g_mix_ht_tl{\dim_abs:n{\g_mix_htarg_tl}}
\tl_gset:Nx\g_mix_tt_tl{\dim_abs:n{\g_mix_ttarg_tl}}
- \dim_compare:nT{\width=\c_zero_dim}{\box_set_wd:Nn#1{\g_mix_wd_tl}}
+ \dim_compare:nT{\width=\c_zero_dim}{\box_gset_wd:Nn#1{\g_mix_wd_tl}}
\dim_compare:nT{\totalheight=\c_zero_dim}{
\bool_if:nT{ %height option given
\int_compare_p:n{\g_mix_resizeflag_int=\c_six}||
\int_compare_p:n{\g_mix_resizeflag_int=\c_two}
- }{\box_set_ht:Nn#1{\g_mix_ht_tl}}
+ }{\box_gset_ht:Nn#1{\g_mix_ht_tl}}
\bool_if:nT{ %totalheight option given
\int_compare_p:n{\g_mix_resizeflag_int=\c_five}||
\int_compare_p:n{\g_mix_resizeflag_int=\c_one}
- }{\box_set_ht:Nn#1{\g_mix_tt_tl}}
+ }{\box_gset_ht:Nn#1{\g_mix_tt_tl}}
}
\group_end:
\tl_gset:Nn\g_mix_dp_tl{\c_zero_dim} %to be initialised here
diff --git a/Master/texmf-dist/tex/latex/media9/pdfbase.sty b/Master/texmf-dist/tex/latex/media9/pdfbase.sty
index 093008e5d2d..94206e6b3a1 100644
--- a/Master/texmf-dist/tex/latex/media9/pdfbase.sty
+++ b/Master/texmf-dist/tex/latex/media9/pdfbase.sty
@@ -21,8 +21,10 @@
%
% Package options:
%
-% xetex,
-% dvipdfmx,
+% xetex
+% dvipdfmx
+% dvisvgm (basic support: \pbs_literal:nn, \pbs_pdfannot:nnnn,
+% \pbs_pdfxform:nnnnn\pbs_pdfrefxform:n)
% bigfiles (for embedding large files as stream objects; only relevant for
% dvips mode, ignored otherwise)
%
@@ -149,8 +151,8 @@
\RequirePackage{expl3}
\RequirePackage{l3keys2e}
-\def\g@pbs@date@tl{2019/01/02}
-\def\g@pbs@version@tl{0.25}
+\def\g@pbs@date@tl{2019/02/19}
+\def\g@pbs@version@tl{0.26}
\ProvidesExplPackage{pdfbase}{\g@pbs@date@tl}{\g@pbs@version@tl}
{driver independent access to low-level PDF features}
@@ -233,6 +235,7 @@
\bool_new:N\g_pbs_pkgbigfiles_bool
\bool_new:N\g_pbs_dvipdfmx_bool
+\bool_new:N\g_pbs_dvisvgm_bool
\bool_new:N\g_pbs_lscape_bool %if we are inside landscape env
\AtBeginDocument{
\cs_if_exist:NT\landscape{%
@@ -242,20 +245,40 @@
}
\keys_define:nn{pdfbase}{
- xetex .bool_gset:N = \g_pbs_dvipdfmx_bool,
- dvipdfmx .bool_gset:N = \g_pbs_dvipdfmx_bool,
-
- bigfiles .choice:,
- bigfiles / true .code:n = {\bool_gset_true:N\g_pbs_pkgbigfiles_bool},
- bigfiles / false .code:n = {\bool_gset_false:N\g_pbs_pkgbigfiles_bool},
- bigfiles .default:n = {true},
+ xetex .code:n = {}, %dummy, we use engine test instead
+
+ dvipdfmx .choice:,
+ dvipdfmx / true .code:n = {
+ \bool_gset_true:N\g_pbs_dvipdfmx_bool
+ \bool_gset_false:N\g_pbs_dvisvgm_bool
+ },
+ dvipdfmx / false .code:n = {\bool_gset_false:N\g_pbs_dvipdfmx_bool},
+ dvipdfmx .default:n = {true},
+
+ dvisvgm .choice:,
+ dvisvgm / true .code:n = {
+ \bool_gset_true:N\g_pbs_dvisvgm_bool
+ \bool_gset_false:N\g_pbs_dvipdfmx_bool
+ },
+ dvisvgm / false .code:n = {\bool_gset_false:N\g_pbs_dvisvgm_bool},
+ dvisvgm .default:n = {true},
+
+ bigfiles .bool_gset:N = \g_pbs_pkgbigfiles_bool,
unknown .code:n = {
\msg_error:nnx{pdfbase}{unknown~package~option}{\l_keys_key_tl}
}
}
\ProcessKeysOptions{pdfbase}
-\sys_if_engine_xetex:T{\bool_gset_true:N\g_pbs_dvipdfmx_bool}
+
+\sys_if_output_pdf:T{
+ \bool_gset_false:N\g_pbs_dvipdfmx_bool
+ \bool_gset_false:N\g_pbs_dvisvgm_bool
+}
+
+\sys_if_engine_xetex:T{
+ \bool_if:NF\g_xsb_dvisvgm_bool{\bool_gset_true:N\g_pbs_dvipdfmx_bool}
+}
\cs_new_nopar:Nn\pbs_first_of_two:nn{#1} %helpers
\cs_new_nopar:Nn\pbs_second_of_two:nn{#2}
@@ -487,7 +510,7 @@
\str_if_eq:nnTF{#1}{}{ % #2: raw PDF
% set current location's coordinates to (0,0), while saving graphics
% state before and re-instating after insertion (this is different from
- % \pdfliteral{...}}
+ % \pdfliteral{...}
\special{pdf:content~#2}
}{
% `direct' works the same as `page': no origin translation,
@@ -641,390 +664,449 @@
}
\cs_new_nopar:Nn\pbs_pdfemc:{\special{pdf:code~EMC}}
}{
- %dvips
- \bool_new:N\g_pbs_powerdot_bool %to cope with some powerdot oddity
- \@ifclassloaded{powerdot}{\bool_gset_true:N\g_pbs_powerdot_bool}{}
+ \bool_if:NTF\g_pbs_dvisvgm_bool{
+ \tl_gset:Nx\g_pbs_hash_tl{\token_to_str:N#}
+ %insert literal Postscript code
+ \cs_new_protected_nopar:Nn\pbs_literal:nn{ % #1: empty (`'), `direct' or `page'
+ \str_if_eq:nnTF{#1}{}{ % #2: raw Postscript
+ % set current location's coordinates to (0,0) and set unit vectors to
+ % 1bp right and 1bp upwards; graphics state is saved before and
+ % re-instated after insertion
+ \special{"~#2}
+ }{
+ % `direct' does the same as `page': no origin translation,
+ % no gs saving
+ \special{ps::~#2}
+ }
+ }
- \sys_if_engine_pdftex:TF{
- \cs_new_nopar:Nn\pbs_filesize:n{\pdffilesize{#1}}
- \cs_new_nopar:Nn\pbs_filedump:nnn{\pdffiledump~offset~#1~length~#2~{#3}}
- }{
- \sys_if_engine_luatex:T{
- \RequirePackage{pdftexcmds}
- \cs_new_nopar:Nn\pbs_filesize:n{\pdf@filesize{#1}}
- \cs_new_nopar:Nn\pbs_filedump:nnn{\pdf@filedump{#1}{#2}{#3}}
+ \cs_new_protected_nopar:Nn\pbs_pdfannot:nnnn{
+ \special{dvisvgm:raw~{?nl}<path~d=}
+ \group_begin:\dim_set:Nn\unitlength{1pt}
+ \begin{picture}(0,0)% mark annotation rectangle
+ \put(0,-\dim_to_decimal:n{#3}){% ll
+ \special{dvisvgm:raw~'M{?x}~{?y}}
+ }
+ \put(\dim_to_decimal:n{#1},-\dim_to_decimal:n{#3}){% lr
+ \special{dvisvgm:raw~{?nl}L{?x}~{?y}}
+ }
+ \put(\dim_to_decimal:n{#1},\dim_to_decimal:n{#2}){% ur
+ \special{dvisvgm:raw~{?nl}L{?x}~{?y}}
+ }
+ \put(0,\dim_to_decimal:n{#2}){% ul
+ \special{dvisvgm:raw~{?nl}L{?x}~{?y}~Z'}
+ }
+ \end{picture}
+ \group_end:
+ \special{dvisvgm:raw~{?nl}opacity='0'~#4~class='annot'/>}
}
- }
- \AtBeginDocument{
- \@ifpackageloaded{hyperref}{}{
- %define `?pdfmark' operator as in file pdfmark.def from package `hyperref'
- \special{!~
- systemdict~/pdfmark~known
- {
- userdict~/?pdfmark~systemdict~/exec~get~put
- }{
- userdict~/?pdfmark~systemdict~/pop~get~put~
- userdict~/pdfmark~systemdict~/cleartomark~get~put
+ \cs_new_protected_nopar:Nn\pbs_pdfxform:nnnnn{
+ \makebox[\c_zero_dim][l]{
+ \raisebox{\c_zero_dim}[\c_zero_dim][\c_zero_dim]{
+ \special{dvisvgm:raw~{?nl}<defs>{?nl}
+ <
+ g~transform='translate(-{?x},-{?y})'~#4~
+ id='pbs@obj\int_use:N\g_pbs_obj_int'~class='xform'
+ >
+ }
+ \box_use_drop:N#5
+ \special{dvisvgm:raw~{?nl}</g>{?nl}</defs>}
}
- ifelse
}
+ \tl_gset:Nx\g_pbs_pdflastxform_tl{\g_pbs_hash_tl pbs@obj\int_use:N\g_pbs_obj_int}
+ \int_gincr:N\g_pbs_obj_int
}
- \special{!~
- %keeping track of xform nesting level
- true~setglobal~globaldict~/pbs@xform@level~0~put~false~setglobal
- }
- }
- \bool_if:NT\g_pbs_pkgbigfiles_bool{
- \special{psfile=\jobname.pbsdat}
- %open auxiliary file \jobname.pbsdat for writing hex encoded streams of
- %the files to be embedded. This file is inserted into PS during dvips run
- \iow_new:N\g_pbs_mstreams_stream
- \iow_open:Nn\g_pbs_mstreams_stream{\jobname.pbsdat}
- \iow_now:Nn\g_pbs_mstreams_stream{
- /M9D~1~dict~def~M9D~begin
- /o{mark/_objdef}bind~def/O{/type/stream/OBJ~pdfmark}bind~def
- /m~systemdict/mark~get~def
- /P{/ASCIIHexDecode~filter/PUT~pdfmark}bind~def
- /PP{/PUT~pdfmark}bind~def
- /C{/CLOSE~pdfmark}bind~def~end
+ \cs_new_protected_nopar:Nn\pbs_pdfrefxform:n{
+ \special{dvisvgm:raw~{?nl}<use~x='{?x}'~y='{?y}'~xlink:href='#1'/>}
}
- }
+ }{
+ %dvips
+ \bool_new:N\g_pbs_powerdot_bool %to cope with some powerdot oddity
+ \@ifclassloaded{powerdot}{\bool_gset_true:N\g_pbs_powerdot_bool}{}
- %insert literal Postscript code
- \cs_new_protected_nopar:Nn\pbs_literal:nn{ % #1: empty (`'), `direct' or `page'
- \str_if_eq:nnTF{#1}{}{ % #2: raw Postscript
- % set current location's coordinates to (0,0) and set unit vectors to
- % 1bp right and 1bp upwards; graphics state is saved before and
- % re-instated after insertion
- \special{"~#2}
+ \sys_if_engine_pdftex:TF{
+ \cs_new_nopar:Nn\pbs_filesize:n{\pdffilesize{#1}}
+ \cs_new_nopar:Nn\pbs_filedump:nnn{\pdffiledump~offset~#1~length~#2~{#3}}
}{
- % `direct' does the same as `page': no origin translation,
- % no gs saving
- \special{ps::~#2}
+ \sys_if_engine_luatex:T{
+ \RequirePackage{pdftexcmds}
+ \cs_new_nopar:Nn\pbs_filesize:n{\pdf@filesize{#1}}
+ \cs_new_nopar:Nn\pbs_filedump:nnn{\pdf@filedump{#1}{#2}{#3}}
+ }
}
- }
- \cs_new_protected_nopar:Nn\pbs_pdfobj:nnn{
- \tl_clear:N\l_pbs_usenum_tl
- \tl_if_blank:oTF{#1}{
- \tl_set:Nx\l_pbs_usenum_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
- \int_gincr:N\g_pbs_obj_int
- }{
- \tl_set:Nx\l_pbs_usenum_tl{#1}
+ \AtBeginDocument{
+ \@ifpackageloaded{hyperref}{}{
+ %define `?pdfmark' operator as in file pdfmark.def from package `hyperref'
+ \special{!~
+ systemdict~/pdfmark~known
+ {
+ userdict~/?pdfmark~systemdict~/exec~get~put
+ }{
+ userdict~/?pdfmark~systemdict~/pop~get~put~
+ userdict~/pdfmark~systemdict~/cleartomark~get~put
+ }
+ ifelse
+ }
+ }
+ \special{!~
+ %keeping track of xform nesting level
+ true~setglobal~globaldict~/pbs@xform@level~0~put~false~setglobal
+ }
}
- \tl_if_blank:oF{#3}{
- \bool_if:nTF{
- \g_pbs_pkgbigfiles_bool &&
- \str_if_eq_p:nn{#2}{fstream}
+
+ \bool_if:NT\g_pbs_pkgbigfiles_bool{
+ \special{psfile=\jobname.pbsdat}
+ %open auxiliary file \jobname.pbsdat for writing hex encoded streams of
+ %the files to be embedded. This file is inserted into PS during dvips run
+ \iow_new:N\g_pbs_mstreams_stream
+ \iow_open:Nn\g_pbs_mstreams_stream{\jobname.pbsdat}
+ \iow_now:Nn\g_pbs_mstreams_stream{
+ /M9D~1~dict~def~M9D~begin
+ /o{mark/_objdef}bind~def/O{/type/stream/OBJ~pdfmark}bind~def
+ /m~systemdict/mark~get~def
+ /P{/ASCIIHexDecode~filter/PUT~pdfmark}bind~def
+ /PP{/PUT~pdfmark}bind~def
+ /C{/CLOSE~pdfmark}bind~def~end
+ }
+ }
+
+ %insert literal Postscript code
+ \cs_new_protected_nopar:Nn\pbs_literal:nn{ % #1: empty (`'), `direct' or `page'
+ \str_if_eq:nnTF{#1}{}{ % #2: raw Postscript
+ % set current location's coordinates to (0,0) and set unit vectors to
+ % 1bp right and 1bp upwards; graphics state is saved before and
+ % re-instated after insertion
+ \special{"~#2}
}{
- \iow_now:Nx\g_pbs_mstreams_stream{
- M9D~begin~o\l_pbs_usenum_tl O
- }
+ % `direct' does the same as `page': no origin translation,
+ % no gs saving
+ \special{ps::~#2}
+ }
+ }
+
+ \cs_new_protected_nopar:Nn\pbs_pdfobj:nnn{
+ \tl_clear:N\l_pbs_usenum_tl
+ \tl_if_blank:oTF{#1}{
+ \tl_set:Nx\l_pbs_usenum_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
+ \int_gincr:N\g_pbs_obj_int
}{
- \special{ps:~mark~/_objdef~\l_pbs_usenum_tl\space/type
- \str_case:nn{#2}{
- {dict}{/dict}
- {array}{/array}
- {stream}{/stream}
- {fstream}{/stream}
- }~
- /OBJ~pdfmark
- }
+ \tl_set:Nx\l_pbs_usenum_tl{#1}
}
- \str_case:nn{#2}{
- {dict}{\special{ps:~mark~\l_pbs_usenum_tl~<<#3>>/PUT~pdfmark}}
- {array}{
- \special{ps:~mark~\l_pbs_usenum_tl~0~[#3]/PUTINTERVAL~pdfmark}
+ \tl_if_blank:oF{#3}{
+ \bool_if:nTF{
+ \g_pbs_pkgbigfiles_bool &&
+ \str_if_eq_p:nn{#2}{fstream}
+ }{
+ \iow_now:Nx\g_pbs_mstreams_stream{
+ M9D~begin~o\l_pbs_usenum_tl O
+ }
+ }{
+ \special{ps:~mark~/_objdef~\l_pbs_usenum_tl\space/type
+ \str_case:nn{#2}{
+ {dict}{/dict}
+ {array}{/array}
+ {stream}{/stream}
+ {fstream}{/stream}
+ }~
+ /OBJ~pdfmark
+ }
}
- {stream}{\special{ps::[nobreak]
- ~mark~\l_pbs_usenum_tl~(\pbs_second_of_two:nn#3)/PUT~pdfmark~
- ~mark~\l_pbs_usenum_tl~<<\pbs_first_of_two:nn#3>>/PUT~pdfmark
- }}
- {fstream}{
- \tl_set:Nn\l_pbs_offset_tl{0}
- \tl_set:Nx\l_pbs_fsize_tl{\pbs_filesize:n{\pbs_second_of_two:nn#3}}
- \message{<\pbs_second_of_two:nn#3}
- %embed file in chunks of 32768 Bytes into PS as chunks of
- %65536 Bytes of HEX code
- \bool_while_do:nn{
- \int_compare_p:n{\l_pbs_offset_tl<\l_pbs_fsize_tl}
- }{
+ \str_case:nn{#2}{
+ {dict}{\special{ps:~mark~\l_pbs_usenum_tl~<<#3>>/PUT~pdfmark}}
+ {array}{
+ \special{ps:~mark~\l_pbs_usenum_tl~0~[#3]/PUTINTERVAL~pdfmark}
+ }
+ {stream}{\special{ps::[nobreak]
+ ~mark~\l_pbs_usenum_tl~(\pbs_second_of_two:nn#3)/PUT~pdfmark~
+ ~mark~\l_pbs_usenum_tl~<<\pbs_first_of_two:nn#3>>/PUT~pdfmark
+ }}
+ {fstream}{
+ \tl_set:Nn\l_pbs_offset_tl{0}
+ \tl_set:Nx\l_pbs_fsize_tl{\pbs_filesize:n{\pbs_second_of_two:nn#3}}
+ \message{<\pbs_second_of_two:nn#3}
+ %embed file in chunks of 32768 Bytes into PS as chunks of
+ %65536 Bytes of HEX code
+ \bool_while_do:nn{
+ \int_compare_p:n{\l_pbs_offset_tl<\l_pbs_fsize_tl}
+ }{
+ \bool_if:NTF\g_pbs_pkgbigfiles_bool{
+ \iow_now:Nx\g_pbs_mstreams_stream{
+ m\l_pbs_usenum_tl
+ (\pbs_filedump:nnn{\l_pbs_offset_tl}{32767}{
+ \pbs_second_of_two:nn#3
+ })P
+ }
+ }{
+ \special{ps:
+ mark~
+ \l_pbs_usenum_tl~
+ (\pbs_filedump:nnn{\l_pbs_offset_tl}{32767}{
+ \pbs_second_of_two:nn#3
+ })~
+ /ASCIIHexDecode~filter~/PUT~
+ pdfmark
+ }
+ }
+ \tl_set:Nx\l_pbs_offset_tl{\int_eval:n{\l_pbs_offset_tl+32767}}
+ \message{.}
+ }
\bool_if:NTF\g_pbs_pkgbigfiles_bool{
\iow_now:Nx\g_pbs_mstreams_stream{
- m\l_pbs_usenum_tl
- (\pbs_filedump:nnn{\l_pbs_offset_tl}{32767}{
- \pbs_second_of_two:nn#3
- })P
+ m\l_pbs_usenum_tl<<\pbs_first_of_two:nn#3>>PP~
+ m\l_pbs_usenum_tl~C~end
}
}{
\special{ps:
- mark~
- \l_pbs_usenum_tl~
- (\pbs_filedump:nnn{\l_pbs_offset_tl}{32767}{
- \pbs_second_of_two:nn#3
- })~
- /ASCIIHexDecode~filter~/PUT~
- pdfmark
+ mark~\l_pbs_usenum_tl~<<\pbs_first_of_two:nn#3>>~/PUT~pdfmark~
+ mark~\l_pbs_usenum_tl~/CLOSE~pdfmark
}
}
- \tl_set:Nx\l_pbs_offset_tl{\int_eval:n{\l_pbs_offset_tl+32767}}
- \message{.}
- }
- \bool_if:NTF\g_pbs_pkgbigfiles_bool{
- \iow_now:Nx\g_pbs_mstreams_stream{
- m\l_pbs_usenum_tl<<\pbs_first_of_two:nn#3>>PP~
- m\l_pbs_usenum_tl~C~end
- }
- }{
- \special{ps:
- mark~\l_pbs_usenum_tl~<<\pbs_first_of_two:nn#3>>~/PUT~pdfmark~
- mark~\l_pbs_usenum_tl~/CLOSE~pdfmark
- }
+ \message{>}
}
- \message{>}
}
}
+ \tl_gset_eq:NN\g_pbs_pdflastobj_tl\l_pbs_usenum_tl
}
- \tl_gset_eq:NN\g_pbs_pdflastobj_tl\l_pbs_usenum_tl
- }
- \cs_new_protected_nopar:Nn\pbs_pdfannot:nnnn{
- \group_begin:
- \dim_set:Nn\unitlength{1pt}
- \begin{picture}(0,0)% mark annotation rectangle
- \put(0,-\dim_to_decimal:n{#3}){
- \special{ps:~currentpoint~/pbs@lly~exch~def~/pbs@llx~exch~def}
- }
- \put(\dim_to_decimal:n{#1},\dim_to_decimal:n{#2}){
- \special{ps:~currentpoint~/pbs@ury~exch~def~/pbs@urx~exch~def}
+ \cs_new_protected_nopar:Nn\pbs_pdfannot:nnnn{
+ \group_begin:
+ \dim_set:Nn\unitlength{1pt}
+ \begin{picture}(0,0)% mark annotation rectangle
+ \put(0,-\dim_to_decimal:n{#3}){
+ \special{ps:~currentpoint~/pbs@lly~exch~def~/pbs@llx~exch~def}
+ }
+ \put(\dim_to_decimal:n{#1},\dim_to_decimal:n{#2}){
+ \special{ps:~currentpoint~/pbs@ury~exch~def~/pbs@urx~exch~def}
+ }
+ \end{picture}
+ \group_end:
+ %dumb dummy Widget, workaround for AR bug;
+ %see https://forums.adobe.com/message/5787612#5787612
+ \str_if_eq_x:nnF{\cs_if_exist_use:N\ocgbase_insert_oc:}{}{
+ \special{ps:
+ mark~
+ /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
+ /Rect~[pbs@llx~pbs@lly~pbs@urx~pbs@ury]
+ /Ff~65537/FT/Btn/Subtype/Widget
+ /ANN~pdfmark
+ }
+ \int_gincr:N\g_pbs_obj_int
}
- \end{picture}
- \group_end:
- %dumb dummy Widget, workaround for AR bug;
- %see https://forums.adobe.com/message/5787612#5787612
- \str_if_eq_x:nnF{\cs_if_exist_use:N\ocgbase_insert_oc:}{}{
- \special{ps:
- mark~
- /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
- /Rect~[pbs@llx~pbs@lly~pbs@urx~pbs@ury]
- /Ff~65537/FT/Btn/Subtype/Widget
- /ANN~pdfmark
+ %the actual annotation
+ \str_if_eq_x:nnF{#4}{}{
+ \special{ps:
+ mark~
+ /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
+ /Rect~[pbs@llx~pbs@lly~pbs@urx~pbs@ury]
+ \cs_if_exist_use:N\ocgbase_insert_oc:~#4
+ /ANN~pdfmark
+ }
+ \tl_gset:Nx\g_pbs_pdflastann_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
+ \int_gincr:N\g_pbs_obj_int
}
- \int_gincr:N\g_pbs_obj_int
}
- %the actual annotation
- \str_if_eq_x:nnF{#4}{}{
- \special{ps:
- mark~
- /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
- /Rect~[pbs@llx~pbs@lly~pbs@urx~pbs@ury]
- \cs_if_exist_use:N\ocgbase_insert_oc:~#4
- /ANN~pdfmark
+
+ \cs_new_protected:Nn\pbs_pdflink:nn{
+ %dumb dummy Widget, workaround for AR bug;
+ %see https://forums.adobe.com/message/5787612#5787612
+ \pbs_pdfannot:nnnn{3pt}{3pt}{0pt}{}
+ \cs_if_exist:NTF\pdfmark{
+ \pdfmark[#2]{pdfmark=/ANN,Raw={
+ \cs_if_exist_use:N\ocgbase_insert_oc:~#1}}
+ }{
+ \hbox_set:Nn\l_tmpb_box{#2}
+ \pbs_pdfannot:nnnn{
+ \dim_use:N\box_wd:N\l_tmpb_box}{
+ \dim_use:N\box_ht:N\l_tmpb_box}{
+ \dim_use:N\box_dp:N\l_tmpb_box
+ }{#1}
+ \box_use_drop:N\l_tmpb_box
}
- \tl_gset:Nx\g_pbs_pdflastann_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
- \int_gincr:N\g_pbs_obj_int
}
- }
- \cs_new_protected:Nn\pbs_pdflink:nn{
- %dumb dummy Widget, workaround for AR bug;
- %see https://forums.adobe.com/message/5787612#5787612
- \pbs_pdfannot:nnnn{3pt}{3pt}{0pt}{}
- \cs_if_exist:NTF\pdfmark{
- \pdfmark[#2]{pdfmark=/ANN,Raw={
- \cs_if_exist_use:N\ocgbase_insert_oc:~#1}}
- }{
- \hbox_set:Nn\l_tmpb_box{#2}
- \pbs_pdfannot:nnnn{
- \dim_use:N\box_wd:N\l_tmpb_box}{
- \dim_use:N\box_ht:N\l_tmpb_box}{
- \dim_use:N\box_dp:N\l_tmpb_box
- }{#1}
- \box_use_drop:N\l_tmpb_box
+ \msg_set:nnn{pdfbase}{content~too~large}{
+ Line~\msg_line_number: :\\
+ Content~exceeds~paper~size~(width~and/or~height)\\
+ of~the~document~and~may~be~clipped~in~the~final\\
+ output.
}
- }
-
- \msg_set:nnn{pdfbase}{content~too~large}{
- Line~\msg_line_number: :\\
- Content~exceeds~paper~size~(width~and/or~height)\\
- of~the~document~and~may~be~clipped~in~the~final\\
- output.
- }
- \cs_new_protected_nopar:Nn\pbs_pdfxform:nnnnn{ % #1, #3 not used (resources are
- %this allows nesting \pbs_pdfxform:nnnnn{...} % managed by pdfmarks)
- \special{ps:
- gsave~
- pbs@xform@level~0~eq~{/pbs@ctm@0~matrix~currentmatrix~def}~if~
- pbs@ctm@0~setmatrix~
- true~setglobal~
- globaldict~/pbs@xform@level~pbs@xform@level~1~add~put~
- false~setglobal
- }
- %rescale box to fit within the papersize while distilling
- \tl_gset:cx{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}{\fp_eval:n{min(1.0,
- \dim_ratio:nn{\paperwidth}{\box_wd:N#5},
- \dim_ratio:nn{\paperheight}{\box_ht:N#5+\box_dp:N#5}
- )}}
- \box_scale:Nnn#5{
- \tl_use:c{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}
- }{
- \tl_use:c{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}
- }
- \group_begin:
- %mark bbox of box#5
- \dim_set:Nn\unitlength{1pt}
- \begin{picture}(0,0)
- \put(0,-\dim_to_decimal:n{\box_dp:N#5}){
- \special{ps:
- currentpoint~/pbs@lly~exch~def~/pbs@llx~exch~def
+ \cs_new_protected_nopar:Nn\pbs_pdfxform:nnnnn{ % #1, #3 not used (resources are
+ %this allows nesting \pbs_pdfxform:nnnnn{...} % managed by pdfmarks)
+ \special{ps:
+ gsave~
+ pbs@xform@level~0~eq~{/pbs@ctm@0~matrix~currentmatrix~def}~if~
+ pbs@ctm@0~setmatrix~
+ true~setglobal~
+ globaldict~/pbs@xform@level~pbs@xform@level~1~add~put~
+ false~setglobal
+ }
+ %rescale box to fit within the papersize while distilling
+ \tl_gset:cx{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}{\fp_eval:n{min(1.0,
+ \dim_ratio:nn{\paperwidth}{\box_wd:N#5},
+ \dim_ratio:nn{\paperheight}{\box_ht:N#5+\box_dp:N#5}
+ )}}
+ \box_scale:Nnn#5{
+ \tl_use:c{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}
+ }{
+ \tl_use:c{scale_{pbs@obj\int_use:N\g_pbs_obj_int}}
+ }
+ \group_begin:
+ %mark bbox of box#5
+ \dim_set:Nn\unitlength{1pt}
+ \begin{picture}(0,0)
+ \put(0,-\dim_to_decimal:n{\box_dp:N#5}){
+ \special{ps:
+ currentpoint~/pbs@lly~exch~def~/pbs@llx~exch~def
+ }
+ }
+ \put(
+ \dim_to_decimal:n{\box_wd:N#5},
+ \dim_to_decimal:n{\box_ht:N#5}
+ ){
+ \special{ps:
+ currentpoint~/pbs@ury~exch~def~/pbs@urx~exch~def
+ }
+ }
+ \end{picture}
+ \group_end:
+ %additional dict entries
+ \tl_set:Nx\l_tmpa_tl{#4} \tl_trim_spaces:N\l_tmpa_tl
+ \special{ps:
+ gsave~
+ currentpoint~/pbs@cury~exch~def~/pbs@curx~exch~def~
+ %translate graphics to upper left page corner
+ \bool_if:nF{\g_pbs_powerdot_bool||\g_pbs_lscape_bool}{
+ {
+ pbs@llx~neg~pbs@ury~neg~translate~
+ Resolution~neg~VResolution~neg~translate %one inch left, one inch up
+ }?pdfmark~
+ }
+ %distill graphics into XObject
+ gsave~pbs@curx~pbs@cury~translate~ %move origin (0,0) to the current
+ mark~ %position
+ /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
+ /BBox~[
+ pbs@llx~pbs@curx~sub~pbs@lly~pbs@cury~sub~
+ pbs@urx~pbs@curx~sub~pbs@ury~pbs@cury~sub
+ ]
+ %insert additional dict entries (the Distiller way)
+ \str_if_eq_x:nnF{\l_tmpa_tl}{}{
+ product~(Distiller)~search~{pop~pop~pop~\l_tmpa_tl}{pop}ifelse
+ }
+ /BP~pdfmark~grestore~
+ \int_compare:nT{#2>\c_zero}{
+ %operations needed if used as annotation appearance
+ {
+ isls{%landscape mode (powerdot, geometry /w landscape option)
+ /pbs@dxdy~{
+ pbs@urx~pbs@llx~sub~abs~
+ pbs@ury~pbs@lly~sub~abs~div
+ }~bind~def
+ /pbs@dydx~{1~pbs@dxdy~div}~bind~def
+ /pbs@cx~{pbs@urx~pbs@llx~add~2~div}~bind~def
+ /pbs@cy~{pbs@ury~pbs@lly~add~2~div}~bind~def
+ %graphics needs to be rescaled for some reason ...
+ [pbs@dxdy~0~0~pbs@dydx~1~pbs@dxdy~sub~pbs@cx~mul~
+ 1~pbs@dydx~sub~pbs@cy~mul]~concat
+ %... rotated by 270 degrees ...
+ [0~-1~1~0~pbs@cx~pbs@cy~sub~pbs@cx~pbs@cy~add]~concat
+ %... and flipped around vertical axis
+ [-1~0~0~1~pbs@llx~pbs@urx~add~0]~concat
+ }{%flip around horizontal axis in portrait mode
+ [1~0~0~-1~0~pbs@lly~pbs@ury~add]~concat
+ }ifelse
+ }?pdfmark
}
}
- \put(
- \dim_to_decimal:n{\box_wd:N#5},
- \dim_to_decimal:n{\box_ht:N#5}
- ){
+ \begin{picture}(0,0)\put(0,0){\box_use:N#5}\end{picture}
+ \special{ps:~mark~/EP~pdfmark~grestore}
+ %insert additional dict entries (the Ghostscript way)
+ \str_if_eq_x:nnF{\l_tmpa_tl}{}{
\special{ps:
- currentpoint~/pbs@ury~exch~def~/pbs@urx~exch~def
+ product~(Ghostscript)~search~{
+ pop~pop~pop~
+ mark~{pbs@obj\int_use:N\g_pbs_obj_int}~<<\l_tmpa_tl>>~/PUT~pdfmark
+ }{pop}ifelse
}
}
- \end{picture}
- \group_end:
- %additional dict entries
- \tl_set:Nx\l_tmpa_tl{#4} \tl_trim_spaces:N\l_tmpa_tl
- \special{ps:
- gsave~
- currentpoint~/pbs@cury~exch~def~/pbs@curx~exch~def~
- %translate graphics to upper left page corner
- \bool_if:nF{\g_pbs_powerdot_bool||\g_pbs_lscape_bool}{
- {
- pbs@llx~neg~pbs@ury~neg~translate~
- Resolution~neg~VResolution~neg~translate %one inch left, one inch up
- }?pdfmark~
- }
- %distill graphics into XObject
- gsave~pbs@curx~pbs@cury~translate~ %move origin (0,0) to the current
- mark~ %position
- /_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}
- /BBox~[
- pbs@llx~pbs@curx~sub~pbs@lly~pbs@cury~sub~
- pbs@urx~pbs@curx~sub~pbs@ury~pbs@cury~sub
- ]
- %insert additional dict entries (the Distiller way)
- \str_if_eq_x:nnF{\l_tmpa_tl}{}{
- product~(Distiller)~search~{pop~pop~pop~\l_tmpa_tl}{pop}ifelse
- }
- /BP~pdfmark~grestore~
+ \tl_gset:Nx\g_pbs_pdflastxform_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
+ \int_gincr:N\g_pbs_obj_int
\int_compare:nT{#2>\c_zero}{
- %operations needed if used as annotation appearance
- {
- isls{%landscape mode (powerdot, geometry /w landscape option)
- /pbs@dxdy~{
- pbs@urx~pbs@llx~sub~abs~
- pbs@ury~pbs@lly~sub~abs~div
- }~bind~def
- /pbs@dydx~{1~pbs@dxdy~div}~bind~def
- /pbs@cx~{pbs@urx~pbs@llx~add~2~div}~bind~def
- /pbs@cy~{pbs@ury~pbs@lly~add~2~div}~bind~def
- %graphics needs to be rescaled for some reason ...
- [pbs@dxdy~0~0~pbs@dydx~1~pbs@dxdy~sub~pbs@cx~mul~
- 1~pbs@dydx~sub~pbs@cy~mul]~concat
- %... rotated by 270 degrees ...
- [0~-1~1~0~pbs@cx~pbs@cy~sub~pbs@cx~pbs@cy~add]~concat
- %... and flipped around vertical axis
- [-1~0~0~1~pbs@llx~pbs@urx~add~0]~concat
- }{%flip around horizontal axis in portrait mode
- [1~0~0~-1~0~pbs@lly~pbs@ury~add]~concat
- }ifelse
- }?pdfmark
+ %Form XObjects for use as annotation appearances require that
+ %dvips generated PostScript to be further processed with ps2pdf
+ %must not have the exaggerated dpi resolution resulting from dvips
+ %option `-Ppdf'.
+ \tl_if_exist:NF\g_pbs_dpiwarned_tl{
+ \tl_new:N\g_pbs_dpiwarned_tl
+ \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_dpiwarning:}}
+ }
}
- }
- \begin{picture}(0,0)\put(0,0){\box_use:N#5}\end{picture}
- \special{ps:~mark~/EP~pdfmark~grestore}
- %insert additional dict entries (the Ghostscript way)
- \str_if_eq_x:nnF{\l_tmpa_tl}{}{
\special{ps:
- product~(Ghostscript)~search~{
- pop~pop~pop~
- mark~{pbs@obj\int_use:N\g_pbs_obj_int}~<<\l_tmpa_tl>>~/PUT~pdfmark
- }{pop}ifelse
- }
- }
- \tl_gset:Nx\g_pbs_pdflastxform_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
- \int_gincr:N\g_pbs_obj_int
- \int_compare:nT{#2>\c_zero}{
- %Form XObjects for use as annotation appearances require that
- %dvips generated PostScript to be further processed with ps2pdf
- %must not have the exaggerated dpi resolution resulting from dvips
- %option `-Ppdf'.
- \tl_if_exist:NF\g_pbs_dpiwarned_tl{
- \tl_new:N\g_pbs_dpiwarned_tl
- \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_dpiwarning:}}
+ true~setglobal~
+ globaldict~/pbs@xform@level~pbs@xform@level~1~sub~put~
+ false~setglobal~
+ grestore
}
}
- \special{ps:
- true~setglobal~
- globaldict~/pbs@xform@level~pbs@xform@level~1~sub~put~
- false~setglobal~
- grestore
- }
- }
-
- \cs_new_protected_nopar:Nn\pbs_pdfrefxform:n{% #1: xform obj ID
- %The /SP pdfmark for placement of Form XObjects works reliably only
- %since gs-9.14. As gs-9.14 had some other TeX-related issues, we
- %require 9.15.
- \tl_if_exist:NF\g_pbs_gsoldwarned_tl{
- \tl_new:N\g_pbs_gsoldwarned_tl
- \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_gsoldwarning:}}
- }
- \special{ps:
- gsave~currentpoint~translate~1~\tl_use:c{scale_#1}~div~dup~scale~
- mark~#1~/SP~pdfmark~grestore
- }
- }
- \cs_new_protected_nopar:Nn\pbs_pdfximage:n{
- \filename@parse{#1}
- \tl_set:Nx\l_pbs_ext_tl{\tl_lower_case:n{\filename@ext}}
- \bool_if:nTF{
- \str_if_eq_p:Vn\l_pbs_ext_tl{ps}
- ||\str_if_eq_p:Vn\l_pbs_ext_tl{eps}
- }{
- \special{ps:
- mark~/_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}~/NI~pdfmark
+ \cs_new_protected_nopar:Nn\pbs_pdfrefxform:n{% #1: xform obj ID
+ %The /SP pdfmark for placement of Form XObjects works reliably only
+ %since gs-9.14. As gs-9.14 had some other TeX-related issues, we
+ %require 9.15.
+ \tl_if_exist:NF\g_pbs_gsoldwarned_tl{
+ \tl_new:N\g_pbs_gsoldwarned_tl
+ \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_gsoldwarning:}}
}
- \special{psfile=#1~hsize=0~vsize=0}
\special{ps:
- {
- 0~0~1~[1~0~0~1~0~0]~{}~image~%empty dummy, in case #1 is not
- }?pdfmark %a valid raster image file
+ gsave~currentpoint~translate~1~\tl_use:c{scale_#1}~div~dup~scale~
+ mark~#1~/SP~pdfmark~grestore
}
- \tl_gset:Nx\g_pbs_pdflastximage_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
- \int_gincr:N\g_pbs_obj_int
- }{
- \msg_error:nnxxx{pdfbase}{wrong~image~resource}{#1}{dvips}{
- Postscript~(ps/eps)~with~bitmapped~content
+ }
+
+ \cs_new_protected_nopar:Nn\pbs_pdfximage:n{
+ \filename@parse{#1}
+ \tl_set:Nx\l_pbs_ext_tl{\tl_lower_case:n{\filename@ext}}
+ \bool_if:nTF{
+ \str_if_eq_p:Vn\l_pbs_ext_tl{ps}
+ ||\str_if_eq_p:Vn\l_pbs_ext_tl{eps}
+ }{
+ \special{ps:
+ mark~/_objdef~{pbs@obj\int_use:N\g_pbs_obj_int}~/NI~pdfmark
+ }
+ \special{psfile=#1~hsize=0~vsize=0}
+ \special{ps:
+ {
+ 0~0~1~[1~0~0~1~0~0]~{}~image~%empty dummy, in case #1 is not
+ }?pdfmark %a valid raster image file
+ }
+ \tl_gset:Nx\g_pbs_pdflastximage_tl{{pbs@obj\int_use:N\g_pbs_obj_int}}
+ \int_gincr:N\g_pbs_obj_int
+ }{
+ \msg_error:nnxxx{pdfbase}{wrong~image~resource}{#1}{dvips}{
+ Postscript~(ps/eps)~with~bitmapped~content
+ }
}
}
- }
- \cs_new_protected_nopar:Nn\pbs_pdfcatalog:n{
- \special{ps:~mark~{Catalog}~<<#1>>~/PUT~pdfmark}
- }
+ \cs_new_protected_nopar:Nn\pbs_pdfcatalog:n{
+ \special{ps:~mark~{Catalog}~<<#1>>~/PUT~pdfmark}
+ }
- %marked content BDC/EMC operators
- %require Ghostscript v. >= 9.15
- \cs_new_protected_nopar:Nn\pbs_pdfbdc:nn{
- \special{ps:~mark~#1~#2~/BDC~pdfmark}
- \tl_if_exist:NF\g_pbs_gsoldwarned_tl{
- \tl_new:N\g_pbs_gsoldwarned_tl
- \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_gsoldwarning:}}
+ %marked content BDC/EMC operators
+ %require Ghostscript v. >= 9.15
+ \cs_new_protected_nopar:Nn\pbs_pdfbdc:nn{
+ \special{ps:~mark~#1~#2~/BDC~pdfmark}
+ \tl_if_exist:NF\g_pbs_gsoldwarned_tl{
+ \tl_new:N\g_pbs_gsoldwarned_tl
+ \pbs_at_end_dvi:n{\special{ps::[nobreak]\pbs_gsoldwarning:}}
+ }
}
- }
- \cs_new_nopar:Nn\pbs_pdfemc:{\special{ps:~mark~/EMC~pdfmark}}
+ \cs_new_nopar:Nn\pbs_pdfemc:{\special{ps:~mark~/EMC~pdfmark}}
+ }
}
}