tilerotate-demo/main.lua
2025-10-30 00:09:34 +03:00

70 lines
3.2 KiB
Lua

require 'point'
require 'gridpoint'
require 'mouse'
require 'mechanism'
require 'port'
require 'tablefuncs'
function love.load()
Screenw, Screenh = love.window.getMode()
Gridw, Gridh = Screenw / Config.cellSize, Screenh / Config.cellSize
local port1 = Port:new( GridPoint:new(-1, 0), PortRotation.left, { 0.8, 0.8, 0, 1 } )
local port2 = Port:new( GridPoint:new(0, -1), PortRotation.up, { 0.8, 0, 0.8, 1 } )
local port3 = Port:new( GridPoint:new(3, 2), PortRotation.right, { 0.8, 0, 0, 1 } )
local port4 = Port:new( GridPoint:new(2, 3), PortRotation.down, { 0, 0, 0.8, 1 } )
local mecha1 = Mechanism:new( GridPoint:new(5, 5), GridPoint:new(3, 3), { port1, port2, port3, port4 }, {0.5, 0.5, 0.5, 1} )
local port5 = Port:new( GridPoint:new(-1, 0), PortRotation.left, { 0.8, 0.8, 0, 1 } )
local port6 = Port:new( GridPoint:new(0, -1), PortRotation.up, { 0.8, 0, 0.8, 1 } )
local port7 = Port:new( GridPoint:new(2, 1), PortRotation.right, { 0.8, 0, 0, 1 } )
local port8 = Port:new( GridPoint:new(1, 2), PortRotation.down, { 0, 0, 0.8, 1 } )
local mecha2 = Mechanism:new( GridPoint:new(10, 5), GridPoint:new(2, 2), { port5, port6, port7, port8 }, {0.5, 1, 0.5, 1} )
local port9 = Port:new( GridPoint:new(-1, 0), PortRotation.left, { 0.8, 0.8, 0, 1 } )
local port10 = Port:new( GridPoint:new(0, -1), PortRotation.up, { 0.8, 0, 0.8, 1 } )
local port11 = Port:new( GridPoint:new(2, 0), PortRotation.right, { 0.8, 0, 0, 1 } )
local port12 = Port:new( GridPoint:new(1, 1), PortRotation.down, { 0, 0, 0.8, 1 } )
local mecha3 = Mechanism:new( GridPoint:new(13, 5), GridPoint:new(2, 1), { port9, port10, port11, port12 }, {1, 0.5, 0.5, 1} )
local port13 = Port:new( GridPoint:new(-1, 0), PortRotation.left, { 0.8, 0.8, 0, 1 } )
local port14 = Port:new( GridPoint:new(0, -1), PortRotation.up, { 0.8, 0, 0.8, 1 } )
local port15 = Port:new( GridPoint:new(2, 0), PortRotation.right, { 0.8, 0, 0, 1 } )
local port16 = Port:new( GridPoint:new(1, 1), PortRotation.down, { 0, 0, 0.8, 1 } )
local mecha4 = Mechanism:new( GridPoint:new(16, 5), GridPoint:new(2, 1), { port13, port14, port15, port16 }, {0.5, 0.5, 1, 1} )
Mechs = {mecha1, mecha2, mecha3, mecha4}
end
function love.update( dt )
dt = dt
Mouse:update()
if Mouse.lastPressed and not Mouse.pressed then
local index = TableFind(Mechs, Mouse.point, function(mp, mech)
return mp.x >= mech.position.x and mp.x < mech.position.x + mech.size.x and
mp.y >= mech.position.y and mp.y < mech.position.y + mech.size.y
end
)
if index ~= nil then
Mechs[index]:rotateClockwise()
end
end
end
function love.draw()
love.graphics.setColor(1, 1, 1, 1)
for i = 1, Gridw do
love.graphics.line( i * Config.cellSize, 0, i * Config.cellSize, Screenh )
end
for j = 1, Gridh do
love.graphics.line( 0, j * Config.cellSize, Screenw, j * Config.cellSize )
end
local mx, my = Mouse.point:globalCoords()
local mh, mw = Config.cellSize, Config.cellSize
love.graphics.rectangle("fill", mx, my, mh, mw)
love.graphics.print(string.format("%s, %s", Mouse.point.x, Mouse.point.y), 100, 100)
for _, mech in ipairs(Mechs) do
mech:draw()
end
end