5 ((diffuse :accessor diffuse-color-of
:initform
(new-colour))
6 (ambient :accessor ambient-color-of
:initform
(new-colour))
7 (specular :accessor specular-color-of
:initform
(new-colour)))
8 (:metaclass closer-mop
:funcallable-standard-class
)
9 (:documentation
"Material associated with mesh polygons"))