jrvieira/nove - Change XAAWYNRWJFUVJQB22ZVBK4JTXSSO5VRKLTQCTZLQTPQY4RVBLVDAC

vs

Created by jrvieira on March 16, 2026

XAAWYNRWJFUVJQB22ZVBK4JTXSSO5VRKLTQCTZLQTPQY4RVBLVDAC

Dependencies

In channels

main

Change contents

Replacement in test/Maze.hs at line 27 [3.1]

B:BD[2.539] → [2.539:648]

      , gInitState = set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size)

[2.539]

[2.648]

      , gInitState = (State { center = 0 },set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))

Replacement in test/Maze.hs at line 47 [3.1]

B:BD[2.1081] → [2.1081:1370]

logic :: GEnv -> Verse Hex -> Event -> Either () (Verse Hex)
logic _ v e
   | Tick <- e = Right (sim maze () v)
   | KeyPress 'r' <- e , r : rs <- seed (nodes v ! 0) = Right $ set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size)
   | otherwise = Right v

[2.1081]

[2.1370]

data State = State { center :: Int }
logic :: GEnv -> (State,Verse Hex) -> Event -> Either () (State,Verse Hex)
logic _ (s,v) e
   | Tick <- e = Right (s,sim maze () v)
   | KeyPress 'r' <- e , r : rs <- seed (nodes v ! 0) = Right (s,set (Hex { look = pick r total , seed = rs , parent = Nothing , i = 1 }) 0 (verse size))
   | KeyPress 'h' <- e = Right (s { center = shift v 1 H $ center s },v)
   | KeyPress 'j' <- e = Right (s { center = shift v 1 N $ center s },v)
   | KeyPress 'k' <- e = Right (s { center = shift v 1 I $ center s },v)
   | KeyPress 'l' <- e = Right (s { center = shift v 1 L $ center s },v)
   | otherwise = Right (s,v)

Replacement in test/Maze.hs at line 59 [3.1]

B:BD[2.1371] → [2.1371:1494]

draw :: GEnv -> Verse Hex -> Plane
draw e v = centerFull e $ hcat [hex,ui] & (1,1) % makeTransparent ' ' (word "hex maze")

[2.1371]

[2.1494]

draw :: GEnv -> (State,Verse Hex) -> Plane
draw e (s,v) = centerFull e $ hcat [hex,ui] & (1,1) % makeTransparent ' ' (word "hex maze")

Replacement in test/Maze.hs at line 81 [3.1]

B:BD[2.2037] → [2.2037:2116]

      n = coordToIndex v (mod (x - div y size * size) (3 * size) , mod y size)

[2.2037]

[2.2116]

      n = shift v mx L . shift v my I $ coordToIndex v (mod (x - div y size * size) (3 * size) , mod y size)
         where
         (mx,my) = indexToCoord v (center s)

Replacement in test/Maze.hs at line 93 [3.1]
B:BD[2.2359] → [2.2359:2400]
```
      [ (1,1) % vcat [word "look:",info]
```
[2.2359]
[2.2400]
```
      [ (1,1) % vcat [info]
```

Replacement in test/Maze.hs at line 98 [3.1]

B:BD[2.2441] → [2.2441:2555]

         | Just h <- find (isJust . look) $ nodes v = word $ unwords $ [show $ i h,show $ look h,show $ parent h]

[2.2441]

[2.2555]

         | Just h <- find (isJust . look) $ nodes v = stringPlane $ unlines $ unwords <$>
            [ ["value:" , show $ i h]
            , ["look:" , show $ look h]
            , ["anchor:" , show $ parent h]
            ]

Replacement in test/Maze.hs at line 109 [3.1]

B:BD[2.2692] → [2.2692:2771]

      RGB r g b = hsv (fromIntegral i / fromIntegral (6 * size ^ 2) * 360) 1 1

[2.2692]

[2.2771]

      RGB r g b = hsv (fromIntegral i / fromIntegral (6 * size * size) * 360) 1 1

vs