create and modify matrices in lua

resources/slides.lua

 function tostr(t)
     local str = ""
     for k, v in next, t do
         if #str > 0 then
             str = str .. ", "
         end
         if type(k) == "number" then
             str = str .. "[" .. k .. "] = "
         else
             str = str .. tostring(k) .. " = "
@@ skipping 58 matching lines @@
 function pretty_print_slides(slides)
     io.write("gSlides = {\n")
     for i = 1, #slides do
         pretty_print_slide(slides[i])
     end
     io.write("}\n")
 end
 
 gSlides = parse_file(io.open("/skia/trunk/resources/slides_content.lua", "r"))
 
-function make_paint(size, color)
+function make_rect(l, t, r, b)
+    return { left = l, top = t, right = r, bottom = b }
+end
+
+function make_paint(typefacename, stylebits, size, color)
     local paint = Sk.newPaint();
     paint:setAntiAlias(true)
     paint:setSubpixelText(true)
+    paint:setTypeface(Sk.newTypeface(typefacename, stylebits))
     paint:setTextSize(size)
     paint:setColor(color)
     return paint
 end
 
-function drawSlide(canvas, slide, template, paints)
+function drawSlide(canvas, slide, template)
+    template = template.slide   -- need to sniff the slide to know if we're title or slide
+
+    local x = template.margin_x
+    local y = template.margin_y
+
     local scale = 1.15
-    local y = 0
     for i = 1, #slide do
         local node = slide[i]
-        local temp = template[node.indent + 1]
-        local paint = paints[node.indent + 1]
+        local paint = template[node.indent + 1]
         local fm = paint:getFontMetrics()
+        local x_offset = -fm.ascent * node.indent
+
         y = y - fm.ascent * scale
-        canvas:drawText(node.text, temp.x, y, paint)
+        canvas:drawText(node.text, x + x_offset, y, paint)
         y = y + fm.descent * scale
     end
 end
 
 function slide_transition(prev, next, is_forward)
     local rec = {
         proc = function(self, canvas, drawSlideProc)
             if self:isDone() then
                 drawSlideProc(canvas)
                 return nil
@@ skipping 56 matching lines @@
             self.prev_x = self.prev_x + 20
             self.prev_a = (640 - self.prev_x) / 640
             self.next_a = 1 - self.prev_a
         end
     end
     return rec
 end
 
 --------------------------------------------------------------------------------------
 
-gTemplate = {
-    { x = 10, textSize = 40, bullet = "" },
-    { x = 40, textSize = 30, bullet = "\xE2\x80\xA2" },
-    { x = 70, textSize = 20, bullet = "\xE2\x97\xA6" },
-}
+function SkiaPoint_make_template()
+    local title = {
+        margin_x = 30,
+        margin_y = 100,
+    }
+    title[1] = make_paint("Arial", 1, 50, { a=1, r=0, g=0, b=0 })
+    title[1]:setTextAlign("center")
+    title[2] = make_paint("Arial", 1, 25, { a=1, r=.3, g=.3, b=.3 })
+    title[2]:setTextAlign("center")
 
-gPaints = {
-    make_paint(gTemplate[1].textSize, { a=1, r=0, g=0, b=0 } ),
-    make_paint(gTemplate[2].textSize, { a=1, r=1, g=0, b=0 } ),
-    make_paint(gTemplate[3].textSize, { a=1, r=0, g=1, b=0 } ),
-}
+    local slide = {
+        margin_x = 20,
+        margin_y = 30,
+    }
+    slide[1] = make_paint("Arial", 1, 36, { a=1, r=0, g=0, b=0 })
+    slide[2] = make_paint("Arial", 0, 30, { a=1, r=0, g=0, b=0 })
+    slide[3] = make_paint("Arial", 0, 24, { a=1, r=.2, g=.2, b=.2 })
+
+    return {
+        title = title,
+        slide = slide,
+    }
+end
+
+gTemplate = SkiaPoint_make_template()
 
 gRedPaint = Sk.newPaint()
 gRedPaint:setAntiAlias(true)
 gRedPaint:setColor{a=1, r=1, g=0, b=0 }
 
 -- animation.proc is passed the canvas before drawing.
 -- The animation.proc returns itself or another animation (which means keep animating)
 -- or it returns nil, which stops the animation.
 --
 local gCurrAnimation
@@ skipping 51 matching lines @@
     else
         transition = nextSlide.transition
     end
 
     if not transition then
         transition = fade_slide_transition
     end
 
     local rec = Sk.newPictureRecorder()
 
-    drawSlide(rec:beginRecording(640, 480), prevSlide, gTemplate, gPaints)
+    drawSlide(rec:beginRecording(640, 480), prevSlide, gTemplate)
     local prevDrawable = new_drawable_picture(rec:endRecording())
 
-    drawSlide(rec:beginRecording(640, 480), nextSlide, gTemplate, gPaints)
+    drawSlide(rec:beginRecording(640, 480), nextSlide, gTemplate)
     local nextDrawable = new_drawable_picture(rec:endRecording())
 
     gCurrAnimation = transition(prevDrawable, nextDrawable, is_forward)
 end
 
 --------------------------------------------------------------------------------------
 
 function spawn_rotate_animation()
     gCurrAnimation = {
         angle = 0,
@@ skipping 36 matching lines @@
             canvas:scale(self.scale, self.scale)
             canvas:translate(-self.pivot_x, -self.pivot_y)
             drawSlideProc(canvas)
 
             self.scale = self.scale * self.scale_delta
             return self
         end
     }
 end
 
-function onDrawContent(canvas)
+function onDrawContent(canvas, width, height)
+    local matrix = Sk.newMatrix()
+    matrix:setRectToRect(make_rect(0, 0, 640, 480), make_rect(0, 0, width, height), "center")
+    canvas:concat(matrix)
+
     local drawSlideProc = function(canvas)
-        drawSlide(canvas, gSlides[gSlideIndex], gTemplate, gPaints)
+        drawSlide(canvas, gSlides[gSlideIndex], gTemplate)
     end
 
     if gCurrAnimation then
         gCurrAnimation = gCurrAnimation:proc(canvas, drawSlideProc)
         return true
     else
         drawSlideProc(canvas)
         return false
     end
 end
@@ skipping 10 matching lines @@
 }
 
 function onCharHandler(uni)
     local proc = keyProcs[uni]
     if proc then
         proc()
         return true
     end
     return false
 end