-- This file:
--   http://anggtwu.net/LOVE2D/2.lua.html
--   http://anggtwu.net/LOVE2D/2.lua
--          (find-angg "LOVE2D/2.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun e () (interactive) (find-angg "LOVE2D/2.lua"))
-- See: (find-es "love" "sigusr1")
-- See: (find-es "love" "sigusr2")


x = 75
y = 75
color_r = 255
color_g = 0
color_b = 0

love.update = function () end

love.draw = function ()
    love.graphics.setColor(color_r, color_g, color_b)
    love.graphics.rectangle('fill', x,y, 50,50)
  end

love.keypressed = function (key)
    if key == 'd' then x = x + 1 end
    -- (find-angg ".zshrc" "eev")
    if key == 'e' then dofile(os.getenv("EE")) end
  end

load_posix()
pid = getoutput("echo $PPID") + 0
ee_writefile("/tmp/love2d.pid", pid.."\n")
on_SIGUSR2  = function () dofile "/tmp/love2d.runthis" end
on_SIGUSR2_ = function () on_SIGUSR2() end
posix.signal.signal(posix.signal.SIGUSR2, on_SIGUSR2_)



--[[
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cp -v 2.lua main.lua
love .

color_g = 255
color_g = 0
PPV(sortedkeys(_G))
PP(_VERSION)
load_posix()
PPV(sortedkeys(posix))

posix.signal()

* (find-sh0 "cat /tmp/this_pid")
* (find-sh0 "kill -s USR2 $(cat /tmp/this_pid)")


(defun eel (s &optional e)
  (interactive "r")
  (ee-write-with-nl s e "" "" "/tmp/love2d.runthis")
  (message (find-sh0 "kill -s USR2 $(cat /tmp/love2d.pid)")))


--]]