justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Cleanup

Browse Source
This commit is contained in:
justin
2025-11-21 20:57:10 +00:00
parent 4d245fe232
commit 54ca961496
1 changed files with 5 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/Picture.hs
+5 -7
View File
@@ -22,8 +22,8 @@ fixedCoordPictures u =
aimDelaySweep u aimDelaySweep u
<> drawMenuOrHUD cfig u <> drawMenuOrHUD cfig u
<> drawConcurrentMessage u <> drawConcurrentMessage u
<> ttl (translate (hw - 100) 0 $ drawList (map text (_uvTestString u u))) <> toTopLeft cfig (translate (hw - 100) 0 $ drawList (map text (_uvTestString u u)))
<> ttl <> toTopLeft cfig
( translate (0.5 * hw) (- hh) ( translate (0.5 * hw) (- hh)
. drawList . drawList
. map text . map text
@@ -45,19 +45,17 @@ fixedCoordPictures u =
cfig = _uvConfig u cfig = _uvConfig u
hw = halfWidth cfig hw = halfWidth cfig
hh = halfHeight cfig hh = halfHeight cfig
ttl = toTopLeft cfig
f (k, l) = (show k, map _debugMessage l) f (k, l) = (show k, map _debugMessage l)
displayFrameTicks :: Universe -> Picture displayFrameTicks :: Universe -> Picture
displayFrameTicks u displayFrameTicks u
| debugOn Show_ms_frame $ _uvConfig u = | debugOn Show_ms_frame $ _uvConfig u =
translate (-10) (- halfHeight (_uvConfig u) + 6) translate (-10) (- halfHeight (_uvConfig u) + 6)
. scale 0.2 0.2
$ fpsText (u ^. uvFrameTicks - u ^. uvLastFrameTicks) $ fpsText (u ^. uvFrameTicks - u ^. uvLastFrameTicks)
| otherwise = mempty | otherwise = mempty
fpsText :: (Show a, Ord a, Num a) => a -> Picture fpsText :: (Show a, Ord a, Num a) => a -> Picture
fpsText x = color col . text $ "ms/frame " ++ show x fpsText x = scale 0.2 0.2 . color col . text $ "ms/frame " ++ show x
where where
col col
| x < 22 = blue | x < 22 = blue
@@ -191,8 +189,8 @@ drawMenuCursor z =
drawJumpDown :: Float -> Picture drawJumpDown :: Float -> Picture
drawJumpDown x = drawJumpDown x =
rotate (0.25 * pi) $ --rotate (0.25 * pi) $ fold [line [V2 0 0, V2 x 0], line [V2 0 0, V2 0 x]]
fold [line [V2 0 0, V2 x 0], line [V2 0 0, V2 0 x]] rotate (0.25 * pi) $ line [V2 x 0, V2 0 0, V2 0 x]
drawDragSelect :: Float -> Picture drawDragSelect :: Float -> Picture
drawDragSelect x = polygonWire $ rectWH (0.5 * x) x drawDragSelect x = polygonWire $ rectWH (0.5 * x) x