material.lisp

   1
   2 (in-package :tuple-trace)
   3
   4 (defclass material ()
   5   ((colour :initform (new-colour) :accessor colour-of)
   6    (reflection :initform 0.0 :accessor reflectivity-of)
   7    (diffuse :initform 0.0 :accessor diffusion-of)))
   8