OSDN Git Service

Changed media files
[rulp/rulp.git] / graphics / view.lisp
index f59c2a9..4224470 100644 (file)
                                                                                 font-surface)))
                            (sdl2:free-surface font-surface)
                            font-texture))
-      (setf +plane+ (make-instance 'plane :image (truename "media/mappa.png")))
+      (setf +plane+ (make-instance 'plane :image (truename "media/board.tga")))
       (setf (entities-list +plane+) (list (make-instance 'entity)))
-      (push (make-instance 'entity :image (truename "media/hellsteir_pg70.png")) (entities-list +plane+))
-      (push (make-instance 'entity :image (truename "media/nell_pg70.png")) (entities-list +plane+))
-      (push (make-instance 'entity :image (truename "media/rednex_pg70.png")) (entities-list +plane+))
-      (push (make-instance 'entity :image (truename "media/aduial_pg70.png")) (entities-list +plane+))
       (sdl2:with-event-loop (:method :poll)
         (:quit () t)
         (:mousebuttondown (:x x :y y :state state)