[nacltoons] Add compound shapes.

nacltoons/data/res/touch_handler.lua

 -- Copyright (c) 2013 The Chromium Authors. All rights reserved.
 -- Use of this source code is governed by a BSD-style license that can be
 -- found in the LICENSE file.
 
 -- Touch handling code for game engine.
 -- This module defines a singe global table touch_handler which contains
 -- a single function called TouchHandler.  This functions registered
 -- as the touch handler for CCLayer in which the gameplace takes place.
 
 local util = require 'util'
 
 local touch_handler = {}
 
 local touch_state = {
     touchid = -1,
     reciever = nil,
     is_object = false,
 }
 
 local function FindTaggedBodiesAt(x, y)
     local b2pos = util.b2VecFromCocos(ccp(x, y))
     local found_bodies = {}
+    local found_something = false
     local function handler(body)
+        found_something = true
         local tag = body:GetUserData()
         if tag ~= 0 then
             -- FindBodiesAt can report the same bodies more than
             -- once since it reports the body for each fixture that
             -- exists at a given point, so filter out duplicates here.
             if not found_bodies[tag] then
-                util.Log("got body.. " .. tag)
+                util.Log("found body.. " .. tag)
                 assert(level_obj.object_map[tag])
                 found_bodies[tag] = level_obj.object_map[tag]
             end
         end
     end
 
     level_obj.layer:FindBodiesAt(b2pos, handler)
+    if found_something and #found_bodies == 0 then
+        util.Log("Found untagged bodies")
+    end
     return found_bodies
 end
 
 local lasttap_time = 0
 local lasttap_count = 1
 local lasttap_location = nil
 
 touch_handler.DOUBLE_CLICK_INTERVAL = 0.250
 touch_handler.DOUBLE_CLICK_TOLERANCE = 5
 
 local function OnTouchBegan(x, y, touchid)
     -- Do double tap detection based on taps that occur within
     -- DOUBLE_CLICK_INTERVAL of each other and with a certain
     -- distance of each other.
     local now = CCTime:getTime()
     local distance = 0
     if lasttap_location then
         distance = ccpDistance(ccp(x, y), ccp(lasttap_location[1], lasttap_location[2]))
     end
     if (now - lasttap_time > touch_handler.DOUBLE_CLICK_INTERVAL
         or distance > touch_handler.DOUBLE_CLICK_TOLERANCE) then
         lasttap_count = 1
     else
         lasttap_count = lasttap_count + 1
     end
     lasttap_time = now
     lasttap_location = { x, y }
 
     tapcount = lasttap_count
-    util.Log('tap ' .. tapcount)
+    util.Log('tapcount ' .. tapcount)
 
     local objects = FindTaggedBodiesAt(x, y, 0x1)
 
     for _, obj_def in pairs(objects) do
         if obj_def.script and obj_def.script.OnTouchBegan then
             if obj_def.script.OnTouchBegan(obj_def, x, y, tapcount) then
                 touch_state.touchid = touchid
                 touch_state.receiver = obj_def
                 touch_state.is_object = true
                 return true
@@ skipping 59 matching lines @@
     if touch_type == 'began' then
         return OnTouchBegan(x, y, touchid)
     elseif touch_type == 'moved' then
         return OnTouchMoved(x, y, touchid)
     elseif touch_type == 'ended' then
         return OnTouchEnded(x, y, touchid)
     end
 end
 
 return touch_handler