Retropikzel
/
foreign-c-libraries
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Pass the time-ms to the update procedure in Spite

This commit is contained in:
retropikzel 2026-05-29 15:36:22 +03:00
parent fed6f32a35
commit c963d9f668
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
retropikzel/spite.scm
View File

@ -29,7 +29,7 @@
(define (main-loop update-procedure draw-procedure) (define (main-loop update-procedure draw-procedure)
(set! main-loop-start-time (SDL_GetTicks)) (set! main-loop-start-time (SDL_GetTicks))
(sdl2-events-get) (sdl2-events-get)
(update-procedure delta-time (poll-events!)) (update-procedure main-loop-start-time delta-time (poll-events!))
(render-clear) (render-clear)
(draw-procedure) (draw-procedure)
(render-present) (render-present)

2
retropikzel/spite/README.md
View File

@ -29,7 +29,7 @@ Example:
(define player-y 64) (define player-y 64)
(define update (define update
(lambda (delta-time events) (lambda (time-ms delta-time events)
(for-each (for-each
(lambda (event) (lambda (event)
(when (symbol=? (cdr (assoc 'type event)) 'key-down) (when (symbol=? (cdr (assoc 'type event)) 'key-down)

2
retropikzel/spite/VERSION
View File

@ -1 +1 @@
0.2.0 0.3.0