Completed "A circle amongst squares"

Author: messersm

README.md

@@ -19,3 +19,16 @@ It's main focus is generating time-delayed sound and graphics.
 **Löve-File:** [thunderstorm.love](bin/thunderstorm.love?raw=true)
 
 **Credits:** [Credits](thunderstorm/credits.md)
+
+## A circle amongst squares
+![Circle screenshot](circle-amongst-squares/screenshot.png "A circle amongst squares screenshot")
+
+A little horror "game", in which you are a circle amongst squares.
+This one has directional sound in it, so earphones may be a good idea.
+I also played around with a pixel shader and am quite pleased with the results. :-)
+
+**How to play:** Move with w, a, s, d or the cursor keys. Press escape to exit.
+
+**Löve-File:** [circle-amongst-squares.love](bin/circle-amongst-squares.love?raw=true)
+
+**Credits:** [Credits](circle-amongst-squares/credits.md)

bin/circle-amongst-squares.love

@@ -1,6 +1,6 @@
 function love.conf(t)
     t.window.width = 1280
     t.window.height = 720
-    t.window.fullscreen = false
+    t.window.fullscreen = true
     t.window.title = "A circle amongst squares"
 end

circle-amongst-squares/conf.lua

@@ -0,0 +1,17 @@
+# Credits for *A circle among squares*
+
+Scary Ambient Wind
+ * Attribution: https://soundcloud.com/alexandr-zhelanov
+ * Author: Alexandr Zhelanov
+ * URL: https://opengameart.org/content/scary-ambient-wind
+ * License: CC-BY 3.0
+
+Paper 03 sound
+ * Author: rubberduck
+ * URL: https://opengameart.org/content/100-cc0-sfx
+ * License: CC0 (Public Domain)
+
+Bump Library
+ * Author: kikito
+ * URL: https://github.com/kikito/bump.lua
+ * License: MIT

circle-amongst-squares/credits.md

@@ -0,0 +1,26 @@
+// Source of the light in screen coordinates
+extern vec2 sourcePos = vec2(0, 0);
+
+number dist(vec2 pos1, vec2 pos2) {
+    return (pos1.x - pos2.x) * (pos1.x - pos2.x) +
+           (pos1.y - pos2.y) * (pos1.y - pos2.y);
+}
+
+vec4 effect(vec4 color, Image texture, vec2 texture_coords, vec2 screen_coords){
+    vec4 pixel = Texel(texture, texture_coords);
+    number distance = dist(sourcePos, screen_coords);
+
+    if (distance > 10000) {
+        pixel.r = 0;
+        pixel.g = 0;
+        pixel.b = 0;
+    }
+    // For some reason this doesn't cause problems
+    // even if distance is 0...
+    else {
+        pixel.r *= 1000 / distance;
+        pixel.g *= 1000 / distance;
+        pixel.b *= 1000 / distance;
+    }
+    return pixel * color;
+}

circle-amongst-squares/light.glsl

@@ -26,34 +26,89 @@ function newSquare()
     return square
 end
 
+function sign(x)
+    if x > 0 then
+        return 1
+    elseif x < 0 then
+        return -1
+    else
+        return 0
+    end
+end
+
+function move_something()
+    -- Find a rect very close to the edge
+    -- of visible objects and move it.
+    x = circle.x + circle.r
+    y = circle.y + circle.r
+
+    for _, sq in pairs(squares) do
+        local dx = sq.x + sq.width / 2 - x
+        local dy = sq.y + sq.height / 2 - y
+        distance = dx * dx + dy * dy
+
+        if 5000 < distance and distance < 8000 then
+            local sq_dx = love.math.random(-10, 10)
+            local sq_dy = love.math.random(-10, 10)
+            sq.x, sq.y = world:move(sq, sq.x + sq_dx, sq.y + sq_dy)
+            movesound:setPosition(sign(dx), sign(dy))
+            movesound:play()
+            return true
+        end
+    end
+
+    return false
+end
+
+--------------------
+-- love callbacks --
+--------------------
 function love.load()
+    -- hide mouse cursor
+    love.mouse.setVisible(false)
+
+    ambient = love.audio.newSource("res/scary.ogg", "stream")
+    ambient:setLooping(true)
+    ambient:setVolume(0.1)
+    ambient:play()
+
+    movesound = love.audio.newSource("res/movement.ogg", "static")
+    next_move_in = love.math.random(10, 20)
+
+    light = love.graphics.newShader("light.glsl")
     world = bump.newWorld()
     squares = {}
-    circle = {x=0, y=0, dx=0, dy=0, speed=100, r=10, color={1, 0, 1, 1}}
+    circle = {x=0, y=0, dx=0, dy=0, speed=100, r=10, color={1, 1, 1, 1}}
     world:add(circle, circle.x, circle.y, circle.r * 2, circle.r * 2)
 
     for i = 1, 100 do
         local square = newSquare()
         table.insert(squares, square)
         world:add(square, square.x, square.y, square.width, square.height)
     end
+
+    light:send("sourcePos", {circle.x + circle.r, circle.y + circle.r})
 end
 
 function love.draw()
+    love.graphics.setShader(light)
+
     for _, sq in pairs(squares) do
-        with_color(sq.color, love.graphics.rectangle,
-            "fill", sq.x, sq.y, sq.width, sq.height)
+        love.graphics.setColor(sq.color)
+        love.graphics.rectangle("fill", sq.x, sq.y, sq.width, sq.height)
     end
 
     -- draw the circle to the right/bottom of x, y,
-    -- since bump uses these coordinates for collision
-    -- checks
-    with_color(circle.color, love.graphics.arc, "fill",
-        circle.x + circle.r, circle.y + circle.r, circle.r, 0, math.pi*2)
+    -- since bump uses these coordinates for collision checks
+    love.graphics.setColor(circle.color)
+    local x, y = circle.x + circle.r, circle.y + circle.r
+    love.graphics.arc("fill", x, y, circle.r, 0, math.pi*2)
+
+    love.graphics.setShader()
 end
 
 function love.update(dt)
-    -- handle keyboard input
+    -- handle circle movement
     if love.keyboard.isDown("a", "left") then
         circle.dx = - circle.speed
     elseif love.keyboard.isDown("d", "right") then
@@ -72,6 +127,27 @@ function love.update(dt)
 
     local x = circle.x + circle.dx * dt
     local y = circle.y + circle.dy * dt
-    -- circle.x, circle.y = world:move(circle, x - circle.r, y - circle.r)
-    circle.x, circle.y = world:move(circle, x, y)
+
+    if x ~= circle.x or y ~= circle.y then
+        circle.x, circle.y = world:move(circle, x, y)
+        -- update the light shader source position
+        light:send("sourcePos", {circle.x + circle.r, circle.y + circle.r})
+    end
+
+    -- handle randomly moving squares
+    next_move_in = next_move_in - dt
+    if next_move_in <= 0 then
+        if move_something() then
+            next_move_in = love.math.random(10, 20)
+        else
+            next_move_in = 0
+        end
+    end
+end
+
+function love.keypressed(key, scancode, isrepeat)
+    -- exit on Escape
+    if key == "escape" then
+        love.event.quit()
+    end
 end