Attribute VB_Name = "Types"

Option Explicit


Public A As Double
Public B As Double
Public C As Long

Public Num As Double
Public Pos_X As Double
Public Pos_Y As Double
Public Type_Instance As String
Public orientation As String

Public Tableau() As String

Public Objet_BROCHE() As broche
Public NB_BROCHE As Long
Public Objet_PAD() As pad
Public NB_PAD As Long
Public Objet_LIEN() As lien
Public NB_LIEN As Long

Public pad_lien As Double
Public broche_lien As Double

Public flag_retour As Integer
Public Template_charger As Integer
Public Padring_charger As Integer

Public numero_lien As Long

Public angle As Double
Public distance As Double

Public Type A
    x As Double
    y As Double
End Type

Public Type B
    x As Double
    y As Double
End Type

Public Type C
    x As Double
    y As Double
End Type

Public Type D
    x As Double
    y As Double
End Type

Public action As String
Public MouseX As Double
Public MouseY As Double
Public DifX As Double
Public DifY As Double

Public Objet_pad_actif As Long
Public Objet_broche_actif As Long
Public Objet_lien_actif As Long


Public pad_selection As Long

Public Const taillepuce = 50

 ' définition des couleur
Public couleur_rouge As String
Public couleur_vert As String
Public couleur_bleu As String
Public couleur_noir As String
Public couleur_blanc As String