summaryrefslogtreecommitdiff
path: root/src/corridor.fnl
diff options
context:
space:
mode:
Diffstat (limited to 'src/corridor.fnl')
-rw-r--r--src/corridor.fnl136
1 files changed, 87 insertions, 49 deletions
diff --git a/src/corridor.fnl b/src/corridor.fnl
index a0ad593..d6aef59 100644
--- a/src/corridor.fnl
+++ b/src/corridor.fnl
@@ -9,66 +9,104 @@
(> x max) max
x))
-(fn camera-trans-amt [player-x]
- (- (clamp (- player-x 320)
- 0 400)))
+(fn draw-rectangle [mode x1 y1 x2 y2]
+ ; instead of width and height
+ (love.graphics.polygon mode
+ x1 y1 x2 y1
+ x2 y2 x1 y2))
-(fn centre-pos [player-x]
- ; a bit hacky
- (+ 320 (- (camera-trans-amt player-x))))
+(local WIDTH 640)
+(local HALFWIDTH (/ WIDTH 2))
-(local window-depth-x 15)
-(local window-depth-y 10)
-(local window-prlx-fact 0.04)
-(fn draw-window [x y w h cpos]
- (love.graphics.setColor 0.9 0.9 0.9)
- (love.graphics.rectangle :fill x y w h)
- (love.graphics.setColor 0 0 0)
- (love.graphics.setLineWidth 4)
- (love.graphics.rectangle :line x y w h)
-
- (let [centre (+ x (/ w 2))
- offset (- centre cpos)
- movt (* offset window-prlx-fact)
- left* (+ movt x window-depth-x)
- right* (+ movt (- (+ x w) window-depth-x))
- left (math.max left* x)
- right (math.min right* (+ x w))]
- (love.graphics.rectangle :line
- left
- (+ window-depth-y y)
- (- right left)
- (- h (* 2 window-depth-y)))))
+(local border-left -30)
+(local border-right 1520)
+
+(fn effective-ppos-x [player-x]
+ (let [threshold-left (+ border-left HALFWIDTH)
+ threshold-right (- border-right HALFWIDTH)]
+ (clamp player-x threshold-left threshold-right)))
+
+(fn trans-amt-x [player-x]
+ (let [eff (effective-ppos-x player-x)]
+ (- HALFWIDTH eff)))
-
-
- ;(love.graphics.rectangle :line
- ; (+ (* left-offset window-depth-x) x)
- ; (+ window-depth-y y)
- ; (- w (* 2 (* right-offset window-depth-x)))
- ; (- h (* 2 window-depth-y))))
+
+(fn draw-stars []
+ (love.graphics.setColor 0.05 0.05 0.2)
+ (love.graphics.rectangle :fill border-left 0 (- border-right border-left) 480)
+ (math.randomseed 69420)
+ (love.graphics.setColor 1 1 1)
+ (for [i 1 200]
+ (let [sz (math.random 3 10)
+ x (math.random border-left border-right)
+ y (math.random 0 480)
+ c (- 0.7 (* 0.3 (math.random)))]
+ (love.graphics.setColor 1 1 c)
+ (love.graphics.rectangle :fill x y sz sz))))
(fn make [font]
- (local title (love.graphics.newText font :corridor))
+ (local title (love.graphics.newText font "corridor A2"))
(local player (player.make))
+ (local windows [[10 100 400 80]
+ [600 100 400 80]
+ [1050 50 800 300]])
+
+
+ (fn draw-windows []
+ (love.graphics.stencil (fn []
+ (each [_ [x y w h] (pairs windows)]
+ (love.graphics.rectangle :fill x y w h))
+ :replace 1))
+ (love.graphics.setStencilTest :greater 0)
+ ; stil hacky
+ (love.graphics.push)
+ (let [cpos (trans-amt-x player.x)]
+ (love.graphics.translate (* -0.75 cpos) 0))
+ (draw-stars)
+ (love.graphics.pop)
+
+ (love.graphics.setStencilTest)
+ (love.graphics.setColor 0 0 0)
+ (love.graphics.setLineWidth 7)
+ (each [_ [x y w h] (pairs windows)]
+ (love.graphics.rectangle :line x y w h)))
+
+
(fn draw []
(love.graphics.setColor 0 0 0)
- (love.graphics.print (..
- :+px " " player.x "\n"
- :-px " " (- 320 player.x) "\n"
- :cta " " (camera-trans-amt player.x) "\n"
- :cps " " (centre-pos player.x))
- 6 20)
- (love.graphics.translate (camera-trans-amt player.x) 0)
+
+ (fn dbg-print [...]
+ ; bad
+ (var out {})
+ (for [i 1 (select :# ...) 2]
+ (table.insert out (..
+ (select i ...)
+ " "
+ (select (+ i 1) ...))))
+ (let [txt (table.concat out "\n")]
+ (love.graphics.print txt 6 28)
+ (love.graphics.print txt 500 400)))
+
+ (dbg-print
+ :x player.x
+ :y player.y)
+
+
+
+
+
+
+ (love.graphics.translate (trans-amt-x player.x) 0)
+
(love.graphics.setColor 0.8 0.8 0.8)
(love.graphics.setLineWidth 10)
- (love.graphics.rectangle :line 30 250 980 200)
+ (draw-rectangle :line 0 250 1000 450)
- (let [c (centre-pos player.x)]
- (draw-window 300 100 300 80 c)
- (draw-window 630 100 300 80 c))
-
- ;(love.graphics.draw title (- 610 (title:getWidth)) -10)
+ (draw-windows)
+
+ (love.graphics.draw title 0 10)
+
+
(player:draw))
(fn update [dt]