47 lines
1.3 KiB
Common Lisp
47 lines
1.3 KiB
Common Lisp
(eval-when (:compile-toplevel :load-toplevel :execute)
|
|
(ql:quickload :cl-raylib))
|
|
|
|
(defpackage :raylib-user
|
|
(:use :cl :3d-vectors)
|
|
(:local-nicknames (:rl :raylib)))
|
|
|
|
(in-package :raylib-user)
|
|
|
|
(defparameter *move-speed* 2.0)
|
|
|
|
(defstruct game-state
|
|
(player-pos (vec 100 100)))
|
|
|
|
(defun game-input (state)
|
|
(with-slots ((pos player-pos)) state
|
|
(let ((dx 0.0) (dy 0.0))
|
|
(when (rl:is-key-down :key-right) (incf dx 1))
|
|
(when (rl:is-key-down :key-left) (decf dx 1))
|
|
(when (rl:is-key-down :key-up) (decf dy 1))
|
|
(when (rl:is-key-down :key-down) (incf dy 1))
|
|
(setf pos (v+ pos (v* (vunit* (vec dx dy)) *move-speed*)))
|
|
)))
|
|
|
|
(defun game-update (state) ())
|
|
|
|
(defun game-draw (state)
|
|
(rl:draw-rectangle-v (game-state-player-pos state)
|
|
(vec 100 100)
|
|
:skyblue)
|
|
(rl:draw-fps 10 5))
|
|
|
|
(defun main ()
|
|
(let* ((screen-width 800)
|
|
(screen-height 450)
|
|
(game-state (make-game-state)))
|
|
(rl:with-window (screen-width screen-height "CL Game")
|
|
(rl:set-target-fps 60)
|
|
(loop :until (rl:window-should-close)
|
|
:do (game-input game-state)
|
|
(game-update game-state)
|
|
(rl:with-drawing
|
|
(rl:clear-background :raywhite)
|
|
(game-draw game-state))))))
|
|
|
|
(main)
|