Move shape parameters into separate file

2023-04-13 02:42:43 +01:00
parent 3c43caee9c
commit 44f64f4b47
4 changed files with 22 additions and 11 deletions
@@ -9,6 +9,7 @@ module Shader.Poke (
    pokeFloors,
 ) where

+import Shape.Parameters
 import Color
 import Control.Monad.Primitive
 import qualified Data.Vector as V
@@ -433,7 +434,6 @@ pokeJustV xdata cp col ptr nv sh = do
    return (nv + 1)
  where
    V3 x y z = sh
-    V4 r g b a = col
    V3 nx ny nz = cp

 pokeJustVInvNormal ::
@@ -452,7 +452,6 @@ pokeJustVInvNormal xdata cp col ptr nv sh = do
    return (nv + 1)
  where
    V3 x y z = sh
-    V4 r g b a = col
    V3 nx ny nz = (2 * sh) - cp

 pokeFlatV ::
@@ -471,7 +470,6 @@ pokeFlatV xdata norm col ptr nv sh = do
    return (nv + 1)
  where
    V3 x y z = sh
-    V4 r g b a = col
    V3 nx ny nz = sh - norm

 pokeLayVerxs ::