This function creates s new sphere shape.
Returns a new shape.
window=Window:Create()
context=Context:Create(window)
world=World:Create()
camera = Camera:Create()
camera:SetRotation(35,0,0)
camera:Move(0,0,-10)
light = DirectionalLight:Create()
light:SetRotation(35,35,0)
--Create the ground
local ground = Model:Box(10,1,10)
ground:SetPosition(0,0,-0.5)
ground:SetColor(0,1,0)
--Create a shape
local shape = Shape:Box(0,0,0, 0,0,0, 10,1,10)
ground:SetShape(shape)
shape:Release()
--Create a model
local model = Model:Sphere()
model:SetPosition(0,5,0)
model:SetColor(0,0,1)
model:SetMass(1)
model:SetRotation(0,0,85)
model:AddForce(0,0,-50)
--Create a shape
shape = Shape:Sphere(0,0,0, 0,0,0, 1,1,1)
model:SetShape(shape)
shape:Release()
while true do
if window:Closed() or window:KeyHit(Key.Escape) then return false end
Time:Update()
world:Update()
world:Render()
context:Sync()
end