1 files changed, 46 insertions, 0 deletions

diff --git a/FitCurves.hs b/FitCurves.hs
new file mode 100644
index 0000000..8c73cfb
--- /dev/null
+++ b/FitCurves.hs
@@ -0,0 +1,46 @@
+{-# LANGUAGE RecordWildCards, DataKinds, DeriveDataTypeable #-}
+module FitCurves where
+
+import Control.Monad
+import Data.Data
+import Data.Int
+import Data.IORef
+import qualified Data.Vector.Storable.Mutable as MV
+import Foreign.Ptr
+import Foreign.Storable
+import GHC.Exts (RealWorld)
+import Numeric.LinearAlgebra as Math hiding ((<>))
+
+import Bezier
+import Camera
+import qualified GPURing as GPU
+import LambdaCube.GL.Input.Type
+import MaskableStream
+import RingBuffer
+import qualified VectorRing as Vector
+         ;import VectorRing (Point)
+import LambdaCube.GL.HMatrix ()
+
+
+data RingPoint = RingPoint
+    { rpPosition :: AttributeKey (GLVector 3 Float)
+    , rpColor :: AttributeKey (GLVector 3 Float)
+    }
+    deriving Data
+
+
+white,red,yellow,blue :: Vector Float
+white  = fromList [1,1,1]
+yellow = fromList [1,1,0]
+blue   = fromList [0,0,1]
+red    = fromList [1,0,0]
+
+fitCurve1 :: Camera
+             -> Maybe Plane
+             -> (Int32 -> [(Int32, Int32)])
+             -> Int
+             -> TargetBuffer (GPU.Update RingPoint)
+             -> MV.MVector RealWorld Vector.Point
+             -> IO (Maybe Int)
+fitCurve1 cam plane mask max_curve_pts buf dta = do
+    return Nothing -- TODO