~jakob/lisp-raytracer-zoo

853020eb53d09c9b84eaf69152fa35d5a0542135 — Jakob L. Kreuze 4 months ago a4a81ba master
[cl] Define a proper system.
2 files changed, 16 insertions(+), 6 deletions(-)

A cl-raytracer.asd
M cl-raytracer.lisp
A cl-raytracer.asd => cl-raytracer.asd +11 -0
@@ 0,0 1,11 @@
;;;; cl-raytracer.asd

(asdf:defsystem #:cl-raytracer
  :description "Describe cl-raytracer here"
  :author "Jakob L. Kreuze"
  :license  "GPL"
  :version "0.0.1"
  :serial t
  :depends-on (#:trivia)
  :components ((:file "cl-raytracer"))
  :entry-point (uiop:symbol-call :cl-raytracer "MAIN"))

M cl-raytracer.lisp => cl-raytracer.lisp +5 -6
@@ 14,13 14,14 @@
;;; along with this program. If not, see
;;; <http://www.gnu.org/licenses/>.

(defpackage :cl-raytracer
  (:use :cl :trivia))
(defpackage #:cl-raytracer
  (:use :cl :trivia)
  (:export "main"))

(in-package :cl-raytracer)
(in-package #:cl-raytracer)

;; I'm not sure of the best way to set this just for this file :x
(eval-when (:compile-toplevel)
  ;; I'm not sure of the best way to set this just for this file :x
  (setf *read-default-float-format* 'double-float))




@@ 334,5 335,3 @@ point), if any. Otherwise, return nil."
                       (to-color (shade-pixel shape position (ray-origin ray)))))
                    (_ (ray-color ray))))))))
    (write-ppm *image-width* *image-height* image)))

(main)