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
|
if not modules then modules = { } end modules ['back-pdf'] = {
version = 1.001,
comment = "companion to back-pdf.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local codeinjections = backends.pdf.codeinjections
local outputfilename
function codeinjections.getoutputfilename()
if not outputfilename then
outputfilename = file.addsuffix(tex.jobname,"pdf")
end
return outputfilename
end
backends.install("pdf")
local context = context
local sind, cosd = math.sind, math.cosd
local insert, remove = table.insert, table.remove
local f_matrix = string.formatters["%0.8F %0.8F %0.8F %0.8F"]
function commands.pdfrotation(a)
-- todo: check for 1 and 0 and flush sparse
local s, c = sind(a), cosd(a)
context(f_matrix(c,s,-s,c))
end
-- experimental code (somewhat weird here) .. todo: nodeinjections .. this will only work
-- out well if we also calculate the accumulated cm and wrap inclusions / annotations in
-- the accumulated ... it's a mess
--
-- we could also do the save restore wrapping here + colorhack
local pdfsetmatrix = nodes.pool.pdfsetmatrix
local stack = { }
local function popmatrix()
local top = remove(stack)
if top then
context(pdfsetmatrix(unpack(top)))
end
end
function commands.pdfstartrotation(a)
if a == 0 then
insert(stack,false)
else
local s, c = sind(a), cosd(a)
context(pdfsetmatrix(c,s,-s,c))
insert(stack,{ c, -s, s, c })
end
end
function commands.pdfstartscaling(sx,sy)
if sx == 1 and sy == 1 then
insert(stack,false)
else
if sx == 0 then
sx = 0.0001
end
if sy == 0 then
sy = 0.0001
end
context(pdfsetmatrix(sx,0,0,sy))
insert(stack,{ 1/sx, 0, 0, 1/sy })
end
end
function commands.pdfstartmirroring()
context(pdfsetmatrix(-1,0,0,1))
end
function commands.pdfstartmatrix(sx,rx,ry,sy) -- tx, ty
if sx == 1 and rx == 0 and ry == 0 and sy == 1 then
insert(stack,false)
else
context(pdfsetmatrix(sx,rx,ry,sy))
insert(stack,{ -sx, -rx, -ry, -sy })
end
end
commands.pdfstoprotation = popmatrix
commands.pdfstopscaling = popmatrix
commands.pdfstopmirroring = commands.pdfstartmirroring
commands.pdfstopmatrix = popmatrix
|
