From a7203744a046f9c6afbea27c854863cdd3574e86 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 20 Feb 2019 22:42:23 +0000 Subject: media9 (20feb19) git-svn-id: svn://tug.org/texlive/trunk@50076 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/media9/media9.sty | 14 +- Master/texmf-dist/tex/latex/media9/pdfbase.sty | 764 ++++++++++++++----------- 2 files changed, 430 insertions(+), 348 deletions(-) (limited to 'Master/texmf-dist/tex/latex/media9') 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}} } - } - \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}{?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}{?nl}} } - 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}} } - } + }{ + %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}} + } } } -- cgit v1.2.3