Refactor(English): Rename all files and identifiers from Dutch to English

Renamed files: constanten→constants, adt-positie→adt-position,
adt-doolhof→adt-maze, adt-sleutel→adt-key, adt-tijdslimiet→adt-timer,
adt-teken→adt-draw, adt-spel→adt-game. All message names, variables,
comments, and tests converted to English.

Also fixed counter location bug (time-label x/y were swapped).

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

pacman-project/adt-pacman.rkt

@@ -4,45 +4,43 @@
 ;;                               Pac-Man ADT                                 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-;; Het Pac-Man ADT beheert de logische toestand van de speler: positie op het
-;; grid en de huidige richting. Bevat GEEN grafische code.
+;; Manages the logical state of the player: grid position and current
+;; direction. Contains NO graphics code.
 
 (define-library (pacman-project adt-pacman)
   (import (scheme base)
-          (pacman-project adt-positie))
-  (export maak-pacman)
+          (pacman-project adt-position))
+  (export make-pacman)
 
   (begin
 
-    ;; maak-pacman :: number, number -> pacman
-    ;; Maakt een Pac-Man object aan op de opgegeven startpositie (rij, kolom).
-    (define (maak-pacman start-rij start-kolom)
-      (let ((positie (maak-positie start-rij start-kolom))
-            (richting 'rechts))
+    ;; make-pacman :: number, number -> pacman
+    ;; Creates a Pac-Man object at the given start position (row, col).
+    (define (make-pacman start-row start-col)
+      (let ((position (make-position start-row start-col))
+            (direction 'right))
 
-        ;; positie! :: positie -> /
-        ;; Vervangt de huidige positie.
-        (define (positie! nieuwe-positie)
-          (set! positie nieuwe-positie))
+        ;; position! :: position -> /
+        (define (position! new-position)
+          (set! position new-position))
 
-        ;; richting! :: symbol -> /
-        ;; Past de huidige richting aan.
-        (define (richting! nieuwe-richting)
-          (set! richting nieuwe-richting))
+        ;; direction! :: symbol -> /
+        (define (direction! new-direction)
+          (set! direction new-direction))
 
-        ;; beweeg! :: number, number -> /
-        ;; Verplaatst Pac-Man met een delta op het grid.
-        (define (beweeg! delta-rij delta-kolom)
-          ((positie 'rij!) (+ (positie 'rij) delta-rij))
-          ((positie 'kolom!) (+ (positie 'kolom) delta-kolom)))
+        ;; move! :: number, number -> /
+        ;; Moves Pac-Man by a delta on the grid.
+        (define (move! delta-row delta-col)
+          ((position 'row!) (+ (position 'row) delta-row))
+          ((position 'col!) (+ (position 'col) delta-col)))
 
         ;; dispatch-pacman :: symbol -> any
         (define (dispatch-pacman msg)
-          (cond ((eq? msg 'positie) positie)
-                ((eq? msg 'positie!) positie!)
-                ((eq? msg 'richting) richting)
-                ((eq? msg 'richting!) richting!)
-                ((eq? msg 'beweeg!) beweeg!)
-                (else (error "Pac-Man ADT -- Onbekend bericht:" msg))))
+          (cond ((eq? msg 'position) position)
+                ((eq? msg 'position!) position!)
+                ((eq? msg 'direction) direction)
+                ((eq? msg 'direction!) direction!)
+                ((eq? msg 'move!) move!)
+                (else (error "Pac-Man ADT -- Unknown message:" msg))))
 
         dispatch-pacman))))