diff -Naur pov-bind-0.07/src/povray.ml pov-bind-0.07.1/src/povray.ml --- pov-bind-0.07/src/povray.ml 2023-07-10 07:13:29.000000000 +0200 +++ pov-bind-0.07.1/src/povray.ml 2023-08-22 00:28:58.541448202 +0200 @@ -683,14 +683,17 @@ let triangle_color tc = match tc with - | Color.Red -> "texture { Red }" - | Color.Green -> "texture { Green }" - | Color.Blue -> "texture { Blue }" - | Color.Yellow -> "texture { Yellow }" - | Color.White -> "texture { White }" - | Color.Black -> "texture { Black }" - | Color.Cyan -> "texture { Cyan }" - | Color.Magenta -> "texture { Magenta }" + | Color.Red -> "texture { pigment { Red } }" + | Color.Green -> "texture { pigment { Green } }" + | Color.Blue -> "texture { pigment { Blue } }" + | Color.Yellow -> "texture { pigment { Yellow } }" + + | Color.White -> "texture { pigment { White } }" + | Color.Black -> "texture { pigment { Black } }" + + | Color.Cyan -> "texture { pigment { Cyan } }" + | Color.Magenta -> "texture { pigment { Magenta } }" + | Color.RGBT(r, g, b, t) -> Printf.sprintf "texture { pigment { color rgbt <%g, %g, %g, %g> } }" r g b t