1ac72f03a7
The draw callback receives no delta-time, so animation was stuck at 0. Split draw-pacman! into draw (position/rotation) and animate-pacman! (sprite sequence advancement). Animation is now called from the game loop which has the real delta-time. Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>
50 lines
1.7 KiB
Racket
50 lines
1.7 KiB
Racket
#lang r7rs
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Game ADT ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
;; Top-level game object that connects the level (logic) with the draw ADT
|
|
;; (graphics). Registers callbacks for the game loop, keys, and drawing.
|
|
|
|
(define-library (pacman-project adt game)
|
|
(import (scheme base)
|
|
(pacman-project constants)
|
|
(pacman-project adt level)
|
|
(pacman-project adt draw))
|
|
(export make-game)
|
|
|
|
(begin
|
|
|
|
;; make-game :: -> game
|
|
(define (make-game)
|
|
(let ((level (make-level))
|
|
(draw (make-draw window-width-px window-height-px)))
|
|
|
|
;; key-handler :: symbol, any -> /
|
|
;; Processes key presses and forwards them to the level.
|
|
(define (key-handler status key)
|
|
(when (eq? status 'pressed)
|
|
((level 'key-press!) key)))
|
|
|
|
;; game-loop :: number -> /
|
|
;; Called each frame for game state updates and animation.
|
|
(define (game-loop delta-time)
|
|
((level 'update!) delta-time)
|
|
((draw 'animate-pacman!) delta-time))
|
|
|
|
;; start! :: -> /
|
|
;; Starts the game by registering all callbacks.
|
|
(define (start!)
|
|
((draw 'set-game-loop!) game-loop)
|
|
((draw 'set-key-callback!) key-handler)
|
|
((draw 'start-drawing!) dispatch-game))
|
|
|
|
;; dispatch-game :: symbol -> any
|
|
(define (dispatch-game msg)
|
|
(cond ((eq? msg 'start!) start!)
|
|
((eq? msg 'level) level)
|
|
(else (error "Game ADT -- Unknown message:" msg))))
|
|
|
|
dispatch-game))))
|