Hieroglyph 2.21 → 2.22

raw patch · 3 files changed

+8/−4 lines, 3 files

Files

• Graphics/Rendering/Hieroglyph/OpenGL.hs +4/−0
• Graphics/Rendering/Hieroglyph/Visual.hs +3/−3
• Hieroglyph.cabal +1/−1

@@ -64,6 +64,10 @@   }   | Geometry BaseVisual +reverseMouseCoords b x y = do+    let renderDataE = fromJust $ Buster.eventByQName "Hieroglyph" "Hieroglyph" "RenderData" b+    (_,sy) <- Gtk.drawingAreaGetSize . Gtk.castToDrawingArea . drawarea . head . Buster.eventdata $ renderDataE+    return (Point x (fromIntegral sy-y))  arcFn _ _ _ [] = [] arcFn x y r (t:ts) = (x + r * cos t) : (y + r * sin t) : arcFn x y r ts

@@ -90,7 +90,7 @@ outlined x os = (\o -> o{aoutlined = x}) <%> primitives os clipped x os = (\o -> o{aclipped = x}) <%> primitives os name x os = (\o -> o{aname = Just x}) <%> primitives os-cached x os = (\o -> o{updated = False}) <%> primitives os-fresh x os = (\o -> o{updated = True}) <%> primitives os-+cached os = (\o -> o{updated = False}) <%> primitives os+fresh os = (\o -> o{updated = True}) <%> primitives os+linewidth x os = (\o -> o{alinewidth = x}) <%> primitives os 

@@ -1,5 +1,5 @@ name: Hieroglyph-version: 2.21+version: 2.22 cabal-version: >=1.2 build-type: Simple license: BSD3