material.lisp

   1
   2 (in-package :tuple-trace)
   3
   4 (def-tuple-class material
   5     (:tuples
   6      ((colour :type colour))
   7      :slots
   8      ((reflection :initform 0.0 :accessor reflectivity-of :type single-float)
   9       (diffuse :initform 0.0 :accessor diffusion-of :type single-float))))
  10