From 77b45aa9b16b1bcc4c1a5b7ae8df38c3ff6abb77 Mon Sep 17 00:00:00 2001
From: Demetrio Cassarino <demetrio.cassarino@egalware.com>
Date: Tue, 4 Feb 2025 16:47:20 +0100
Subject: [PATCH] =?UTF-8?q?-aggiunto=20ridimensionameto=20griglia,=20possi?=
 =?UTF-8?q?bilit=C3=A0=20di=20averla=20o=20no?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Application.xaml.vb                 |  14 +--
 Constants/ConstEgtStone3D.vb        |  16 ++-
 Constants/ConstIni.vb               |   1 +
 EgtStone3D.vbproj                   |  15 ++-
 GridPanel/GridPaneV.xaml            |  28 +++++
 GridPanel/GridPaneV.xaml.vb         |   3 +
 GridPanel/GridPanelVM.vb            | 160 ++++++++++++++++++++++++++++
 My Project/AssemblyInfo.vb          |   4 +-
 OptionsWindow/OptionModule.vb       |  27 +++++
 OptionsWindow/OptionWindowV.xaml    |   1 +
 Resources/EgalwareLogo.ico          | Bin 3120 -> 14554 bytes
 SceneHost/MySceneHostVM.vb          |  34 +++++-
 TopPanel/TopPanelV.xaml             |  10 +-
 Utility/EgtStone3DDefaultStyle.xaml |  35 +++++-
 Utility/Map.vb                      |  12 +++
 15 files changed, 337 insertions(+), 23 deletions(-)
 create mode 100644 GridPanel/GridPaneV.xaml
 create mode 100644 GridPanel/GridPaneV.xaml.vb
 create mode 100644 GridPanel/GridPanelVM.vb

diff --git a/Application.xaml.vb b/Application.xaml.vb
index ec665b9..5290da7 100644
--- a/Application.xaml.vb
+++ b/Application.xaml.vb
@@ -12,13 +12,13 @@
    Protected Overrides Sub OnStartup(e As StartupEventArgs)
       MyBase.OnStartup(e)
       ShutdownMode = System.Windows.ShutdownMode.OnMainWindowClose
-      'If e.Args.Count = 0 Then
-      '   ' creo finestra SplashScreen
-      '   Dim SplashScreen As New SplashScreenV
-      '   Me.MainWindow = SplashScreen
-      '   Me.MainWindow.Show()
-      '   Map.SetRefSplashScreen(SplashScreen)
-      'End If
+      If e.Args.Count = 0 Then
+         ' creo finestra SplashScreen
+         Dim SplashScreen As New SplashScreenV
+         Me.MainWindow = SplashScreen
+         Me.MainWindow.Show()
+         Map.SetRefSplashScreen(SplashScreen)
+      End If
       ' Creo la View principale
       Me.MainWindow = New MainWindowV
       ' Mostro la View principale
diff --git a/Constants/ConstEgtStone3D.vb b/Constants/ConstEgtStone3D.vb
index 3fc92b3..535255a 100644
--- a/Constants/ConstEgtStone3D.vb
+++ b/Constants/ConstEgtStone3D.vb
@@ -34,7 +34,9 @@
 
    Public Const ASSEMBLER As String = " Avvio Assembler"
 
+   ' unità di misura
    Public Const MILLIMETER As String = "mm"
+   Public Const INCH As String = "in"
 
    Public Const CHILD As String = "Child"
    Public Const SOLID As String = "Solid"
@@ -63,16 +65,20 @@
 
    Public Const UTILITY_FOLDER As String = "Utility"
 
-   Public Const TABLE = "Table"
+   Public Const TABLE As String = "Table"
 
-   Public Const SUBTITLE = "SubTitle"
+   Public Const SUBTITLE As String = "SubTitle"
 
    ' nome file cn in progetto
-   Public Const KEY_ISOFILE_PATH = "IsoFilePath"
+   Public Const KEY_ISOFILE_PATH As String = "IsoFilePath"
 
-   Public Const FILE_PATH = "FilePath"
+   Public Const FILE_PATH As String = "FilePath"
 
-   'enum per le trasformazioni
+   ' info per griglia
+   Public Const GRID_ON As String = "GRID ON "
+   Public Const GRID_OFF As String = "GRID OFF"
+
+   ' enum per le trasformazioni
    Public Enum PairStage As Integer
       FirstLine = 0
       SecondLine = 1
diff --git a/Constants/ConstIni.vb b/Constants/ConstIni.vb
index 26d65ee..5357d2d 100644
--- a/Constants/ConstIni.vb
+++ b/Constants/ConstIni.vb
@@ -18,4 +18,5 @@
    Public Const S_MRUFILES As String = "MruFiles"
    Public Const S_MRUIMPORTFILES As String = "MruImportFiles"
    Public Const S_IMPORT As String = "Import"
+   Public Const K_GRIDSTATE As String = "GridState"
 End Module
diff --git a/EgtStone3D.vbproj b/EgtStone3D.vbproj
index f66eeb8..66fa1d8 100644
--- a/EgtStone3D.vbproj
+++ b/EgtStone3D.vbproj
@@ -70,8 +70,7 @@
     <Prefer32Bit>true</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup>
-    <ApplicationIcon>
-    </ApplicationIcon>
+    <ApplicationIcon>Resources\EgalwareLogo.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
     <Reference Include="EgtUILib">
@@ -117,6 +116,10 @@
     <Compile Include="EgtMessageBox\EgtMessageBoxV.xaml.vb">
       <DependentUpon>EgtMessageBoxV.xaml</DependentUpon>
     </Compile>
+    <Compile Include="GridPanel\GridPanelVM.vb" />
+    <Compile Include="GridPanel\GridPaneV.xaml.vb">
+      <DependentUpon>GridPaneV.xaml</DependentUpon>
+    </Compile>
     <Compile Include="MainWindow\MainWindowV.xaml.vb">
       <DependentUpon>MainWindowV.xaml</DependentUpon>
     </Compile>
@@ -233,6 +236,10 @@
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
     </Page>
+    <Page Include="GridPanel\GridPaneV.xaml">
+      <SubType>Designer</SubType>
+      <Generator>MSBuild:Compile</Generator>
+    </Page>
     <Page Include="MainWindow\MainWindowV.xaml">
       <SubType>Designer</SubType>
       <Generator>MSBuild:Compile</Generator>
@@ -385,15 +392,13 @@
       <Generator>SettingsSingleFileGenerator</Generator>
       <LastGenOutput>Settings.Designer.vb</LastGenOutput>
     </None>
+    <Resource Include="Resources\EgalwareLogo.ico" />
     <Resource Include="Resources\Fonts\Roboto-Light.ttf" />
     <Resource Include="Resources\Fonts\Roboto-Regular.ttf" />
   </ItemGroup>
   <ItemGroup>
     <None Include="App.config" />
   </ItemGroup>
-  <ItemGroup>
-    <Resource Include="Resources\EgalwareLogo.ico" />
-  </ItemGroup>
   <ItemGroup>
     <Resource Include="Resources\ProjManager\newfile.png" />
   </ItemGroup>
diff --git a/GridPanel/GridPaneV.xaml b/GridPanel/GridPaneV.xaml
new file mode 100644
index 0000000..350db4c
--- /dev/null
+++ b/GridPanel/GridPaneV.xaml
@@ -0,0 +1,28 @@
+<WrapPanel x:Class="GridPaneV"
+           xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
+           xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+           Style="{StaticResource GridPanel_WrapPanel}">
+
+   <Button Content="{Binding StatusGridText}"
+           Command="{Binding StatusGridCommand}" 
+           Style="{StaticResource Grid_Btn}"/>
+
+   <UniformGrid Columns="2">
+      <TextBlock Text="Grid" Style="{StaticResource GridPanel_TxBl}"/>
+      <TextBox Text="{Binding GridDimensionText, UpdateSourceTrigger=PropertyChanged}" 
+               Style="{StaticResource GridPanel_TextBox}">
+         <TextBox.InputBindings>
+            <KeyBinding Key="Enter" Command="{Binding GridDimensionCommand}"/>
+         </TextBox.InputBindings>
+      </TextBox>
+   </UniformGrid>
+
+   <UniformGrid Columns="2"
+                Style="{StaticResource GridPanel_UniformGrid}">
+      <TextBlock Text="{Binding MeasureUnit_Msg}" 
+                 Style="{StaticResource GridPanel_TxBl}"/>
+      <Button Content="{Binding MeasureUnit}"
+              Command="{Binding StatusUnitsCommand}"
+              Style="{StaticResource GridPanel_Btn}"/>
+   </UniformGrid>
+</WrapPanel>
diff --git a/GridPanel/GridPaneV.xaml.vb b/GridPanel/GridPaneV.xaml.vb
new file mode 100644
index 0000000..7081c58
--- /dev/null
+++ b/GridPanel/GridPaneV.xaml.vb
@@ -0,0 +1,3 @@
+Public Class GridPaneV
+
+End Class
diff --git a/GridPanel/GridPanelVM.vb b/GridPanel/GridPanelVM.vb
new file mode 100644
index 0000000..5373314
--- /dev/null
+++ b/GridPanel/GridPanelVM.vb
@@ -0,0 +1,160 @@
+Imports EgtWPFLib5
+Imports EgtUILib
+
+Public Class GridPanelVM
+   Inherits VMBase
+
+#Region "FIELDS & PROPERTIES"
+
+   Private m_StatusGridText As String = If(OptionModule.m_bGridState, GRID_ON, GRID_OFF)
+   Public ReadOnly Property StatusGridText As String
+      Get
+         Return m_StatusGridText
+      End Get
+   End Property
+   Friend Sub SetStatusGridText(value As String)
+      m_StatusGridText = value
+      NotifyPropertyChanged(NameOf(StatusGridText))
+   End Sub
+
+   Private m_GridDimensionText As String = If(OptionModule.m_bMmUnits, LenToString(OptionModule.m_dSnapStepMm, 4), LenToString(OptionModule.m_dSnapStepInch, 4))
+   Public Property GridDimensionText As String
+      Get
+         Return m_GridDimensionText
+      End Get
+      Set(value As String)
+         m_GridDimensionText = value
+         NotifyPropertyChanged(NameOf(GridDimensionText))
+      End Set
+   End Property
+
+   Private m_MeasureUnit As String = If(OptionModule.m_bMmUnits, MILLIMETER, INCH)
+   Public ReadOnly Property MeasureUnit As String
+      Get
+         Return m_MeasureUnit
+      End Get
+   End Property
+   Public Sub SetMeasureUnit(nMeasureUnit As Integer)
+      m_MeasureUnit = If(nMeasureUnit = 0, INCH, MILLIMETER)
+      NotifyPropertyChanged(NameOf(MeasureUnit))
+   End Sub
+
+#Region "Messages"
+
+   Public ReadOnly Property MeasureUnit_Msg
+      Get
+         Return EgtMsg(110037)      ' Unità di Misura
+      End Get
+   End Property
+
+#End Region    ' Messages
+
+   ' Definizione dei comandi
+   Private m_cmdStatusGrid As ICommand
+   Private m_cmdGridDimension As ICommand
+   Private m_cmdStatusUnits As ICommand
+
+#End Region    ' Fields & Properties
+
+#Region "CONTRUCTOR"
+
+   Sub New()
+      Map.SetRefGridPanelVM(Me)
+   End Sub
+
+#End Region    ' Constructor
+
+#Region "METHODS"
+
+   Friend Sub UpdateStatusGrid(bShowGrid As Boolean, bShowGridFrame As Boolean)
+      SetStatusGridText(If(bShowGrid, GRID_ON, GRID_OFF))
+      EgtSetGridShow(bShowGrid, bShowGrid And bShowGridFrame)
+   End Sub
+
+   Friend Sub UpdateStatusUnits(bMmUnits As Boolean)
+      SetMeasureUnit(If(bMmUnits, 1, 0)) 'StatusUnitsText = If(bMmUnits, "mm", "in")
+      EgtSetUiUnits(bMmUnits)
+   End Sub
+
+#End Region    ' Methods
+
+#Region "COMMANDS"
+
+#Region "StatusGridCommand"
+
+   Public ReadOnly Property StatusGridCommand As ICommand
+      Get
+         If m_cmdStatusGrid Is Nothing Then
+            m_cmdStatusGrid = New Command(AddressOf StatusGrid)
+         End If
+         Return m_cmdStatusGrid
+      End Get
+   End Property
+
+   Public Sub StatusGrid(ByVal param As Object)
+      Dim tmpGridState As Integer
+      OptionModule.m_bGridState = GetMainPrivateProfileInt(S_GENERAL, K_GRIDSTATE, 1)
+      If OptionModule.m_bGridState Then
+         tmpGridState = 0
+      Else
+         tmpGridState = 1
+      End If
+      UpdateStatusGrid(tmpGridState, OptionModule.m_bShowGridFrame)
+      WriteMainPrivateProfileString(S_GENERAL, K_GRIDSTATE, tmpGridState.ToString())
+      EgtDraw()
+   End Sub
+
+#End Region ' StatusGridCommand
+
+#Region "GridDimensionCommand"
+
+   Public ReadOnly Property GridDimensionCommand As ICommand
+      Get
+         If m_cmdGridDimension Is Nothing Then
+            m_cmdGridDimension = New Command(AddressOf GridDimension)
+         End If
+         Return m_cmdGridDimension
+      End Get
+   End Property
+
+   Public Sub GridDimension(ByVal param As Object)
+      If OptionModule.m_bMmUnits Then
+         StringToLen(m_GridDimensionText, OptionModule.m_dSnapStepMm)
+         EgtSetGridGeo(OptionModule.m_dSnapStepMm, OptionModule.m_nMinLineSStep, OptionModule.m_nMajLineSStep, OptionModule.m_nExtSStep)
+      Else
+         StringToLen(m_GridDimensionText, OptionModule.m_dSnapStepInch)
+         EgtSetGridGeo(OptionModule.m_dSnapStepInch, OptionModule.m_nMinLineSStep, OptionModule.m_nMajLineSStep, OptionModule.m_nExtSStep)
+      End If
+      EgtSetGridColor(OptionModule.m_MinLnColor, OptionModule.m_MajLnColor)
+      Keyboard.ClearFocus()
+      EgtDraw()
+   End Sub
+
+#End Region ' GridDimensionCommand
+
+#Region "StatusUnitsCommand"
+
+   Public ReadOnly Property StatusUnitsCommand As ICommand
+      Get
+         If m_cmdStatusUnits Is Nothing Then
+            m_cmdStatusUnits = New Command(AddressOf StatusUnits)
+         End If
+         Return m_cmdStatusUnits
+      End Get
+   End Property
+
+   Public Sub StatusUnits(ByVal param As Object)
+      Map.refSceneHostVM.StatusUnitsCommand()
+      If OptionModule.m_bMmUnits Then
+         m_GridDimensionText = LenToString(OptionModule.m_dSnapStepMm, 4)
+      Else
+         m_GridDimensionText = LenToString(OptionModule.m_dSnapStepInch, 4)
+      End If
+      WriteMainPrivateProfileString(S_SCENE, K_MMUNITS, If(OptionModule.m_bMmUnits, 1, 0).ToString())
+   End Sub
+
+#End Region ' StatusUnitsCommand
+
+#End Region    ' Commands
+
+End Class
\ No newline at end of file
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 9c9a9e7..ec566d0 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -12,8 +12,8 @@ Imports System.Windows
 ' Controllare i valori degli attributi degli assembly
 
 <Assembly: AssemblyTitle("EgtStone3D")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyDescription("EgtStone3D Debug 32 bit")>
+<Assembly: AssemblyCompany("Egalware s.r.l.")>
 <Assembly: AssemblyProduct("EgtStone3D")>
 <Assembly: AssemblyCopyright("Copyright ©  2024")>
 <Assembly: AssemblyTrademark("")>
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index c0d4348..7ec9e73 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -41,6 +41,20 @@ Friend Module OptionModule
    ' selezione tema toppanel (default=0)
    Friend m_SelectedThemaTopPanel As Integer = 0
 
+   Friend m_bShowGridFrame As Boolean
+   Friend m_bGridState As Integer
+
+   Friend m_bMmUnits As Boolean
+
+   Friend m_MinLnColor As Color3d
+   Friend m_MajLnColor As Color3d
+
+   Friend m_dSnapStepMm As Double
+   Friend m_dSnapStepInch As Double
+   Friend m_nMinLineSStep As Integer
+   Friend m_nMajLineSStep As Integer
+   Friend m_nExtSStep As Integer
+
 #End Region    ' Fields & Properties
 
 #Region "METHODS"
@@ -108,6 +122,19 @@ Friend Module OptionModule
       m_SelectedThema = GetMainPrivateProfileInt(S_GENERAL, K_THEMA, 0)
       ' imposto il tema toppanel
       m_SelectedThemaTopPanel = GetMainPrivateProfileInt(S_GENERAL, K_TOPPANEL, 0)
+      m_bShowGridFrame = (GetMainPrivateProfileInt(S_GRID, K_SHOWFRAME, 1) <> 0)
+      m_bGridState = GetMainPrivateProfileInt(S_GENERAL, K_GRIDSTATE, 1)
+      ' imposto unità di misura per interfaccia utente
+      m_bMmUnits = (GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
+      m_MinLnColor = New Color3d(160, 160, 160)
+      GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, m_MinLnColor)
+      m_MajLnColor = New Color3d(160, 160, 160)
+      GetMainPrivateProfileColor(S_GRID, K_MINLNCOLOR, m_MajLnColor)
+      m_dSnapStepMm = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEP, 10)
+      m_dSnapStepInch = GetMainPrivateProfileDouble(S_GRID, K_SNAPSTEPINCH, 10)
+      m_nMinLineSStep = GetMainPrivateProfileInt(S_GRID, K_MINLINESSTEP, 1)
+      m_nMajLineSStep = GetMainPrivateProfileInt(S_GRID, K_MAJLINESSTEP, 10)
+      m_nExtSStep = GetMainPrivateProfileInt(S_GRID, K_EXTSSTEP, 50)
    End Sub
 
 #End Region    ' Methods
diff --git a/OptionsWindow/OptionWindowV.xaml b/OptionsWindow/OptionWindowV.xaml
index 2a577c1..15f6859 100644
--- a/OptionsWindow/OptionWindowV.xaml
+++ b/OptionsWindow/OptionWindowV.xaml
@@ -4,6 +4,7 @@
                           xmlns:EgtWPFLib5="clr-namespace:EgtWPFLib5;assembly=EgtWPFLib5"
                           xmlns:EgtStone3D="clr-namespace:EgtStone3D"
                           Title="{Binding Title}" 
+                          Icon="/Resources/EgalwareLogo.ico"
                           WindowStartupLocation="CenterOwner" 
                           Style="{StaticResource OptionWindowV_Window}">
 
diff --git a/Resources/EgalwareLogo.ico b/Resources/EgalwareLogo.ico
index 6868d9d1b76340af9760419f2dc95bad22418809..ae933b78e154dea19391581454237462cf43fa9e 100644
GIT binary patch
literal 14554
zcmcJ$XEdB|^e#L^qC`YQCx{kdg6I(~TJ%18@4fdff*^VjJqThL!srt{dMA4Cy@lxI
z+<yNr?^^Hqbk;d33y;U$_TJZZ?Y(ah2paf%_XiC^1NqGdfe?ew!<7`?Kf)o$0iQmS
zmJ(OF`|jO;tOwwOuJaFb2!t<ETKt`w=hSZfxrfgCr1f*JeIrb?SO|$D+Nne&gI4)!
zg^P!I9+D+vR&{c{cXM-d<Qnr|`Z-0ukN4UiH8+^K2fv1eSw8QpBwJ}hhP}5~u{0-s
zK0Q|lkWUpnDoJ+OpJQTd$&#8+X_x$$+oLFW>08-x@f^?QF+P-%Vt?oH<IX*-Ch7YA
zovot!zQ~B1%qV}jZn$Q?h~7xtbfpFcTdbRiMOebnoWcyA&UF2f_OIXXS*%W+VQPIM
z>uFC>b><6h+Gj%*S>x}284yB(W%L*_UzJxS=cuSEe?-S>phfYz-b;gJ_w0UewF<~K
z?_7UZTT+$?KRC2bo$qU#>{1(Yy*JBlvEc9l4j)-Bdrjr|cj{9$gE%oeOj=YliJnla
zowlb_6oO&!B%XF?bkWqCy-6e)Gpuilc;C!WA%8oZqp>k-Vaz?+R9Ygw$vm#{a2=_&
z62|BrNgDm3v`+;0UXet0QLA)7au`)93ZZ-JEN}8kd1)jH%FBbaEntRp4oALC!9m0K
zwd;)kIAYH5XV;{rBdlkRiZdWVt*qZ5Sw&Z?=Vx+J_GbIT#xKO^G-usI6rqE=Zk(hC
z9Ha+JPE*rs*ITL0D#e{qeb6j>(@8mXk)^y(x!7RLf5E-9Ba1&@&up9g8i<*lqH67L
zBCNK|Z@GLZEu^Us$2w{NN60^id?@V~!HqQw5A0}Ds*W)%z(m0o@9Ps#KZJ2=PO>?<
zu=Lbh28m~f<{zolXW>JdH9~3AY;N?k(&DJ7?ZX}w$`{YG(`cxlyK?q8?6-xlT3bF~
z(^F3XZyxbRhdy(yd-l=W7x%2*wIc5DUh!{PUA>-zF6&fB_=kK7%`eIO*B>ERnWcvm
zhA>n9be;$I^cgR%Yj$^$qZ;G51R><(W1Lq5sLS8Z-1One!)GDj<+t$|RLL3Ph9u3b
zkE408&$zJ*SbWP<*GBrFg~l0m`Hg?HkicvM_gf)0bW_wjTQn1^*(1A_6x9YJkDQ63
z&S%jB^kvF2nX<RqWwTzhV2B*}VnFVpMq8v5Uj)yt2?e}GoSz<X-~9TzwB;SzXPTlS
z-vO6myOx#&$HiuG78*p`<EiKVA%iNk&hJdHzsgG(#w$g<H8azF7<P`)Q$|}3HS&`l
zzq(rmk#xM{6haQ;`tz}Sm7ceQfWfi>ae}Vi0Dh0gbctsWI4Djd(g)?xkxh5}ovm-x
z$a~eTC!*B8Z}8yu_yglL6kRTUt#Zf8+_`phidcaQve}&+3TYuXtdDd3GCVU*syL!m
z<d?xh8(H&!#gq%TJLCWGXnnq${G--8g_h;=k^NKlKf7)FPJjP~wNe3(dQH-I1ma-&
zt=FGq-=e!wYoE&!@DzpkH-@D&+w-SaRdL+dYOQu_rwaGJn3PKzI!<P9)Bx{!jX)hI
zCl?KC3KIMqF_UMf)a`E->RNW9Yu5~B*_7c{=1=-~Sfd#*L>%dtHR!QXeWKOleM;5I
z3f1={Zq|Bq1=*P4{nxX!`+aR%QOQi>+*3Y#B<M7J<>;h*&#Kg4Kh7$u|17Lk?7|zr
zo>0kkgp$C45v558JxMIPGrs95Q~AeP^Sps|^YZza`DN=gEoI(sD&t=xSI*a`UniYJ
z{HP0pSy4MZMW^v}M{8;_LUIgI8!|1lZC6w$%BDldYHAagr@TWeJyUEY#O#l_8-WEz
z9yP|zZ97eE9@cK|Z+$Cjo#fFmszc+3S#WACmdd`|+gW+3URh<Z{}2tI5?ea{rxwx0
zHC3pOZ&aYc<=6MM`G=G4(JVG(YaS2jBe{#qeRItHfv<$I<K6@2pG3I&%zmt^$3O|#
zRj#p(b0rx|+&Bt1M<JlAsnM`F#g!d4;Dq?<66Q<`COPvl<D>dEH_r0QVE@#J?<w=I
zl!`MyBZR<+FO0eNijV4^VZ41yYP)l!Geu8s&-FQg1-5pyOUYa9vcj?z&I_hS4{V=x
z!x7XcG4a!Lb?2LIKWm203zED%7+)o<ZuR2G^R|gR`c8)-64+y(*RgFrxX-ZQRGE0V
z&O%Pn#Sx&Va99vRe-5|KXL~qJg6=pRM~_`ZJ2F1mys7j!!`?z?76-BQz=O_fE-jL?
zQ3ss=^wvWBoh#>3Jg`S4zPk-ZT}*W`^lPZ`B$(NUxXi>5e<HDN>XP~U1lZ-%S~FEa
zpG?enn`2CjeQ6P5*ubsT@GWdH=13a6{9X26@>0J3bBIB+VF!C}K&Bxco=+>JXjU{p
z12cG52%Sn}T6YZFoFVI<cnXV+RY{4(CsSsrc>2$`-?0PfrJ3SCLS@Zg7Ua{UOMPxv
z&-znWZc|YjiPl(vknsria_T7E`(0CO)_+Ai<$->`iM`3J8vmdM%To^_Xt#{P90=e1
z!`%m6dMT~>3P&N0C<a--x5YB<HnzlIZ)=`1&r+U6VsrEKB}8(0UtIzq%eRj8_W8x%
z-oqH*7XNO92IX%fzLQ8K>F6u#9D6K3J1vLZlz&<3_71JLC7QKt#Ay(PL<d3BkQuNz
zWz$L50L3ZKSP@C<BEM_49I^*JWdvFF<~0p*MsAHCq2csdPuajsrE87hm4+1LjrJgX
z|E}lJ@3YZMlWg0$n8e^if)-x33peVlfGGy5UA{-SsrBL8+&Q3oLCNOM`nE4s|KWHZ
zA*vRx)u2NP9RA%UG6N1^IJ9Wns%4Xdd$eiz0q;LRMOc}E`4pzz%vpA;XIUPn;pV+P
z{I85>fqM?#d>kRV+ef>3l51gfbaNMC75I;%=npu*Pwjs{;K|+Rog*hdGR+#Pj1?$y
zfW^U(sHi@2M`DR^rDAL2zPoYue$>5#Yp(YzL_ba%nVEm}jpD!Oj<izATUQr*Le#7U
z;ig5F#svVDzFiNw22164+tLs0I%Y<hlEHXC9)cK5$B5vL8mK~ESv_yl{v|HY8D;SM
z3J}Q@={+f8Yv>M9ZC&P~J6{-_?0?24U{dEUu`@m2)lL5=UhCwmMS82j3fc9N)5lFu
z4!5l8-gS&FvLRDnX80S`!yhtz%Z(N2<*qMjH4`_6_rY-E0X#p~x^82Yq&6#1M$h7<
z`pR_(y{wN!1UJG>F?+!VA0m<Dr1@$BDkJ7(Fn4s6A1M7JRkBPaS4DN`k&?JUW9;`x
zw>8@PLi*C2BrjuMj+SYeD)+5#6GE_mYQ2gY9<&=gi1#w((txXM{V+-YZ5+tP7mCI$
zZ{c6vbnC;}-D3Y_l>MjnRJHfeLl%hq6UzcK<PfQ84%1nrbe-<{mNqaXS<5C45$t`O
zg!eu#BV;#{RE3Qo)n4g`HFTHg9GE5}Lm&jssC(xY2_m&6E^pJ9yR}2l>uI}0XVcF^
zuEDWZu!S0t-%6JEW+kftM$K0lmxu@M)hzuje^XaW@o2q`@CbFk+pXS7C(e=r3`Bx1
z&-=sb!UZKF5#O8As5Cku1FI>ETXpAqUy@UGgAxIZK_NMc`xll7LN)Q4AhE9hs76*?
zRJ4P}U}&O8U2BRh{#DV^7}eci;ihH%w)7ogEFhxII$;&-bv(CAyx7Zt9z4-38JD5$
z5m$dtgk;NTVXzL`lV!jMQ(53=Ui=3Enu=dus&SVwytwnRjnI_ONK%%AX6Mve%S>l^
zl9JlHeSk@8i29xE1Y3dER24_07yuue9eNZDw`N?v+SC7FLqUdIie{>Ne&_IixPukd
zIj_vR<k}0z<f{#O?+D#a0j_D`H7^i&G^w6sEdO-13PTj4fWDgA4xH2=Nu^f;X9Z3k
ziq>*-UlcNxE($XNxVDz>h0bR11Wh;yKk#V~8u0pqZIsiV#L<`SRCZtRFhQgwr~H?}
zQo<-#b?ck>5dL`jVaK}x$nPCF4ru@CrQUn-b+#*krHGXD6NUl!37!JAkqHI$Gh3FP
zJ_IyQjwliuo?<|Qu|WSb8S!_Z+GJ*;H=cPkWbxrgNIC`_?p53VFA9o`6F}86mqWu5
zLSPK{e6Q~wfI9%gf#?V)v6hP0JOuAo2m;shYV7RmqXa-OA@v0<ZiNmX-I2BvrdEP5
zJ74zw;F<j(z6Sdpm`~ghFm-Ms7XYovKA5uG>!bfhfWa)-Gyu^i1!&0;u>Bd52)6?>
zo^-GqvS_U(RN`hitV<DY{rO$*js6_68<S75!p!WEd*9!Ktyv)-ohJGp&fU7*IqtA?
z<w7#)+PANGjjm*j01M61!5ZGL-_YLI2c?D<XeoYCa=Rx%+9-l0a`}|)&za+!Hn7vT
zDKg7zRAp-<;C&mlSsER6t<Q;Pp4_dv^f5u2cWX??iXe&-eno%oxEeIg7I}Ag-|B%c
z0KC~z$c)h#nTcF0v<dxs4(y<SK3U%VFADdz{HrmYa(;g5savEt^_>|cd3*oP0+$4=
ziga&eF4+MK<a?q9%b-ZpnnR%mv~%S2o|^r-a}o^HB*4k_Ge?HLEB!bX`I$c~_~?Tt
z8=>#Y;7;HWd0m_U#{g}7c{d{l5VJl*=)4qd0>9<!!6ChX%m&uwBa@hprhS|Mm_%^P
z_g>vS5Au~*ostX%0Jir&5`ok3KdwhQ%g(l~8$on_WE`P0{ifSZPyD}e(c9nv?lNsC
zwC>;zHd?&EvU9g}zt^}wevnUZ;sj_Z90GBu0(=|w-`3&wjwYNP2Fa>3c<Y^sFej}7
z5v(TZZy?&Gl4{G77J<_OWWhVZy0aKCO^bcdWA)))i6cTA@;akW{~he?%TX?O4kCM7
zvvb2Y66KnhAE(*wJW6wx?NE4ckCUQ5fpv7q)hYjODZ4L6d%164*pLa$b`tcA{$z@0
z_rG)3_NL<5#yGAK9|ybjE)8x|t%@jM^l8;XE89F~->SsrBLrnySH#5DQ($xt++GT=
zQ)g~}AGZF)N?e~>INzAh$_b}9op0M8uHZWJZ)BnPfu*8oe<TAPevCAynFvAXjjm#B
zSm}GyKEEpe2#bqj_=xKpVp$h7UE;{UA@s$I8Drs1_PyC>>Nh8e_DA{pL-dM70Q!Hv
zB;bj}iuYB;Li5CvBA6h=F3S02wKEa*A{DIfZIs#TZ}-`rw44%v6T-p(CPNPb$S6XC
zk4}UCfBBJs@b7v`^yUPsp7I5PK(sovP@`|WC1S&mlq(Dz%j4)bO=oaTNgu%B%J8u+
zVivVxVt~9)BaH%~vNg8EJL<BR4+HbJ35&RSPDjL5-<V1hB%fd@K<n%meroY?|7o>!
zumEoac|Fh3MySI7=$sB=W4w3*8+V#UsBLd$4@}=!vrET|vnx3+DaXc|oj=#XpAJNC
z#+JO>F9z5$77!UA7%<R5<`eY)d1S{5q18~Q;cG^xQCY+IkiY_ofEraZYZ6LSd=_yW
z#%O|f^4Y2vM?mrVu`pi9Lrk^W^E;W!&&#l|!Pip%{{jCubNnAaGN4EjyEXqBBJv3L
zC@T~#N9X`s{7bMMii(^3#8%)PgdY39YJnypSu6fpz)~#LxlXfebUwud6sO#`MuVX>
zeGQFC&HDR8GiEm;`H?3_w_Q1t^E^fOQ4;Us%uJnh)Y6U-K~Py&K3hJ!vG>3P6qa?-
z_N0_&nvNf0V}CN`V>0ofUE5*Fk^p0fuHFBC<3neXWxj{^V6YUFPx9oX*56vn)clmy
z<}5KMO+DV9leWhv|2Q}}T8?{h_4M>|NHRq^QdZgvvdSxKr7N|?M!0}YcHKuvc9s)0
z^o?wNDW%m8h<vrs2Dzeis_hR0Zj*0iOkap1)K|S;2IgD2dJ6n<-Xroq2&Nt!8KJ{i
z!1^99?SDEwf4GQAt<<?*s9vOrQ1|xs;S0DCU@b@}J9HXS`oP8pfkYG=R%(|`76)q4
z>Ut}n8zQyKw4t35wC2Thw9*8`k@t&6BSy_Zy$MSEkf(?!vMmA{nV7!t2B#^3z2SET
zT3tylh4*p<t(dL|1O6{4`Zp#Vyn=+iJ^PExOD8_cjXHl@G)F#4Ts*wtdEvm;MSMXT
z{9haBhNKVFi-;QM2hJaooXwp!yr;qcRs!$1v<eL>X5xE>S9j$vKozrr7PKHi0)e#U
zEF5{Kd?j5+&0n(C`}uX8K=5d#<3FKcVX#F)q@-wqpgo-t=rkV`(VJ!a%U(_3lZ4@5
zywCui{O;1wi;QZR9oM>&91hPZWFFOylF9p!z5SJUs``e$Jjbwlx@>wEoQ|trfqIcL
zLcMU*n)I$LF=5L?sqlg|`C(++-@L3+ZG;MI^2_9&AOH9v<;8|&OqvLuVjdQ-i^#SQ
zZN}%_OVo8G!k$Sg*szh_RSI*~ur}+qMaKnqRN18M`x||E*h>xOFFj`PL>ampIwM1H
zP*gDmqe<_*c=g5$$G6qGi6Yw2-C%;p>FPy~!dj!ZYX%Cf)L3BML`XI+d9nDrDw=Vb
zaivz@Rk*nUQ+Hha43~WFu;;Bzp0U5f(X|;_!AN+UwFC^d^^f1We$F~Kto@<6((Ll#
zf-Ao=Rl?H|N{vzL%6}PdFu&uPWHU-U%&PX9YE7u-tFiajXUU2XoO6MqA{%jc_fH+C
zT3-zo_GYzkLTF{^sL&qN<&UhMx~%Px^{2n-*_dEz6OC(YyT3P&8o0RNPm~E!$cjlB
zDezp@nP1wio@bnxzs<`mRVj3I*rUqQZ|oms(U_Q<lT4x)&}Z}W^ZWccn&b8Bcb0s=
zo0=eg%`{Xo>nu-#M1=;fuF%Iz^jC8q3!4T6P=kXl*`C;S4;2;D{pA@K@DG{wnv>II
zWnZ2?K^Ns5vOQkP$?KDB%Nmx$^v8y~&d2)<WpMR@`noR$`$6#gsX4@#p5oF{m+L9F
zx!YyxPdnm2HD7I{M$Z~q7#qir>jy+t2OQJo=NH6WrPtaffxvRQp5nIGz5OCi8#HR3
zi$o^e-1xV*caTw2TQG5n-!?(&1qJ!^N(%fP_%qhV*0Wr8x47-+YThwsNS0|1su9JE
z_oO*AbSW|Yw&&^|8)JOC_$;E0c38}bBiI|!KXFESyWM!{@#}m{2jj}W7*o6?#Zv=H
zn37T7dhK%>zO(Za`INEzX|@{kvkQIskpr)K-I_CIi~e*YM<#J5LSsiu{DP5lXPiJd
zoPNp4e1FF1q#xST)3dX`uZmEUDj1<Bz~1_I5iDX#S7zzp5Hm4H<zYYHynOf#&b;Xw
zp~fM>nw+a%G&DLIQabXUCr$81ea*xiY0J|JmU}WroR*d*75{P8-onQwvaL<RSD%fw
zngRsr*>Aq}{;c)B>bV>g>aw;fZDiHh+4%#a?~(H)bXrHJv;1?(wkDML#N@TB{JM@q
zgO{yQt;fDlwZp8ri%GC?*#tqLE^9~2l|U<9t82~ddxAjcyq2jc^3%07O+76J;>c_!
z95{S<XsG%33SoV{UybgbiJ(Qj{)<GpCzF##E-ne40@0(^ZT8j3+Op>B%hN;e`Wih}
z?@RBL^whOsn`F=HzpF3EBlE2Yaqcf&UfMd?rL+tmu-oxaOv;7g#e^A`NeLzAYC=^?
z$EgXtTG@Z7G4o|8fDrI+q>db&y4Y_sj+3HqvEX%ZzC6<T*lH9XjuB!UWSlLMtt1W`
z6`P;-4Hf5TMhrMCx}(TQDHo1YICUF*QzDaD1;={)p5Olloc(rA(B9WOm?BHx!pSMl
zlvX-V<+aCi@<v;A7H>MHm)t@lZW*2e3Q%HBJqBsfq*Zl(#HM~KYy9xpRgbZ|b&6=2
zNWDI97Uqvp>p#}q<&)62nEci!3cRwivZhEaR)dD#&J8Aa)OBq|#;A23svxYZ(29}q
zMVC2p<>)*~bM46M#N8uYGIz!K4gbuu&h8PhceT3FeNm6xbCq#ho9wHrtDG6MjM=I>
z+S?x_sH(c29t-F}y3LY^Nwl=JbM#A1s;70Xw+=nOrlhPb<;l99QYzAL%jc>wt1u@H
zav{uUK%~p$i83cz`>i?Ge$B`*b8!g<h7Ea0LP|>MyRw(`v35I;OQqb7XZm^W)a-2A
zCrME5(u$8WEo8v&Bhv#QCegg<Iy^o8-owMg#w&N5Kg2h4x_bWr@YKO(rA={hu@XX^
zy252Sxy{(>{t^TEGI{u!e|r6_AlSjKJ7+*ZW@kU%xo;+?#lZ0R`01dha1uo7>*E8M
z-7Q(@yFxW%;4JeuYt>har;RUC<Z^hv{2A*EcDQk_)2*4cH`S7a!DR9XMy-k1IY}6L
z#&aDaat4PMvqAqMMYRCS6*D$g36=;pS*Vty#;oj6{BZe@FKhnlv!_5mh>(C&huc@G
z393v<>mEWmts~9Hg=7Tbe6o?Uf2=E$f>w^a)HT$}$jHpR%`d{SwNmqyS(7K{=PevO
zl3n?u`pj(v3!puga7kN-m|esxnYN|4Ot!SHpXI+=E~d0?GVlOYZ|-d}5|T4=QSzT?
zBByN6_}`M@gfJy`gRxDea{xt^s4)>meqkZv%=~VZU!>1O5G8ru^>+VY54Ar`f=hL|
z&Xb&jI4q=?c!tM6V-I*+yS2$p?*%C?2M7O$k#ob%I61~zUfvF$#vAT{t7~eel_O0%
zo?`XwdnOKY`tGQD21++ro(ij~4OU3yqC9X#9$uc#^`o7Styfp`R}^#Sn~I0$z5|R9
zAc!gW;qa=@#czI4g+Y5_9yto&=#AF~+)@QxEMLx?9jk&kveuJ`&r`q06!F1+W5Ujz
z_16V637cNau6u$^UX9Bo@wUwxzX5DC=|YIj$=bcxXoECrAeFP#rnIrY)@5B=7DqZ>
zije@y_KNfE+n(7;t(NKO?;}>GTKT%H$X_)dKYkn-m#$P<{ZpvQmp<@9aBBS@2dAKz
zr%hVrD7UNLdu2lK>J%xZO%V$&-XkGp2z=Cfd7wm@IhmRRSDGV)_17~-{0+wB9>K#}
zH5fyJ0<yAFf;kb0@*F0dP@@Os0A=2|U2qB33o24YMl}d}mWZSC^YeRNz87A4JAciZ
z3a9PjsLOv6C8?#WxpJ~Q-8<i?$VKoxYk*FgAVn^;b`k})J!8-7@ayn_iHQlqH<?Z`
zHtKNl>Uw2`-l5@~F=)>oa4)Y=ee>GdgItr`-rnAYLm|u4%hSChgWJ;EmU^GlAL9UF
z$Hd&}dpMpwdv<*Pl9YnN!qk<J{ZpGUw3qE?ZCMZ;zE<<+Us4~#lGC0VGe+<=?xT>e
zZ@7c!_k}YdQt{$>Dn>pwX{Y|zHbSWLN!0;#pn6#APsoKY&r!IzxD^fS(rU~^#Oowy
z+gZ0Q{r%CKEz;&;HmQ;Z2Gk__eu*0W876CgaD#(`&wPalBSW+i?I_{fH-~3Js3AT3
z`MS0+YF`oBI6ig4bEhv63~THA$hx|21<$bSYtl(uV)@ZnGwj%(Q^l^Xu7mUQ11l?p
z{*76N0m9jFM*at_)Cbe2{;gSa0a>Eifkvd}>2z_1{x?F`_pU!Heir6M+xUA~>v#y`
z;o&`7S&q^1W9Z?iv`&nQdK4NO>UkZ-n|UVq&pX4COUBe9%sTI{(t`qeX+%btDaSit
ziwv2?LvQNZz2fn0TL%YZUAgE@peEPsN^|pbR{dW<hBTRU$kN6c-pu*&@bG*Rr~SR`
z6cHj&XG9}Q5KnJ{oCbu0`}i@ZkdQ)HN9*qu`htOUBa0Wk!q>|I>uXUIf41FR*1u^p
zkcZz%9x*X7AaSU?VrJNJffx%C33Lcpf1BRu7^K7`{!{qVJT(AgWewQPT1HlE&#DvO
z&e=V*Iuxo<-DYQZue|1G)7BPFmv{?doaAsupE(_uK(9x`<+J`wL0N;J)QycrPbgk5
zV*|=^<m&~}3Iq{PoYY6-><Mjx<Q_A3cXv%~-EV-Y&(H^5?;|Ino35#CA#EM~#i2$E
z&b6eJl%}4hr1ja7ifQ4pc?65Q?11>iJv?3#M<U$HX6;`L&i1v*lAKRBUXzvT*Gb*x
z(w^o%I^{?+Gc*kJuI~picyf9Qbn-xjYuBnXloiV1amos~d}3mPrlC<01dk@PYDS}#
zU3(iPLem5`?cu?jk&*E+Gz<U-NXMpk?d_zy%jGIno|A_Y#B}J`jI9R&-2ukW&VG(Q
zJ9|fHaiiAU?kz^Z9sr>fuQIg}V_V72wO5+CT)4q1Wxw0o8FMMp<ObwMhK3HM9@CIV
zmDkovl&M+!WtCWw5<hG<jCENb5OlUM7baewtH11>t?#+Iz69h>aL5PZQl-#!W1_Cj
zxOvrmWPG}3VGtj<BWq*UP?@sjapLrDz7kVKyQNUpi*lqGe}+)``oxSL83o01OIzgC
zae?sal1=i4mpC{}&$C#;mk}U?GxhV!I5^?SGcNq+#VP4@(MvYxyZy@liZ`IOP?d9n
z`l+Fy$Bh8+j^q2mSBoBv7JhC-!I+bEW%Yu@#Kd3UxJ49h7A`*&aXI1JSQF^y-rn3@
z{m0Ada?^63pTZ`(pzj8#nSYhsOP5acRK<nIl276^*c!SY&-<tG&U+`6+`~DMIvrmJ
zE7a)Y3mWOV3#PwxGvfu=`pk(-b2F5U7ptW;hnof8RST0AsXj~lIt6wZzdkuR(Y`ml
zel#@6<U8!zW>r%R0!f!g_PN2CiUkW*NSkqXK|%87rd4-dJQ=B-rz$wS*;yvwH`$9u
z0#pNZ7CWL1P3;%_6x-X1wqjaIAl<aJvoEhL0}}sO3T;p=v3^#ss+#8|Q6$32sB&^+
zXUo*kF*a^U`Ir9wy(e&WK#}Vg|F*BTk{eAIZv@VLsbDZ2zePtrs;x-tyq1#_9vvMW
zgdTq5ykc0#2psO}sH+Z#airj`0s;EL<+sz4E5FzF+xf+U+pU6hztu!KqFSryAeq{h
zxjoi!adi1{o!ufUa)so`aW;ds4&j^EPoF-G;l439F!0{xrk7s3nW22U=*Y4L>N#C%
z5s1E5<&!%`*#iB6*5r*>UpH#!NOeJ;E~hxa&cWeq8E^!E5~fn9)*~o%mZ4CPaCnF<
z`M%@lWHj-s#~A3pZraVNs;kczf*Yx(Yh>DJsr?Vo_HPekX3|jaX)^;QhkHmU8YZda
zmxmu0H$!kjKD-f2VV>NA+*5)@0k5Pf+dLlzsXvflfasPEJ-01bB1C!8me=~yYG&;9
z1FpFRFh47dbIGi73`u=NAYR>BF!ZLTOu1-uVm68(T=EC^lKA6)E|uNxbgarugxXoB
z$0yEvGjBk$<A{3faJ}2H{Ofev;ArSQby<bwUZ$@Tt+ixF+Cag!cW!!y6O&^`m#Ma-
zA!%6TEXb^6@@OlqcRMSYQ(HLr_?phn&cp_8xUBz?Z&uVwAhsWW$PP6!R3`NHuERdT
zEPETxvzMXpLLr#~)f(h&7>Uv^RV`8bG5*-Whgu5)^a$WDz{IbGUI$IDdUyUvr2+`?
zdzF{<DbAznoOnf0Y~a!p8;=sp;;v2y;12Mr$y_+~8^|&S)^l@Pqo7^y-8WMuDI?oz
zT()_59cI48vKf+IWcPzK8c>?KLdH^W3g^V`Nm9p8Bywa5&o)8~iD;<tFBz3v>@i1L
z8U#UHG11e7{8B^C&&OQ2?jaMMQ$XN?!<-5^3cG2ngO@i{wa=nFq!|e|FwF~s?c5we
zYrODhLxTbnVU9|nfGN|YZBpVYQO*!ki0I;Ae8=`7y8wr%qT;~4eZ}!Y-Xs>VF2j?P
zXIoLwp5WzN{nF(_?^@SQf?N|5DG@GmGkg1JQ`#Yd4{ND4=e-737PY#JaZ)N!;%E{9
z`%iIg#_xpoSQS{l6&}TIaedt83v!iC>gDUC^N&7PXg|FF4fdF3VSVQO=xQY+3zU40
zVpG4awl>W!GER{Eo?Wz;IEXnuka}!p#-r+yp@6ASaHMJf3kbB%-`*D}#w90p4GrwD
zR#VQ&r0(F_s=ci(V{h}+BNBZxbMw%fApc@@mUG{rgDSFFby$=*ZS&X~<D%nNO{iq8
znzs~IDq4j%o&34i$mD3-*$ReO_H&TdS8CV)I|6J1FyLcB0bU=mA*&f}9F|Q{(aOUR
zF@3zRtf)S7F~qnI>Kz;&uaGx6JxfO%`I->Ns4|tIhfAK0Jp5<P&q0pvV9A}wXKyaM
zwL(R+lOR8$AS+Yd%qWx((7(m%HZ1s?&b1qxyNf%M8hjo%=_$d3vyY^{tGsNP)&aSn
zbtOLvg}MVDBvOnc?wdA3NNr0227||ZWr(rtSVIZOz7TA$VdzTtZ2anSKyS;FmNNca
z`mx`Bu77tKGkWc;{R2!)Fz{8j)RIP&li@c<UAi}W)Z=dPU4)AWJDjMXfCCIu4UJ^7
z&%UR6cT$*o>ni}?SfgYq`mdnam)FJsQUFa|UHV`3^0m4`D}t5r0u3Lk63kLSRV*~@
zJ<x4pFqrcrk~(b!knWRnbBrlc!_(8#-c))c6VuZsAb~N?9^@dDC^Ph!*xcO99+{Ug
z4w#qwU{#^Wsrjp{L4kc@U}2EP9ra9a9He{DSFhp~3UrKzdyV$@sTX=TIq$@rctZ(%
zXLq;kX}A(XO^4HH#4-5#+IL&W;h^zqiR736`QNA0Mm9E)wJ4WjC>yf;SMTsJfsc>R
zADc?doSChM4NkqYspLg0MY{FQA<>eb+ilI4pBNjl291r6PsZ%#@(2tTI2DtMjI;%0
z4sDS<y5~}_R;aFxTxw1!tuBpms6QuGRaI5ATL1#!wBgpz|LkPil#|T=e4ue9;A%?)
z*a&!g<Cw{4_98yW2fizHCcORmphUgsx5*_G3jM0{^^rrqHlq9~9<rfI@}@~42-Vs*
zIEY`Mn3W%37&u*R|0J?a8|{r&(o4d~;*w$xJ}z+w12%Wm>@g%qIVm|wx?tpS!@#b&
zqvfZeve$J!b&s*(Mx=k>mF<gkyRqXyNCPnrYBAND)TEx)i&FrE78YoPZ^wl#Y+Mp<
z*Bh^SZ?4z^7>Og5y;}C#c|%6684|h<Zm+NBkLGU=sbfxj<3A4ZnYyvxJFLZS>T1^Q
zrab0JZQnX{W#{J?buggrR!t(2hdtnY-`F}5G`%bIW%i#NO%DgCcoisQ8TtF8X>wT1
zho*h)GS|}AHZ}Z~l{rV{Do;m=hoqh^0P5rOG&?S5v!!{e1~{MU>SQU?0wNtt)~BhL
z{lHSMp1dNC+>w;${go1ELi#``D+b6NPC>!zPNwRhO?7J9SGmghLikwh{5&!m8sn;%
z-m2*kU3*@t7|iPFkYUeKk}`hS5#df;hfJ<sw5px#pL?DWIsQ*1$`%~?`c`sGaLHX_
zgK|0zE)5gt!*2|QK_MzznAA76dz$nP{qph{K!5|OaP67Cy1E)Rwq<BO74<pVY3t9+
z{QUfl-CgeSj7Q77ie*HaHuQ3Z|M*8`5)o1I#y&m>x;n%D6{?u9kpjinJVGa50}oBc
zIs)6QU&ky`ajv3LUcTu0`_Le%WYdj$a~$ol9&9wspF21k(<<QcLhWhk;SMaWAzM@?
z-qif%$>ZZRdoPDluk!LTSn|NCrj8!K5<t!qF}ujBavA;vD>66Eo8iSnb|L%x9DYi?
zi;E8!!OiMC&%Tmn3|W4ewfy4BC?=F;VP+Ph#ysgwb(CW3djCpJP64=->s1|YR1<}r
zW_CBIfvZ0Z>JRiXEF$|Tcti5Mi-TCg$j}f{J?$rTJf#gu?LPB;8;a>c@yoQcTn<z>
z3poo4$E<$?a%Q~*LIj0UCI|=Djf{AzdAe51^P5xEBa4~VoYuOq(SsnP)`<;<)FTDv
zOvybvdwW$=_3A}&G7OWN2Jc6>0A6dqIBe2gc6WDsEg&GrbiDCBJC`)PWZTZG@ngP~
zXTAPieJBNKLGjkGJNZJWdb&@E$#vtXiU=Y<B2}QWf~*ZAaB0AW!&U6l8@wm?xPNLx
z<rL%yeE!jbD&-0JgX#1|6Q9@i0sf%$cON8yQU$$+8EAZzc%ZIIN=a^O=FwgLd7j$P
z)AQrMO1GS-+?Kwoe)DqZE7tNx>h+6Co4b8}*m17yZFyxeu;dRe+Kk$Kp(uc6jXQ0T
z+}GpWAM{+EdE@`L|1GF#lxY_WY`gJedg$sap?Ox=ypkpWo&;)U94Wu|9KTUE!=Q;W
zJCYvK^iRX0)2I+-mi9YT-qGetjA>me&?G#w{(4*{;)kudbU-2r-E6d~FO-l`PR~p%
z7~CAcFfJnv7tg6|oEI<<di}b&v(wTBzpGr1eWK&fF(J}pkCNOHQl|NNd%Pr}%k+~Z
zErLOmv(|=>tJl%;>}C7q&&c_m9+_HE#<V;@^$D1Vv?g5LzO}Q@&aVCWWAHb8iS<d*
zeromx_BSKf`b6YGVhxbgkx$OSftu22=@lUkl#T7_99}NZ--Z}lrU<RGciz8;#$B1)
zKq9}fyUj2`?OTf>qI_`fiyIocvA<t{L>?(Au@Xnd^_%|S#Yy36tI_f?a&`TZJ*ZUl
zLEgo~$l5wWgvO9+dz9J}0@69>TDf}tf~hkhq+#fv9~YcfnSs8aUoaS%PrU5IMcrFp
zdejQ?A?N))%KG~Hf%@{{af=Oszo`P)E-ztF;?7m)8r_l?nfK48FcykrzBr<05%0Vl
z=j&6-sw#fnp=h=eRzc7C#64-lOrysR4oBzfS!H!~qV@jA34!LJDQP7oC1Xtjd_}u^
zdw++*sF$2kq@<+Z8XKwGjJ=kQxZWOzbh0<gp)%4_jcr^aM@L81?fsCD)#fToA_FHr
ztPs)T)6?ple|_Z^*Vp$zF=JzAhd!;ZN=BWVh4z_vlG%<uZ}ZI^O47P6e4HVPBSP{k
z6%2ruiXE9WXP$?f+5J}b4V<%0K&j6j1y~z2io^wI#Z!IG3btA*mqX|S1djyjY{vfd
z>HTk;8Dnsmbzjc+(4d~p-^>4ms^p{f@jqfBgR+Isu91HwJo1ro`fu6!2AT2E){0@B
z>$TVCuOhrS5l7SW=R6h$UiXuG+&0MQrD;>-oY%+fgf2GdN_?-dhb$|&Eu;TDFPHl%
z+}T@5hMt9?z3;_t;0x;K^Ve&<JGNoxH-Lk-li8kHe(~`BlEx@akXmB0!6tbyXkN|9
z&(jV{31F1Ol+*9I4SUgejQNaYWY7G5G<;~Yeh$+9m1Dx5NLhs8eD2nw7D7Grz2w*Q
zO#iJ>M}+X(%CLgm<-zZul?KY8t9cAJi~F~CAN|i-shv*}H4ZL(V+4bTd$l~3-5=ZX
zyhRIuWR)Tl69y?yS5?B(cpX54Pw$3RK;MCd=pu4ojhR?WSJ%|YKd7=2hV-<o?FF<g
zcvBs4yH5?raJ2<#T$C;===VGTEgGME6k6K2wvPbSmA|myT~nlg?4if`wVZsKG~>gg
zhu`D7#&FfF2;-oHIClb~p+QI?>rLx%FBiy`<QVVT9a?%?&#7Xb&d<M~iphm<samYF
z@tAK9j+~KZ58{_i2qj9s#{K4$=^qAO@9ySk^x79JR;LKsgRJ*wyqK7uCwL@3GBJsb
z<ZEpD`<DRdC-ce)2S;LOKFV}{w+L~8=3Sj?yl2WnQb!!)fZ8`X3v`lOgt$IIi2?rO
zhJ{XIhe<Oe#H5?0aX%@@&*ux+6A&_3f0~8#^7ZgE{R&#7v_n`R-_}OV$;dG$$`nIO
ze>OG_)Ytj|6aWGl$X@+79(dqLo!T3mG_CA1+CuKDCnZnL&f1O6T;^|VIC2WT?*IFj
zBO>RUmG-up36iuYjM~3*ZH+NOH9<~60f@e^QFFQ!xt~wxo+rx0OIt|gsQ@@b;+gj2
z`d?n_6(bO@1qFkrcfG4p1N%gDK@z{W1ML#eQGT-Fi38szXHAaWOd-2lM)mY4L16w;
z7QbIa)~_SHRJhYod(_yukAyOy6EIF$Ma4&GPj7!e$D23dt()}8edX-J1Avsub1I@=
zv2-KtGF;u=|F)+&0OmYDTaM8(FnF&zI_CThu#g-*P<&}!B=FGj_0^jhLGQ~8ZS-&3
z{D3%kc*b;S|H{utS|TS&aYDYPr+;T7HTCg9!9;f#T*yL$K(o!(H@&cMv*Upvh$%{U
z@D&P)+z4&X)vkY2)A53l4`}^g4Y~J~FF(8kD)DigS-6cxX{Gfmu0l2DFF6dfZ=Y~Z
zN{nwle2{{A8#cZzG2-?`5^81Qmmx*}AwP9AzhSe%(WB<BN#|@G4?GR@QQ;RfMjcSn
zr=Z{&31$P;IDD+HbLPy6wB%9oGWkr&vWW0wL-VzZDSm3dgXaY1L$PdY+LT4KO3$+j
zVh4cYJdtB7f-`66=~<>q{uG|zPjOeW1nT{#cJX)BmmHfFT5~@%ZSAPJWAxC?5yy^a
zgSY#R{Esud9QKHWBjbR+<^TnQ&WO*Tss%c6zPS~iM;2UJ66I-?hvpU*)GRp$gt@^M
z!%-G<3vYz_*7x>yL7P9_lB>nu^)x#|xUR$mIi;N#LPdh8)_jHg=+SF#?(p$-pNe<V
z`At6c`l8wR*^7&G4!NM(_cyqDzI}W$9IbaYgD&oqDwOc?GgOjU?drw4^P3U_)JdlY
zCKddn?+><y_QaqZ%>$78zHtfN_uWTL?C^|@kLeIar<&+16CzFLT9)YM*9XgcA#K+B
zv8t@eng%+n$D67#y8c2VtW8K}^X=bhrelLX>5Km!;~sc4p4|tHB+zRKSU4IGqDxSq
zo=W1cq4KR!Cemdk(a(y}u9V@=@c)r?F%nBrT`#8~e@J~h60r2IC%N`-*Nfh{6uZ$j
zVbbC&W2f-k3JFfu=RF(|#RsG5n7%DL%g$ia(p=?Y99BtuZ%J8R3qmkWmQ8>#Tk!6^
zPYxP4lcN%ro?k^gAO$0n{ISF7Q6Mgx8)ypp(-|kI1=R5*j@GheOY7S~n;Eda<7#)}
zSO{6A_O4RXUulzN>7^NglWTchZ=bDWtE(VLu$b7@N&S2U^F`H`@m5SgL9j{T`MjSH
zHC--Ux^O_yUG3;k3TKRO>3bY-=>maB>wvj?5v#$tOV8lredLZYDMzWa3;)i)eoZ&E
zbBmgM>oGAkL!Y7WG)jD8axz;RLFN5Yeq>{BZ>^=M)OoW~7Hq}I;{@;aO7T{lIfdWZ
zDLxnot_Keu9B^lv2@{*}k~2`^J;mFPm16`g5L-LD1UdRlW^}}4H7X4>zzDD~*aPoc
zkX1B4v_vXyXu5R}Rpq;Cl{dX1;sR8UOVi)J=OSM{K}>(?Ssjz3<yJ^~lc50e>aoe2
z7mLm)GAb&N9mVb<>}2v(iip8|@8gpb4uClG)SmfWxw*N)AaMc*V=<6HS5<AH-(FrX
z&qctHC<8Jt(9fsM>JzRcmKZSs6`B>$5MAS`nC(A4KBoJ{&H3iN-GoG?wq2g^IC<kO
z2bz9b-*JWi$sQ_Q&?o8q@@Oq?wfz|$=pC;(*M=oonom|!fg2+r#=$@A2bZ9oXliNs
zDKk^wH={xQ{Hg#aFo)@`fPQ-|e1+*;3x&hq6>a=Y78~!oure`O1_vqh+N;&LY~kn}
zsH!z`E9ZDk+ZbKe_X1QF!c~g(`eN~^Y-V*ApbC9g#S`Qd11e`!=6>2}Xuj0|Jp@vo
zvvBBr=vfbb*Xpj9PEYXL_%-sk8e{9+994>3{*YRXO%bMSLVv#kxDc?pvxAO%71U(n
zkiYr&^1MrN&dAvKgLP$Sej$QmsQK>FKzrt9eY(O6ljY@K*SXY-?jErUdF0aSQIXJC
zEWBfvt>aC)%8c>t)i8%fpwxf+L&r2#I-?e{$cC~~Q}fv-PJ2y$kdYo=Uf;2qady+q
zjnL)gC1~xc6cYMG<&+OU6_7uAW>&2J5cJDGM@MlF+x79^GvFcy${*Y+ipXJq!!1#$
zCZ3cyHfjj+>)*3Ohk3s+wURb>ck@6lSytwxU+)<Q+9Lw?`e({eV!V1)q^+ifMuFBY
zFFp<Ehz&mb24ra&)%0^C?y0Mi{eY{mfQ8$ufm_TtDU7gIqq*F*Bd5KqHx0MJ)Cbl3
z4LyT{N^g0CL=HTMtS)(N9sHhx3wZ+3pqGkJ?`ZO5YC3WB5)WEf8LBEk1BD_`(cO{E
zwS>Df(a=j1s7C@*cwaG>pueLSN}>w%+BErEl%>0PbA1_Rf8TnK%%@(+HzOmg#GDvQ
zf!uBxjq9-(s0e{R#Q9G9qnqQKOCY&bi$?M6wn5+X!2?X}M<M!koY&xPT;Tgyg@W^4
zpM9s*ZkVwTivFqeaEe@R&Q5UTYduyHa34i(pqKsT;|ejjO4uYDY9vyoWa#G?ti~}p
zg|hd?WUWqnSeojAn+ZI(zeK@Q`i}$=xShBOt~aH>@d*{D?FaSg@N2%*?~8kmpe7bF
zux-Xfxbz-WnH~Htr!j)x8QtA2-Th0eUX(a^z+Rw`vDV*d2ReT0X;HxR=MUFwkEd+z
z0wZ%yUzc_Kp#h#Y%^AOCnq1RbUgoNEiYxzY&8|edITDn)ooZ+KD5FjEDwzJ~{-0f>
kCdR}6ZUHt+uiRpeF!H^%^$`cZmI#4JODKq!h#G$QUva%<?EnA(

literal 3120
zcmbVPc{CJk7gs4eF%$A;UmCJ!X_2vwOh#j0GM33?nJm4@WSS5m#4A}EMr3JhLt&JC
z85A+HCX8KUCnC&PK04?7?>pc5&iBWC?sM+_-QVxt`_FTpX!D!bc{oKlSy)(jpe9C^
zhd%bun%Pesp5|RU&kh~OJrf6i78WjnBRkeR8oYaWnSvVWTL&Ine(mRNYbW}dk95KH
z!W}MNz}!VO)zRK+Y6FL?f=Yikq+Hw7_1J7tkAp`F%(D!SpDPP@&F)cDecY;N+FxKH
zpZZ++X7x`4QPZp0tTa!dvsbi7Y_x?p)y7TX4>S7wSAXp?Xt=Jrt)1YP=gDxDt#tp@
z*$i-lf7dU?0^1@Rh{;p(<oo9b85RxL6~%WBU&tSwa#n_EIVs8xQ<|d}4vGqEcrz@8
zh$?xQu0)(J|6Ywo#l@E=y?45qbsfj+HSa6iIKV(KV;UJ#QJq!PjH`xc1lwH0GF(z$
zXHrmlv+J16(zv^Ic~||tY=f8uuhh++Qc#T^e&eTe<r(Wgy*59+9fI|}QI-GI6L;6<
z^EzgAUTkmr!a^r_pMbprl!KJ4BC>p)x5QTGozv?{^~{=I&b`^H@}ZI&9=_uf*POVs
z*dpOL(|Ag*(Kt2PL}Yw-qNQVj(l6^*V2KCXH_)$C_y)Y%dT{W2fw0is-heYpq-b!U
zlg-3Qf$**6p~B(KW}(_VQ)JqVzxY^wit;8nJa~J%s`FX5G6)9Ppj8?dFW9eK8wIBa
zUF-Ao6#%*?xUvT=GPWMUg?eayVpnIcIq^g|$YjY0Ztd>EUJy+Tk%CQhM_=pJTbSal
z2mI8%UoGUV2WFty7n(&^a*$-d{mauTX#~~?{wI<fdALC~D6=VZU(=*o3uw&3P?F59
zVrHgpsF!|c2NLxSl%hEKsb*mm4ZZx67IyAM3r*+Odw^ab*a=og0&X{bFuK+FjcPz+
zSpMlA+N?{kw7rHl2WR3DI*J~w<YAT&NohHa)=&DPf0O_;fA+g2gkq2Lk;=-cf|?7n
zMa@LU(B13Iaveaiki#mpavEWfXwoOBFzHzBXD)94@rw02*Y;OOyN@aLxYjZWuI$G?
z0Iw8R3TXi$cCuyNpsiLSjqvQS57$JXus5LH@sALGb@%t<mFz<e{1b^ZW{bZNSF#5u
zfc+3~_YWY-e8ea%g2F1X$hX%nz&U+ZT%3_83;c9ZS9jyQDJb@OjKI<0fl?}eaDfsr
zbUKP)Qf@BHH(?kOGY0gMLK-}d%FGZ|zKR`@>s3rpm2^kDV1qv4(&{-jv%n4%IeEhv
zks}h6QQIGp#A8|DBXZcO8SEhyt7EnUF!wp(X8on)MIR}u0a8E@jN1CzHKP?Gc{q(>
zDpQiGhrA8)2j`vz#Xha|v*Y22C~YLIYX?(_AYM*4ixh_+q&KRku#BHgwFXE!XoPg%
z)*OG__XsFIff;x~u2qH5N<?0!2om#0Yz%vQDM^2aT74svR3T$WVIXntDEyKF45~q!
z+`5TZ_qOAKnsQjBEEh_8oke~jJ88-&NyAb<6h-FBhEKNKew5^l*9k6iNRY2n#qQdc
zOIe|j>x^P|2$4*g*>R-Cz`P<RwGzBRZ&hh>FGb%1i0tENThxv7F#h@hQd`mu;hT!?
zaIf&o2e<zI6EF~lDeC?N@MZ;>b0Sqs+dNCeIaNBjgxoKc&LtRdJ@t{|+uc^V+y-4V
z_e55jwSXhe5J{O&2@g5txxpdI=OXri)Xxq5gr^9Za*|I$b^Y|Pj)w(IGGZQqG24*Z
z_u7H`NvMOk`Sp=e?3{*1=E728l+*mc$f!4}MywH%QvW^0?;TAav2!2jbbN*V$Z0UU
z{u`8IS~!3{13nkbur6`|ylm`J`UnX@B^v!V>Q1gcH6ezqOf(jGMV{M>MGN{rX#b~<
zTXx-d2i?bFbuB^_XR5o-6xPML%)Nyn*}Yi*4^B;&kn$ginU;wFKsLa;23PZFJK_5M
zkO6Ahrq7DivwzNUWaLRvME>l`Xi2*)z)k@@@_RYpt4)D*V5?)4JyIdrw_>qA)V4vl
zCCp6V-%Ca*bgsEcqsPbU(9O(mgSGYh-G=Cm7SD}$!Qx=;FK$e}&Vz=l;Dd;{t+mop
z$d9$T_{h8Kn1cz|sWlAtWiMoB`TluHrB_%T=k2`=(W`=p)yl`8MB~+`_AA?Fa7FwQ
zeU_DtW|X_7FgTog07tOb{$930FN*FhFynO<u3R`CU#VwhW%qT*8<wGoN&Sg~`@Lg+
z?*V8w_$@a`uhFO}TtA|kJEhlm2b!98)JODWY7z59=Vl3j3$65`Z3?;fUg-I1XP(L1
zef0V?|Ia@}L&`Jz*Vbl4jQa)#&Oq=%DW+~;!gh0PqfLvPs|&bJbU5{K)jW&L7E(r(
zyDCgAnW`A8=p3V;)R%l)VdpYVPaDsyKu7LuiAuE&m{h9K&4#S63nt&M+Ss)9w~|a_
zvNe=V*ylcVvltncaQbyD=FBO!s$ohz?U5ttb>O%%P(6(637*$E<k5aopcvbL^zeg=
z;`qNP%nLQu{aMn_?i!H^VUOM{RCKIRYzUQT(ZS0MQL2UDk1$XA=BKY)yxg6$?T_*N
z>3gm3g3s37BME-17o(q$S!td?{aq2hM{csW`^opoFgI7rjyf8P!z?`*I}Jn}gy=|C
zHr|?PkA_;Lnv10y=H=XFt4aS`s*0iZ0f8xh1*y8%yi6$W$m_UM=Hb~kbU?x0QwgXB
zjjt3XC)YyDiu@8eisWxx`DU{>^k$mYHpliE55FnBTu%MAKg{Jbm~<%w;f&CX-}(8S
z&%yRb;o$YObW$DoTHUp-=@)~^#=+DFt^UwBa_gpgF8AVeV}$zEIFV6hah-b-zmMN|
z<(XggyzXoMPj3$6bJ(8mnv3~s55h7s9%kGg|8avr>yjNBXsC;X%<?Sn^-N9@RpbiY
zbz~SiA6P%=(MzkvbBZ3;^wIn@0QDWoT2*ly!|<UG%MY){H=hh<q>g|7WFUjr{wC&3
zI4-GF^IJ1swBny-E%yz>qzk+c-aDQ6t9Hsrsk2|t@)t2%&i78Amv_ur=Mh6xKPM(c
ze^Bpte*4N_L)##`w0p|!ECT)9ZnJ34nzQ<utnhj)sU&oXNOHbT_C%>`nxnc4247n`
zmACLDP~8Hkx5b_lK^<~$9lDo_5%OHQrvS#osm(m|U5eVPPgn?-W17BV4j_Yy`CgrF
z7J$^|wczWpmQQw7h&STjln`pEUWppITJ`x2RWD9W3qBXs3hWf2r<ui$(p;?p+UdMb
zC1evDVO)@(B?yO_v7f41y2Rs~&bI_LsFBl<ea}>*mj;667Zz#|%DH^SHynkT^G2Jo
zfnhvj{wLqT1Y-^8?hZjMvP(Ud)N#_|)|2YfV|)%JD=Win!zI@=EB)F4k)v9rLHOus
z=q&X^lNC|rc!pT`E){d`msH@qiF@5n&JM*!p$EIX9jP3yn^_1Db>g1GRj$vcT`y;<
zi43CL=I$#+xyQ#r65A_1Ud(T|wS~!Z%}|qcY=!*=6ghz1I+G=#p>xNFPx@E`0kANn
zPu$|XW9N<tB;I%F`RqdCcWwPdjR=841Y`0;Gb^-1j#uovi+_mK>c-S<w_Ekjt2GH@
zm;b@;wjn)SB<>>C0E0LT*!c3)Wvs&B7AZgr`sUmgFU`*1NUj-;Vn;4}nk{U94^wbd
z`KBLW&xb&e*6`=jqU2bdX8R`O<}1XhVeG|2GK;dOl{*7t3;Wo5!xe<OA~sd>ZB#*}
zec>`~;QfGP?YUQ0u3ZLJNoIS+ym_ahqFgDtL(KF0>~gWA7-H$AbQJtFQWa4logNq7
z0}ZT&>)uYT6&-Jk(l6Uc3~$EqOy4pO@8Kup-kxw0zPKHcr7@*>#}Q@izAc+&#5(=w
fIg86lVt}i^lH}yGeBU2_0a&1rn?@xDu3`TIvnAxc

diff --git a/SceneHost/MySceneHostVM.vb b/SceneHost/MySceneHostVM.vb
index 7a58596..0a3d0c5 100644
--- a/SceneHost/MySceneHostVM.vb
+++ b/SceneHost/MySceneHostVM.vb
@@ -16,6 +16,13 @@ Public Class MySceneHostVM
    ' Flag per distinguere tra Save a SaveAs
    Private m_bIsSaveAs As Boolean = False
 
+   Private m_GridPanelVM As GridPanelVM
+   Friend ReadOnly Property GridPanelVM As GridPanelVM
+      Get
+         Return m_GridPanelVM
+      End Get
+   End Property
+
 #End Region    ' Fields & Properties
 
 #Region "CONSTRUCTOR"
@@ -33,6 +40,9 @@ Public Class MySceneHostVM
       AssLogM.InitAssLog()
 
       Map.SetRefSceneHostVM(Me)
+
+      ' Creo GridPanel
+      m_GridPanelVM = New GridPanelVM
    End Sub
 
 #End Region    ' Constructor
@@ -142,7 +152,6 @@ Public Class MySceneHostVM
       ' imposto unità di misura per interfaccia utente
       Dim bMmUnits As Boolean = GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0
       EgtSetUiUnits(bMmUnits)
-      'Map.refMyStatusBarVM.SetMeasureUnit(nMeasureUnit <> 0)
       ' imposto visualizzazione riferimento globale
       EgtSetGlobFrameShow(True)
       ' imposto i dati della griglia
@@ -180,6 +189,13 @@ Public Class MySceneHostVM
       EgtSetTextureMaxLinPixels(nTxrMaxLinPix)
       ' tipo snap point
       MainScene.SetSnapPointType(SP.PT_GRID)
+      ' visualizzazione griglia
+      OptionModule.m_bShowGridFrame = (GetMainPrivateProfileInt(S_GRID, K_SHOWFRAME, 1) <> 0)
+      OptionModule.m_bGridState = GetMainPrivateProfileInt(S_GENERAL, K_GRIDSTATE, 1)
+      Map.refGridPanelVM.UpdateStatusGrid(OptionModule.m_bGridState, OptionModule.m_bShowGridFrame)
+      ' imposto unità di misura per interfaccia utente
+      OptionModule.m_bMmUnits = (GetMainPrivateProfileInt(S_SCENE, K_MMUNITS, 1) <> 0)
+      Map.refGridPanelVM.UpdateStatusUnits(OptionModule.m_bMmUnits)
    End Sub
 
    Public Overrides Function OpenProject(sFilePath As String) As Boolean
@@ -350,6 +366,22 @@ Public Class MySceneHostVM
       Return bOk
    End Function
 
+   Friend Sub StatusUnitsCommand()
+      OptionModule.m_bMmUnits = Not OptionModule.m_bMmUnits
+      Map.refGridPanelVM.UpdateStatusUnits(OptionModule.m_bMmUnits)
+      UpdateGridData()
+      EgtDraw()
+   End Sub
+
+   Private Sub UpdateGridData()
+      If OptionModule.m_bMmUnits Then
+         EgtSetGridGeo(OptionModule.m_dSnapStepMm, OptionModule.m_nMinLineSStep, OptionModule.m_nMajLineSStep, OptionModule.m_nExtSStep)
+      Else
+         EgtSetGridGeo(OptionModule.m_dSnapStepInch, OptionModule.m_nMinLineSStep, OptionModule.m_nMajLineSStep, OptionModule.m_nExtSStep)
+      End If
+      EgtSetGridColor(OptionModule.m_MinLnColor, OptionModule.m_MajLnColor)
+   End Sub
+
 #End Region    ' Methods
 
 #Region "EVENTS"
diff --git a/TopPanel/TopPanelV.xaml b/TopPanel/TopPanelV.xaml
index 73d2be9..006047d 100644
--- a/TopPanel/TopPanelV.xaml
+++ b/TopPanel/TopPanelV.xaml
@@ -23,6 +23,8 @@
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="Auto"/>
             <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="Auto"/>
+            <ColumnDefinition Width="Auto"/>
          </Grid.ColumnDefinitions>
          <EgtStone3D:TopPanelHomeV DataContext="{StaticResource TopPanelVM}"/>
          <Separator Grid.Column="1" 
@@ -33,7 +35,11 @@
          <EgtStone3D:TopPanelViewProspectiveV Grid.Column="4" DataContext="{StaticResource TopPanelVM}"/>
          <Separator Grid.Column="5" 
                     Style="{StaticResource TopPanel_Separator}"/>
-         <ItemsControl Grid.Column="6" 
+         <EgtStone3D:GridPaneV Grid.Column="6"
+                               DataContext="{StaticResource GridPanelVM}"/>
+         <Separator Grid.Column="7" 
+                    Style="{StaticResource TopPanel_Separator}"/>
+         <ItemsControl Grid.Column="8" 
                        ItemsSource="{Binding TopPanelListGroupBtn}">
             <ItemsControl.ItemsPanel>
                <ItemsPanelTemplate>
@@ -50,7 +56,7 @@
                </DataTemplate>
             </ItemsControl.Resources>
          </ItemsControl>
-         <EgtStone3D:TopPanelListV Grid.Column="7"/>
+         <EgtStone3D:TopPanelListV Grid.Column="9"/>
       </Grid>
    </TabItem>
    <TabItem Header="{Binding Parametrico_Msg}">
diff --git a/Utility/EgtStone3DDefaultStyle.xaml b/Utility/EgtStone3DDefaultStyle.xaml
index 4039811..3a564c4 100644
--- a/Utility/EgtStone3DDefaultStyle.xaml
+++ b/Utility/EgtStone3DDefaultStyle.xaml
@@ -17,6 +17,7 @@
    <EgtStone3D:ViewPanelVM x:Key="ViewPanelVM"/>
    <EgtStone3D:ViewPanelProspectiveVM x:Key="ViewPanelProspectiveVM"/>
    <EgtStone3D:SceneButtonVM x:Key="SceneButtonVM"/>
+   <EgtStone3D:GridPanelVM x:Key="GridPanelVM"/>
 
    <!--#endregion-->
 
@@ -294,6 +295,11 @@
       <Setter Property="BorderThickness" Value="0"/>
    </Style>
 
+   <Style x:Key="Grid_Btn" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
+      <Setter Property="Width" Value="80"/>
+      <Setter Property="Margin" Value="0,0,0,15"/>
+   </Style>
+
    <Style x:Key="TopPanel_Btn" TargetType="{x:Type Button}" BasedOn="{StaticResource Proj_Btn}">
       <Setter Property="ContextMenuService.Placement" Value="Bottom"/>
       <Setter Property="Height" Value="70"/>
@@ -349,6 +355,10 @@
       <Setter Property="Margin" Value="2.5,0,2.5,0"/>
    </Style>
 
+   <Style x:Key="GridPanel_Btn" TargetType="{x:Type Button}" BasedOn="{StaticResource Proj_Btn}">
+      <Setter Property="Width" Value="35"/>
+   </Style>
+
    <Style x:Key="EgtWPFLib5_InputButton" TargetType="{x:Type Button}" BasedOn="{StaticResource {x:Type Button}}">
       <Setter Property="Height" Value="30"/>
       <Setter Property="Width" Value="60"/>
@@ -926,7 +936,7 @@
    </Style>
 
    <Style x:Key="TopPanel_TxBl" TargetType="{x:Type TextBlock}" BasedOn="{StaticResource BaseTextBlock}">
-      <Setter Property="HorizontalAlignment" Value="Stretch"/>
+      <Setter Property="HorizontalAlignment" Value="Center"/>
       <Setter Property="VerticalAlignment" Value="Center"/>
       <Setter Property="Margin" Value="0,2,0,0"/>
    </Style>
@@ -966,6 +976,11 @@
       <Setter Property="Margin" Value="5"/>
    </Style>
 
+   <Style x:Key="GridPanel_TxBl" TargetType="{x:Type TextBlock}" BasedOn="{StaticResource BaseTextBlock}">
+      <Setter Property="HorizontalAlignment" Value="Left"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+   </Style>
+
    <Style x:Key="DescriptionLbl_TextBlock" TargetType="{x:Type TextBlock}" BasedOn="{StaticResource BaseTextBlock}">
       <Setter Property="Foreground" Value="{StaticResource TextBlock.Static.Foreground}"/>
       <Setter Property="HorizontalAlignment" Value="Left"/>
@@ -1164,6 +1179,12 @@
       <Setter Property="VerticalAlignment" Value="Stretch"/>
    </Style>
 
+   <Style x:Key="GridPanel_TextBox" TargetType="{x:Type TextBox}" BasedOn="{StaticResource {x:Type TextBox}}">
+      <Setter Property="Foreground" Value="{StaticResource TextBox.Static.Foreground}"/>
+      <Setter Property="Width" Value="45"/>
+      <Setter Property="Margin" Value="-5,0,0,0"/>
+   </Style>
+
    <!--#endregion TextBoxStyle-->
 
    <!-- ______________________________________________________________________________________________________________________________________________ -->
@@ -2251,6 +2272,10 @@
       <Setter Property="Margin" Value="0,20,10,0"/>
    </Style>
 
+   <Style x:Key="GridPanel_UniformGrid" TargetType="{x:Type UniformGrid}">
+      <Setter Property="Margin" Value="0,10,0,0"/>
+   </Style>
+
    <!--#endregion UniformGridStyle-->
 
    <!-- ______________________________________________________________________________________________________________________________________________ -->
@@ -2276,6 +2301,14 @@
       <Setter Property="Width" Value="80"/>
    </Style>
 
+   <Style x:Key="GridPanel_WrapPanel" TargetType="{x:Type WrapPanel}">
+      <Setter Property="Orientation" Value="Vertical"/>
+      <Setter Property="HorizontalAlignment" Value="Center"/>
+      <Setter Property="VerticalAlignment" Value="Center"/>
+      <Setter Property="Width" Value="Auto"/>
+      <Setter Property="Margin" Value="0,0,-20,0"/>
+   </Style>
+
    <!--#endregion WrapPanelStyle-->
    
    <!-- ______________________________________________________________________________________________________________________________________________ -->
diff --git a/Utility/Map.vb b/Utility/Map.vb
index 7fa979d..b0fcaf1 100644
--- a/Utility/Map.vb
+++ b/Utility/Map.vb
@@ -11,6 +11,7 @@ Module Map
    Private m_refProjManagerVM As ProjManagerVM
    Private m_refViewPanelVM As ViewPanelVM
    Private m_refViewPanelProspectiveVM As ViewPanelProspectiveVM
+   Private m_refGridPanelVM As GridPanelVM
 
    Private m_refMainWindowV As MainWindowV
    Private m_refSecondaryWindowV As SecondaryWindowV
@@ -64,6 +65,12 @@ Module Map
       End Get
    End Property
 
+   Public ReadOnly Property refGridPanelVM As GridPanelVM
+      Get
+         Return m_refGridPanelVM
+      End Get
+   End Property
+
    Public ReadOnly Property refSceneHostV As SceneHostV
       Get
          Return m_refSceneHostV
@@ -139,6 +146,11 @@ Module Map
       Return Not IsNothing(m_refViewPanelProspectiveVM)
    End Function
 
+   Friend Function SetRefGridPanelVM(GridPanelVM As GridPanelVM) As Boolean
+      m_refGridPanelVM = GridPanelVM
+      Return Not IsNothing(m_refGridPanelVM)
+   End Function
+
    Friend Function SetRefSceneHostV(SceneHostV As SceneHostV) As Boolean
       m_refSceneHostV = SceneHostV
       Return Not IsNothing(m_refSceneHostV)