Picking 3D objects

Click here to download the sample file

property m1,m2

on beginsprite
  member(1).resetWorld()
 
  newmodel1 = member(1).newModelresource("sphereResource1",#sphere, #both)
  newmodel1.radius = 30
  m1 = member(1).newModel("sphere",newmodel1)
  m1.transform.rotate(0, 180, 0 ) 
  newmodel2 = member(1).newModelresource("boxResource2",#box)
  m2 = member(1).newModel("box",newmodel2)

  m1.transform.position.x = 20
  m2.transform.position.x = -20
  m2.transform.rotate(0, 45, 0 ) 
end

on exitFrame
  modelList = member(1).camera[1].modelsUnderloc(the mouseLoc,1)
  if (modelList.count>0) then
    Z = modelList[1].transform.position.z
    modelList[1].transform.position.z = Z + 1
  end if
end