-- environment
local physics = require("physics")
physics.start()
physics.setGravity( 0, 10 )
physics.setDrawMode( 'hybrid' )
 
--+++++++++++++++++++++++++++++
--This fixes for mostly the pull apart crap
-- :) 
 
physics.setPositionIterations(128)
--+++++++++++++++++++++++++++++
 
 
-- values
local props = { friction=1, density=1, bounce=0.1 }
 
local scene = display.newGroup()
local doll = display.newGroup()
 
-- scene
scene.static = display.newRect( scene, 100, 100, 50, 50 )
scene.weld = display.newRect( scene, 300, 100, 50, 50 )
scene.floor = display.newRect( scene, 0, 320, 600, 10 )
 
physics.addBody( scene.static, "static", props )
physics.addBody( scene.floor, "static", props )
physics.addBody( scene.weld, "dynamic", props )
scene.weldjoint = physics.newJoint( "weld", scene.static, scene.weld, scene.weld.x, scene.weld.y )
 
-- ragdoll
doll.head = display.newCircle( doll, 200, 100, 20 ); doll.head.radius = 20
doll.neck = display.newRect( doll, 195, 120, 10, 10 )
doll.body = display.newRect( doll, 180, 130, 40, 80 )
doll.leftupperarm = display.newRect( doll, 170, 130, 10, 30 )
doll.rightupperarm = display.newRect( doll, 220, 130, 10, 30 )
doll.leftlowerarm = display.newRect( doll, 170, 160, 10, 30 )
doll.rightlowerarm = display.newRect( doll, 220, 160, 10, 30 )
doll.leftthigh = display.newRect( doll, 175, 210, 10, 30 )
doll.rightthigh = display.newRect( doll, 215, 210, 10, 30 )
doll.leftshin = display.newRect( doll, 175, 240, 10, 30 )
doll.rightshin = display.newRect( doll, 215, 240, 10, 30 )
 
function addBodies( groups, props )
        for i=1, #groups do
                local dg = groups[i]
                for i=1, dg.numChildren do
                        if (dg[i].radius) then
                                props.radius = dg[i].radius
                        else
                                props.radius = nil
                        end
                        physics.addBody( dg[i], "dynamic", props )
                end
        end
end
 
addBodies( { doll }, props )
 
function setColours( dg )
        for i=1, dg.numChildren do
                local obj = dg[i]
                obj.strokeWidth = 1
                obj:setStrokeColor( 255,255,255 )
                obj:setFillColor( 150,150,150 )
        end
end
 
setColours( doll )
setColours( scene )
 
doll.chin = physics.newJoint( "pivot", doll.head, doll.neck, doll.neck.x, doll.neck.y-doll.neck.height/2 )
doll.throat = physics.newJoint( "pivot", doll.body, doll.neck, doll.neck.x, doll.neck.y+doll.neck.height/2 )
doll.leftshoulder = physics.newJoint( "pivot", doll.body, doll.leftupperarm, doll.leftupperarm.x, doll.leftupperarm.y-doll.leftupperarm.height/2 )
doll.rightshoulder = physics.newJoint( "pivot", doll.body, doll.rightupperarm, doll.rightupperarm.x, doll.rightupperarm.y-doll.rightupperarm.height/2 )
doll.leftelbow = physics.newJoint( "pivot", doll.leftlowerarm, doll.leftupperarm, doll.leftupperarm.x, doll.leftupperarm.y+doll.leftupperarm.height/2 )
doll.rightelbow = physics.newJoint( "pivot", doll.rightlowerarm, doll.rightupperarm, doll.rightupperarm.x, doll.rightupperarm.y+doll.rightupperarm.height/2 )
doll.lefthip = physics.newJoint( "pivot", doll.body, doll.leftthigh, doll.leftthigh.x, doll.leftthigh.y-doll.leftthigh.height/2 )
doll.righthip = physics.newJoint( "pivot", doll.body, doll.rightthigh, doll.rightthigh.x, doll.rightthigh.y-doll.rightthigh.height/2 )
doll.leftknee = physics.newJoint( "pivot", doll.leftshin, doll.leftthigh, doll.leftthigh.x, doll.leftthigh.y+doll.leftthigh.height/2 )
doll.rightknee = physics.newJoint( "pivot", doll.rightshin, doll.rightthigh, doll.rightthigh.x, doll.rightthigh.y+doll.rightthigh.height/2 )
 
function addRotationLimits( joints, limit )
        for i=1, #joints do
                local joint = joints[i]
                joint.isLimitEnabled = true
                joint:setRotationLimits( -limit, limit )
        end
end
 
addRotationLimits(
        { doll.chin, doll.throat, doll.leftshoulder, doll.rightshoulder, doll.leftelbow, doll.rightelbow, doll.lefthip, doll.righthip, doll.leftknee, doll.rightknee },
        45
)
 
function touch( event )
        if (event.phase == 'began') then
                doll.touch = physics.newJoint( "touch", event.target, event.x, event.y )
                print(doll.touch.maxForce,doll.touch.frequency,doll.touch.dampingRatio)
                doll.touch:setTarget( event.x, event.y )
                display.getCurrentStage():setFocus( event.target )
        elseif (event.phase == 'moved' and doll.touch ~= nil) then
                doll.touch:setTarget( event.x, event.y )
        elseif (doll.touch ~= nil) then
                doll.touch:removeSelf()
                doll.touch = nil
                display.getCurrentStage():setFocus( nil )
        end
        
        return true
end
 
function addTouch( dg )
        for i=1, dg.numChildren do
                dg[i]:addEventListener( "touch", touch )
        end
end
 
addTouch( doll )