diff --git a/Icarus/FilledSolidParamPanel/FilledSolidParamPanelV.xaml b/Icarus/FilledSolidParamPanel/FilledSolidParamPanelV.xaml
index 7e7b77d..24f4bd9 100644
--- a/Icarus/FilledSolidParamPanel/FilledSolidParamPanelV.xaml
+++ b/Icarus/FilledSolidParamPanel/FilledSolidParamPanelV.xaml
@@ -90,12 +90,19 @@
-
-
+
+
diff --git a/Icarus/Icarus.vbproj b/Icarus/Icarus.vbproj
index 99db10e..d4363c2 100644
--- a/Icarus/Icarus.vbproj
+++ b/Icarus/Icarus.vbproj
@@ -208,6 +208,9 @@
MaterialDbV.xaml
+
+ ColumnHeader.xaml
+ UpdateMachineV.xaml
@@ -429,6 +432,10 @@
DesignerMSBuild:Compile
+
+ Designer
+ MSBuild:Compile
+ MSBuild:CompileDesigner
@@ -813,6 +820,43 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ IF "$(PlatformName)"=="x86" IF "$(ConfigurationName)" == "Release" copy $(TargetPath) c:\EgtProg\Icarus\IcarusR32.exe
diff --git a/Icarus/ManagePartPanel/ManagePartPanelV.xaml b/Icarus/ManagePartPanel/ManagePartPanelV.xaml
index da7baf4..fb93b42 100644
--- a/Icarus/ManagePartPanel/ManagePartPanelV.xaml
+++ b/Icarus/ManagePartPanel/ManagePartPanelV.xaml
@@ -145,13 +145,20 @@
Rows="1"
IsEnabled="{Binding IsEnabled}"
Margin="0,2.5,0,0">
-
-
+
+ Margin="0,0,2.5,0"
+ Style="{StaticResource RightPanel_HalfRound_Button}">
+
+
diff --git a/Icarus/ReferencePanel/ReferencePanelV.xaml b/Icarus/ReferencePanel/ReferencePanelV.xaml
index c863ae2..65838e8 100644
--- a/Icarus/ReferencePanel/ReferencePanelV.xaml
+++ b/Icarus/ReferencePanel/ReferencePanelV.xaml
@@ -1,6 +1,7 @@
+ xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
+ xmlns:PrintApp="clr-namespace:Icarus">
@@ -33,12 +34,33 @@
-
+
+
+
diff --git a/Icarus/ReferencePanel/ReferencePanelVM.vb b/Icarus/ReferencePanel/ReferencePanelVM.vb
index e095825..0cce7dd 100644
--- a/Icarus/ReferencePanel/ReferencePanelVM.vb
+++ b/Icarus/ReferencePanel/ReferencePanelVM.vb
@@ -190,25 +190,52 @@ Public Class ReferenceBtn
Get
Select Case Type
Case References.TL
- Return "┌"
+ Return "/Resources/ReferencePanel/TL.png" '"┌"
Case References.TR
- Return "┐"
+ Return "/Resources/ReferencePanel/TR.png" '"┐"
Case References.BL
- Return "└"
+ Return "/Resources/ReferencePanel/BL.png" '"└"
Case References.BR
- Return "┘"
+ Return "/Resources/ReferencePanel/BR.png" '"┘"
Case References.TC
- Return "┬"
+ Return "/Resources/ReferencePanel/TC.png" '"┬"
Case References.ML
- Return "├"
+ Return "/Resources/ReferencePanel/ML.png" '"├"
Case References.MR
- Return "┤"
+ Return "/Resources/ReferencePanel/MR.png" '"┤"
Case References.BC
- Return "┴"
+ Return "/Resources/ReferencePanel/BC.png" '"┴"
Case References.MC
- Return "┼"
+ Return "/Resources/ReferencePanel/MC.png" '"┼"
Case Else
- Return "X"
+ Return "" '"X"
+ End Select
+ End Get
+ End Property
+
+ Public ReadOnly Property sSelText As String
+ Get
+ Select Case Type
+ Case References.TL
+ Return "/Resources/ReferencePanel/White_TL.png" '"┌"
+ Case References.TR
+ Return "/Resources/ReferencePanel/White_TR.png" '"┐"
+ Case References.BL
+ Return "/Resources/ReferencePanel/White_BL.png" '"└"
+ Case References.BR
+ Return "/Resources/ReferencePanel/White_BR.png" '"┘"
+ Case References.TC
+ Return "/Resources/ReferencePanel/White_TC.png" '"┬"
+ Case References.ML
+ Return "/Resources/ReferencePanel/White_ML.png" '"├"
+ Case References.MR
+ Return "/Resources/ReferencePanel/White_MR.png" '"┤"
+ Case References.BC
+ Return "/Resources/ReferencePanel/White_BC.png" '"┴"
+ Case References.MC
+ Return "/Resources/ReferencePanel/White_MC.png" '"┼"
+ Case Else
+ Return "" '"X"
End Select
End Get
End Property
diff --git a/Icarus/Resources/ReferencePanel/BC.png b/Icarus/Resources/ReferencePanel/BC.png
new file mode 100644
index 0000000..5d4f524
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/BC.png differ
diff --git a/Icarus/Resources/ReferencePanel/BL.png b/Icarus/Resources/ReferencePanel/BL.png
new file mode 100644
index 0000000..85d759a
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/BL.png differ
diff --git a/Icarus/Resources/ReferencePanel/BR.old.png b/Icarus/Resources/ReferencePanel/BR.old.png
new file mode 100644
index 0000000..7d3bd51
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/BR.old.png differ
diff --git a/Icarus/Resources/ReferencePanel/BR.png b/Icarus/Resources/ReferencePanel/BR.png
new file mode 100644
index 0000000..4744d6b
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/BR.png differ
diff --git a/Icarus/Resources/ReferencePanel/MC.png b/Icarus/Resources/ReferencePanel/MC.png
new file mode 100644
index 0000000..9f7b529
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/MC.png differ
diff --git a/Icarus/Resources/ReferencePanel/ML.png b/Icarus/Resources/ReferencePanel/ML.png
new file mode 100644
index 0000000..c0f058f
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/ML.png differ
diff --git a/Icarus/Resources/ReferencePanel/MR.png b/Icarus/Resources/ReferencePanel/MR.png
new file mode 100644
index 0000000..5e8e292
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/MR.png differ
diff --git a/Icarus/Resources/ReferencePanel/TC.png b/Icarus/Resources/ReferencePanel/TC.png
new file mode 100644
index 0000000..c718743
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/TC.png differ
diff --git a/Icarus/Resources/ReferencePanel/TL.png b/Icarus/Resources/ReferencePanel/TL.png
new file mode 100644
index 0000000..208f780
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/TL.png differ
diff --git a/Icarus/Resources/ReferencePanel/TR.png b/Icarus/Resources/ReferencePanel/TR.png
new file mode 100644
index 0000000..2b0bde7
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/TR.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_BC.png b/Icarus/Resources/ReferencePanel/White_BC.png
new file mode 100644
index 0000000..31bab45
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_BC.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_BL.png b/Icarus/Resources/ReferencePanel/White_BL.png
new file mode 100644
index 0000000..d142db7
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_BL.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_BR.png b/Icarus/Resources/ReferencePanel/White_BR.png
new file mode 100644
index 0000000..38b0aac
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_BR.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_MC.png b/Icarus/Resources/ReferencePanel/White_MC.png
new file mode 100644
index 0000000..f585407
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_MC.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_ML.png b/Icarus/Resources/ReferencePanel/White_ML.png
new file mode 100644
index 0000000..243ef3b
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_ML.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_MR.png b/Icarus/Resources/ReferencePanel/White_MR.png
new file mode 100644
index 0000000..f8adf7b
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_MR.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_TC.png b/Icarus/Resources/ReferencePanel/White_TC.png
new file mode 100644
index 0000000..aa9e285
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_TC.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_TL.png b/Icarus/Resources/ReferencePanel/White_TL.png
new file mode 100644
index 0000000..79ba2f0
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_TL.png differ
diff --git a/Icarus/Resources/ReferencePanel/White_TR.png b/Icarus/Resources/ReferencePanel/White_TR.png
new file mode 100644
index 0000000..4907537
Binary files /dev/null and b/Icarus/Resources/ReferencePanel/White_TR.png differ
diff --git a/Icarus/Resources/RibParamPanel/CopyFrom.png b/Icarus/Resources/RibParamPanel/CopyFrom.png
new file mode 100644
index 0000000..17b01a0
Binary files /dev/null and b/Icarus/Resources/RibParamPanel/CopyFrom.png differ
diff --git a/Icarus/Resources/SliceManager/Dimensions.png b/Icarus/Resources/SliceManager/Dimensions.png
new file mode 100644
index 0000000..7ea5eef
Binary files /dev/null and b/Icarus/Resources/SliceManager/Dimensions.png differ
diff --git a/Icarus/Resources/SliceManager/Mass.png b/Icarus/Resources/SliceManager/Mass.png
new file mode 100644
index 0000000..26cb015
Binary files /dev/null and b/Icarus/Resources/SliceManager/Mass.png differ
diff --git a/Icarus/Resources/SliceManager/StopCalculation.png b/Icarus/Resources/SliceManager/StopCalculation.png
index 5818a89..83707fb 100644
Binary files a/Icarus/Resources/SliceManager/StopCalculation.png and b/Icarus/Resources/SliceManager/StopCalculation.png differ
diff --git a/Icarus/Resources/SliceManager/Time.png b/Icarus/Resources/SliceManager/Time.png
new file mode 100644
index 0000000..0d4d317
Binary files /dev/null and b/Icarus/Resources/SliceManager/Time.png differ
diff --git a/Icarus/Resources/SplashScreen/BlueSplashscreen.old.png b/Icarus/Resources/SplashScreen/BlueSplashscreen.old.png
new file mode 100644
index 0000000..8165f4a
Binary files /dev/null and b/Icarus/Resources/SplashScreen/BlueSplashscreen.old.png differ
diff --git a/Icarus/Resources/SplashScreen/BlueSplashscreen.png b/Icarus/Resources/SplashScreen/BlueSplashscreen.png
index 8165f4a..49faddd 100644
Binary files a/Icarus/Resources/SplashScreen/BlueSplashscreen.png and b/Icarus/Resources/SplashScreen/BlueSplashscreen.png differ
diff --git a/Icarus/Resources/TFSEditor/Reduce.orig.png b/Icarus/Resources/TFSEditor/Reduce.orig.png
new file mode 100644
index 0000000..d23c313
Binary files /dev/null and b/Icarus/Resources/TFSEditor/Reduce.orig.png differ
diff --git a/Icarus/Resources/TFSEditor/Reduce.png b/Icarus/Resources/TFSEditor/Reduce.png
new file mode 100644
index 0000000..8ab1903
Binary files /dev/null and b/Icarus/Resources/TFSEditor/Reduce.png differ
diff --git a/Icarus/RibParamPanel/RibParamPanelV.xaml b/Icarus/RibParamPanel/RibParamPanelV.xaml
index a843ad9..59c5495 100644
--- a/Icarus/RibParamPanel/RibParamPanelV.xaml
+++ b/Icarus/RibParamPanel/RibParamPanelV.xaml
@@ -114,15 +114,25 @@
-
-
-
+
+
+
diff --git a/Icarus/SliceManager/SliceManagerV.xaml b/Icarus/SliceManager/SliceManagerV.xaml
index 03e2bc0..b6e09ed 100644
--- a/Icarus/SliceManager/SliceManagerV.xaml
+++ b/Icarus/SliceManager/SliceManagerV.xaml
@@ -15,21 +15,63 @@
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
-
+ Style="{StaticResource SliceMannager_Button}"/>-->
-
+ Margin="0,0,254,60"/>-->
diff --git a/Icarus/StatusBar/StatusBarV.xaml b/Icarus/StatusBar/StatusBarV.xaml
index 3154750..b0656dc 100644
--- a/Icarus/StatusBar/StatusBarV.xaml
+++ b/Icarus/StatusBar/StatusBarV.xaml
@@ -42,6 +42,7 @@
IsChecked="{Binding bGridVisibility}"
ImageSource="/Resources/StatusBar/GridVisibility.png"
CheckedImageSource="/Resources/StatusBar/GridVisibilityWhite.png"
+ ToolTip="Grid Visibility"
Margin="0,2.5,0,0"
Style="{StaticResource StatusBar_ToggleButton}"/>
diff --git a/Icarus/TSFEditor/ColumnHeader.xaml b/Icarus/TSFEditor/ColumnHeader.xaml
new file mode 100644
index 0000000..990589e
--- /dev/null
+++ b/Icarus/TSFEditor/ColumnHeader.xaml
@@ -0,0 +1,13 @@
+
+
+
+
+
+
+
+
diff --git a/Icarus/TSFEditor/ColumnHeader.xaml.vb b/Icarus/TSFEditor/ColumnHeader.xaml.vb
new file mode 100644
index 0000000..d511677
--- /dev/null
+++ b/Icarus/TSFEditor/ColumnHeader.xaml.vb
@@ -0,0 +1,25 @@
+Public Class ColumnHeader
+
+ Public Shared ReadOnly HeaderProperty As DependencyProperty = DependencyProperty.Register("Header", GetType(String), GetType(ColumnHeader), New FrameworkPropertyMetadata(""))
+
+ Public Property Header As String
+ Get
+ Return CStr(MyBase.GetValue(HeaderProperty))
+ End Get
+ Set(value As String)
+ MyBase.SetValue(HeaderProperty, value)
+ End Set
+ End Property
+
+ Public Shared ReadOnly MeasureUnitProperty As DependencyProperty = DependencyProperty.Register("MeasureUnit", GetType(String), GetType(ColumnHeader), New FrameworkPropertyMetadata(""))
+
+ Public Property MeasureUnit As String
+ Get
+ Return CStr(MyBase.GetValue(MeasureUnitProperty))
+ End Get
+ Set(value As String)
+ MyBase.SetValue(MeasureUnitProperty, value)
+ End Set
+ End Property
+
+End Class
diff --git a/Icarus/TSFEditor/TFSEditorV.xaml b/Icarus/TSFEditor/TFSEditorV.xaml
index e9b841d..c42b491 100644
--- a/Icarus/TSFEditor/TFSEditorV.xaml
+++ b/Icarus/TSFEditor/TFSEditorV.xaml
@@ -29,13 +29,13 @@
+
-
+
@@ -106,7 +114,7 @@
-
+
+
+
+
@@ -158,69 +176,150 @@
SelectionMode="Extended"
HorizontalGridLinesBrush="White"
VerticalGridLinesBrush="White"
+ ColumnHeaderHeight="40"
Margin="0,2.5,0,2.5">
-
+ Width="Auto">
+
+
+
+
+
+
+ Width="1.5*"
+ TextBlock.TextAlignment="Center">
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
-
+
+
+
+
+
+
+
-
+
+
+
+
+
+
+
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Width="1*">
+
+
+
+
+
+
+
+
+ HorizontalAlignment="Left"
+ Margin="2.5,0,0,0">
diff --git a/Icarus/TSFEditor/TFSEditorVM.vb b/Icarus/TSFEditor/TFSEditorVM.vb
index 7cfced1..9ba3fa4 100644
--- a/Icarus/TSFEditor/TFSEditorVM.vb
+++ b/Icarus/TSFEditor/TFSEditorVM.vb
@@ -14,10 +14,10 @@ Public Class TFSEditorVM
Public Enum MediaTypes As Integer
HEIGHT = 1
- SECTIONCHANGE = 2
- SELECTION = 3
- FEED_INCREMENT = 4
- SELECTION_WAIT = 5
+ 'SECTIONCHANGE = 2
+ SELECTION = 2
+ FEED_INCREMENT = 3
+ SELECTION_WAIT = 4
End Enum
Public Enum Filters As Integer
@@ -60,13 +60,13 @@ Public Class TFSEditorVM
End Set
End Property
- Private m_MediaTypeList As New List(Of String)({"Feed by Slice Number", "Feed by Section change", "Feed by Selection", "Wait by Selection", "Feed by Increment"})
+ Private m_MediaTypeList As New List(Of String)({"Feed by Slice Number", "Feed by Selection", "Wait by Selection", "Feed by Increment"})
Public ReadOnly Property MediaTypeList As List(Of String)
Get
If bWaitingTime Then
- Return New List(Of String)({"Feed by Slice Number", "Feed by Section change", "Feed by Selection", "Feed by Increment", "Wait by Selection"})
+ Return New List(Of String)({"Feed by Slice Number", "Feed by Selection", "Feed by Increment", "Wait by Selection"})
Else
- Return New List(Of String)({"Feed by Slice Number", "Feed by Section change", "Feed by Selection", "Feed by Increment"})
+ Return New List(Of String)({"Feed by Slice Number", "Feed by Selection", "Feed by Increment"})
End If
' Return m_MediaTypeList
End Get
@@ -83,12 +83,12 @@ Public Class TFSEditorVM
Case MediaTypes.HEIGHT
SetSetVisibility(False)
SetMediaVisibility(True)
- Case MediaTypes.SECTIONCHANGE
- SetSetVisibility(False)
- SetMediaVisibility(True)
+ 'Case MediaTypes.SECTIONCHANGE
+ ' SetSetVisibility(False)
+ ' SetMediaVisibility(True)
Case MediaTypes.SELECTION
SetSetVisibility(True)
- SetMediaVisibility(True)
+ SetMediaVisibility(False)
Case MediaTypes.SELECTION_WAIT
SetSetVisibility(True)
SetMediaVisibility(False)
@@ -170,10 +170,16 @@ Public Class TFSEditorVM
End Property
Private m_bColExtend As Boolean = False
- Public ReadOnly Property bColExtend As Boolean
+ Public Property bColExtend As Boolean
Get
Return m_bColExtend
End Get
+ Set(value As Boolean)
+ m_bColExtend = value
+ NotifyPropertyChanged(NameOf(bColExtend))
+ NotifyPropertyChanged(NameOf(ColExtend_Visibility))
+ NotifyPropertyChanged(NameOf(ControlWidth))
+ End Set
End Property
Public ReadOnly Property ColExtend_Visibility As Visibility
Get
@@ -229,8 +235,8 @@ Public Class TFSEditorVM
Select Case m_nSelMediaType
Case MediaTypes.HEIGHT
Return "Slice Number:"
- Case MediaTypes.SECTIONCHANGE
- Return "Difference:"
+ 'Case MediaTypes.SECTIONCHANGE
+ ' Return "Difference:"
Case MediaTypes.SELECTION
Return "Feed:"
Case MediaTypes.SELECTION_WAIT
@@ -243,9 +249,116 @@ Public Class TFSEditorVM
End Get
End Property
+#Region "Messages"
+
+ Public ReadOnly Property Layer_Msg As String
+ Get
+ Return "Layer"
+ End Get
+ End Property
+
+ Public ReadOnly Property Length_Msg As String
+ Get
+ Return "Length"
+ End Get
+ End Property
+
+ Public ReadOnly Property TMin_Msg As String
+ Get
+ Return "TMin"
+ End Get
+ End Property
+
+ Public ReadOnly Property TTrg_Msg As String
+ Get
+ Return "TTrg"
+ End Get
+ End Property
+
+ Public ReadOnly Property TMax_Msg As String
+ Get
+ Return "TMax"
+ End Get
+ End Property
+
+ Public ReadOnly Property TCurr_Msg As String
+ Get
+ Return "TCurr"
+ End Get
+ End Property
+
+ Public ReadOnly Property TWait_Msg As String
+ Get
+ Return "TWait"
+ End Get
+ End Property
+
+ Public ReadOnly Property FMin_Msg As String
+ Get
+ Return "FMin"
+ End Get
+ End Property
+
+ Public ReadOnly Property FTrg_Msg As String
+ Get
+ Return "FTrg"
+ End Get
+ End Property
+
+ Public ReadOnly Property FMax_Msg As String
+ Get
+ Return "FMax"
+ End Get
+ End Property
+
+ Public ReadOnly Property FCurr_Msg As String
+ Get
+ Return "FCurr"
+ End Get
+ End Property
+
+ Public ReadOnly Property Speed_Msg As String
+ Get
+ Return "Speed"
+ End Get
+ End Property
+
+ Public ReadOnly Property Index_Msg As String
+ Get
+ Return "n°"
+ End Get
+ End Property
+
+ Public ReadOnly Property Millimeters_Msg As String
+ Get
+ Return "mm"
+ End Get
+ End Property
+
+ Public ReadOnly Property Seconds_Msg As String
+ Get
+ Return "s"
+ End Get
+ End Property
+
+ Public ReadOnly Property MmPerMin_Msg As String
+ Get
+ Return "mm/min"
+ End Get
+ End Property
+
+ Public ReadOnly Property Rpm_Msg As String
+ Get
+ Return "rpm"
+ End Get
+ End Property
+
+#End Region ' Messages
+
' Definizione comandi
Private m_cmdSet As ICommand
Private m_cmdMedia As ICommand
+ Private m_cmdUpdate As ICommand
Private m_cmdReset As ICommand
Private m_cmdExtend As ICommand
@@ -417,33 +530,33 @@ Public Class TFSEditorVM
m_LayerList(Index2).SetFCurr(dNewFCurr)
Next
Next
- Case MediaTypes.SECTIONCHANGE
- Dim ChangeIndexList As New List(Of Integer)({0})
- Dim dPrevLength As Double = m_LayerList(0).dLength
- ' recupero punti di rottura
- For Index = 1 To m_LayerList.Count() - 1
- Dim dCurrLength = m_LayerList(Index)
- If dPrevLength < m_LayerList(Index).dLength * (1 - (m_dModifyValue / 100)) OrElse dPrevLength > m_LayerList(Index).dLength * (1 + (m_dModifyValue / 100)) Then
- ChangeIndexList.Add(Index)
- End If
- dPrevLength = m_LayerList(Index).dLength
- Next
- If ChangeIndexList(ChangeIndexList.Count - 1) <> m_LayerList.Count() - 1 Then
- ChangeIndexList.Add(m_LayerList.Count() - 1)
- End If
- ' ricalcolo media sugli intervalli trovati
- For Index = 0 To ChangeIndexList.Count() - 2
- Dim dFSum As Double = 0
- Dim dFIndex As Double = 0
- For Index2 = ChangeIndexList(Index) To ChangeIndexList(Index + 1)
- dFSum += m_LayerList(Index2).sFCurr
- dFIndex += 1
- Next
- Dim dNewFCurr As Double = dFSum / dFIndex
- For Index2 = ChangeIndexList(Index) To ChangeIndexList(Index + 1)
- m_LayerList(Index2).SetFCurr(dNewFCurr)
- Next
- Next
+ 'Case MediaTypes.SECTIONCHANGE
+ ' Dim ChangeIndexList As New List(Of Integer)({0})
+ ' Dim dPrevLength As Double = m_LayerList(0).dLength
+ ' ' recupero punti di rottura
+ ' For Index = 1 To m_LayerList.Count() - 1
+ ' Dim dCurrLength = m_LayerList(Index)
+ ' If dPrevLength < m_LayerList(Index).dLength * (1 - (m_dModifyValue / 100)) OrElse dPrevLength > m_LayerList(Index).dLength * (1 + (m_dModifyValue / 100)) Then
+ ' ChangeIndexList.Add(Index)
+ ' End If
+ ' dPrevLength = m_LayerList(Index).dLength
+ ' Next
+ ' If ChangeIndexList(ChangeIndexList.Count - 1) <> m_LayerList.Count() - 1 Then
+ ' ChangeIndexList.Add(m_LayerList.Count() - 1)
+ ' End If
+ ' ' ricalcolo media sugli intervalli trovati
+ ' For Index = 0 To ChangeIndexList.Count() - 2
+ ' Dim dFSum As Double = 0
+ ' Dim dFIndex As Double = 0
+ ' For Index2 = ChangeIndexList(Index) To ChangeIndexList(Index + 1)
+ ' dFSum += m_LayerList(Index2).sFCurr
+ ' dFIndex += 1
+ ' Next
+ ' Dim dNewFCurr As Double = dFSum / dFIndex
+ ' For Index2 = ChangeIndexList(Index) To ChangeIndexList(Index + 1)
+ ' m_LayerList(Index2).SetFCurr(dNewFCurr)
+ ' Next
+ ' Next
Case MediaTypes.SELECTION
If m_SelLayers.Count <= 0 Then Return
Dim dFSum As Double = 0
@@ -475,6 +588,29 @@ Public Class TFSEditorVM
#End Region ' Media
+#Region "Update"
+
+ '''
+ ''' Returns a command that do CPlaneTop.
+ '''
+ Public ReadOnly Property Update_Command As ICommand
+ Get
+ If m_cmdUpdate Is Nothing Then
+ m_cmdUpdate = New Command(AddressOf Update)
+ End If
+ Return m_cmdUpdate
+ End Get
+ End Property
+
+ '''
+ ''' Execute the CPlaneTop. This method is invoked by the CPlaneTopCommand.
+ '''
+ Public Sub Update()
+ Map.refSliceManagerVM.Update()
+ End Sub
+
+#End Region ' Update
+
#Region "Reset"
'''
@@ -571,14 +707,14 @@ Public Class TFSLayer
End Property
Public ReadOnly Property sTMin As String
Get
- Return DoubleToString(m_dTMin, 0)
+ Return SecondsToStringConverter(m_dTMin)
End Get
End Property
Private m_dTTrg As Double
Public ReadOnly Property sTTrg As String
Get
- Return DoubleToString(m_dTTrg, 0)
+ Return SecondsToStringConverter(m_dTTrg)
End Get
End Property
@@ -590,7 +726,7 @@ Public Class TFSLayer
End Property
Public ReadOnly Property sTMax As String
Get
- Return DoubleToString(m_dTMax, 0)
+ Return SecondsToStringConverter(m_dTMax)
End Get
End Property
@@ -602,14 +738,14 @@ Public Class TFSLayer
End Property
Public ReadOnly Property sTCurr As String
Get
- Return DoubleToString(m_dTCurr, 0)
+ Return SecondsToStringConverter(m_dTCurr)
End Get
End Property
Private m_dTWait As Double
Public Property sTWait As String
Get
- Return LenToString(m_dTWait, 0)
+ Return SecondsToStringConverter(m_dTWait)
End Get
Set(value As String)
Dim dNewValue As Double
@@ -818,4 +954,12 @@ Public Class TFSLayer
m_dSpeed = dSpeed
End Sub
+ Private Function SecondsToStringConverter(value As Double) As String
+ Dim dtTime As TimeSpan = TimeSpan.FromSeconds(value)
+ Dim dHours As Double = Math.Floor(dtTime.TotalHours)
+ Dim dMinutes As Double = Math.Floor(dtTime.Minutes)
+ Dim dSeconds As Double = Math.Ceiling(dtTime.Seconds)
+ Return If(dHours > 0, dHours.ToString("00") & ":", "") & If(dHours > 0, dMinutes.ToString("00"), dMinutes.ToString()) & ":" & dSeconds.ToString("00")
+ End Function
+
End Class
\ No newline at end of file
diff --git a/Icarus/Utility/Dictionary.xaml b/Icarus/Utility/Dictionary.xaml
index b891872..b851d8a 100644
--- a/Icarus/Utility/Dictionary.xaml
+++ b/Icarus/Utility/Dictionary.xaml
@@ -703,6 +703,14 @@
+
+
@@ -828,6 +836,11 @@
+
+