summaryrefslogtreecommitdiff
path: root/cd/test/lua/rubberband.wlua
blob: 595373a1397c9e77b8da8e7d0ad386c74b51706e (plain)
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
require("iupcdaux") -- utility module used in some samples

dlg = iupcdaux.new_dialog(w, h)
cnv = dlg[1]     -- retrieve the IUP canvas


function cnv:button_cb(button,pressed,x,y,r)
  canvas = self.canvas     -- retrieve the CD canvas from the IUP attribute

  -- start drag if button1 is pressed
  if button ==iup.BUTTON1 and pressed == 1 then
    y = canvas:UpdateYAxis(y)

    -- prepare for XOR
    canvas:Foreground(cd.WHITE)
    canvas:WriteMode(cd.XOR)

    xstart = x
    ystart = y
    drag = 1
    first = 1
  else
    if (drag == 1) then
      drag = 0
      canvas:Rect(xstart,xend,ystart,yend)
    end
  end
end


function cnv:motion_cb(x,y,r)
  canvas = self.canvas     -- retrieve the CD canvas from the IUP attribute

  if (drag == 1) then
    y = canvas:UpdateYAxis(y)

    if (first == 1) then
      first = 0
    else
      canvas:Rect(xstart,xend,ystart,yend)
    end

    canvas:Rect(xstart,x,ystart,y)

    xend = x
    yend = y
  end
end

first = 1
drag = 0

dlg:show()
iup.MainLoop()