%% %% This is file `l3pdfmode.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% l3drivers.dtx (with options: `package,pdfmode') %% %% Copyright (C) 1990-2017 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 Copyright(C) 2011-2017 The LaTeX3 Project \ProvidesExplFile {l3pdfmode.def}{2017/03/18}{} {L3 Experimental driver: PDF mode} \cs_new_protected:Npn \__driver_color_pickup:N #1 { } \AtBeginDocument { \@ifpackageloaded { color } { \cs_set_protected:Npn \__driver_color_pickup:N #1 { \exp_last_unbraced:Nx \__driver_color_pickup_aux:w { \current@color } ~ 0 ~ 0 ~ 0 \q_stop #1 } \cs_new_protected:Npn \__driver_color_pickup_aux:w #1 ~ #2 ~ #3 ~ #4 ~ #5 ~ #6 \q_stop #7 { \str_if_eq:nnTF {#2} { g } { \tl_set:Nn #7 { gray ~ #1 } } { \str_if_eq:nnTF {#4} { rg } { \tl_set:Nn #7 { rgb ~ #1 ~ #2 ~ #3 } } { \str_if_eq:nnTF {#5} { k } { \tl_set:Nn #7 { cmyk ~ #1 ~ #2 ~ #3 ~ #4 } } { \str_if_eq:nnTF {#2} { cs } { \tl_set:Nx #7 { spot ~ \use_none:n #1 ~ #5 } } { \tl_set:Nn #7 { gray ~ 0 } } } } } } } { } } \int_new:N \l__driver_color_stack_int \cs_new_protected:Npx \__driver_color_select:n #1 { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D colorstack } { \pdftex_pdfcolorstack:D } \exp_not:N \l__driver_color_stack_int push { \exp_not:N \__driver_color_convert:w #1 \exp_not:N \q_stop } } \cs_generate_variant:Nn \__driver_color_select:n { V } \cs_new:Npn \__driver_color_convert:w #1 ~ #2 \q_stop { \use:c { __driver_color_convert_ #1 :w } #2 \q_stop } \cs_new:Npn \__driver_color_convert_gray:w #1 \q_stop { #1 ~ g ~ #1 ~ G } \cs_new:Npn \__driver_color_convert_cmyk:w #1 \q_stop { #1 ~ k ~ #1 ~ K } \cs_new:Npn \__driver_color_convert_rgb:w #1 \q_stop { #1 ~ rg ~ #1 ~ RG } \cs_new:Npn \__driver_color_convert_spot:w #1 ~ #2 \q_stop { /#1 ~ cs ~ /#1 ~ CS ~ #2 ~ sc ~ #2 ~ SC } \cs_new_protected:Npx \__driver_color_reset: { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D colorstack } { \pdftex_pdfcolorstack:D } \exp_not:N \l__driver_color_stack_int pop \scan_stop: } \cs_new_protected:Npx \__driver_literal:n #1 { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D literal } { \pdftex_pdfliteral:D } {#1} } \cs_new_protected:Npx \__driver_scope_begin: { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D save \scan_stop: } { \pdftex_pdfsave:D } } \cs_new_protected:Npx \__driver_scope_end: { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D restore \scan_stop: } { \pdftex_pdfrestore:D } } \cs_new_protected:Npx \__driver_matrix:n #1 { \cs_if_exist:NTF \luatex_pdfextension:D { \luatex_pdfextension:D setmatrix } { \pdftex_pdfsetmatrix:D } {#1} } \cs_new_protected:Npn \driver_box_use_clip:N #1 { \__driver_scope_begin: \__driver_literal:n { 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 { \__driver_scope_begin: \box_set_wd:Nn #1 { 0pt } \fp_set:Nn \l__driver_cos_fp { round ( cosd ( #2 ) , 5 ) } \fp_compare:nNnT \l__driver_cos_fp = \c_zero_fp { \fp_zero:N \l__driver_cos_fp } \fp_set:Nn \l__driver_sin_fp { round ( sind ( #2 ) , 5 ) } \__driver_matrix:n { \fp_use:N \l__driver_cos_fp \c_space_tl \fp_compare:nNnTF \l__driver_sin_fp = \c_zero_fp { 0~0 } { \fp_use:N \l__driver_sin_fp \c_space_tl \fp_eval:n { -\l__driver_sin_fp } } \c_space_tl \fp_use:N \l__driver_cos_fp } \box_use:N #1 \__driver_scope_end: } \fp_new:N \l__driver_cos_fp \fp_new:N \l__driver_sin_fp \cs_new_protected:Npn \driver_box_use_scale:Nnn #1#2#3 { \__driver_scope_begin: \__driver_matrix:n { \fp_eval:n { round ( #2 , 5 ) } ~ 0~0~ \fp_eval:n { round ( #3 , 5 ) } } \hbox_overlap_right:n { \box_use:N #1 } \__driver_scope_end: } \tl_new:N \l__driver_image_attr_tl \cs_new_protected:Npn \__driver_image_getbb_jpg:n #1 { \int_zero:N \l_image_page_int \tl_clear:N \l_image_pagebox_tl \tl_set:Nx \l__driver_image_attr_tl { \tl_if_empty:NF \l_image_decode_tl { :D \l_image_decodearray_tl } \bool_if:NT \l_image_interpolate_bool { :I } } \tl_clear:N \l__driver_image_attr_tl \__driver_image_getbb_auxi:n {#1} } \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 \tl_set:Nx \l__driver_image_attr_tl { : \l_image_pagebox_tl \int_compare:nNnT \l_image_page_int > 1 { :P \int_use:N \l_image_page_int } } \__driver_image_getbb_auxi:n {#1} } \cs_new_protected:Npn \__driver_image_getbb_auxi:n #1 { \image_bb_restore:xF { #1 \l__driver_image_attr_tl } { \__driver_image_getbb_auxii:n {#1} } } \cs_new_protected:Npn \__driver_image_getbb_auxii:n #1 { \tex_immediate:D \pdftex_pdfximage:D \bool_lazy_or:nnT { \l_image_interpolate_bool } { ! \tl_if_empty_p:N \l_image_decodearray_tl } { attr ~ { \tl_if_empty:NF \l_image_decode_tl { /Decode~[ \l_image_decodearray_tl ] } \bool_if:NT \l_image_interpolate_bool { /Interpolate~true } } } \int_compare:nNnT \l_image_page_int > 0 { page ~ \int_use:N \l_image_page_int } \tl_if_empty:NF \l_image_pagebox_tl { \l_image_pagebox_tl } {#1} \hbox_set:Nn \l__driver_tmp_box { \pdftex_pdfrefximage:D \pdftex_pdflastximage:D } \dim_set:Nn \l_image_urx_dim { \box_wd:N \l__driver_tmp_box } \dim_set:Nn \l_image_ury_dim { \box_ht:N \l__driver_tmp_box } \int_const:cn { c__driver_image_ #1 \l__driver_image_attr_tl _int } { \tex_the:D \pdftex_pdflastximage:D } \image_bb_save:x { #1 \l__driver_image_attr_tl } } \cs_new_protected:Npn \__driver_image_include_jpg:n #1 { \pdftex_pdfrefximage:D \int_use:c { c__driver_image_ #1 \l__driver_image_attr_tl _int } } \cs_new_eq:NN \__driver_image_include_pdf:n \__driver_image_include_jpg:n \cs_new_eq:NN \__driver_image_include_png:n \__driver_image_include_jpg:n \cs_new_eq:NN \__driver_draw_literal:n \__driver_literal: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_protected:Npn \driver_draw_scope_begin: { \__driver_draw_literal:n { q } } \cs_new_protected:Npn \driver_draw_scope_end: { \__driver_draw_literal:n { Q } } \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_cap_dash:nn #1#2 { \__driver_draw_literal:x { [ ~ \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_cmyk:nnnn #1#2#3#4 { \use:x { \__driver_draw_color_cmyk_aux:nnnn { \fp_eval:n {#1} } { \fp_eval:n {#2} } { \fp_eval:n {#3} } { \fp_eval:n {#4} } } } \cs_new_protected:Npn \__driver_draw_color_cmyk_aux:nnnn #1#2#3#4 { \__driver_draw_literal:n { #1 ~ #2 ~ #3 ~ #4 ~ k ~ #1 ~ #2 ~ #3 ~ #4 ~ K } } \cs_new_protected:Npn \driver_draw_fill_cmyk:nnnn #1#2#3#4 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} ~ k } } \cs_new_protected:Npn \driver_draw_stroke_cmyk:nnnn #1#2#3#4 { \__driver_draw_literal: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_gray:n #1 { \use:x { \__driver_draw_color_gray_aux:n { \fp_eval:n {#1} } } } \cs_new_protected:Npn \__driver_draw_color_gray_aux:n #1 { \__driver_draw_literal:n { #1 ~ g ~ #1 ~ G } } \cs_new_protected:Npn \driver_draw_fill_gray:n #1 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ g } } \cs_new_protected:Npn \driver_draw_stroke_gray:n #1 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ G } } \cs_new_protected:Npn \driver_draw_color_rgb:nnn #1#2#3 { \use:x { \__driver_draw_color_rgb_aux:nnn { \fp_eval:n {#1} } { \fp_eval:n {#2} } { \fp_eval:n {#3} } } } \cs_new_protected:Npn \__driver_draw_color_rgb_aux:nnn #1#2#3 { \__driver_draw_literal:n { #1 ~ #2 ~ #3 ~ rg ~ #1 ~ #2 ~ #3 ~ RG } } \cs_new_protected:Npn \driver_draw_fill_rgb:nnn #1#2#3 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ rg } } \cs_new_protected:Npn \driver_draw_stroke_rgb:nnn #1#2#3 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ RG } } \cs_new_protected:Npn \driver_draw_transformcm:nnnnnn #1#2#3#4#5#6 { \__driver_draw_literal:x { \fp_eval:n {#1} ~ \fp_eval:n {#2} ~ \fp_eval:n {#3} ~ \fp_eval:n {#4} ~ \dim_to_decimal_in_bp:n {#5} ~ \dim_to_decimal_in_bp:n {#6} ~ cm } } \cs_new_protected:Npn \driver_draw_hbox:Nnnnnnn #1#2#3#4#5#6#7 { \hbox_set:Nn \l__driver_tmp_box { \tex_kern:D \__dim_eval:n {#6} \__driver_scope_begin: \driver_draw_transformcm:nnnnnn {#2} {#3} {#4} {#5} { 0pt } { 0pt } \box_move_up:nn {#7} { \box_use:N #1 } \__driver_scope_end: } \box_set_wd:Nn \l__driver_tmp_box { 0pt } \box_set_ht:Nn \l__driver_tmp_box { 0pt } \box_set_dp:Nn \l__driver_tmp_box { 0pt } \box_use:N \l__driver_tmp_box } \box_new:N \l__driver_tmp_box %% %% %% End of file `l3pdfmode.def'.