rgleichman/glance
1
1
Fork 0
mirror of https://github.com/rgleichman/glance.git synced 2024-11-30 14:22:20 +03:00
Code Issues Projects Releases Wiki Activity

Replace custom function with normalizeAngle in transformCorrectedTextBox.

Browse Source
This commit is contained in:
Robbie Gleichman 2016-12-23 00:40:52 -08:00
parent 8b860cc8b0
commit 3e4673742e
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
app/Icons.hs
View File

@ -237,10 +237,10 @@ textBoxHeightFactor = 1.1
-- BEGIN Text helper functions --
-- TODO May want to use normalizeAngle instead
-- This may be a faster implementation of normalizeAngle
--Get the decimal part of a float
reduceAngleRange :: SpecialNum a => a -> a
reduceAngleRange x = x - fromInteger (floor x)
-- reduceAngleRange :: SpecialNum a => a -> a
-- reduceAngleRange x = x - fromInteger (floor x)
-- | Given the number of letters in a textbox string, make a rectangle that will
-- enclose the text box. Since the normal SVG text has no size, some hackery is
@ -284,7 +284,8 @@ transformCorrectedTextBox :: SpecialBackend b n =>
transformCorrectedTextBox str textCol borderCol reflect angle =
rotateBy textBoxRotation (reflectIfTrue reflect (coloredTextBox textCol (opaque borderCol) str))
where
reducedAngle = reduceAngleRange (angle ^. turn)
-- If normalizeAngle is slow, the commented out function reduceAngleRange might be faster
reducedAngle = normalizeAngle angle ^. turn
textBoxRotation = if (reducedAngle > (1/4)) && (reducedAngle < (3/4)) then 1 / 2 else 0
reflectIfTrue shouldReflect dia = if shouldReflect then reflectX dia else dia