jrvieira/nove - Change Y6H3FAPFS4BGTCZG2SXZ5ELEWVMFK6VF46OI24JFGC4WIASPK63QC

vs

Created by jrvieira yesterday at 03:48

Y6H3FAPFS4BGTCZG2SXZ5ELEWVMFK6VF46OI24JFGC4WIASPK63QC

Dependencies

In channels

main

Change contents

File addition: Rail.hs (----------)

[3.1]

module Main where
import Nove
import Nove.Verse
import Nove.Draw.Ansi
import Data.Word
import Data.Bifunctor ( bimap )
import Control.Monad ( join )
import Terminal.Game hiding ( Cell )
import Terminal.Game qualified as ATG ( Cell )
-- Game IO loop
main :: IO ()
main = io 20 State
   { play = True
   , center = 0
   , focus = 0
   , time = 0
   } (verse 19 :: Verse (Maybe Train))
data State = State
   { play :: Bool
   , center :: Int
   , focus :: Int
   , time :: Int
   }
data Track = Track
data Train = Train { movement :: Maybe Dir }
instance Atom (Maybe Train) where
   void = Nothing
   mass a
      | Nothing <- a = False
      | Just _ <- a = True
   move a
      | Nothing <- a = Nothing
      | Just t <- a = movement t
track :: Automaton State (Maybe Track)
track = Automaton f
   where
   f :: Cell State (Maybe Track)
   f s ns a = a
train :: Automaton State (Maybe Train)
train = Automaton f
   where
   f :: Cell State (Maybe Train)
   f s ns a = a
instance Interface State (Maybe Train) where
   logic :: GEnv -> (State,Verse (Maybe Train)) -> Event -> Either () (State,Verse (Maybe Train))
   logic g (s,v) e
      | KeyPress 'Q' <- e = Left ()
      | 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)
      | KeyPress 'h' <- e = Right (s { focus = shift v 1 H $ focus s } , v)
      | KeyPress 'j' <- e = Right (s { focus = shift v 1 N $ focus s } , v)
      | KeyPress 'k' <- e = Right (s { focus = shift v 1 I $ focus s } , v)
      | KeyPress 'l' <- e = Right (s { focus = shift v 1 L $ focus s } , v)
      | KeyPress 'p' <- e = Right (s { play = not $ play s } , v)
      | KeyPress '.' <- e = Right (s { play = False } , v')
      | KeyPress 'q' <- e , Nothing <- get v (focus s) = Right (s , set (Just $ Train { movement = Nothing }) (focus s) v')
      | KeyPress 'q' <- e = Right (s , set Nothing (focus s) v')
      | play s , Tick <- e , mod (time s) (div (fromInteger $ eFPS g) 2) == 0 = Right (s { time = time s + 1 } , v')
      | otherwise = Right (s , v)
      where
      v' = sim mempty s v
   draw :: GEnv -> (State,Verse (Maybe Train)) -> Plane
   draw e (s,v) = hex
      where
      size :: Int
      size = radius v
      (widthFull,heightFull) = eTermDims e
      hex :: Plane
      hex = cellsPlane (succ $ 2 * size * 2) (succ $ 2 * size) [ write (x,y) | x <- [-size..size] , y <- [-size..size] , abs (x + y) <= size ]
         where
         write :: (Int,Int) -> (Coords,ATG.Cell)
         write (x,y)
            | n == focus s = (c , paletteColorCell k $ creaCell $ grapheme a)
            | otherwise = (c , paletteColorCell k $ creaCell $ grapheme a)
            where
            a :: Maybe Train
            a = get v n
            -- get index of node taking scroll into account
            n :: Int
            n = shift v mx L . shift v my I $ coordToIndex v (mod (x - div y size * size) (3 * size) , mod y size)
            (mx,my) = indexToCoord v $ center s
            -- stretch, tilt, margin, translate to library coordinate system (1-based (y,x))
            c :: (Int,Int)
            c = join bimap succ (size - y , 2 * (x + size) + y)
            grapheme :: Maybe Train -> Char
            grapheme a
               | Just _ <- a = 'o'
               | n == focus s = '.'
               | otherwise = ' '
            k :: Word8
               | n == focus s = xterm6LevelRGB 4 2 5
               | otherwise = xterm24LevelGray 9
      ui :: Plane
      ui = blankPlane 2 2

Replacement in test/Maze.hs at line 9 [5.1]

B:BD[4.27] → [4.27:48]

B:BD[4.48] → [6.51:153]

import Terminal.Game
import Terminal.Game.Plane qualified as ATGP ( Cell, creaCell, colorCell, rgbColorCell, updatePlane )

[4.27]

[4.48]

import Terminal.Game hiding ( Cell )
import Terminal.Game qualified as ATG ( Cell )

Replacement in test/Maze.hs at line 77 [5.1]
B:BD[7.613] → [7.613:643]
```
instance Ansi State Hex where
```
[7.613]
[7.670]
```
instance Interface State Hex where
```

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

B:BD[7.768] → [7.768:812]

      | Tick <- e = Right (s,sim maze () v)

[7.768]

[8.94]

      | KeyPress 'Q' <- e = Left ()

Replacement in test/Maze.hs at line 87 [5.1]

B:BD[7.1286] → [6.154:190]

      | KeyPress 'q' <- e = Left ()

[7.1286]

      | Tick <- e = Right (s,sim maze () v)

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

B:BD[7.1589] → [6.275:437]

      hex = ATGP.updatePlane (blankPlane (succ $ 2 * size * 2) (succ $ 2 * size)) [ write (x,y) | x <- [-size..size] , y <- [-size..size] , abs (x + y) <= size ]

[7.1589]

[7.1698]

      hex = cellsPlane (succ $ 2 * size * 2) (succ $ 2 * size) [ write (x,y) | x <- [-size..size] , y <- [-size..size] , abs (x + y) <= size ]

Replacement in test/Maze.hs at line 107 [5.1]

B:BD[7.1887] → [6.438:485]

      write :: (Int,Int) -> (Coords,ATGP.Cell)

[7.1887]

[7.1920]

      write :: (Int,Int) -> (Coords,ATG.Cell)

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

B:BD[7.1938] → [6.486:706]

         | Just _ <- look h = (c , ATGP.colorCell White Dull $ ATGP.creaCell '*')
         | 0 < i h = (c , ATGP.rgbColorCell (spectrum $ i h + rand s) $ ATGP.creaCell 'o')
         | otherwise = (c , ATGP.creaCell ' ')

[7.1938]

[7.2113]

         | Just _ <- look h = (c , colorCell White Dull $ creaCell '*')
         | 0 < i h = (c , rgbColorCell (spectrum $ i h + rand s) $ creaCell 'o')
         | otherwise = (c , creaCell ' ')

Replacement in test/Dois.hs at line 15 [10.1]

∅:D[9.207] → [10.275:296]

B:BD[10.275] → [10.275:296]

B:BD[10.296] → [9.208:296]

import Terminal.Game
import Terminal.Game.Plane qualified as ATGP ( Cell, creaCell, colorCell, updatePlane )

[9.207]

[10.453]

import Terminal.Game hiding ( Cell )
import Terminal.Game qualified as ATG ( Cell )

Replacement in test/Dois.hs at line 80 [10.1]
B:BD[10.2313] → [9.1506:1538]
```
instance Ansi State Stack where
```
[10.2313]
[10.2344]
```
instance Interface State Stack where
```
Insertion in test/Dois.hs at line 85 [10.1]
[10.2456]
[9.1622]
```
      | KeyPress 'Q'    <- e = Left ()
```
Replacement in test/Dois.hs at line 97 [10.1]
B:BD[9.2398] → [9.2398:2424]
```
      | KeyPress ' ' <- e
```
[9.2398]
[9.2424]
```
      | KeyPress 'q' <- e
```
Replacement in test/Dois.hs at line 102 [10.1]
B:BD[9.2608] → [9.2608:2634]
```
      | KeyPress ' ' <- e
```
[9.2608]
[9.2634]
```
      | KeyPress 'q' <- e
```
Replacement in test/Dois.hs at line 106 [10.1]
B:BD[9.2733] → [9.2733:2759]
```
      | KeyPress ' ' <- e
```
[9.2733]
[9.2759]
```
      | KeyPress 'q' <- e
```

Replacement in test/Dois.hs at line 124 [10.1]

B:BD[9.3375] → [9.3375:3425]

   draw e (s,v) = blankPlaneFull e & (1,1) % hcat

[9.3375]

[9.3425]

   draw e (s,v) = blankPlaneFull e *** hcat

Replacement in test/Dois.hs at line 133 [10.1]

B:BD[10.4079] → [10.4079:4126]

      write :: (Int,Int) -> (Coords,ATGP.Cell)

[10.4036]

[9.3449]

      write :: (Int,Int) -> (Coords,ATG.Cell)

Replacement in test/Dois.hs at line 135 [10.1]

B:BD[9.3467] → [9.3467:3599]

         | n == focus s , odd $ frame s = (c,ATGP.creaCell ' ')
         | Just n == hand s , odd $ frame s = (c,ATGP.creaCell ' ')

[9.3467]

[9.3599]

         | Just n == hand s , odd $ frame s = (c,colorCell White Dull $ atgpcell $ showing $ get v n)
         | n == focus s , odd $ frame s = (c,creaCell ' ')

Replacement in test/Dois.hs at line 157 [10.1]

B:BD[10.4753] → [10.4753:4894]

      hex = ATGP.updatePlane (blankPlane (succ $ 2 * r * 2) (succ $ 2 * r)) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]

[10.4753]

[10.4894]

      hex = cellsPlane (succ $ 2 * r * 2) (succ $ 2 * r) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]

Replacement in test/Dois.hs at line 176 [10.1]

B:BD[10.6254] → [9.4106:4337]

      atgpcell :: Maybe Piece -> ATGP.Cell
      atgpcell Nothing = ATGP.colorCell Black Vivid $ ATGP.creaCell '.'
      atgpcell (Just p) = uncurry ATGP.colorCell (colors !! team p) $ ATGP.creaCell (['▂','▄','▇'] !! size p)

[10.6254]

[10.6302]

      atgpcell :: Maybe Piece -> ATG.Cell
      atgpcell Nothing = colorCell Black Vivid $ creaCell '.'
      atgpcell (Just p) = uncurry colorCell (colors !! team p) $ creaCell (['▂','▄','▇'] !! size p)

Replacement in test/Demo.hs at line 15 [3.135]

∅:D[11.70] → [3.391:412]

B:BD[3.391] → [3.391:412]

B:BD[3.412] → [11.71:183]

import Terminal.Game
import Terminal.Game.Plane qualified as ATGP ( Cell, creaCell, colorCell, rgbColorCell, mapPlane, updatePlane )

[11.70]

[3.412]

import Terminal.Game qualified as ATG ( Cell )
import Terminal.Game hiding ( Cell )

Replacement in test/Demo.hs at line 139 [3.135]
B:BD[3.3025] → [7.4077:4108]
```
instance Ansi State Unit where
```
[3.3025]
[7.4108]
```
instance Interface State Unit where
```
Replacement in test/Demo.hs at line 144 [3.135]
B:BD[7.4220] → [7.4220:4257]
```
      | KeyPress 'q'  <- e = Left ()
```
[7.4220]
[7.4257]
```
      | KeyPress 'Q'  <- e = Left ()
```

Replacement in test/Demo.hs at line 191 [3.135]

B:BD[12.679] → [11.228:342]

      write :: (Int,Int) -> (Coords,ATGP.Cell)
      write (x,y) = (c , cellStyle a $ ATGP.creaCell $ grapheme a)

[12.679]

[7.5828]

      write :: (Int,Int) -> (Coords,ATG.Cell)
      write (x,y) = (c , cellStyle a $ creaCell $ grapheme a)

Replacement in test/Demo.hs at line 213 [3.135]

B:BD[7.6409] → [11.399:540]

      hex = ATGP.updatePlane (blankPlane (succ $ 2 * r * 2) (succ $ 2 * r)) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]

[7.6409]

[13.1270]

      hex = cellsPlane (succ $ 2 * r * 2) (succ $ 2 * r) [ write (x,y) | x <- [-r..r] , y <- [-r..r] , abs (x + y) <= r ]

Replacement in test/Demo.hs at line 237 [3.135]

B:BD[8.3411] → [6.708:1019]

∅:D[11.799] → [12.1636:1694]

∅:D[6.1019] → [12.1636:1694]

B:BD[12.1636] → [12.1636:1694]

B:BD[12.1694] → [6.1020:1251]

         | Just n <- mn , ns <- neighbour v (ix n) = foldl (&) (blankPlane 5 3)
            [ (1,2) % let a = get v $ ns U in cell (grapheme a) # cellDraw a
            , (1,4) % let a = get v $ ns I in cell (grapheme a) # cellDraw a
            , (2,1) % let a = get v $ ns H in cell (grapheme a) # cellDraw a
            , (2,3) % let a = atom n in cell (grapheme a)
            , (2,5) % let a = get v $ ns L in cell (grapheme a) # cellDraw a
            , (3,2) % let a = get v $ ns N in cell (grapheme a) # cellDraw a
            , (3,4) % let a = get v $ ns M in cell (grapheme a) # cellDraw a

[8.3411]

[7.7760]

         | Just n <- mn , ns <- neighbour v (ix n) = cellsPlane 5 3
            [ ((1,2) , let a = get v $ ns U in cellStyle a $ creaCell (grapheme a))
            , ((1,4) , let a = get v $ ns I in cellStyle a $ creaCell (grapheme a))
            , ((2,1) , let a = get v $ ns H in cellStyle a $ creaCell (grapheme a))
            , ((2,3) , let a = atom n in creaCell (grapheme a))
            , ((2,5) , let a = get v $ ns L in cellStyle a $ creaCell (grapheme a))
            , ((3,2) , let a = get v $ ns N in cellStyle a $ creaCell (grapheme a))
            , ((3,4) , let a = get v $ ns M in cellStyle a $ creaCell (grapheme a))

Deletion in test/Demo.hs at line 247 [3.135]
B:BD[7.7812] → [11.1059:1074]
∅:D[11.1074] → [3.5116:5117]
∅:D[7.7812] → [3.5116:5117]
B:BD[3.5116] → [3.5116:5117]
B:BD[3.5117] → [11.1075:1160]
```
         where
         cellDraw  :: Unit -> Draw
         cellDraw a = ATGP.mapPlane $ cellStyle a
```

Replacement in test/Demo.hs at line 260 [3.135]

B:BD[13.3451] → [11.1162:1212]

      cellStyle :: Unit -> ATGP.Cell -> ATGP.Cell

[13.3451]

[11.1212]

      cellStyle :: Unit -> ATG.Cell -> ATG.Cell

Replacement in test/Demo.hs at line 263 [3.135]

B:BD[13.3748] → [11.1231:2739]

         | Dumb <- mode s , me a = ATGP.colorCell White Dull
         | Dumb <- mode s , not (mass a) = ATGP.colorCell Black Vivid
         | Dumb <- mode s , Robot {} <- a , "t0"  <- name a = ATGP.colorCell Blue Dull
         | Dumb <- mode s , Robot {} <- a , "t1"  <- name a = ATGP.colorCell Magenta Dull
         | Dumb <- mode s , Robot {} <- a , "t2"  <- name a = ATGP.colorCell Red Dull
         | Dumb <- mode s , Robot {} <- a , "d0"  <- name a = ATGP.colorCell Yellow Dull
         | Dumb <- mode s , Robot {} <- a , "d1"  <- name a = ATGP.colorCell Green Dull
         | Dumb <- mode s , Robot {} <- a , 'L':_ <- name a = ATGP.colorCell Cyan Dull
         | Dumb <- mode s , Robot {} <- a , "r0"  <- name a = ATGP.colorCell White Vivid
         | Dumb <- mode s , Robot {} <- a , "r1"  <- name a = ATGP.colorCell Black Vivid
         | Dumb <- mode s , Robot {} <- a , "m0"  <- name a = ATGP.colorCell Green Vivid
         | Dumb <- mode s , Robot {} <- a , "m1"  <- name a = ATGP.colorCell Green Vivid
         | Dumb <- mode s , Robot {} <- a , "p0"  <- name a = ATGP.colorCell White Dull
         | Dumb <- mode s , Robot {} <- a , "Tp"  <- name a = ATGP.colorCell White Dull
         | Dumb <- mode s , Robot {} <- a , "T0"  <- name a = ATGP.colorCell Blue Dull
         | Dumb <- mode s , Robot {} <- a , "T1"  <- name a = ATGP.colorCell Magenta Dull
         | Dumb <- mode s , Robot {} <- a , "T2"  <- name a = ATGP.colorCell Red Dull
         | Dumb <- mode s = ATGP.colorCell White Vivid

[13.3748]

[14.3201]

         | Dumb <- mode s , me a = colorCell White Dull
         | Dumb <- mode s , not (mass a) = colorCell Black Vivid
         | Dumb <- mode s , Robot {} <- a , "t0"  <- name a = colorCell Blue Dull
         | Dumb <- mode s , Robot {} <- a , "t1"  <- name a = colorCell Magenta Dull
         | Dumb <- mode s , Robot {} <- a , "t2"  <- name a = colorCell Red Dull
         | Dumb <- mode s , Robot {} <- a , "d0"  <- name a = colorCell Yellow Dull
         | Dumb <- mode s , Robot {} <- a , "d1"  <- name a = colorCell Green Dull
         | Dumb <- mode s , Robot {} <- a , 'L':_ <- name a = colorCell Cyan Dull
         | Dumb <- mode s , Robot {} <- a , "r0"  <- name a = colorCell White Vivid
         | Dumb <- mode s , Robot {} <- a , "r1"  <- name a = colorCell Black Vivid
         | Dumb <- mode s , Robot {} <- a , "m0"  <- name a = colorCell Green Vivid
         | Dumb <- mode s , Robot {} <- a , "m1"  <- name a = colorCell Green Vivid
         | Dumb <- mode s , Robot {} <- a , "p0"  <- name a = colorCell White Dull
         | Dumb <- mode s , Robot {} <- a , "Tp"  <- name a = colorCell White Dull
         | Dumb <- mode s , Robot {} <- a , "T0"  <- name a = colorCell Blue Dull
         | Dumb <- mode s , Robot {} <- a , "T1"  <- name a = colorCell Magenta Dull
         | Dumb <- mode s , Robot {} <- a , "T2"  <- name a = colorCell Red Dull
         | Dumb <- mode s = colorCell White Vivid

Replacement in test/Demo.hs at line 282 [3.135]

B:BD[14.3202] → [11.2740:4748]

         | Full <- mode s , me a = ATGP.rgbColorCell $ sRGB24 0x21 0xb2 0x8e  -- #21b28e
         | Full <- mode s , not (mass a) = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x66  -- #666666
         | Full <- mode s , Robot {} <- a , "t0"  <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x99  -- #666699
         | Full <- mode s , Robot {} <- a , "t1"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x99  -- #996699
         | Full <- mode s , Robot {} <- a , "t2"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x66  -- #996666
         | Full <- mode s , Robot {} <- a , "d0"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x66  -- #999966
         | Full <- mode s , Robot {} <- a , "d1"  <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x99 0x66  -- #669966
         | Full <- mode s , Robot {} <- a , 'L':_ <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x99 0x99  -- #669999
         | Full <- mode s , Robot {} <- a , "r0"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x99  -- #999999
         | Full <- mode s , Robot {} <- a , "r1"  <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x66  -- #666666
         | Full <- mode s , Robot {} <- a , "m0"  <- name a = ATGP.rgbColorCell $ sRGB24 0x93 0xe9 0xbe  -- #93e9be
         | Full <- mode s , Robot {} <- a , "m1"  <- name a = ATGP.rgbColorCell $ sRGB24 0x93 0xe9 0xbe  -- #93e9be
         | Full <- mode s , Robot {} <- a , "p0"  <- name a = ATGP.rgbColorCell $ sRGB24 0xff 0xff 0xff  -- #ffffff
         | Full <- mode s , Robot {} <- a , "Tp"  <- name a = ATGP.rgbColorCell $ sRGB24 0xff 0xff 0xff  -- #ffffff
         | Full <- mode s , Robot {} <- a , "T0"  <- name a = ATGP.rgbColorCell $ sRGB24 0x66 0x66 0x99  -- #666699
         | Full <- mode s , Robot {} <- a , "T1"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x99  -- #996699
         | Full <- mode s , Robot {} <- a , "T2"  <- name a = ATGP.rgbColorCell $ sRGB24 0x99 0x66 0x66  -- #996666
         | Full <- mode s = ATGP.rgbColorCell $ sRGB24 0x99 0x99 0x99  -- #999999

[14.3202]

[14.3295]

         | Full <- mode s , me a = rgbColorCell $ sRGB24 0x21 0xb2 0x8e  -- #21b28e
         | Full <- mode s , not (mass a) = rgbColorCell $ sRGB24 0x66 0x66 0x66  -- #666666
         | Full <- mode s , Robot {} <- a , "t0"  <- name a = rgbColorCell $ sRGB24 0x66 0x66 0x99  -- #666699
         | Full <- mode s , Robot {} <- a , "t1"  <- name a = rgbColorCell $ sRGB24 0x99 0x66 0x99  -- #996699
         | Full <- mode s , Robot {} <- a , "t2"  <- name a = rgbColorCell $ sRGB24 0x99 0x66 0x66  -- #996666
         | Full <- mode s , Robot {} <- a , "d0"  <- name a = rgbColorCell $ sRGB24 0x99 0x99 0x66  -- #999966
         | Full <- mode s , Robot {} <- a , "d1"  <- name a = rgbColorCell $ sRGB24 0x66 0x99 0x66  -- #669966
         | Full <- mode s , Robot {} <- a , 'L':_ <- name a = rgbColorCell $ sRGB24 0x66 0x99 0x99  -- #669999
         | Full <- mode s , Robot {} <- a , "r0"  <- name a = rgbColorCell $ sRGB24 0x99 0x99 0x99  -- #999999
         | Full <- mode s , Robot {} <- a , "r1"  <- name a = rgbColorCell $ sRGB24 0x66 0x66 0x66  -- #666666
         | Full <- mode s , Robot {} <- a , "m0"  <- name a = rgbColorCell $ sRGB24 0x93 0xe9 0xbe  -- #93e9be
         | Full <- mode s , Robot {} <- a , "m1"  <- name a = rgbColorCell $ sRGB24 0x93 0xe9 0xbe  -- #93e9be
         | Full <- mode s , Robot {} <- a , "p0"  <- name a = rgbColorCell $ sRGB24 0xff 0xff 0xff  -- #ffffff
         | Full <- mode s , Robot {} <- a , "Tp"  <- name a = rgbColorCell $ sRGB24 0xff 0xff 0xff  -- #ffffff
         | Full <- mode s , Robot {} <- a , "T0"  <- name a = rgbColorCell $ sRGB24 0x66 0x66 0x99  -- #666699
         | Full <- mode s , Robot {} <- a , "T1"  <- name a = rgbColorCell $ sRGB24 0x99 0x66 0x99  -- #996699
         | Full <- mode s , Robot {} <- a , "T2"  <- name a = rgbColorCell $ sRGB24 0x99 0x66 0x66  -- #996666
         | Full <- mode s = rgbColorCell $ sRGB24 0x99 0x99 0x99  -- #999999

Replacement in test/Cell.hs at line 64 [15.1]

B:BD[15.966] → [15.966:1046]

data Algo = Terra | Terr2 | Waves | Pulse | Dois | Bees | Fish | Fish2 | Glider

[15.966]

[15.1046]

data Algo = Terra | Terr2 | Waves | Pulse | Dois | Bees | Fish | Fish2 | Glider | Noise

Insertion in test/Cell.hs at line 82 [15.1]

[16.372]

[15.1532]

      | Noise  <- algo s = gene [1,3,5,7] [0,2,4] 7 ()

Replacement in test/Cell.hs at line 88 [15.1]
B:BD[15.1661] → [17.1037:1077]
```
      | ATG.KeyPress 'q' <- e = Left ()
```
[15.1661]
[17.1077]
```
      | ATG.KeyPress 'Q' <- e = Left ()
```

Replacement in test/Cell.hs at line 106 [15.1]

B:BD[17.2457] → [17.2457:2587]

      | ATG.KeyPress c <- e , isDigit c , n <- digitToInt c , n <= fromEnum (maxBound :: Hex) = Right (s { algo = toEnum n } , v)

[17.2457]

[17.2587]

      | ATG.KeyPress c <- e , isDigit c , n <- digitToInt c , n <= fromEnum (maxBound :: Algo) = Right (s { algo = toEnum n } , v)

Deletion in test/Cell.hs at line 143 [15.1]
∅:D[17.3050] → [10.10939:10940]
B:BD[15.2629] → [10.10939:10940]
B:BD[10.10940] → [2.1158:1205]
```
      (widthFull,heightFull) = ATG.eTermDims e
```

Replacement in src/Nove/Logic.hs at line 6 [3.10194]

B:BD[12.3105] → [8.4617:4688]

import Data.Vector as V ( Vector, generate, unsafeIndex, length, map )

[12.3105]

[8.4688]

import Data.Vector as V ( Vector, generate, unsafeIndex )

Replacement in src/Nove/Logic.hs at line 9 [3.10194]

B:BD[8.4737] → [8.4737:4805]

data Memo = Memo { mdest :: [Int] , mlock :: Bool , mfree :: Bool }

[8.4737]

[8.4805]

data Memo = Memo
   { mdest :: [Int]
   , mlock :: Bool
   , mfree :: Bool
   }

Replacement in src/Nove/Logic.hs at line 18 [3.10194]
B:BD[18.867] → [2.6192:6234]
∅:D[18.909] → [8.5010:5011]
∅:D[2.6234] → [8.5010:5011]
B:BD[8.5010] → [8.5010:5011]
```
step f v = v { nodes = V.map fst vector }
```
[18.867]
[8.5011]
```
step f v = v { nodes = fst <$> done }
```

Replacement in src/Nove/Logic.hs at line 21 [3.10194]

B:BD[8.5021] → [2.6235:6318]

   vector :: V.Vector (Node a,Memo)
   vector = V.generate (V.length $ nodes v) φ

[8.5021]

[8.5104]

   done :: V.Vector (Node a,Memo)
   done = V.generate (length $ nodes v) φ

Replacement in src/Nove/Logic.hs at line 25 [3.10194]
B:BD[8.5128] → [2.6319:6356]
```
   memo = snd . V.unsafeIndex vector
```
[8.5128]
[8.5165]
```
   memo = snd . V.unsafeIndex done
```
Replacement in nove.cabal at line 13 [3.12206]
B:BD[3.12419] → [3.12419:12445]
```
   ghc-options: -Wall -O2
```
[3.12419]
[3.12445]
```
   ghc-options: -Wall -O2 -Wunused-packages
```
Deletion in nove.cabal at line 53 [3.12206]
B:BD[12.4202] → [12.4202:4217]
```
      , colour
```
Deletion in nove.cabal at line 79 [3.12206]
B:BD[8.6958] → [17.11374:11389]
```
      , colour
```
Deletion in nove.cabal at line 81 [3.12206]
B:BD[17.11402] → [17.11402:11428]
```
      , vty-crossplatform
```

Insertion in nove.cabal at line 89 [3.12206]

[9.7062]

      , nove
      , vector
      , ansi-terminal-game
executable rail
   import: opts
   ghc-options: -threaded -rtsopts
   hs-source-dirs: test
   main-is: Rail.hs
   build-depends: base

Deletion in nove.cabal at line 102 [3.12206]
B:BD[9.7103] → [17.11443:11458]
```
      , colour
```

vs

Dependencies

In channels

Change contents

File addition: Rail.hs (----------)

Replacement in test/Maze.hs at line 9 [5.1]

Replacement in test/Maze.hs at line 77 [5.1]

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

Replacement in test/Maze.hs at line 87 [5.1]

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

Replacement in test/Maze.hs at line 107 [5.1]

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

Replacement in test/Dois.hs at line 15 [10.1]

Replacement in test/Dois.hs at line 80 [10.1]

Insertion in test/Dois.hs at line 85 [10.1]

Replacement in test/Dois.hs at line 97 [10.1]

Replacement in test/Dois.hs at line 102 [10.1]

Replacement in test/Dois.hs at line 106 [10.1]

Replacement in test/Dois.hs at line 124 [10.1]

Replacement in test/Dois.hs at line 133 [10.1]

Replacement in test/Dois.hs at line 135 [10.1]

Replacement in test/Dois.hs at line 157 [10.1]

Replacement in test/Dois.hs at line 176 [10.1]

Replacement in test/Demo.hs at line 15 [3.135]

Replacement in test/Demo.hs at line 139 [3.135]

Replacement in test/Demo.hs at line 144 [3.135]

Replacement in test/Demo.hs at line 191 [3.135]

Replacement in test/Demo.hs at line 213 [3.135]

Replacement in test/Demo.hs at line 237 [3.135]

Deletion in test/Demo.hs at line 247 [3.135]

Replacement in test/Demo.hs at line 260 [3.135]

Replacement in test/Demo.hs at line 263 [3.135]

Replacement in test/Demo.hs at line 282 [3.135]

Replacement in test/Cell.hs at line 64 [15.1]

Insertion in test/Cell.hs at line 82 [15.1]

Replacement in test/Cell.hs at line 88 [15.1]

Replacement in test/Cell.hs at line 106 [15.1]

Deletion in test/Cell.hs at line 143 [15.1]

Replacement in src/Nove/Logic.hs at line 6 [3.10194]

Replacement in src/Nove/Logic.hs at line 9 [3.10194]

Replacement in src/Nove/Logic.hs at line 18 [3.10194]

Replacement in src/Nove/Logic.hs at line 21 [3.10194]

Replacement in src/Nove/Logic.hs at line 25 [3.10194]

Replacement in nove.cabal at line 13 [3.12206]

Deletion in nove.cabal at line 53 [3.12206]

Deletion in nove.cabal at line 79 [3.12206]

Deletion in nove.cabal at line 81 [3.12206]

Insertion in nove.cabal at line 89 [3.12206]

Deletion in nove.cabal at line 102 [3.12206]