eventloop 0.7.0.0 → 0.7.0.1

raw patch · 4 files changed

+3/−9 lines, 4 files

Files

eventloop.cabal +1/−1
src/Eventloop/Module/BasicShapes/Classes.hs +0/−2
src/Eventloop/Module/BasicShapes/Types.hs +1/−1
src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs +1/−5

eventloop.cabal view

@@ -6,7 +6,7 @@ -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.7.0.0
+version:             0.7.0.1
 synopsis:            A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
 description:         A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
                      Each module exists of a initialize and teardown function that are both called once at startup and shutting down. During run-time, a module can provice a preprocessor function (which transforms input events before they get to the eventloop),

src/Eventloop/Module/BasicShapes/Classes.hs view

@@ -9,8 +9,6 @@ import qualified Eventloop.Module.Websocket.Canvas.Types as CT
 
 
-import Debug.Trace
-
 {-
 The center of a boundingbox is not the center of an element
     Rectangle - Intersection of two halves of adjoining sides

src/Eventloop/Module/BasicShapes/Types.hs view

@@ -80,7 +80,7 @@                   , strokeLineThickness :: StrokeLineThickness
                   , strokeColor :: StrokeColor
                   , rotationM :: Maybe Rotation
-                  } -- ^Translation is horizontally the center and vertically the top of the text, does not have a boundingbox due to technical limitations
+                  }
            | Line { point1 :: Point
                   , point2 :: Point
                   , strokeLineThickness :: StrokeLineThickness

src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs view

@@ -16,9 +16,7 @@ import Eventloop.Types.System import Eventloop.Utility.Vectors -import Debug.Trace - setupStatefulGraphicsModuleConfiguration :: EventloopSetupModuleConfiguration setupStatefulGraphicsModuleConfiguration = ( EventloopSetupModuleConfiguration                                               statefulGraphicsModuleIdentifier@@ -97,9 +95,7 @@             where                 (state_', performed_') = performStatefulGraphicsOut state_ statefulOut         (toRedraw, toRemove) = calculateRedraws state' performed-        toRedrawIds = statefulIds toRedraw-        toRemoveIds = trace ("To Redraw: " ++ (show toRedrawIds)) statefulIds toRemove-        basicShapes = trace ("To Remove: " ++ (show toRemoveIds)) (map getShape toRedraw)+        basicShapes = map getShape toRedraw         removes = map calculateRemove toRemove  {-