asrael/pxl8
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cleanup

Browse source
This commit is contained in:
asrael 2025-09-28 13:10:29 -05:00
parent 9f96626ea7
commit 6a02b24ae6
29 changed files with 653 additions and 583 deletions
Download patch file Download diff file Expand all files Collapse all files

84
demo/main.fnl
View file

@ -3,44 +3,76 @@
(var time 0)
(var current-effect 1)
(var particles nil)
(var starfield-init false)
(var fire-init false)
(var rain-init false)
(var snow-init false)
(var logo-x 256)
(var logo-y 148)
(var logo-dx 100)
(var logo-dy 80)
(var logo-sprite nil)
(global init (fn []
(pxl8.load_palette "palettes/gruvbox.ase")
(set particles (pxl8.particles_new 1000))))
(set particles (pxl8.particles_new 1000))
(set logo-sprite (pxl8.load_sprite "sprites/pxl8.ase"))))
(global update (fn [dt]
(set time (+ time dt))
(when (pxl8.key_pressed "1")
(when (pxl8.key_pressed "1")
(set current-effect 1))
(when (pxl8.key_pressed "2")
(when (pxl8.key_pressed "2")
(set current-effect 2))
(when (pxl8.key_pressed "3")
(set current-effect 3)
(set fire-init false))
(when (pxl8.key_pressed "4")
(when (pxl8.key_pressed "3")
(set current-effect 3))
(when (pxl8.key_pressed "4")
(set current-effect 4))
(when (pxl8.key_pressed "5")
(when (pxl8.key_pressed "5")
(set current-effect 5)
(set rain-init false))
(when (pxl8.key_pressed "6")
(set fire-init false))
(when (pxl8.key_pressed "6")
(set current-effect 6)
(set rain-init false))
(when (pxl8.key_pressed "7")
(set current-effect 7)
(set snow-init false))
(when (= current-effect 1)
(set logo-x (+ logo-x (* logo-dx dt)))
(set logo-y (+ logo-y (* logo-dy dt)))
(when (or (< logo-x 0) (> logo-x 512))
(set logo-dx (- logo-dx)))
(when (or (< logo-y 0) (> logo-y 296))
(set logo-dy (- logo-dy))))
(when particles
(pxl8.particles_update particles dt))))
(global draw (fn []
(match current-effect
1 (pxl8.vfx_plasma time 0.10 0.04 0)
2 (pxl8.vfx_tunnel time 2.0 0.25)
3 (do
1 (do
(pxl8.clr 0)
(when logo-sprite
(pxl8.sprite logo-sprite logo-x logo-y 128 64))
(pxl8.text "Bouncing Logo" 200 10 15)
(pxl8.text "Press 1-7 for effects" 10 150 7))
2 (pxl8.vfx_plasma time 0.10 0.04 0)
3 (pxl8.vfx_tunnel time 2.0 0.25)
4 (do
(pxl8.clr 0)
(local bars [{:base_y 40 :amplitude 20 :height 16 :speed 2.0 :phase 0 :color 14 :fade_color 11}
{:base_y 80 :amplitude 15 :height 16 :speed 2.5 :phase 1.5 :color 20 :fade_color 11}
{:base_y 120 :amplitude 25 :height 16 :speed 1.8 :phase 3.0 :color 26 :fade_color 11}])
(pxl8.vfx_raster_bars bars time)
(pxl8.text "Raster Bars" 200 10 15))
5 (do
(pxl8.clr 0)
(when particles
(when (not fire-init)
@ -49,16 +81,8 @@
(set fire-init true))
(pxl8.particles_render particles))
(pxl8.text "Fire Effect Test" 200 10 15))
4 (do
(pxl8.clr 0)
(local bars [{:base_y 40 :amplitude 20 :height 16 :speed 2.0 :phase 0 :color 14 :fade_color 11}
{:base_y 80 :amplitude 15 :height 16 :speed 2.5 :phase 1.5 :color 20 :fade_color 11}
{:base_y 120 :amplitude 25 :height 16 :speed 1.8 :phase 3.0 :color 26 :fade_color 11}])
(pxl8.vfx_copper_bars bars time)
(pxl8.text "Copper Bars" 200 10 15))
5 (do
6 (do
(pxl8.clr 0)
(when particles
(when (not rain-init)
@ -67,8 +91,8 @@
(set rain-init true))
(pxl8.particles_render particles))
(pxl8.text "Rain" 200 10 15))
6 (do
7 (do
(pxl8.clr 0)
(when particles
(when (not snow-init)