Add shrinkability and cursed items

src/Dodge/Render.hs

@@ -5,7 +5,6 @@ module Dodge.Render
     )
   where
 import Dodge.Data
-import Dodge.Config.Data
 import Dodge.Base.Window
 import Dodge.Render.Picture
 import Dodge.Render.ShapePicture
@@ -216,15 +215,15 @@ doDrawing pdata w = do
     depthFunc $= Just Always
     blendFunc $= (One,Zero)
     -- perform any radial distortion
-    case _radDistortion w of
+    case _distortions w of
         [] -> do
             bindTO $ fst $ snd $ _fboBase pdata
             bindFramebuffer Framebuffer $= defaultFramebufferObject
             --bufferUBO $ perspectiveMatrixb rot camzoom trans wins viewFroms
             drawShader (_fullscreenShader pdata) 4
         rds -> do
-            let bindDrawDist :: (Point2,Point2,Point2,Float) -> IO ()
-                bindDrawDist ( V2 a b , V2 c d , V2 e f , g) = do
+            let bindDrawDist :: Distortion -> IO ()
+                bindDrawDist (RadialDistortion (V2 a b) (V2 c d) (V2 e f) g) = do
                     pokeArray (shadVBOptr $ _barrelShader pdata) [a,b,c,d,e,f,g]
                     bindShaderBuffers [_barrelShader pdata] [1]
                     drawShader (_barrelShader pdata) 1