graphics-drawingcombinators 1.2.1 → 1.2.2

raw patch · 2 files changed

+4/−6 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Graphics/DrawingCombinators.hs +3/−5
• graphics-drawingcombinators.cabal +1/−1

@@ -264,7 +264,7 @@ (%%) :: Affine -> Image a -> Image a tr' %% d = Image render' pick     where-    render' tr col = dRender d (tr `compose` tr') col+    render' tr col = (dRender d $! tr `compose` tr') col     pick tr z = dPick d (tr `compose` tr') z  @@ -391,6 +391,7 @@ openFont path = do     font <- FTGL.createPolygonFont path     addFinalizer font (FTGL.destroyFont font)+    _ <- FTGL.setFontFaceSize font 72 72      return $ Font font  -- | The image representing some text rendered with a font.  The baseline@@ -401,14 +402,11 @@     GL.preservingMatrix $ do         multGLmatrix tr         GL.scale (1/36 :: GL.GLdouble) (1/36) 1-        _ <- FTGL.setFontFaceSize (getFont font) 72 72          FTGL.renderFont (getFont font) str FTGL.All         return ()  -- | @textWidth font str@ is the width of the text in @text font str@. textWidth :: Font -> String -> R-textWidth font str = (/36) . realToFrac . unsafePerformIO $ do-    _ <- FTGL.setFontFaceSize (getFont font) 72 72 -    FTGL.getFontAdvance (getFont font) str+textWidth font str = (/36) . realToFrac . unsafePerformIO $ FTGL.getFontAdvance (getFont font) str  #endif

@@ -4,7 +4,7 @@     have to go into the deep, dark world of imperative stateful     programming just to draw stuff.  It supports 2D only (for now),     with support drawing geometry, images, and text.-Version: 1.2.1+Version: 1.2.2 Stability: experimental Synopsis: A functional interface to 2D drawing in OpenGL License: BSD3