Imports EgtUILib

Module GeomEntityColors

   Private m_c3Print As Color3d
   Public ReadOnly Property c3Print As Color3d
      Get
         Return m_c3Print
      End Get
   End Property

   Private m_c3MachStart As Color3d
   Public ReadOnly Property c3MachStart As Color3d
      Get
         Return m_c3MachStart
      End Get
   End Property

   Private m_c3Rib As Color3d
   Public ReadOnly Property c3Rib As Color3d
      Get
         Return m_c3Rib
      End Get
   End Property

   Private m_c3ShellNumber As Color3d
   Public ReadOnly Property c3ShellNumber As Color3d
      Get
         Return m_c3ShellNumber
      End Get
   End Property

   Private m_c3AuxSolids As Color3d
   Public ReadOnly Property c3AuxSolids As Color3d
      Get
         Return m_c3AuxSolids
      End Get
   End Property

   Private m_c3Others As Color3d
   Public ReadOnly Property c3Others As Color3d
      Get
         Return m_c3Others
      End Get
   End Property

   Sub New()
      ' imposto colori superfici
      m_c3Print.FromColor(System.Drawing.Color.Yellow)
      m_c3MachStart.FromColor(System.Drawing.Color.Red)
      m_c3Rib.FromColor(System.Drawing.Color.MediumOrchid)
      m_c3ShellNumber.FromColor(System.Drawing.Color.Lime)
      m_c3AuxSolids.FromColor(System.Drawing.Color.DarkGoldenrod)
      m_c3Others.FromColor(System.Drawing.Color.LightGray)
   End Sub

End Module