Sketch Example

A simple drawing canvas that lets you sketch with the mouse.

using Tk
using Cairo: set_source_rgb, move_to, line_to, stroke, paint

function sketch_window()
    w = Window("drawing", 400, 300)
    c = Canvas(w)
    pack(c)
    lastx = 0
    lasty = 0
    cr = getgc(c)
    set_source_rgb(cr, 1, 1, 1)
    paint(cr)
    reveal(c)
    set_source_rgb(cr, 0, 0, 0.85)
    c.mouse.button1press = function (c, x, y)
        lastx = x; lasty = y
    end
    c.mouse.button1motion = function (c, x, y)
        move_to(cr, lastx, lasty)
        line_to(cr, x, y)
        stroke(cr)
        reveal(c)
        lastx = x; lasty = y
    end
    c
end

sketch_window (generic function with 1 method)

This page was generated using Literate.jl.