Fix viewport being bigger than game map

crypts-and-corpses.lisp

@@ -138,8 +138,12 @@
     ((= key bearlibterminal-ffi:+tk-s+) (move-down viewport map))
     ((= key bearlibterminal-ffi:+tk-space+) (update-location viewport map (slot-value viewport 'location) (slot-value player 'location)))))
 
-(defun create-viewport ()
+(defun create-viewport (map)
   (multiple-value-bind (width height) (get-window-size)
+    (when (> width (game-map-width map))
+      (setf width (game-map-width map)))
+    (when (> height (game-map-height map))
+      (setf height (game-map-height map)))
     (make-instance 'viewport :width width :height height)))
 
 (defun main-loop ()
@@ -148,7 +152,7 @@
 
                  :location 0)))
     (loop with map = (initialize-map (make-instance 'game-map) player)
-          with viewport = (create-viewport)
+          with viewport = (create-viewport map)
           as key = (terminal-read) do
             (handle-input key map viewport player)
             (terminal-clear)