wip

Author: JaggerJo

src/Examples/Component Examples/Examples.GeneticAlgorithm/Views.fs

@@ -10,6 +10,8 @@ open Avalonia.FuncUI.DSL
 open Avalonia.FuncUI.Types
 open Avalonia.Layout
 open Avalonia.FuncUI
+open Avalonia.Media
+open Avalonia.Media.Immutable
 open Examples.GeneticAlgorithm.Lib
 
 type StateStore =
@@ -203,10 +205,12 @@ type Views =
 
     static member selectedGameStateView () =
         Component.create ("selected-game-state", fun ctx ->
+            let squirrel = ctx.usePassedStateReadOnly StateStore.shared.SelectedSquirrel
             let gameState = ctx.usePassedStateReadOnly StateStore.shared.SelectedGameState
+            let showHeatMap = ctx.usePassedStateReadOnly StateStore.shared.ShowHeatMap
 
-            match gameState.Current with
-            | Some gameState ->
+            match gameState.Current, squirrel.Current with
+            | Some gameState, Some squirrel ->
                 let world = gameState.World
 
                 UniformGrid.create [
@@ -220,16 +224,25 @@ type Views =
                                     world.Actors
                                     |> Array.tryFind (fun actor -> actor.Pos.X = x && actor.Pos.Y = y)
 
+                                let background =
+                                    if showHeatMap.Current then
+                                        let heat = Genes.evaluateTile squirrel.brain gameState.World (WorldPos.newPos x y)
+                                        ImmutableSolidColorBrush (Colors.White, 1.0 - float heat)
+
+                                    else
+                                        ImmutableSolidColorBrush (Colors.Green, 1.0)
+
                                 match actor with
                                 | Some actor ->
                                     ContentControl.create [
                                         ContentControl.row y
                                         ContentControl.column x
                                         ContentControl.margin (2.0, 2.0)
-                                        ContentControl.background "#27ae60"
+
                                         ContentControl.fontSize 24.0
                                         ContentControl.verticalContentAlignment VerticalAlignment.Center
                                         ContentControl.horizontalContentAlignment HorizontalAlignment.Center
+                                        ContentControl.background background
 
                                         yield! [
                                             match actor.ActorKind with
@@ -251,7 +264,7 @@ type Views =
                                     Rectangle.create [
                                         Rectangle.row y
                                         Rectangle.column x
-                                        Rectangle.fill "#27ae60"
+                                        Rectangle.fill background
                                         Rectangle.margin (2.0, 2.0)
                                     ]
 
@@ -261,7 +274,7 @@ type Views =
                         ]
                     ]
                 ] :> _
-            | None ->
+            | _ ->
                 TextBlock.create [
                     TextBlock.text "No Game State Selected"
                 ] :> _