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

Allow for lights to be stored in a one-frame list

Browse Source
This commit is contained in:
justin
2024-11-26 12:50:39 +00:00
parent 851fdc2410
commit e93a804559
8 changed files with 127 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+17 -17
View File
@@ -24,23 +24,23 @@ import Dodge.Data.Universe
import qualified IntMapHelp as IM
testStringInit :: Universe -> [String]
testStringInit u =
[ show $ u ^? uvWorld . input . mouseContext . mcoSelEnd
, show $ u ^? uvWorld . hud . hudElement . diSelection
, show $ u ^? uvWorld . input . mouseContext
, show $ u ^? uvWorld . input . mouseContext . mcoDragSection
, show $ u ^? uvWorld . input . mouseContext . mcoMaybeSelect
, show $ u ^? uvWorld . input . mouseContext . mcoAboveSelect
, show $ u ^? uvWorld . input . mouseContext . mcoBelowSelect
, show mpos
, show yint
, show $ u ^? uvWorld . hud . hudElement . diSections >>= inverseSelSecYint yint
]
where
idp = invDisplayParams $ u ^. uvWorld
cfig = u ^. uvConfig
yint = posSelSecYint cfig idp y
mpos@(V2 _ y) = u ^. uvWorld . input . mousePos
testStringInit u = [show $ length <$> u ^.. uvWorld . cWorld . lWorld . lights]
-- [ show $ u ^? uvWorld . input . mouseContext . mcoSelEnd
-- , show $ u ^? uvWorld . hud . hudElement . diSelection
-- , show $ u ^? uvWorld . input . mouseContext
-- , show $ u ^? uvWorld . input . mouseContext . mcoDragSection
-- , show $ u ^? uvWorld . input . mouseContext . mcoMaybeSelect
-- , show $ u ^? uvWorld . input . mouseContext . mcoAboveSelect
-- , show $ u ^? uvWorld . input . mouseContext . mcoBelowSelect
-- , show mpos
-- , show yint
-- , show $ u ^? uvWorld . hud . hudElement . diSections >>= inverseSelSecYint yint
-- ]
-- where
-- idp = invDisplayParams $ u ^. uvWorld
-- cfig = u ^. uvConfig
-- yint = posSelSecYint cfig idp y
-- mpos@(V2 _ y) = u ^. uvWorld . input . mousePos
-- , show . fmap (fmap _siPictures) $ u ^? uvWorld . hud . hudElement . diSections . ix (-1) . ssItems
-- <> [[toEnum (i+j * 32) | i <- [0..31]] | j <- [0..7]]
-- <> map show (IM.elems (L.postscan (L.premap _siHeight L.sum)