Determine mouse position over terminal display

2024-11-16 16:45:12 +00:00
parent 5efc9220e0
commit 86f185c71e
5 changed files with 36 additions and 14 deletions
@@ -6,6 +6,9 @@ module Dodge.Data.ScreenPos
 import Geometry.Data
 import Control.Lens

+-- from the center. positive x goes right, positive y goes up.
+-- a spScreenOff of 1 is the full length of the screen
+-- for eg see fromTopLeft
 data ScreenPos = ScreenPos
    { _spScreenOff :: Point2
    , _spPixelOff :: Point2