Proof of coloured lighting concept

2021-08-21 13:06:44 +02:00
parent b396d6c857
commit cb39ee3e6b
4 changed files with 39 additions and 17 deletions
@@ -12,6 +12,9 @@ import Geometry
 import Data.List
 import Control.Lens

+putColorLamp :: Point3 -> PSType
+putColorLamp col = PutCrit (colorLamp col 90)
+
 putLamp :: PSType
 putLamp = PutCrit (lamp 90)