Remove default light sources

This commit is contained in:
2024-11-26 13:27:58 +00:00
parent 029c61efc8
commit 7d0f44a041
8 changed files with 191 additions and 222 deletions
+1 -3
View File
@@ -1,5 +1,5 @@
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}
@@ -23,8 +23,6 @@ data LSParam = LSParam -- LSPosRadCol
data LightSource = LS
{ _lsID :: Int
, _lsParam :: LSParam
-- , _lsDir :: Float
-- , _lsPict :: LightSourceDraw --LightSource -> Picture
}
deriving (Eq, Ord, Show, Read) --Generic, Flat)