mtots 0.1.2

The mtots scripting language
Documentation 
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

import a._sdl2

class Canvas {
    [opaque]

    new(title, width=800, height=600, fullscreen=false) = new(
        _sdl2::window_to_canvas(_sdl2::new_window(title, width, height, fullscreen))
    )

    def set_draw_color(self, color) = {
        _sdl2::canvas_set_draw_color(self.opaque, color)
    }

    def clear(self) = _sdl2::canvas_clear(self.opaque)

    def present(self) = _sdl2::canvas_present(self.opaque)

    def fill_rect(self, rect) = _sdl2::canvas_fill_rect(self.opaque, rect)

    def size(self) = _sdl2::canvas_size(self.opaque)

    def set_size(self, size) {
        [width, height] = size
        _sdl2::canvas_set_size(self.opaque, width, height)
    }
}

def poll() = {
    events = @[]
    for event in _sdl2::poll() {
        switch event[0] {
            :Text => {
                [type, window, text] = event
                events.push(Table(
                    type=type,
                    window=window,
                    text=text,
                ))
            }
            :KeyDown => {
                [type, window, keycode, scancode, keymod, repeat] = event
                events.push(Table(
                    type=type,
                    window=window,
                    keycode=keycode,
                    scancode=scancode,
                    keymod=keymod,
                    repeat=repeat,
                ))
            }
            :KeyUp => {
                [type, window, keycode, scancode, keymod, repeat] = event
                events.push(Table(
                    type=type,
                    window=window,
                    keycode=keycode,
                    scancode=scancode,
                    keymod=keymod,
                    repeat=repeat,
                ))
            }
            :MouseDown => {
                [type, window, which, button, clicks, x, y] = event
                events.push(Table(
                    type=type,
                    window=window,
                    which=which,
                    button=button,
                    clicks=clicks,
                    x=x,
                    y=y,
                ))
            }
            :MouseUp => {
                [type, window, which, button, clicks, x, y] = event
                events.push(Table(
                    type=type,
                    window=window,
                    which=which,
                    button=button,
                    clicks=clicks,
                    x=x,
                    y=y,
                ))
            }
            :MouseMove => {
                [type, window, which, state, x, y, xrel, yrel] = event
                events.push(Table(
                    type=type,
                    window=window,
                    which=which,
                    state=state,
                    x=x,
                    y=y,
                    xrel=xrel,
                    yrel=yrel,
                ))
            }
            => __raise(RuntimeError('Unrecognized event: %r' % [event]))
        }
    }
    events.move()
}