sile 0.15.2

Simon’s Improved Layout Engine
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
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144

local base = require("outputters.base")

-- This output package is deprecated and should only be used as an
-- example of how to create alternative output backends, in comparison
-- with the libtexpdf and debug backends.
local lgi = require("lgi")
local cairolgi = lgi.cairo
-- local pango = lgi.Pango
-- local fm = lgi.PangoCairo.FontMap.get_default()
-- local pango_context = lgi.Pango.FontMap.create_context(fm)
local imagesize = require("imagesize")

local cursorX = 0
local cursorY = 0

local cr
local move -- See https://github.com/pavouk/lgi/issues/48
local sgs

local outputter = pl.class(base)
outputter._name = "cairo"
outputter.extension = "pdf"

function outputter:_init ()
   base._init(self)
   local fname = self:getOutputFilename()
   local surface = cairolgi.PdfSurface.create(
      fname == "-" and "/dev/stdout" or fname,
      SILE.documentState.paperSize[1],
      SILE.documentState.paperSize[2]
   )
   cr = cairolgi.Context.create(surface)
   move = cr.move_to
   sgs = cr.show_glyph_string
end

function outputter.newPage (_)
   cr:show_page()
end

function outputter.getCursor (_)
   return cursorX, cursorY
end

function outputter.setCursor (_, x, y, relative)
   local offset = relative and { x = cursorX, y = cursorY } or { x = 0, y = 0 }
   cursorX = offset.x + x
   cursorY = offset.y - y
   move(cr, cursorX, cursorY)
end

function outputter.setColor (_, color)
   cr:set_source_rgb(color.r, color.g, color.b)
end

function outputter.drawHbox (_, value, _)
   if not value then
      return
   end
   if value.pgs then
      sgs(cr, value.font, value.pgs)
   elseif value.text then
      cr:show_text(value.text)
   end
end

function outputter.setFont (_, options)
   cr:select_font_face(options.font, options.style:lower() == "italic" and 1 or 0, options.weight > 100 and 0 or 1)
   cr:set_font_size(options.size)
end

function outputter.drawImage (_, src, x, y, width, height)
   local image = cairolgi.ImageSurface.create_from_png(src)
   if not image then
      SU.error("Could not load image " .. src)
   end
   local src_width = image:get_width()
   local src_height = image:get_height()
   if not (src_width > 0) then
      SU.error("Something went wrong loading image " .. src)
   end
   cr:save()
   cr:set_source_surface(image, 0, 0)
   local p = cr:get_source()
   local matrix, sx, sy
   if width or height then
      if width > 0 then
         sx = src_width / width
      end
      if height > 0 then
         sy = src_height / height
      end
      matrix = cairolgi.Matrix.create_scale(sx or sy, sy or sx)
   else
      matrix = cairolgi.Matrix.create_identity()
   end
   matrix:translate(-x, -y)
   p:set_matrix(matrix)
   cr:paint()
   cr:restore()
end

function outputter.getImageSize (_, src)
   local box_width, box_height, err = imagesize.imgsize(src)
   if not box_width then
      SU.error(err .. " loading image")
   end
   return box_width, box_height
end

function outputter.drawRule (_, x, y, width, depth)
   cr:rectangle(x, y, width, depth)
   cr:fill()
end

function outputter.debugFrame (_, frame)
   cr:set_source_rgb(0.8, 0, 0)
   cr:set_line_width(0.5)
   cr:rectangle(frame:left(), frame:top(), frame:width(), frame:height())
   cr:stroke()
   cr:move_to(frame:left() - 10, frame:top() - 2)
   cr:show_text(frame.id)
   cr:set_source_rgb(0, 0, 0)
end

function outputter:debugHbox (hbox, scaledWidth)
   cr:set_source_rgb(0.9, 0.9, 0.9)
   cr:set_line_width(0.5)
   local x, y = self:getCursor()
   cr:rectangle(x, y - hbox.height, scaledWidth, hbox.height + hbox.depth)
   if hbox.depth then
      cr:rectangle(x, y - hbox.height, scaledWidth, hbox.height)
   end
   cr:stroke()
   cr:set_source_rgb(0, 0, 0)
   cr:move_to(x, y)
end

-- untested
function outputter.drawRaw (_, literal)
   cr:show_text(literal)
end

return outputter