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

refactor some things...

Browse source
This commit is contained in:
asrael 2025-10-04 04:13:48 -05:00
parent 3550fad638
commit 1744e689b5
25 changed files with 2396 additions and 1307 deletions
Download patch file Download diff file Expand all files Collapse all files

37
demo/main.fnl
View file

@ -1,4 +1,5 @@
(local pxl8 (require :pxl8))
(local cube3d (fennel.dofile "cube3d.fnl"))
(var time 0)
(var current-effect 1)
@ -15,8 +16,8 @@
(global init (fn []
(pxl8.load_palette "palettes/gruvbox.ase")
(set logo-sprite (pxl8.load_sprite "sprites/pxl8_logo.ase"))))
(set particles (pxl8.particles_new 1000))
(set logo-sprite (pxl8.load_sprite "sprites/pxl8_logo.ase"))
(set particles (pxl8.particles_new 1000))))
(global update (fn [dt]
(set time (+ time dt))
@ -38,20 +39,24 @@
(when (pxl8.key_pressed "7")
(set current-effect 7)
(set snow-init false))
(when (pxl8.key_pressed "8")
(set current-effect 8))
(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))))
(case current-effect
1 (do
(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))))
8 (cube3d.update dt)
_ nil)
(when particles
(pxl8.particles_update particles dt))))
(global draw (fn []
(global frame (fn []
(case current-effect
1 (do
(pxl8.clr 0)
@ -64,9 +69,9 @@
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}])
(local bars [{:base_y 60 :amplitude 30 :height 16 :speed 2.0 :phase 0 :color 20 :fade_color 10}
{:base_y 180 :amplitude 35 :height 16 :speed 1.8 :phase 2.0 :color 26 :fade_color 10}
{:base_y 300 :amplitude 25 :height 16 :speed 2.2 :phase 4.0 :color 14 :fade_color 10}])
(pxl8.vfx_raster_bars bars time))
5 (do
@ -95,5 +100,7 @@
(pxl8.vfx_snow particles 320 5.0)
(set snow-init true))
(pxl8.particles_render particles)))
8 (cube3d.frame)
_ (pxl8.clr 0))))