Shading
type mode =
| Flat_color
| Flat_shading
| Gouraud
| Phong
val make : mode -> Project.vertex -> Project.vertex -> Project.vertex -> l0:float -> l1:float -> l2:float -> float