not-gloss 0.7.6.5 → 0.7.7.0
raw patch · 2 files changed
+2/−16 lines, 2 filesdep −cerealdep ~vector-binary-instancesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
Dependencies removed: cereal
Dependency ranges changed: vector-binary-instances
API changes (from Hackage documentation)
- Vis.VisObject: instance Data.Serialize.Serialize Graphics.UI.GLUT.Objects.Flavour
- Vis.VisObject: instance Data.Serialize.Serialize Graphics.UI.GLUT.Raw.Fonts.BitmapFont
- Vis.VisObject: instance Data.Serialize.Serialize Vis.GlossColor.Color
- Vis.VisObject: instance Data.Serialize.Serialize Vis.VisObject.LoadedObjModel
- Vis.VisObject: instance Data.Serialize.Serialize a => Data.Serialize.Serialize (Vis.VisObject.VisObject a)
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_0LoadedObjModel
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_0VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_10VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_11VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_12VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_13VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_14VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_15VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_16VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_17VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_18VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_19VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_1VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_20VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_21VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_22VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_2VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_3VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_4VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_5VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_6VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_7VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_8VisObject
- Vis.VisObject: instance GHC.Generics.Constructor Vis.VisObject.C1_9VisObject
- Vis.VisObject: instance GHC.Generics.Datatype Vis.VisObject.D1LoadedObjModel
- Vis.VisObject: instance GHC.Generics.Datatype Vis.VisObject.D1VisObject
- Vis: visMovie :: Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
+ Vis: visMovie :: forall b. Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
- Vis.Vis: visMovie :: Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
+ Vis.Vis: visMovie :: forall b. Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
- Vis.Vis: visMovieImmediately :: Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
+ Vis.Vis: visMovieImmediately :: forall b. Real b => Options -> (Int -> FilePath) -> Double -> [VisObject b] -> Maybe Cursor -> IO ()
Files
- not-gloss.cabal +2/−3
- src/Vis/VisObject.hs +0/−13
not-gloss.cabal view
@@ -1,5 +1,5 @@ name: not-gloss-version: 0.7.6.5+version: 0.7.7.0 stability: Experimental synopsis: Painless 3D graphics, no affiliation with gloss description:{@@ -43,9 +43,8 @@ OpenGL >= 3.0.0.1, spatial-math >= 0.2.1.2, vector,- cereal, binary,- vector-binary-instances == 0.2.1.0,+ vector-binary-instances > 0.2.1.0, bytestring, bmp
src/Vis/VisObject.hs view
@@ -17,9 +17,7 @@ import qualified Data.Binary as B import qualified Data.Foldable as F import Data.Maybe ( fromJust, isJust )-import qualified Data.Serialize as S import Data.Vector.Binary ()-import Data.Vector.Cereal () import qualified Data.Vector.Storable as VS import Data.Word ( Word8 ) import Graphics.GL@@ -71,7 +69,6 @@ data LoadedObjModel = LoadedObjModel (VS.Vector Double) (VS.Vector Double) Int deriving (Generic) -instance S.Serialize LoadedObjModel instance B.Binary LoadedObjModel toFlavour :: Bool -> Flavour@@ -82,9 +79,6 @@ fromFlavour Solid = False fromFlavour Wireframe = True -instance S.Serialize Flavour where- put = S.put . fromFlavour- get = fmap toFlavour S.get instance B.Binary Flavour where put = B.put . fromFlavour get = fmap toFlavour B.get@@ -109,9 +103,6 @@ toBitmapFont 6 = Helvetica18 toBitmapFont k = error $ "deserializing BitmapFont got bad value (" ++ show k ++ ")" -instance S.Serialize BitmapFont where- put = S.put . fromBitmapFont- get = fmap toBitmapFont S.get instance B.Binary BitmapFont where put = B.put . fromBitmapFont get = fmap toBitmapFont B.get@@ -123,15 +114,11 @@ toColor :: (Float,Float,Float,Float) -> GlossColor.Color toColor (r,g,b,a) = GlossColor.makeColor r g b a -instance S.Serialize (GlossColor.Color) where- put = S.put . fromColor- get = fmap toColor S.get instance B.Binary (GlossColor.Color) where put = B.put . fromColor get = fmap toColor B.get -instance S.Serialize a => S.Serialize (VisObject a) instance B.Binary a => B.Binary (VisObject a) setPerspectiveMode :: IO ()