dan/eufon
1
0
Fork 0
Code Issues Pull Requests Releases Activity

use output width/height instead of hardcoding

Browse Source
This commit is contained in:
Daniel Barlow 2022-07-01 22:08:15 +00:00
parent 6ed0e63a8f
commit 7db61a7af0
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
rc.fnl
View File

@ -28,32 +28,34 @@
"output" "output"
(fn [output] (fn [output]
(output:set_mode 360 720 0) (output:set_mode 360 720 0)
(let [r (output:renderer) (let [[width height] (output:size)
r (output:renderer)
kill (texture-from-file r "close-window.png") kill (texture-from-file r "close-window.png")
launch (texture-from-file r "launcher.png") launch (texture-from-file r "launcher.png")
spinner (texture-from-file r "carousel.png")] spinner (texture-from-file r "carousel.png")]
(output:on "render" (output:on "render"
(fn [{: output : renderer}] (fn [{: output : renderer}]
(let [bar-height 40 (let [bar-height (/ height 15)
matrix [1 0 0 matrix [1 0 0
0 1 0 0 1 0
0 0 1]] 0 0 1]]
(renderer:draw_rect :#00000077 (renderer:draw_rect :#00000077
0 (- 720 bar-height) 0 (- height bar-height)
690 360 bar-height) width bar-height)
(renderer:draw_texture (renderer:draw_texture
kill kill
matrix matrix
30 (- 720 bar-height) 30 (- height bar-height)
0.7) 0.7)
(renderer:draw_texture (renderer:draw_texture
launch matrix launch
(- 180 (/ bar-height 2)) (- 720 bar-height) matrix
(- (/ width 2) (/ bar-height 2)) (- height bar-height)
0.7) 0.7)
(renderer:draw_texture (renderer:draw_texture
spinner spinner
matrix matrix
(- 360 30 bar-height) (- 720 bar-height) (- width 30 bar-height) (- height bar-height)
0.7))))))) 0.7)))))))
(fn kill-window [] (fn kill-window []