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

Improve creature turning wrt inertia

Browse Source
This commit is contained in:
justin
2026-04-27 22:23:39 +01:00
parent f4c59612ea
commit 259325f81f
10 changed files with 206 additions and 160 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+2 -4
View File
@@ -35,6 +35,7 @@ import NewInt
import RandomHelp
import qualified SDL
import ShortShow
import qualified Data.IntSet as IS
tocrs :: (IM.IntMap Creature
-> Const (Endo [String]) (IM.IntMap Creature))
@@ -42,10 +43,7 @@ tocrs :: (IM.IntMap Creature
tocrs = uvWorld . cWorld . lWorld . creatures
testStringInit :: Universe -> [String]
testStringInit u = u ^.. tocrs . ix 2 . crType . hiveChildren . to show
<> u ^.. tocrs . ix 3 . crStance . carriage . to show
<> u ^.. tocrs . ix 3 . crDir . to show
<> u ^.. tocrs . ix 3 . crActionPlan . apAction . to show
testStringInit u = u ^.. tocrs . ix 2 . crType . hiveChildren . to IS.size . to show
-- u ^.. tocrs . ix 1 . crPos . _xy . to show
-- <> u ^.. tocrs . ix 1 . crType . slimeCompression . to show
-- <> u ^.. tocrs . ix 1 . crType . slimeCompression . to norm . to show