*** empty log message ***

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