1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
--
-- This is file `l3backend-luatex.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- l3backend-color.dtx (with options: `lua')
-- l3backend-opacity.dtx (with options: `lua')
--
-- Copyright (C) 2023 The LaTeX 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 "l3backend bundle" (The Work in LPPL)
-- and all files in that bundle must be distributed together.
--
-- File: l3backend-color.dtx
local l = lpeg
local spaces = l.P' '^0
local digit16 = l.R('09', 'af', 'AF')
local octet = digit16 * digit16 / function(s)
return string.format('%.3g ', tonumber(s, 16) / 255)
end
if luaotfload and luaotfload.set_transparent_colorstack then
local htmlcolor = l.Cs(octet * octet * octet * -1 * l.Cc'rg')
local color_export = {
token.create'tex_endlocalcontrol:D',
token.create'tex_hpack:D',
token.new(0, 1),
token.create'color_export:nnN',
token.new(0, 1),
'',
token.new(0, 2),
token.new(0, 1),
'backend',
token.new(0, 2),
token.create'l_tmpa_tl',
token.create'exp_after:wN',
token.create'__color_select:nn',
token.create'l_tmpa_tl',
token.new(0, 2),
}
local group_end = token.create'group_end:'
local value = (1 - l.P'}')^0
luatexbase.add_to_callback('luaotfload.parse_color', function (value)
local html = htmlcolor:match(value)
if html then return html end
tex.runtoks(function()
token.get_next()
color_export[6] = value
tex.sprint(-2, color_export)
end)
local list = token.scan_list()
if not list.head or list.head.next
or list.head.subtype ~= node.subtype'pdf_colorstack' then
error'Unexpected backend behavior'
end
local cmd = list.head.data
node.free(list)
return cmd
end, 'l3color')
end
-- File: l3backend-opacity.dtx
local pdfmanagement_active do
local pdfmanagement_if_active_p = token.create'pdfmanagement_if_active_p:'
local cmd = pdfmanagement_if_active_p.cmdname
if cmd == 'undefined_cs' then
pdfmanagement_active = false
else
token.put_next(pdfmanagement_if_active_p)
pdfmanagement_active = token.scan_int() ~= 0
end
end
if pdfmanagement_active and luaotfload and luaotfload.set_transparent_colorstack then
luaotfload.set_transparent_colorstack(function() return token.create'c__opacity_backend_stack_int'.index end)
local transparent_register = {
token.create'pdfmanagement_add:nnn',
token.new(0, 1),
'Page/Resources/ExtGState',
token.new(0, 2),
token.new(0, 1),
'',
token.new(0, 2),
token.new(0, 1),
'<</ca ',
'',
'/CA ',
'',
'>>',
token.new(0, 2),
}
luatexbase.add_to_callback('luaotfload.parse_transparent', function(value)
value = (octet * -1):match(value)
if not value then
tex.error'Invalid transparency value'
return
end
value = value:sub(1, -2)
local result = 'opacity' .. value
tex.runtoks(function()
transparent_register[6], transparent_register[10], transparent_register[12] = result, value, value
tex.sprint(-2, transparent_register)
end)
return '/' .. result .. ' gs'
end, 'l3opacity')
end
|
