axmol/samples/TestLua/Resources/luaScript/NodeTest/NodeTest.lua

757 lines
21 KiB
Lua
Raw Normal View History

2012-08-31 18:26:27 +08:00
local SceneIdx = -1
local MAX_LAYER = 11
local kTagSprite1 = 1
local kTagSprite2 = 2
local kTagSprite3 = 3
local kTagSlider = 4
local titleLabel = nil
local subTitleLabel = nil
local s = CCDirector:sharedDirector():getWinSize()
local scheduler = CCDirector:sharedDirector():getScheduler()
local function backAction()
SceneIdx = SceneIdx - 1
if SceneIdx < 0 then
SceneIdx = SceneIdx + MAX_LAYER
end
return CreateNodeTestLayer()
end
local function restartAction()
return CreateNodeTestLayer()
end
local function nextAction()
SceneIdx = SceneIdx + 1
SceneIdx = math.mod(SceneIdx, MAX_LAYER)
return CreateNodeTestLayer()
end
local function backCallback(sender)
local scene = CCScene:create()
scene:addChild(backAction())
scene:addChild(CreateBackMenuItem())
CCDirector:sharedDirector():replaceScene(scene)
end
local function restartCallback(sender)
local scene = CCScene:create()
scene:addChild(restartAction())
scene:addChild(CreateBackMenuItem())
CCDirector:sharedDirector():replaceScene(scene)
end
local function nextCallback(sender)
local scene = CCScene:create()
scene:addChild(nextAction())
scene:addChild(CreateBackMenuItem())
CCDirector:sharedDirector():replaceScene(scene)
end
local function getBaseLayer()
local layer = CCLayer:create()
titleLabel = CCLabelTTF:create("", "Arial", 32)
layer:addChild(titleLabel, 10)
titleLabel:setPosition(s.width / 2, s.height - 50)
subTitleLabel = CCLabelTTF:create("", "Thonburi", 16)
layer:addChild(subTitleLabel, 1)
subTitleLabel:setPosition(s.width / 2, s.height - 80)
local item1 = CCMenuItemImage:create(s_pPathB1, s_pPathB2)
local item2 = CCMenuItemImage:create(s_pPathR1, s_pPathR2)
local item3 = CCMenuItemImage:create(s_pPathF1, s_pPathF2)
item1:registerScriptHandler(backCallback)
item2:registerScriptHandler(restartCallback)
item3:registerScriptHandler(nextCallback)
local menu = CCMenu:create()
menu:addChild(item1)
menu:addChild(item2)
menu:addChild(item3)
menu:setPosition(CCPointMake(0, 0))
item1:setPosition(CCPointMake(s.width / 2 - item2:getContentSize().width * 2, item2:getContentSize().height / 2))
item2:setPosition(CCPointMake(s.width / 2, item2:getContentSize().height / 2))
item3:setPosition(CCPointMake(s.width / 2 + item2:getContentSize().width * 2, item2:getContentSize().height / 2))
layer:addChild(menu, 11)
return layer
end
-----------------------------------
-- CameraCenterTest
-----------------------------------
local function CameraCenterTest()
local layer = getBaseLayer()
-- LEFT-TOP
local sprite = CCSprite:create("Images/white-512x512.png")
layer:addChild(sprite, 0)
sprite:setPosition(CCPointMake(s.width / 5 * 1, s.height / 5 * 1))
sprite:setColor(ccc3(255, 0, 0))
sprite:setTextureRect(CCRectMake(0, 0, 120, 50))
local orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- [sprite setAnchorPoint: CCPointMake(0,1))
-- LEFT-BOTTOM
sprite = CCSprite:create("Images/white-512x512.png")
layer:addChild(sprite, 0, 40)
sprite:setPosition(CCPointMake(s.width / 5 * 1, s.height / 5 * 4))
sprite:setColor(ccc3(0, 0, 255))
sprite:setTextureRect(CCRectMake(0, 0, 120, 50))
orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- RIGHT-TOP
sprite = CCSprite:create("Images/white-512x512.png")
layer:addChild(sprite, 0)
sprite:setPosition(CCPointMake(s.width / 5 * 4, s.height / 5 * 1))
sprite:setColor(ccc3(255, 255, 0))
sprite:setTextureRect(CCRectMake(0, 0, 120, 50))
orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- RIGHT-BOTTOM
sprite = CCSprite:create("Images/white-512x512.png")
layer:addChild(sprite, 0, 40)
sprite:setPosition(CCPointMake(s.width / 5 * 4, s.height / 5 * 4))
sprite:setColor(ccc3(0, 255, 0))
sprite:setTextureRect(CCRectMake(0, 0, 120, 50))
orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- CENTER
sprite = CCSprite:create("Images/white-512x512.png")
layer:addChild(sprite, 0, 40)
sprite:setPosition(CCPointMake(s.width / 2, s.height / 2))
sprite:setColor(ccc3(255, 255, 255))
sprite:setTextureRect(CCRectMake(0, 0, 120, 50))
orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
titleLabel:setString("Camera Center test")
subTitleLabel:setString("Sprites should rotate at the same speed")
return layer
end
-----------------------------------
-- Test2
-----------------------------------
local function Test2()
local layer = getBaseLayer()
local sp1 = CCSprite:create(s_pPathSister1)
local sp2 = CCSprite:create(s_pPathSister2)
local sp3 = CCSprite:create(s_pPathSister1)
local sp4 = CCSprite:create(s_pPathSister2)
sp1:setPosition(CCPointMake(100, s.height /2))
sp2:setPosition(CCPointMake(380, s.height /2))
layer:addChild(sp1)
layer:addChild(sp2)
sp3:setScale(0.25)
sp4:setScale(0.25)
sp1:addChild(sp3)
sp2:addChild(sp4)
local a1 = CCRotateBy:create(2, 360)
local a2 = CCScaleBy:create(2, 2)
local array1 = CCArray:create()
array1:addObject(a1)
array1:addObject(a2)
array1:addObject(a2:reverse())
local action1 = CCRepeatForever:create(CCSequence:create(array1))
local array2 = CCArray:create()
array2:addObject(a1:copy():autorelease())
array2:addObject(a2:copy():autorelease())
array2:addObject(a2:reverse())
local action2 = CCRepeatForever:create(CCSequence:create(array2))
sp2:setAnchorPoint(CCPointMake(0,0))
sp1:runAction(action1)
sp2:runAction(action2)
titleLabel:setString("anchorPoint and children")
return layer
end
-----------------------------------
-- Test4
-----------------------------------
local Test4_layer = nil
local Test4_delay2Entry = nil
local Test4_delay4Entry = nil
local function delay2(dt)
node = Test4_layer:getChildByTag(2)
local action1 = CCRotateBy:create(1, 360)
node:runAction(action1)
end
local function delay4(dt)
scheduler:unscheduleScriptEntry(Test4_delay4Entry)
Test4_layer:removeChildByTag(3, false)
end
local function Test4_onEnterOrExit(tag)
if tag == 0 then
Test4_delay2Entry = scheduler:scheduleScriptFunc(delay2, 2.0, false)
Test4_delay4Entry = scheduler:scheduleScriptFunc(delay4, 4.0, false)
elseif tag == 1 then
scheduler:unscheduleScriptEntry(Test4_delay2Entry)
scheduler:unscheduleScriptEntry(Test4_delay4Entry)
end
end
local function Test4()
Test4_layer = getBaseLayer()
local sp1 = CCSprite:create(s_pPathSister1)
local sp2 = CCSprite:create(s_pPathSister2)
sp1:setPosition(CCPointMake(100, 160))
sp2:setPosition(CCPointMake(380, 160))
Test4_layer:addChild(sp1, 0, 2)
Test4_layer:addChild(sp2, 0, 3)
Test4_layer:registerScriptHandler(Test4_onEnterOrExit)
titleLabel:setString("tags")
return Test4_layer
end
-----------------------------------
-- Test5
-----------------------------------
local Test5_entry = nil
local Test5_layer = nil
local function Test5_addAndRemove(dt)
local sp1 = Test5_layer:getChildByTag(kTagSprite1)
local sp2 = Test5_layer:getChildByTag(kTagSprite2)
sp1:retain()
sp2:retain()
Test5_layer:removeChild(sp1, false)
Test5_layer:removeChild(sp2, true)
Test5_layer:addChild(sp1, 0, kTagSprite1)
Test5_layer:addChild(sp2, 0, kTagSprite2)
sp1:release()
sp2:release()
end
local function Test5_onEnterOrExit(tag)
if tag == 0 then
Test5_entry = scheduler:scheduleScriptFunc(Test5_addAndRemove, 2.0, false)
elseif tag == 1 then
scheduler:unscheduleScriptEntry(Test5_entry)
end
end
local function Test5()
Test5_layer = getBaseLayer()
local sp1 = CCSprite:create(s_pPathSister1)
local sp2 = CCSprite:create(s_pPathSister2)
sp1:setPosition(CCPointMake(100, 160))
sp2:setPosition(CCPointMake(380, 160))
local rot = CCRotateBy:create(2, 360)
local rot_back = rot:reverse()
local forever = CCRepeatForever:create(CCSequence:createWithTwoActions(rot, rot_back))
local forever2 = CCRepeatForever:create(CCSequence:createWithTwoActions(rot:copy():autorelease(), rot_back:copy():autorelease()))
forever:setTag(101)
forever2:setTag(102)
Test5_layer:addChild(sp1, 0, kTagSprite1)
Test5_layer:addChild(sp2, 0, kTagSprite2)
sp1:runAction(forever)
sp2:runAction(forever2)
Test5_layer:registerScriptHandler(Test5_onEnterOrExit)
titleLabel:setString("remove and cleanup")
return Test5_layer
end
-----------------------------------
-- Test6
-----------------------------------
local Test6_entry = nil
local Test6_layer = nil
local function Test6_addAndRemove(dt)
local sp1 = Test6_layer:getChildByTag(kTagSprite1)
local sp2 = Test6_layer:getChildByTag(kTagSprite2)
sp1:retain()
sp2:retain()
Test6_layer:removeChild(sp1, false)
Test6_layer:removeChild(sp2, true)
Test6_layer:addChild(sp1, 0, kTagSprite1)
Test6_layer:addChild(sp2, 0, kTagSprite2)
sp1:release()
sp2:release()
end
local function Test6_onEnterOrExit(tag)
if tag == 0 then
Test6_entry = scheduler:scheduleScriptFunc(Test6_addAndRemove, 2.0, false)
elseif tag == 1 then
scheduler:unscheduleScriptEntry(Test6_entry)
end
end
local function Test6()
Test6_layer = getBaseLayer()
local sp1 = CCSprite:create(s_pPathSister1)
local sp11 = CCSprite:create(s_pPathSister1)
local sp2 = CCSprite:create(s_pPathSister2)
local sp21 = CCSprite:create(s_pPathSister2)
sp1:setPosition(CCPointMake(100, 160))
sp2:setPosition(CCPointMake(380, 160))
local rot = CCRotateBy:create(2, 360)
local rot_back = rot:reverse()
local forever1 = CCRepeatForever:create(CCSequence:createWithTwoActions(rot, rot_back))
local forever11 = forever1:copy():autorelease()
local forever2 = forever1:copy():autorelease()
local forever21 = forever1:copy():autorelease()
Test6_layer:addChild(sp1, 0, kTagSprite1)
sp1:addChild(sp11)
Test6_layer:addChild(sp2, 0, kTagSprite2)
sp2:addChild(sp21)
sp1:runAction(forever1)
sp11:runAction(forever11)
sp2:runAction(forever2)
sp21:runAction(forever21)
Test6_layer:registerScriptHandler(Test6_onEnterOrExit)
titleLabel:setString("remove/cleanup with children")
return Test6_layer
end
-----------------------------------
-- StressTest1
-----------------------------------
local StressTest1_entry = nil
local StressTest1_layer = nil
local function removeMe(node)
local parent = StressTest1_layer:getParent()
parent:removeChild(node, true)
nextCallback(node)
end
local function shouldNotCrash(dt)
scheduler:unscheduleScriptEntry(StressTest1_entry)
-- if the node has timers, it crashes
local explosion = CCParticleSun:create()
explosion:setTexture(CCTextureCache:sharedTextureCache():addImage("Images/fire.png"))
explosion:setPosition(s.width / 2, s.height / 2)
StressTest1_layer:setAnchorPoint(ccp(0, 0))
StressTest1_layer:runAction(CCSequence:createWithTwoActions(CCRotateBy:create(2, 360), CCCallFuncN:create(removeMe)))
StressTest1_layer:addChild(explosion)
end
local function StressTest1_onEnterOrExit(tag)
if tag == 0 then
StressTest1_entry = scheduler:scheduleScriptFunc(shouldNotCrash, 1.0, false)
elseif tag == 1 then
scheduler:unscheduleScriptEntry(StressTest1_entry)
end
end
local function StressTest1()
StressTest1_layer = getBaseLayer()
sp1 = CCSprite:create(s_pPathSister1)
StressTest1_layer:addChild(sp1, 0, kTagSprite1)
sp1:setPosition(CCPointMake(s.width / 2, s.height / 2))
StressTest1_layer:registerScriptHandler(StressTest1_onEnterOrExit)
titleLabel:setString("stress test #1: no crashes")
return StressTest1_layer
end
-----------------------------------
-- StressTest2
-----------------------------------
local StressTest2_entry = nil
local StressTest2_layer = nil
local function shouldNotLeak(dt)
scheduler:unscheduleScriptEntry(StressTest2_entry)
local sublayer = StressTest2_layer:getChildByTag(kTagSprite1)
sublayer:removeAllChildrenWithCleanup(true)
end
local function StressTest2_onEnterOrExit(tag)
if tag == 0 then
StressTest2_entry = scheduler:scheduleScriptFunc(shouldNotLeak, 6.0, false)
elseif tag == 1 then
scheduler:unscheduleScriptEntry(StressTest2_entry)
end
end
local function StressTest2()
StressTest2_layer = getBaseLayer()
sublayer = CCLayer:create()
local sp1 = CCSprite:create(s_pPathSister1)
sp1:setPosition(CCPointMake(80, s.height / 2))
local move = CCMoveBy:create(3, CCPointMake(350, 0))
local move_ease_inout3 = CCEaseInOut:create(move:copy():autorelease(), 2.0)
local move_ease_inout_back3 = move_ease_inout3:reverse()
local seq3 = CCSequence:createWithTwoActions(move_ease_inout3, move_ease_inout_back3)
sp1:runAction(CCRepeatForever:create(seq3))
sublayer:addChild(sp1, 1)
local fire = CCParticleFire:create()
fire:setTexture(CCTextureCache:sharedTextureCache():addImage("Images/fire.png"))
fire:setPosition(80, s.height / 2 - 50)
local copy_seq3 = seq3:copy():autorelease()
fire:runAction(CCRepeatForever:create(copy_seq3))
sublayer:addChild(fire, 2)
StressTest2_layer:registerScriptHandler(StressTest2_onEnterOrExit)
StressTest2_layer:addChild(sublayer, 0, kTagSprite1)
titleLabel:setString("stress test #2: no leaks")
return StressTest2_layer
end
-----------------------------------
-- NodeToWorld
-----------------------------------
local function NodeToWorld()
local layer = getBaseLayer()
-- This code tests that nodeToParent works OK:
-- - It tests different anchor Points
-- - It tests different children anchor points
local back = CCSprite:create(s_back3)
layer:addChild(back, -10)
back:setAnchorPoint(CCPointMake(0, 0))
local backSize = back:getContentSize()
local item = CCMenuItemImage:create(s_PlayNormal, s_PlaySelect)
local menu = CCMenu:create()
menu:addChild(item)
menu:alignItemsVertically()
menu:setPosition(ccp(backSize.width / 2, backSize.height / 2))
back:addChild(menu)
local rot = CCRotateBy:create(5, 360)
local fe = CCRepeatForever:create(rot)
item:runAction(fe)
local move = CCMoveBy:create(3, CCPointMake(200, 0))
local move_back = move:reverse()
local seq = CCSequence:createWithTwoActions(move, move_back)
local fe2 = CCRepeatForever:create(seq)
back:runAction(fe2)
titleLabel:setString("nodeToParent transform")
return layer
end
-----------------------------------
-- CameraOrbitTest
-----------------------------------
local function CameraOrbitTest_onEnterOrExit(tag)
if tag == 0 then
CCDirector:sharedDirector():setProjection(kCCDirectorProjection3D)
elseif tag == 1 then
CCDirector:sharedDirector():setProjection(kCCDirectorProjection2D)
end
end
local function CameraOrbitTest()
local layer = getBaseLayer()
local p = CCSprite:create(s_back3)
layer:addChild(p, 0)
p:setPosition(CCPointMake(s.width / 2, s.height / 2))
p:setOpacity(128)
-- LEFT
local s = p:getContentSize()
local sprite = CCSprite:create(s_pPathGrossini)
sprite:setScale(0.5)
p:addChild(sprite, 0)
sprite:setPosition(CCPointMake(s.width / 4 * 1, s.height / 2))
local cam = sprite:getCamera()
local orbit = CCOrbitCamera:create(2, 1, 0, 0, 360, 0, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- CENTER
sprite = CCSprite:create(s_pPathGrossini)
sprite:setScale(1.0)
p:addChild(sprite, 0)
sprite:setPosition(CCPointMake(s.width / 4 * 2, s.height / 2))
orbit = CCOrbitCamera:create(2, 1, 0, 0, 360, 45, 0)
sprite:runAction(CCRepeatForever:create(orbit))
-- RIGHT
sprite = CCSprite:create(s_pPathGrossini)
sprite:setScale(2.0)
p:addChild(sprite, 0)
sprite:setPosition(CCPointMake(s.width / 4 * 3, s.height / 2))
local ss = sprite:getContentSize()
orbit = CCOrbitCamera:create(2, 1, 0, 0, 360, 90, -45)
sprite:runAction(CCRepeatForever:create(orbit))
-- PARENT
orbit = CCOrbitCamera:create(10, 1, 0, 0, 360, 0, 90)
p:runAction(CCRepeatForever:create(orbit))
layer:setScale(1)
titleLabel:setString("Camera Orbit test")
return layer
end
-----------------------------------
-- CameraZoomTest
-----------------------------------
local z = 0
local CameraZoomTest_layer = nil
local CameraZoomTest_entry = nil
local function CameraZoomTest_update(dt)
z = z + dt * 100
local sprite = CameraZoomTest_layer:getChildByTag(20)
local cam = sprite:getCamera()
cam:setEyeXYZ(0, 0, z)
sprite = CameraZoomTest_layer:getChildByTag(40)
cam = sprite:getCamera()
cam:setEyeXYZ(0, 0, -z)
end
local function CameraZoomTest_onEnterOrExit(tag)
if tag == 0 then
CCDirector:sharedDirector():setProjection(kCCDirectorProjection3D)
CameraZoomTest_entry = scheduler:scheduleScriptFunc(CameraZoomTest_update, 0.0, false)
elseif tag == 1 then
CCDirector:sharedDirector():setProjection(kCCDirectorProjection2D)
scheduler:unscheduleScriptEntry(CameraZoomTest_entry)
end
end
local function CameraZoomTest()
CameraZoomTest_layer = getBaseLayer()
z = 0
-- LEFT
local sprite = CCSprite:create(s_pPathGrossini)
CameraZoomTest_layer:addChild(sprite, 0)
sprite:setPosition(ccp(s.width / 4 * 1, s.height / 2))
local cam = sprite:getCamera()
cam:setEyeXYZ(0, 0, 415 / 2)
cam:setCenterXYZ(0, 0, 0)
-- CENTER
sprite = CCSprite:create(s_pPathGrossini)
CameraZoomTest_layer:addChild(sprite, 0, 40)
sprite:setPosition(ccp(s.width / 4 * 2, s.height / 2))
-- RIGHT
sprite = CCSprite:create(s_pPathGrossini)
CameraZoomTest_layer:addChild(sprite, 0, 20)
sprite:setPosition(ccp(s.width / 4 * 3, s.height / 2))
CameraZoomTest_layer:scheduleUpdate()
CameraZoomTest_layer:registerScriptHandler(CameraZoomTest_onEnterOrExit)
titleLabel:setString("Camera Zoom test")
return CameraZoomTest_layer
end
-----------------------------------
-- ConvertToNode
-----------------------------------
local ConvertToNode_layer = nil
local function ConvertToNode()
ConvertToNode_layer = getBaseLayer()
local rotate = CCRotateBy:create(10, 360)
local action = CCRepeatForever:create(rotate)
for i = 0, 2 do
local sprite = CCSprite:create("Images/grossini.png")
sprite:setPosition(ccp(s.width / 4 * (i + 1), s.height / 2))
local point = CCSprite:create("Images/r1.png")
point:setScale(0.25)
point:setPosition(sprite:getPosition())
ConvertToNode_layer:addChild(point, 10, 100 + i)
if i == 0 then
sprite:setAnchorPoint(ccp(0, 0))
elseif i == 1 then
sprite:setAnchorPoint(ccp(0.5, 0.5))
elseif i == 2 then
sprite:setAnchorPoint(ccp(1,1))
end
point:setPosition(sprite:getPosition())
local copy = action:copy()
copy:autorelease()
sprite:runAction(copy)
ConvertToNode_layer:addChild(sprite, i)
end
local function onTouchEnded(x, y)
for i = 0, 2 do
local node = ConvertToNode_layer:getChildByTag(100 + i)
local p1, p2
p1 = node:convertToNodeSpaceAR(ccp(x, y))
p2 = node:convertToNodeSpace(ccp(x, y))
cclog("AR: x=" .. p1.x .. ", y=" .. p1.y .. " -- Not AR: x=" .. p2.x .. ", y=" .. p2.y)
end
end
local function onTouch(eventType, x, y)
if eventType == CCTOUCHBEGAN then
return true
elseif eventType == CCTOUCHENDED then
return onTouchEnded(x, y)
end
end
ConvertToNode_layer:setTouchEnabled(true)
ConvertToNode_layer:registerScriptTouchHandler(onTouch)
titleLabel:setString("Convert To Node Space")
subTitleLabel:setString("testing convertToNodeSpace / AR. Touch and see console")
return ConvertToNode_layer
end
-----------------------------------
-- NodeOpaqueTest
-----------------------------------
local function NodeOpaqueTest()
local layer = getBaseLayer()
for i = 0, 49 do
local background = CCSprite:create("Images/background1.png")
--background:setGLServerState(background:getGLServerState() & (~CC_GL_BLEND))
background:setAnchorPoint(ccp(0, 0))
layer:addChild(background)
end
titleLabel:setString("Node Opaque Test")
subTitleLabel:setString("Node rendered with GL_BLEND disabled")
return layer
end
-----------------------------------
-- NodeNonOpaqueTest
-----------------------------------
local function NodeNonOpaqueTest()
local layer = getBaseLayer()
for i = 0, 49 do
background = CCSprite:create("Images/background1.jpg")
--background:setGLServerState(background:getGLServerState() | CC_GL_BLEND)
background:setAnchorPoint(ccp(0, 0))
layer:addChild(background)
end
titleLabel:setString("Node Non Opaque Test")
subTitleLabel:setString("Node rendered with GL_BLEND enabled")
return layer
end
-----------------------------------
-- Node Test
-----------------------------------
function CreateNodeTestLayer()
if SceneIdx == 0 then
return CameraCenterTest()
elseif SceneIdx == 1 then
return Test2()
elseif SceneIdx == 2 then
return Test4()
elseif SceneIdx == 3 then
return Test5()
elseif SceneIdx == 4 then
return Test6()
elseif SceneIdx == 5 then
return StressTest1()
elseif SceneIdx == 6 then
return StressTest2()
elseif SceneIdx == 7 then
return NodeToWorld()
elseif SceneIdx == 8 then
return CameraOrbitTest()
elseif SceneIdx == 9 then
return CameraZoomTest()
elseif SceneIdx == 10 then
return ConvertToNode()
end
end
function CocosNodeTest()
cclog("NodeTest")
local scene = CCScene:create()
SceneIdx = -1
scene:addChild(nextAction())
scene:addChild(CreateBackMenuItem())
return scene
end