%% %% This is file `l3xdvipdfmx.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% l3drivers.dtx (with options: `package,xdvipdfmx') %% %% Copyright (C) 1990-2019 The LaTeX3 Project %% %% It may be distributed and/or modified under the conditions of %% the LaTeX Project Public License (LPPL), either version 1.3c of %% this license or (at your option) any later version. The latest %% version of this license is in the file: %% %% https://www.latex-project.org/lppl.txt %% %% This file is part of the "l3kernel bundle" (The Work in LPPL) %% and all files in that bundle must be distributed together. %% %% File: l3drivers.dtx \ProvidesExplFile {l3xdvipdfmx.def}{2019-04-06}{} {L3 Experimental driver: xdvipdfmx} \cs_new_eq:NN \__driver_literal:e \tex_special:D \cs_new_protected:Npn \__driver_literal:n #1 { \__driver_literal:e { \exp_not:n {#1} } } \cs_generate_variant:Nn \__driver_literal:n { x } \cs_new_protected:Npn \driver_color_pickup:N #1 { } \AtBeginDocument { \@ifpackageloaded { color } { \cs_set_protected:Npn \driver_color_pickup:N #1 { \exp_args:NV \tl_if_head_is_space:nTF \current@color { \tl_set:Nx #1 { spot ~ \exp_after:wN \use:n \current@color \c_space_tl 1 } } { \exp_last_unbraced:Nx \__driver_color_pickup:w { \current@color } \q_stop #1 } } \cs_new_protected:Npn \__driver_color_pickup:w #1 ~ #2 \q_stop #3 { \tl_set:Nn #3 { #1 ~ #2 } } } { } } \cs_new_protected:Npn \driver_color_cmyk:nnnn #1#2#3#4 { \__driver_color_select:x { cmyk~ \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} } } \cs_new_protected:Npn \driver_color_gray:n #1 { \__driver_color_select:x { gray~ \fp_eval:n {#1} } } \cs_new_protected:Npn \driver_color_rgb:nnn #1#2#3 { \__driver_color_select:x { rgb~ \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} } } \cs_new_protected:Npn \driver_color_spot:nn #1#2 { \__driver_color_select:n { #1 } } \cs_new_protected:Npn \__driver_color_select:n #1 { \__driver_literal:n { color~push~ #1 } \group_insert_after:N \__driver_color_reset: } \cs_generate_variant:Nn \__driver_color_select:n { x } \cs_new_protected:Npn \__driver_color_reset: { \__driver_literal:n { color~pop } } \cs_new_protected:Npn \__driver_literal_pdf:n #1 { \__driver_literal:n { pdf:literal~ #1 } } \cs_generate_variant:Nn \__driver_literal_pdf:n { x } \cs_new_protected:Npn \__driver_scope_begin: { \__driver_literal:n { x:gsave } } \cs_new_protected:Npn \__driver_scope_end: { \__driver_literal:n { x:grestore } } \cs_new_protected:Npn \driver_box_use_clip:N #1 { \__driver_scope_begin: \__driver_literal_pdf:x { 0~ \dim_to_decimal_in_bp:n { -\box_dp:N #1 } ~ \dim_to_decimal_in_bp:n { \box_wd:N #1 } ~ \dim_to_decimal_in_bp:n { \box_ht:N #1 + \box_dp:N #1 } ~ re~W~n } \hbox_overlap_right:n { \box_use:N #1 } \__driver_scope_end: \skip_horizontal:n { \box_wd:N #1 } } \cs_new_protected:Npn \driver_box_use_rotate:Nn #1#2 { \exp_args:NNf \__driver_box_use_rotate:Nn #1 { \fp_eval:n {#2} } } \cs_new_protected:Npn \__driver_box_use_rotate:Nn #1#2 { \__driver_scope_begin: \__driver_literal:x { x:rotate~ \fp_compare:nNnTF {#2} = \c_zero_fp { 0 } { \fp_eval:n { round ( #2 , 5 ) } } } \box_use:N #1 \__driver_scope_end: } \cs_new_protected:Npn \driver_box_use_scale:Nnn #1#2#3 { \__driver_scope_begin: \__driver_literal:x { x:scale~ \fp_eval:n { round ( #2 , 5 ) } ~ \fp_eval:n { round ( #3 , 5 ) } } \hbox_overlap_right:n { \box_use:N #1 } \__driver_scope_end: } \cs_new_eq:NN \__driver_image_getbb_eps:n \image_read_bb:n \int_new:N \g__driver_image_int \cs_new_protected:Npn \__driver_image_include_eps:n #1 { \__driver_literal:n { PSfile = #1 } } \cs_new_protected:Npn \__driver_image_include_jpg:n #1 { \__driver_image_include_auxi:nn {#1} { image } } \cs_new_eq:NN \__driver_image_include_png:n \__driver_image_include_jpg:n \cs_new_protected:Npn \__driver_image_include_auxi:nn #1#2 { \__driver_image_include_auxii:xnn { \tl_if_empty:NF \l_image_pagebox_tl { : \l_image_pagebox_tl } \int_compare:nNnT \l_image_page_int > 1 { :P \int_use:N \l_image_page_int } \tl_if_empty:NF \l_image_decode_tl { :D \l_image_decodearray_tl } \bool_if:NT \l_image_interpolate_bool { :I } } {#1} {#2} } \cs_new_protected:Npn \__driver_image_include_auxii:nnn #1#2#3 { \int_if_exist:cTF { c__driver_image_ #2#1 _int } { \__driver_literal:x { pdf:usexobj~@image \int_use:c { c__driver_image_ #2#1 _int } } } { \__driver_image_include_auxiii:nn {#2} {#1} {#3} } } \cs_generate_variant:Nn \__driver_image_include_auxii:nnn { x } \cs_new_protected:Npn \__driver_image_include_auxiii:nnn #1#2#3 { \int_gincr:N \g__driver_image_int \int_const:cn { c__driver_image_ #1#2 _int } { \g__driver_image_int } \__driver_literal:x { pdf:#3~ @image \int_use:c { c__driver_image_ #1#2 _int } \int_compare:nNnT \l_image_page_int > 1 { page ~ \int_use:N \l_image_page_int \c_space_tl } \tl_if_empty:NF \l_image_pagebox_tl { pagebox ~ \l_image_pagebox_tl \c_space_tl bbox ~ \dim_to_decimal_in_bp:n \l_image_llx_dim \c_space_tl \dim_to_decimal_in_bp:n \l_image_lly_dim \c_space_tl \dim_to_decimal_in_bp:n \l_image_urx_dim \c_space_tl \dim_to_decimal_in_bp:n \l_image_ury_dim \c_space_tl } (#1) \bool_lazy_or:nnT { \l_image_interpolate_bool } { ! \tl_if_empty_p:N \l_image_decodearray_tl } { << \tl_if_empty:NF \l_image_decode_tl { /Decode~[ \l_image_decodearray_tl ] } \bool_if:NT \l_image_interpolate_bool { /Interpolate~true> } >> } } } \int_new:N \g__driver_pdf_object_int \prop_new:N \g__driver_pdf_object_prop \cs_new_protected:Npn \driver_pdf_object_new:nn #1#2 { \int_gincr:N \g__driver_pdf_object_int \int_const:cn { g__driver_pdf_object_ \tl_to_str:n {#1} _int } { \g__driver_pdf_object_int } \prop_gput:Nnn \g__driver_pdf_object_prop {#1} {#2} } \cs_new:Npn \driver_pdf_object_ref:n #1 { @l3obj \int_use:c { g__driver_pdf_object_ \tl_to_str:n {#1} _int } } \cs_new_protected:Npn \driver_pdf_object_write:nn #1#2 { \exp_args:Nx \__driver_pdf_object_write:nnn { \prop_item:Nn \g__driver_pdf_object_prop {#1} } {#1} {#2} } \cs_new_protected:Npn \__driver_pdf_object_write:nnn #1#2#3 { \use:c { __driver_pdf_object_write_ #1 :nn } {#2} {#3} } \cs_new_protected:Npn \__driver_pdf_object_write_array:nn #1#2 { \__driver_literal:x { pdf:obj ~ \driver_pdf_object_ref:n {#1} ~ [ ~ \exp_not:n {#2} ~ ] } } \cs_new_protected:Npn \__driver_pdf_object_write_dict:nn #1#2 { \__driver_literal:x { pdf:obj ~ \driver_pdf_object_ref:n {#1} ~ << ~ \exp_not:n {#2} ~ >> } } \cs_new_protected:Npn \__driver_pdf_object_write_fstream:nn #1#2 { \__driver_pdf_object_write_stream:nnnn { f } {#1} #2 } \cs_new_protected:Npn \__driver_pdf_object_write_stream:nn #1#2 { \__driver_pdf_object_write_stream:nnnn { } {#1} #2 } \cs_new_protected:Npn \__driver_pdf_object_write_stream:nnnn #1#2#3#4 { \__driver_literal:x { pdf: #1 stream ~ \driver_pdf_object_ref:n {#2} ~ ( \exp_not:n {#4} ) ~ << \exp_not:n {#3} >> } } \cs_new_protected:Npn \driver_pdf_compresslevel:n #1 { \__driver_literal:x { dvipdfmx:config~z~ \int_eval:n {#1} } } \cs_new_protected:Npn \driver_pdf_objects_enable: { } \cs_new_protected:Npn \driver_pdf_objects_disable: { \__driver_literal:n { dvipdfmx:config~C~0x40 } } \cs_new_protected:Npn \__driver_image_getbb_jpg:n #1 { \int_zero:N \l_image_page_int \tl_clear:N \l_image_pagebox_tl \__driver_image_getbb_auxi:nN {#1} \tex_XeTeXpicfile:D } \cs_new_eq:NN \__driver_image_getbb_png:n \__driver_image_getbb_jpg:n \cs_new_protected:Npn \__driver_image_getbb_pdf:n #1 { \tl_clear:N \l_image_decode_tl \bool_set_false:N \l_image_interpolate_bool \__driver_image_getbb_auxi:nN {#1} \tex_XeTeXpdffile:D } \cs_new_protected:Npn \__driver_image_getbb_auxi:nN #1#2 { \int_compare:nNnTF \l_image_page_int > 1 { \__driver_image_getbb_auxii:VnN \l_image_page_int {#1} #2 } { \__driver_image_getbb_auxiii:nNnn {#1} #2 } } \cs_new_protected:Npn \__driver_image_getbb_auxii:nnN #1#2#3 { \__driver_image_getbb_aux:nNnn {#2} #3 { :P #1 } { page #1 } } \cs_generate_variant:Nn \__driver_image_getbb_auxii:nnN { V } \cs_new_protected:Npn \__driver_image_getbb_auxiii:nNnn #1#2#3#4 { \tl_if_empty:NTF \l_image_pagebox_tl { \__driver_image_getbb_auxiv:VnNnn \l_image_pagebox_tl } { \__driver_image_getbb_auxv:nNnn } {#1} #2 {#3} {#4} } \cs_new_protected:Npn \__driver_image_getbb_auxiv:nnNnn #1#2#3#4#5 { \use:x { \__driver_image_getbb_auxv:nNnn {#2} #3 { : #1 #4 } { #5 ~ \__driver_image_getbb_pagebox:w #1 } } } \cs_generate_variant:Nn \__driver_image_getbb_auxiv:nnNnn { V } \cs_new_protected:Npn \__driver_image_getbb_auxv:nNnn #1#2#3#4 { \image_bb_restore:nF {#1#3} { \__driver_image_getbb_auxvi:nNnn {#1} #2 {#3} {#4} } } \cs_new_protected:Npn \__driver_image_getbb_auxvi:nNnn #1#2#3#4 { \hbox_set:Nn \l__driver_tmp_box { #2 #1 ~ #4 } \dim_set:Nn \l_image_utx_dim { \box_wd:N \l__driver_tmp_box } \dim_set:Nn \l_image_ury_dim { \box_ht:N \l__driver_tmp_box } \image_bb_save:n {#1#3} } \cs_new:Npn \__driver_image_getbb_pagebox:w #1 box {#1} \cs_new_protected:Npn \__driver_image_include_pdf:n #1 { \tex_XeTeXpdffile:D "#1" ~ \int_compare:nNnT \l_image_page_int > 0 { page~ \int_use:N \l_image_page_int } \__driver_image_getbb_auxiv:VnNnn \l_image_pagebox_tl } \cs_new_eq:NN \__driver_draw_literal:n \__driver_literal_pdf:n \cs_generate_variant:Nn \__driver_draw_literal:n { x } \cs_new_protected:Npn \driver_draw_begin: { \driver_draw_scope_begin: } \cs_new_protected:Npn \driver_draw_end: { \driver_draw_scope_end: } \cs_new_eq:NN \driver_draw_scope_begin: \__driver_scope_begin: \cs_new_eq:NN \driver_draw_scope_end: \__driver_scope_end: \cs_new_protected:Npn \driver_draw_moveto:nn #1#2 { \__driver_draw_literal:x { \dim_to_decimal_in_bp:n {#1} ~ \dim_to_decimal_in_bp:n {#2} ~ m } } \cs_new_protected:Npn \driver_draw_lineto:nn #1#2 { \__driver_draw_literal:x { \dim_to_decimal_in_bp:n {#1} ~ \dim_to_decimal_in_bp:n {#2} ~ l } } \cs_new_protected:Npn \driver_draw_curveto:nnnnnn #1#2#3#4#5#6 { \__driver_draw_literal:x { \dim_to_decimal_in_bp:n {#1} ~ \dim_to_decimal_in_bp:n {#2} ~ \dim_to_decimal_in_bp:n {#3} ~ \dim_to_decimal_in_bp:n {#4} ~ \dim_to_decimal_in_bp:n {#5} ~ \dim_to_decimal_in_bp:n {#6} ~ c } } \cs_new_protected:Npn \driver_draw_rectangle:nnnn #1#2#3#4 { \__driver_draw_literal:x { \dim_to_decimal_in_bp:n {#1} ~ \dim_to_decimal_in_bp:n {#2} ~ \dim_to_decimal_in_bp:n {#3} ~ \dim_to_decimal_in_bp:n {#4} ~ re } } \cs_new_protected:Npn \driver_draw_evenodd_rule: { \bool_gset_true:N \g__driver_draw_eor_bool } \cs_new_protected:Npn \driver_draw_nonzero_rule: { \bool_gset_false:N \g__driver_draw_eor_bool } \bool_new:N \g__driver_draw_eor_bool \cs_new_protected:Npn \driver_draw_closepath: { \__driver_draw_literal:n { h } } \cs_new_protected:Npn \driver_draw_stroke: { \__driver_draw_literal:n { S } } \cs_new_protected:Npn \driver_draw_closestroke: { \__driver_draw_literal:n { s } } \cs_new_protected:Npn \driver_draw_fill: { \__driver_draw_literal:x { f \bool_if:NT \g__driver_draw_eor_bool * } } \cs_new_protected:Npn \driver_draw_fillstroke: { \__driver_draw_literal:x { B \bool_if:NT \g__driver_draw_eor_bool * } } \cs_new_protected:Npn \driver_draw_clip: { \__driver_draw_literal:x { W \bool_if:NT \g__driver_draw_eor_bool * } } \cs_new_protected:Npn \driver_draw_discardpath: { \__driver_draw_literal:n { n } } \cs_new_protected:Npn \driver_draw_dash_pattern:nn #1#2 { \__driver_draw_literal:x { [ \exp_args:Nf \use:n { \clist_map_function:nN {#1} \__driver_draw_dash:n } ] ~ \dim_to_decimal_in_bp:n {#2} ~ d } } \cs_new:Npn \__driver_draw_dash:n #1 { ~ \dim_to_decimal_in_bp:n {#1} } \cs_new_protected:Npn \driver_draw_linewidth:n #1 { \__driver_draw_literal:x { \dim_to_decimal_in_bp:n {#1} ~ w } } \cs_new_protected:Npn \driver_draw_miterlimit:n #1 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ M } } \cs_new_protected:Npn \driver_draw_cap_butt: { \__driver_draw_literal:n { 0 ~ J } } \cs_new_protected:Npn \driver_draw_cap_round: { \__driver_draw_literal:n { 1 ~ J } } \cs_new_protected:Npn \driver_draw_cap_rectangle: { \__driver_draw_literal:n { 2 ~ J } } \cs_new_protected:Npn \driver_draw_join_miter: { \__driver_draw_literal:n { 0 ~ j } } \cs_new_protected:Npn \driver_draw_join_round: { \__driver_draw_literal:n { 1 ~ j } } \cs_new_protected:Npn \driver_draw_join_bevel: { \__driver_draw_literal:n { 2 ~ j } } \cs_new_protected:Npn \driver_draw_color_fill_cmyk:nnnn #1#2#3#4 { \__driver_color_fill_select:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} ~ k } } \cs_new_protected:Npn \driver_draw_color_stroke_cmyk:nnnn #1#2#3#4 { \__driver_color_select:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} ~ k } } \cs_new_protected:Npn \driver_draw_color_fill_gray:n #1 { \__driver_color_fill_select:x { \fp_eval:n {#1} ~ g } } \cs_new_protected:Npn \driver_draw_color_stroke_gray:n #1 { \__driver_color_select:x { \fp_eval:n {#1} ~ G } } \cs_new_protected:Npn \driver_draw_color_fill_rgb:nnn #1#2#3 { \__driver_color_fill_select:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ rg } } \cs_new_protected:Npn \driver_draw_color_stroke_rgb:nnn #1#2#3 { \__driver_color_select:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ RG } } \cs_new_eq:NN \__driver_color_fill_select:n \__driver_draw_literal:n \cs_generate_variant:Nn \__driver_color_fill_select:n { x } \cs_new_protected:Npn \driver_draw_cm:nnnn #1#2#3#4 { \__driver_draw_cm_decompose:nnnnN {#1} {#2} {#3} {#4} \__driver_draw_cm:nnnn } \cs_new_protected:Npn \__driver_draw_cm:nnnn #1#2#3#4 { \__driver_literal:x { x:rotate~ \fp_compare:nNnTF {#1} = \c_zero_fp { 0 } { \fp_eval:n { round ( -#1 , 5 ) } } } \__driver_literal:x { x:scale~ \fp_eval:n { round ( #2 , 5 ) } ~ \fp_eval:n { round ( #3 , 5 ) } } \__driver_literal:x { x:rotate~ \fp_compare:nNnTF {#4} = \c_zero_fp { 0 } { \fp_eval:n { round ( -#4 , 5 ) } } } } \cs_new_protected:Npn \__driver_draw_cm_decompose:nnnnN #1#2#3#4#5 { \use:x { \__driver_draw_cm_decompose_auxi:nnnnN { \fp_eval:n { (#1 + #4) / 2 } } { \fp_eval:n { (#1 - #4) / 2 } } { \fp_eval:n { (#3 + #2) / 2 } } { \fp_eval:n { (#3 - #2) / 2 } } } #5 } \cs_new_protected:Npn \__driver_draw_cm_decompose_auxi:nnnnN #1#2#3#4#5 { \use:x { \__driver_draw_cm_decompose_auxii:nnnnN { \fp_eval:n { 2 * sqrt ( #1 * #1 + #4 * #4 ) } } { \fp_eval:n { 2 * sqrt ( #2 * #2 + #3 * #3 ) } } { \fp_eval:n { atand ( #3 , #2 ) } } { \fp_eval:n { atand ( #4 , #1 ) } } } #5 } \cs_new_protected:Npn \__driver_draw_cm_decompose_auxii:nnnnN #1#2#3#4#5 { \use:x { \__driver_draw_cm_decompose_auxiii:nnnnN { \fp_eval:n { ( #4 - #3 ) / 2 } } { \fp_eval:n { ( #1 + #2 ) / 2 } } { \fp_eval:n { ( #1 - #2 ) / 2 } } { \fp_eval:n { ( #4 + #3 ) / 2 } } } #5 } \cs_new_protected:Npn \__driver_draw_cm_decompose_auxiii:nnnnN #1#2#3#4#5 { \fp_compare:nNnTF { abs( #2 ) } > { abs ( #3 ) } { #5 {#1} {#2} {#3} {#4} } { #5 {#1} {#3} {#2} {#4} } } \cs_new_protected:Npn \driver_draw_box_use:Nnnnn #1#2#3#4#5 { \__driver_scope_begin: \__driver_literal:x { pdf:btrans~matrix~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} ~ \fp_eval:n {#5} ~ 0 ~ 0 } \hbox_overlap_right:n { \box_use:N #1 } \__driver_literal:n { pdf:etrans } \__driver_scope_end: } %% %% %% End of file `l3xdvipdfmx.def'.