The faces' color [r, g, b, a].
Polyhedron
pure function face_color(self) result(c) class(Polyhedron), intent(in) :: self real(wp) :: c(4) c = self%face_color_ end function face_color