Fix syntax error and formatting.

This commit is contained in:
Phil Hagelberg 2019-09-22 15:38:01 -07:00
parent 7772d40b2e
commit 7e2ba3daa8

View file

@ -13,26 +13,25 @@
(mode.activate ...)))
(fn love.load []
(: canvas :setFilter "nearest" "nearest")
(repl.start))
(canvas:setFilter "nearest" "nearest")
(repl.start))
(fn love.draw []
;; the canvas allows you to get sharp pixel-art style scaling; if you
;; don't want that, just skip that and call mode.draw directly.
(love.graphics.setCanvas canvas)
(love.graphics.clear)
(love.graphics.setColor 1 1 1)
(mode.draw)
(love.graphics.setCanvas)
(love.graphics.setColor 1 1 1)
(love.graphics.draw canvas 0 0 0 scale scale))
;; the canvas allows you to get sharp pixel-art style scaling; if you
;; don't want that, just skip that and call mode.draw directly.
(love.graphics.setCanvas canvas)
(love.graphics.clear)
(love.graphics.setColor 1 1 1)
(mode.draw)
(love.graphics.setCanvas)
(love.graphics.setColor 1 1 1)
(love.graphics.draw canvas 0 0 0 scale scale))
(fn love.update[dt]
(mode.update dt set-mode))
(fn love.update [dt]
(mode.update dt set-mode))
(fn love.keypressed [key]
(if
(and (love.keyboard.isDown "lctrl" "rctrl" "capslock") (= key "q"))
(love.event.quit)
;; add what each keypress should do in each mode
(mode.keypressed key set-mode)))
(if (and (love.keyboard.isDown "lctrl" "rctrl" "capslock") (= key "q"))
(love.event.quit)
;; add what each keypress should do in each mode
(mode.keypressed key set-mode)))