UI visualization for brains

Author: IntegerMan

MattEland.FSharpGeneticAlgorithm.Logic/Simulator.fs

@@ -3,7 +3,6 @@
 open MattEland.FSharpGeneticAlgorithm.Logic.WorldPos
 open MattEland.FSharpGeneticAlgorithm.Logic.World
 open MattEland.FSharpGeneticAlgorithm.Logic.Actors
-open MattEland.FSharpGeneticAlgorithm.Logic.WorldGeneration
 open MattEland.FSharpGeneticAlgorithm.Genetics.Genes
 
 type SimulationState = Simulating=0 | Won=1 | Lost=2
@@ -134,31 +133,4 @@ let handleBrainMove brain state (random: System.Random) =
 
 let simulateAiTurn state (random: System.Random) brain =
   let newState = handleBrainMove brain state random
-  simulateActors(newState) random.Next  
-  
-type BrainSimulationResult =
-  {
-    brain: SquirrelPriorities
-    fitness: double
-    states: GameState[]
-  }
-
-let buildStartingState(random: System.Random): GameState = 
-  let world = makeWorld 13 13 random.Next
-  { 
-    World = world; 
-    SimState = SimulationState.Simulating;
-    TurnsLeft = 30
-  }  
-
-let simulateBrain brain: BrainSimulationResult =
-  let random = System.Random()
-
-  let initialState: GameState = buildStartingState random
-  let states: GameState[] = [|initialState|]
-
-  {
-    fitness = 0.0;
-    brain = brain;
-    states = states
-  }
+  simulateActors(newState) random.Next  

MattEland.FSharpGeneticAlgorithm.WindowsClient/BrainInfoControl.xaml

@@ -0,0 +1,23 @@
+<UserControl x:Class="MattEland.FSharpGeneticAlgorithm.WindowsClient.BrainInfoControl"
+             xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+             xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+             xmlns:mc="http://schemas.openxmlformats.org/markup-compatibility/2006" 
+             xmlns:d="http://schemas.microsoft.com/expression/blend/2008" 
+             xmlns:viewModels="clr-namespace:MattEland.FSharpGeneticAlgorithm.WindowsClient.ViewModels"
+             mc:Ignorable="d" 
+             d:DataContext="{d:DesignInstance viewModels:BrainInfoViewModel}">
+    <StackPanel>
+        <TextBlock Margin="0,10,0,0">Dog</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding DoggoPriority, Mode=OneWay}"></ProgressBar>
+        <TextBlock Margin="0,10,0,0">Rabbit</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding RabbitPriority, Mode=OneWay}"></ProgressBar>
+        <TextBlock Margin="0,10,0,0">Acorn</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding AcornPriority, Mode=OneWay}"></ProgressBar>
+        <TextBlock Margin="0,10,0,0">Tree</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding TreePriority, Mode=OneWay}"></ProgressBar>
+        <TextBlock Margin="0,10,0,0">Random</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding RandomPriority, Mode=OneWay}"></ProgressBar>
+        <TextBlock Margin="0,10,0,0">Squirrel</TextBlock>
+        <ProgressBar Minimum="-1" Maximum="1" Value="{Binding SquirrelPriority, Mode=OneWay}"></ProgressBar>
+    </StackPanel>
+</UserControl>

MattEland.FSharpGeneticAlgorithm.WindowsClient/BrainInfoControl.xaml.cs

@@ -0,0 +1,26 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+using System.Windows;
+using System.Windows.Controls;
+using System.Windows.Data;
+using System.Windows.Documents;
+using System.Windows.Input;
+using System.Windows.Media;
+using System.Windows.Media.Imaging;
+using System.Windows.Navigation;
+using System.Windows.Shapes;
+
+namespace MattEland.FSharpGeneticAlgorithm.WindowsClient
+{
+    /// <summary>
+    /// Interaction logic for BrainInfoControl.xaml
+    /// </summary>
+    public partial class BrainInfoControl : UserControl
+    {
+        public BrainInfoControl()
+        {
+            InitializeComponent();
+        }
+    }
+}