Add sbcl using cl-project, NOTE: this is not actually here its in ~/quicklisp/local-projects because I can't figure how asdf works

This commit is contained in:
zongor 2023-12-02 19:33:48 -05:00
parent f29296b216
commit bdb105647e
7 changed files with 65 additions and 10 deletions

View File

@ -0,0 +1,9 @@
*.abcl
*.fasl
*.dx32fsl
*.dx64fsl
*.lx32fsl
*.lx64fsl
*.x86f
*~
.#*

View File

@ -0,0 +1,5 @@
# Mmo-Client-Sbcl
## Usage
## Installation

View File

@ -0,0 +1,5 @@
* Mmo-Client-Sbcl
** Usage
** Installation

View File

@ -0,0 +1,21 @@
(defsystem "mmo-client-sbcl"
:version "0.1.0"
:author ""
:license ""
:depends-on ("claylib")
:components ((:module "src"
:components
((:file "main"))))
:description ""
:in-order-to ((test-op (test-op "mmo-client-sbcl/tests"))))
(defsystem "mmo-client-sbcl/tests"
:author ""
:license ""
:depends-on ("mmo-client-sbcl"
"rove")
:components ((:module "tests"
:components
((:file "main"))))
:description "Test system for mmo-client-sbcl"
:perform (test-op (op c) (symbol-call :rove :run c)))

View File

@ -1,5 +1,6 @@
(load "~/quicklisp/setup.lisp") (defpackage mmo-client-sbcl
(ql:quickload '(:claylib :usocket :simple-actors :bordeau-thread)) (:use :cl :claylib))
(in-package :mmo-client-sbcl)
(defvar *mouse-delta* (make-vector2 0 0)) (defvar *mouse-delta* (make-vector2 0 0))
@ -21,7 +22,8 @@
(y (rot camera)) (* 0.05 (y *mouse-delta*)) (y (rot camera)) (* 0.05 (y *mouse-delta*))
(zoom camera) (* 2 (get-mouse-wheel-move)))) (zoom camera) (* 2 (get-mouse-wheel-move))))
(with-window (:title "common lisp client : raylib") (defun main ()
(with-window (:title "raylib [core] example - 3d camera first person")
(let ((camera (make-camera-3d 0 2 4 (let ((camera (make-camera-3d 0 2 4
0 2 0 0 2 0
0 1 0 0 1 0
@ -32,12 +34,16 @@
((ground (make-plane 0 0 0 32 32 +lightgray+)) ((ground (make-plane 0 0 0 32 32 +lightgray+))
(blue (make-cube -16 2.5 0 (blue (make-cube -16 2.5 0
1 5 32 1 5 32
+blue+))))))) +blue+))
(green (make-cube 16 2.5 0
1 5 32
+lime+))
(yellow (make-cube 0 2.5 16
32 5 1
+gold+))))))
(with-scenes scene () (with-scenes scene ()
(do-game-loop (:livesupport t) (do-game-loop (:livesupport t)
(pro-mode-update camera) (compute-camera camera)
(with-drawing () (with-drawing ()
(with-3d-mode camera (with-3d-mode camera
(draw-scene scene '(ground blue green yellow)) (draw-scene scene '(ground blue green yellow)))))))))
(draw-scene-regex scene "^COLUMN"))
(draw-scene-regex scene "^(STATUS|INST)"))))))

View File

@ -0,0 +1,11 @@
(defpackage mmo-client-sbcl/tests/main
(:use :cl
:mmo-client-sbcl
:rove))
(in-package :mmo-client-sbcl/tests/main)
;; NOTE: To run this test file, execute `(asdf:test-system :mmo-client-sbcl)' in your Lisp.
(deftest test-target-1
(testing "should (= 1 1) to be true"
(ok (= 1 1))))

View File

@ -1,2 +0,0 @@
#!/bin/sh
git clone https://github.com/defun-games/claylib ~/quicklisp/local-projects/claylib