JosephFerano/cl-raylib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Switch to cl-raylib and get it working

Browse Source
This commit is contained in:
Joseph Ferano 2024-11-10 09:35:44 +07:00
parent f94ca11760
commit 036b33e88e
2 changed files with 30 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored Normal file
View File

@ -0,0 +1 @@
/game.fasl

60
game.lisp
View File

@ -1,48 +1,46 @@
(ql:quickload :claw-raylib) (eval-when (:compile-toplevel :load-toplevel :execute)
(ql:quickload :cffi) (ql:quickload :cl-raylib))
(in-package :cffi) (defpackage :raylib-user
(:use :cl :3d-vectors)
(:local-nicknames (:rl :raylib)))
(rename-package (find-package :raylib) :rl) (in-package :raylib-user)
(defparameter *move-speed* 2.0) (defparameter *move-speed* 2.0)
(defmacro is-key-down (key)
`(rl:is-key-down (foreign-enum-value 'rl:keyboard-key ,key)))
(defun v2+ (v1 v2) (rl:vector2-add v1 v2))
(defun v2- (v1 v2) (rl:vector2-subtract v1 v2))
(defun v2* (v1 n) (rl:vector2-scale v1 n))
(defstruct game-state (defstruct game-state
(player-pos (rl:make-vector2 :x 100.0 :y 100.0))) (player-pos (vec 100 100)))
(defun game-input (state) (defun game-input (state)
(with-slots ((pos player-pos)) state (with-slots ((pos player-pos)) state
(let ((dx 0.0) (dy 0.0)) (let ((dx 0.0) (dy 0.0))
(when (is-key-down :right) (incf dx 1)) (when (rl:is-key-down :key-right) (incf dx 1))
(when (is-key-down :left) (decf dx 1)) (when (rl:is-key-down :key-left) (decf dx 1))
(when (is-key-down :up) (decf dy 1)) (when (rl:is-key-down :key-up) (decf dy 1))
(when (is-key-down :down) (incf dy 1)) (when (rl:is-key-down :key-down) (incf dy 1))
(setf pos (v2+ pos (v2* (rl:vector2-normalize (rl:make-vector2 :x dx :y dy)) (setf pos (v+ pos (v* (vunit* (vec dx dy)) *move-speed*)))
*move-speed*)))))) )))
(defun game-update (state) (defun game-update (state) ())
(defun game-draw (state)
(rl:draw-rectangle-v (game-state-player-pos state) (rl:draw-rectangle-v (game-state-player-pos state)
(rl:make-vector2 :x 100.0 :y 100.0) (vec 100 100)
rl:+skyblue+) :skyblue)
(rl:draw-fps 10 5)) (rl:draw-fps 10 5))
(defun basic-window () (defun main ()
(let ((screen-width 800) (let* ((screen-width 800)
(screen-height 450) (screen-height 450)
(game-state (make-game-state))) (game-state (make-game-state)))
(rl:with-window ("CL Game" (screen-width screen-height)) (rl:with-window (screen-width screen-height "CL Game")
(rl:set-target-fps 60) (rl:set-target-fps 60)
(loop :until (rl:window-should-close) (loop :until (rl:window-should-close)
:do (rl:with-drawing :do (game-input game-state)
(rl:clear-background rl:+raywhite+) (game-update game-state)
(game-input game-state) (rl:with-drawing
(game-update game-state)))))) (rl:clear-background :raywhite)
(game-draw game-state))))))
(basic-window) (main)