diff options
Diffstat (limited to 'html/examples/show_image_touch.wlua')
| -rw-r--r-- | html/examples/show_image_touch.wlua | 223 |
1 files changed, 223 insertions, 0 deletions
diff --git a/html/examples/show_image_touch.wlua b/html/examples/show_image_touch.wlua new file mode 100644 index 0000000..eaa9d7e --- /dev/null +++ b/html/examples/show_image_touch.wlua @@ -0,0 +1,223 @@ +require"imlua" +require"cdlua" +require"cdluaim" +require"iuplua" +require"iupluacd" +require"iupluatuio" + +cnv = iup.canvas{rastersize = "1024x768", border = "NO", touch="Yes"} +img_x = 0 +img_y = 0 + +-- comment this line to NOT use the TUIO client, only Windows 7 supports multi-touch +tuio = iup.tuioclient{} + +function load_image(filename) + local new_image = im.FileImageLoadBitmap(filename) + if (not new_image) then + iup.Message("Error", "LoadBitmap failed.") + else + if (image) then image:Destroy() end + loaded = true + image = new_image + iup.Update(cnv) + end +end + +function cnv:map_cb() -- the CD canvas can only be created when the IUP canvas is mapped + canvas = cd.CreateCanvas(cd.IUP, self) +end + +function cnv:action() -- called everytime the IUP canvas needs to be repainted + canvas:Activate() + canvas:Clear() + if (image) then + if (loaded) then + local cnv_w, cnv_h = canvas:GetSize() + + -- inicial zoom and position + img_w = image:Width() + img_h = image:Height() + img_x = (cnv_w-img_w)/2 + img_y = (cnv_h-img_h)/2 + loaded = false + end + image:cdCanvasPutImageRect(canvas, img_x, img_y, img_w, img_h, 0, 0, 0, 0) -- use default values + end +end + +function cnv:multitouch_cb(count, pid, px, py, pstatus) + if (count == 1) then + if (pstatus[1] == 68) then -- 'D' DOWN + old_x = px[1] + old_y = canvas:UpdateYAxis(py[1]) + translate = 1 + elseif (pstatus[1] == 85) then -- 'U' UP + if (translate == 1) then + translate = 0 + end + elseif (pstatus[1] == 77) then -- 'M' MOVE + if (translate == 1) then + -- translate only + local y = canvas:UpdateYAxis(py[1]) + local x = px[1] + img_x = img_x + (x - old_x) + img_y = img_y + (y - old_y) + old_x = x + old_y = y + iup.Update(cnv) + end + end + elseif (count == 2) then + if (pstatus[1] == 68 or pstatus[2] == 68) then -- 'D' DOWN + diff_x = math.abs(px[2]-px[1]) + diff_y = math.abs(py[2]-py[1]) + ref_x = (px[2]+px[1])/2 + ref_y = (py[2]+py[1])/2 + zoom = 1 + elseif (pstatus[1] == 85 or pstatus[2] == 85) then -- 'U' UP + if (zoom == 1) then + zoom = 0 + end + elseif (pstatus[1] == 77 or pstatus[2] == 77) then -- 'M' MOVE + if (zoom == 1) then + -- zoom + local new_diff_x = math.abs(px[2]-px[1]) + local new_diff_y = math.abs(py[2]-py[1]) + + local abs_diff_x = new_diff_x-diff_x + local abs_diff_y = new_diff_y-diff_y + local diff = 0 + if (math.abs(abs_diff_y) > math.abs(abs_diff_x)) then + diff = abs_diff_y + else + diff = abs_diff_x + end + local prev_w = img_w + local prev_h = img_h + img_w = img_w + diff + img_h = img_h + diff + + -- translate to maintain fixed the reference point + local orig_x = ref_x - img_x + local orig_y = ref_y - img_y + orig_x = (img_w/prev_w)*orig_x + orig_y = (img_h/prev_h)*orig_y + img_x = ref_x - orig_x + img_y = ref_y - orig_y + + diff_x = new_diff_x + diff_y = new_diff_y + iup.Update(cnv) + end + end + end +end + +function cnv:button_cb(button,pressed,x,y,status) + -- start drag if button1 is pressed + if button ==iup.BUTTON1 and pressed == 1 then + y = canvas:UpdateYAxis(y) + + old_x = x + old_y = y + start_x = x + start_y = y + drag = 1 + else + if (drag == 1) then + drag = 0 + end + end +end + +function cnv:motion_cb(x,y,status) + if (drag == 1) then + y = canvas:UpdateYAxis(y) + + if (iup.iscontrol(status)) then + -- zoom + local diff_x = (x - old_x) + local diff_y = (y - old_y) + local diff = 0 + if (math.abs(diff_y) > math.abs(diff_x)) then + diff = diff_y + else + diff = diff_x + end + local prev_w = img_w + local prev_h = img_h + img_w = img_w + diff + img_h = img_h + diff + + -- translate to maintain fixed the reference point + local orig_x = start_x - img_x + local orig_y = start_y - img_y + orig_x = (img_w/prev_w)*orig_x + orig_y = (img_h/prev_h)*orig_y + img_x = start_x - orig_x + img_y = start_y - orig_y + else + -- translate only + img_x = img_x + (x - old_x) + img_y = img_y + (y - old_y) + end + old_x = x + old_y = y + iup.Update(cnv) + end +end + +function cnv:k_any(c) + if c == iup.K_q or c == iup.K_ESC then + return iup.CLOSE + end + if c == iup.K_F1 then + if fullscreen then + fullscreen = false + dlg.fullscreen = "No" + else + fullscreen = true + dlg.fullscreen = "Yes" + end + end + if c == iup.K_F2 then + filename = iup.GetFile("*.*") + if (filename) then + load_image(filename) + end + end + +end + +dlg = iup.dialog{cnv} + +function dlg:close_cb() + if (image) then + image:Destroy() + end + canvas:Kill() + self:destroy() + return iup.IGNORE -- because we destroy the dialog +end + +if (tuio) then + tuio.connect = "YES" + tuio.targetcanvas = cnv +end + +dlg:show() +cnv.rastersize = nil -- remove minimum size + +if arg and arg[1] ~= nil then + filename = arg[1] +else + filename = iup.GetFile("*.*") +end +if (filename) then + load_image(filename) +end + +if (iup.MainLoopLevel()==0) then + iup.MainLoop() +end |