1 files changed, 5 insertions, 4 deletions

diff --git a/MeshSketch.hs b/MeshSketch.hs
index d598bbd..8660119 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -59,7 +59,8 @@ import LoadMesh
 import InfinitePlane
 import MtlParser (ObjMaterial(..))
 import Matrix
-import PointPrimitiveRing
+import GPURing as GPU
+import RingBuffer
 import MaskableStream (AttributeKey,(@<-))
 import SmallRing
 
@@ -103,7 +104,7 @@ data State = State
     , stSkybox     :: IORef Int
     , stSkyTexture :: IORef TextureCubeData
     , stDragFrom   :: IORef (Maybe (Vector Float,Camera))
-    , stRingBuffer :: Ring RingPoint
+    , stRingBuffer :: RingBuffer (GPU.Update RingPoint)
     , stPenDown    :: IORef Bool
     , stPlane      :: IORef (Maybe Plane)
     , stDragPlane  :: IORef (Maybe (Vector Float,Plane))
@@ -204,7 +205,7 @@ uploadState obj glarea storage = do
     -- grid plane
     uploadMeshToGPU xzplane >>= addMeshToObjectArray storage "plane" []
 
-    ring <- newRing storage 100 ringPointAttr
+    ring <- newRing 100 (GPU.new storage ringPointAttr 100)
 
     -- setup FrameClock
     w <- toWidget glarea
@@ -298,7 +299,7 @@ setUniforms gl storage st = do
       "CameraPosition" @= return (pos :: Vector Float)
       "ViewProjection" @= return (mvp :: Matrix Float)
       "PlaneModel" @= return planeModel
-    updateRingUniforms storage (stRingBuffer st)
+    -- updateRingUniforms storage (stRingBuffer st)
 
 data MeshSketch = MeshSketch
     { mmWidget   :: GLArea