Создание схемы Pac-Man / кодирование ракетки - векторное преобразование

Question

Ну, я пытаюсь сделать игру-лабиринт, Pac-man, мне нужно создать и визуализировать карту, для этого я сделал "карту векторов" с различными нужными мне состояниями.

Это код:

#lang racket
(require 2htdp/image 2htdp/universe
         (only-in racket/draw
                  read-bitmap))

(require math/matrix)
(require math/array)

(define CELL-SIZE 20)
(define E (rectangle CELL-SIZE CELL-SIZE "solid" "black")) 
(define D (circle 3  "solid" "YELLOW"))   
(define W (rectangle CELL-SIZE CELL-SIZE "solid" "blue")) 
(define C (rectangle CELL-SIZE CELL-SIZE "solid" "red"))

(define Initial-Map
  (vector (vector W W W W W W W W W W W W W)
          (vector W C D D D D D D D D D D W)
          (vector W D W D W W W W W D W D W)
          (vector W D W D W D D D W D W D W)
          (vector W D W D D D W D D D W D W)
          (vector W D W W D W W W D W W D W)
          (vector E D D D D D E D D D D D E)
          (vector W D W W D W W W D W W D W)
          (vector W D W D D D W D D D W D W)
          (vector W D W D W D W D W D W D W)
          (vector W D W D D D W D D D W D W)
          (vector W D W D W D D D W D W D W)
          (vector W D D C W D W D W D D D W)
          (vector W W W W W W W W W W W W W)))



(define EMPTY  (rectangle CELL-SIZE CELL-SIZE "solid" "black")) ; Empty
(define DOT  (circle 3  "solid" "white")) ; DOT
(define WALL (rectangle CELL-SIZE CELL-SIZE "solid" "blue"))  ; Wall


(define Scene (empty-scene 400 400 "black"))

(define (paintWorld mundo) (place-image  (vector*->matrix Initial-Map) 100 100 Scene))

(big-bang 4
;(on-key changePacmanM)
;(on-tick automaticMovePacman 0.2)
(to-draw paintWorld)
(state true)
(name "Pacman - Racket"))

Это проблема

Initial-Map - это вектор карты. Как я могу сделать это для функции вселенной создания большого взрыва?

Я попытался преобразовать вектор в матрицу с вектором *-> матрица, чтобы передать его place-image:

(place-image (vector*->matrix Initial-Map) 100 100 Scene)

Но я получаю следующую ошибку:

place-image: ожидает изображение в качестве первого заданного аргумента (массив переменных #[#[(объект: изображение% ...) (объект: изображение% ...) (объект: изображение% ...) (объект: изображение% ...) (объект: изображение%...)