#lang r7rs

; Main loop ADT ;

(define-library (pacman-project main-loop)
  (import (scheme base)
          (pacman-project screen)
          (pacman-project pacman)
          (pacman-project time-limit))

  (export start-main-loop!
          stop-main-loop!)

  (begin
 
    ;stopt de game-loop
    (define (stop-main-loop!)
      ((screen 'set-update-callback!)
       (lambda (ms) (values))))

    ;start de game-loop 
    (define (start-main-loop!)
      ((screen 'set-update-callback!)
       (lambda (ms)
         (cond
           ((time-up?) ;wanneer de tijd om is stopt het spel
            (stop-main-loop!))
           (else
            (animate-pacman! ms)
            (decrease-time-limit! ms))))))))