Modifica indentazione

2025-06-09 10:03:25 +02:00
parent a9c4b1928e
commit 039e615b3c
15 changed files with 563 additions and 413 deletions
@@ -74,383 +74,383 @@ Partial Class FrmMain
      Me.BtnAbortDefAree = New System.Windows.Forms.Button()
      Me.BtnSaveAree = New System.Windows.Forms.Button()
      Me.ImageControl1 = New ImageControl()
-      Me.GBImgFromCam.SuspendLayout()
-      Me.GBCorrected.SuspendLayout()
-      Me.GBCalibration.SuspendLayout()
-      CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
-      CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
-      Me.ToolStrip1.SuspendLayout()
-      Me.StatusStrip1.SuspendLayout()
-      Me.GBDefAree.SuspendLayout()
-      Me.SuspendLayout()
-      '
-      'OpenFileDialog1
-      '
-      Me.OpenFileDialog1.FileName = "OpenFileDialog1"
-      '
-      'ImageList1
-      '
-      Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
-      Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
-      Me.ImageList1.Images.SetKeyName(0, "400D.bmp")
-      Me.ImageList1.Images.SetKeyName(1, "400DDis.bmp")
-      Me.ImageList1.Images.SetKeyName(2, "Correction.bmp")
-      Me.ImageList1.Images.SetKeyName(3, "CorrectionCC.bmp")
-      Me.ImageList1.Images.SetKeyName(4, "Spessore.bmp")
-      Me.ImageList1.Images.SetKeyName(5, "Lente2.bmp")
-      Me.ImageList1.Images.SetKeyName(6, "Lente.bmp")
-      Me.ImageList1.Images.SetKeyName(7, "calibro.jpg")
-      Me.ImageList1.Images.SetKeyName(8, "25_tape.png")
-      '
-      'LbImageStatus
-      '
-      resources.ApplyResources(Me.LbImageStatus, "LbImageStatus")
-      Me.LbImageStatus.Name = "LbImageStatus"
-      '
-      'LbFocalLenght
-      '
-      resources.ApplyResources(Me.LbFocalLenght, "LbFocalLenght")
-      Me.LbFocalLenght.Name = "LbFocalLenght"
-      '
-      'TimerZoom
-      '
-      Me.TimerZoom.Interval = 125
-      '
-      'GBImgFromCam
-      '
-      Me.GBImgFromCam.Controls.Add(Me.BtnDefAree)
-      Me.GBImgFromCam.Controls.Add(Me.BtnCorrLens)
-      Me.GBImgFromCam.Controls.Add(Me.BtnCorrCompleta)
-      resources.ApplyResources(Me.GBImgFromCam, "GBImgFromCam")
-      Me.GBImgFromCam.Name = "GBImgFromCam"
-      Me.GBImgFromCam.TabStop = False
-      '
-      'BtnDefAree
-      '
-      Me.BtnDefAree.Image = Global.My.Resources.Resources.DefAree
-      resources.ApplyResources(Me.BtnDefAree, "BtnDefAree")
-      Me.BtnDefAree.Name = "BtnDefAree"
-      Me.BtnDefAree.UseVisualStyleBackColor = True
-      '
-      'BtnCorrLens
-      '
-      Me.BtnCorrLens.Image = Global.My.Resources.Resources.Calibrazione
-      resources.ApplyResources(Me.BtnCorrLens, "BtnCorrLens")
-      Me.BtnCorrLens.Name = "BtnCorrLens"
-      Me.BtnCorrLens.UseVisualStyleBackColor = True
-      '
-      'BtnCorrCompleta
-      '
-      Me.BtnCorrCompleta.Image = Global.My.Resources.Resources.Correction
-      resources.ApplyResources(Me.BtnCorrCompleta, "BtnCorrCompleta")
-      Me.BtnCorrCompleta.Name = "BtnCorrCompleta"
-      Me.BtnCorrCompleta.UseVisualStyleBackColor = True
-      '
-      'GBCorrected
-      '
-      Me.GBCorrected.Controls.Add(Me.BtnSave)
-      resources.ApplyResources(Me.GBCorrected, "GBCorrected")
-      Me.GBCorrected.Name = "GBCorrected"
-      Me.GBCorrected.TabStop = False
-      '
-      'BtnSave
-      '
-      resources.ApplyResources(Me.BtnSave, "BtnSave")
-      Me.BtnSave.Name = "BtnSave"
-      Me.BtnSave.UseVisualStyleBackColor = True
-      '
-      'GBCalibration
-      '
-      Me.GBCalibration.Controls.Add(Me.Label3)
-      Me.GBCalibration.Controls.Add(Me.Label2)
-      Me.GBCalibration.Controls.Add(Me.Label1)
-      Me.GBCalibration.Controls.Add(Me.lbYmm)
-      Me.GBCalibration.Controls.Add(Me.lbXmm)
-      Me.GBCalibration.Controls.Add(Me.PictureBox2)
-      Me.GBCalibration.Controls.Add(Me.LbAltRif)
-      Me.GBCalibration.Controls.Add(Me.LbAltCali)
-      Me.GBCalibration.Controls.Add(Me.PictureBox1)
-      Me.GBCalibration.Controls.Add(Me.BtnAbortCal)
-      Me.GBCalibration.Controls.Add(Me.BtnSaveCal)
-      resources.ApplyResources(Me.GBCalibration, "GBCalibration")
-      Me.GBCalibration.Name = "GBCalibration"
-      Me.GBCalibration.TabStop = False
-      '
-      'Label3
-      '
-      resources.ApplyResources(Me.Label3, "Label3")
-      Me.Label3.Name = "Label3"
-      '
-      'Label2
-      '
-      resources.ApplyResources(Me.Label2, "Label2")
-      Me.Label2.Name = "Label2"
-      '
-      'Label1
-      '
-      resources.ApplyResources(Me.Label1, "Label1")
-      Me.Label1.Name = "Label1"
-      '
-      'lbYmm
-      '
-      Me.lbYmm.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-      resources.ApplyResources(Me.lbYmm, "lbYmm")
-      Me.lbYmm.Name = "lbYmm"
-      '
-      'lbXmm
-      '
-      Me.lbXmm.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-      resources.ApplyResources(Me.lbXmm, "lbXmm")
-      Me.lbXmm.Name = "lbXmm"
-      '
-      'PictureBox2
-      '
-      Me.PictureBox2.Image = Global.My.Resources.Resources.Blocchetti
-      resources.ApplyResources(Me.PictureBox2, "PictureBox2")
-      Me.PictureBox2.Name = "PictureBox2"
-      Me.PictureBox2.TabStop = False
-      '
-      'LbAltRif
-      '
-      Me.LbAltRif.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-      resources.ApplyResources(Me.LbAltRif, "LbAltRif")
-      Me.LbAltRif.Name = "LbAltRif"
-      '
-      'LbAltCali
-      '
-      Me.LbAltCali.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
-      resources.ApplyResources(Me.LbAltCali, "LbAltCali")
-      Me.LbAltCali.Name = "LbAltCali"
-      '
-      'PictureBox1
-      '
-      Me.PictureBox1.Image = Global.My.Resources.Resources.Spessore
-      resources.ApplyResources(Me.PictureBox1, "PictureBox1")
-      Me.PictureBox1.Name = "PictureBox1"
-      Me.PictureBox1.TabStop = False
-      '
-      'BtnAbortCal
-      '
-      resources.ApplyResources(Me.BtnAbortCal, "BtnAbortCal")
-      Me.BtnAbortCal.Name = "BtnAbortCal"
-      Me.BtnAbortCal.UseVisualStyleBackColor = True
-      '
-      'BtnSaveCal
-      '
-      resources.ApplyResources(Me.BtnSaveCal, "BtnSaveCal")
-      Me.BtnSaveCal.Name = "BtnSaveCal"
-      Me.BtnSaveCal.UseVisualStyleBackColor = True
-      '
-      'ToolStrip1
-      '
-      Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-      Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BtnLoad, Me.cmdZoomAll, Me.BtnZoom11, Me.BtnZoomPan, Me.BtnCorrProsp, Me.BtnCfg, Me.BtnBackG, Me.BtnEdgeFinder, Me.BtnChangeThreshold, Me.BtnIncrTh, Me.lbThreshold, Me.btnSearch})
-      resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
-      Me.ToolStrip1.Name = "ToolStrip1"
-      '
-      'BtnLoad
-      '
-      Me.BtnLoad.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      resources.ApplyResources(Me.BtnLoad, "BtnLoad")
-      Me.BtnLoad.Name = "BtnLoad"
-      '
-      'cmdZoomAll
-      '
-      Me.cmdZoomAll.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      resources.ApplyResources(Me.cmdZoomAll, "cmdZoomAll")
-      Me.cmdZoomAll.Name = "cmdZoomAll"
-      '
-      'BtnZoom11
-      '
-      Me.BtnZoom11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-      resources.ApplyResources(Me.BtnZoom11, "BtnZoom11")
-      Me.BtnZoom11.Name = "BtnZoom11"
-      '
-      'BtnZoomPan
-      '
-      Me.BtnZoomPan.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      Me.BtnZoomPan.Image = Global.My.Resources.Resources.zoom_window_img
-      resources.ApplyResources(Me.BtnZoomPan, "BtnZoomPan")
-      Me.BtnZoomPan.Name = "BtnZoomPan"
-      '
-      'BtnCorrProsp
-      '
-      Me.BtnCorrProsp.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-      resources.ApplyResources(Me.BtnCorrProsp, "BtnCorrProsp")
-      Me.BtnCorrProsp.Name = "BtnCorrProsp"
-      '
-      'BtnCfg
-      '
-      Me.BtnCfg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      Me.BtnCfg.Image = Global.My.Resources.Resources.Cfg
-      resources.ApplyResources(Me.BtnCfg, "BtnCfg")
-      Me.BtnCfg.Name = "BtnCfg"
-      '
-      'BtnBackG
-      '
-      Me.BtnBackG.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-      resources.ApplyResources(Me.BtnBackG, "BtnBackG")
-      Me.BtnBackG.Name = "BtnBackG"
-      '
-      'BtnEdgeFinder
-      '
-      resources.ApplyResources(Me.BtnEdgeFinder, "BtnEdgeFinder")
-      Me.BtnEdgeFinder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      Me.BtnEdgeFinder.Image = Global.My.Resources.Resources.bordo2
-      Me.BtnEdgeFinder.Name = "BtnEdgeFinder"
-      '
-      'BtnChangeThreshold
-      '
-      Me.BtnChangeThreshold.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-      resources.ApplyResources(Me.BtnChangeThreshold, "BtnChangeThreshold")
-      Me.BtnChangeThreshold.Name = "BtnChangeThreshold"
-      '
-      'BtnIncrTh
-      '
-      Me.BtnIncrTh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
-      resources.ApplyResources(Me.BtnIncrTh, "BtnIncrTh")
-      Me.BtnIncrTh.Name = "BtnIncrTh"
-      '
-      'lbThreshold
-      '
-      Me.lbThreshold.Name = "lbThreshold"
-      resources.ApplyResources(Me.lbThreshold, "lbThreshold")
-      '
-      'btnSearch
-      '
-      resources.ApplyResources(Me.btnSearch, "btnSearch")
-      Me.btnSearch.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
-      Me.btnSearch.Image = Global.My.Resources.Resources.ventosa2
-      Me.btnSearch.Name = "btnSearch"
-      '
-      'StatusStrip1
-      '
-      Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
-      Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TStatus, Me.ProgressBar, Me.lbMousePosmm})
-      resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
-      Me.StatusStrip1.Name = "StatusStrip1"
-      '
-      'TStatus
-      '
-      Me.TStatus.Name = "TStatus"
-      resources.ApplyResources(Me.TStatus, "TStatus")
-      '
-      'ProgressBar
-      '
-      Me.ProgressBar.Name = "ProgressBar"
-      resources.ApplyResources(Me.ProgressBar, "ProgressBar")
-      '
-      'lbMousePosmm
-      '
-      Me.lbMousePosmm.Name = "lbMousePosmm"
-      resources.ApplyResources(Me.lbMousePosmm, "lbMousePosmm")
-      '
-      'TimerMain
-      '
-      Me.TimerMain.Interval = 500
-      '
-      'BtnEnd
-      '
-      Me.BtnEnd.Image = Global.My.Resources.Resources._exit
-      resources.ApplyResources(Me.BtnEnd, "BtnEnd")
-      Me.BtnEnd.Name = "BtnEnd"
-      Me.BtnEnd.UseVisualStyleBackColor = True
-      '
-      'BtnTakeFoto
-      '
-      resources.ApplyResources(Me.BtnTakeFoto, "BtnTakeFoto")
-      Me.BtnTakeFoto.ImageList = Me.ImageList1
-      Me.BtnTakeFoto.Name = "BtnTakeFoto"
-      Me.BtnTakeFoto.UseVisualStyleBackColor = True
-      '
-      'GBDefAree
-      '
-      Me.GBDefAree.Controls.Add(Me.BtnVentosa)
-      Me.GBDefAree.Controls.Add(Me.BtnExpT)
-      Me.GBDefAree.Controls.Add(Me.BtnStone)
-      Me.GBDefAree.Controls.Add(Me.BtnAbortDefAree)
-      Me.GBDefAree.Controls.Add(Me.BtnSaveAree)
-      resources.ApplyResources(Me.GBDefAree, "GBDefAree")
-      Me.GBDefAree.Name = "GBDefAree"
-      Me.GBDefAree.TabStop = False
-      '
-      'BtnVentosa
-      '
-      resources.ApplyResources(Me.BtnVentosa, "BtnVentosa")
-      Me.BtnVentosa.Name = "BtnVentosa"
-      Me.BtnVentosa.UseVisualStyleBackColor = True
-      '
-      'BtnExpT
-      '
-      resources.ApplyResources(Me.BtnExpT, "BtnExpT")
-      Me.BtnExpT.Name = "BtnExpT"
-      Me.BtnExpT.UseVisualStyleBackColor = True
-      '
-      'BtnStone
-      '
-      resources.ApplyResources(Me.BtnStone, "BtnStone")
-      Me.BtnStone.Name = "BtnStone"
-      Me.BtnStone.UseVisualStyleBackColor = True
-      '
-      'BtnAbortDefAree
-      '
-      resources.ApplyResources(Me.BtnAbortDefAree, "BtnAbortDefAree")
-      Me.BtnAbortDefAree.Name = "BtnAbortDefAree"
-      Me.BtnAbortDefAree.UseVisualStyleBackColor = True
-      '
-      'BtnSaveAree
-      '
-      resources.ApplyResources(Me.BtnSaveAree, "BtnSaveAree")
-      Me.BtnSaveAree.Name = "BtnSaveAree"
-      Me.BtnSaveAree.UseVisualStyleBackColor = True
-      '
-      'ImageControl1
-      '
-      resources.ApplyResources(Me.ImageControl1, "ImageControl1")
-      Me.ImageControl1.Image = Nothing
-      Me.ImageControl1.initialimage = Nothing
-      Me.ImageControl1.MouseEnabled = True
-      Me.ImageControl1.Name = "ImageControl1"
-      Me.ImageControl1.Origin = New System.Drawing.Point(0, 0)
-      Me.ImageControl1.PanButton = System.Windows.Forms.MouseButtons.Middle
-      Me.ImageControl1.PanMode = True
-      Me.ImageControl1.ScrollbarsVisible = True
-      Me.ImageControl1.StretchImageToFit = False
-      Me.ImageControl1.ZoomFactor = 1.0R
-      Me.ImageControl1.ZoomOnMouseWheel = True
-      '
-      'FrmMain
-      '
-      resources.ApplyResources(Me, "$this")
-      Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-      Me.Controls.Add(Me.GBDefAree)
-      Me.Controls.Add(Me.StatusStrip1)
-      Me.Controls.Add(Me.ToolStrip1)
-      Me.Controls.Add(Me.BtnEnd)
-      Me.Controls.Add(Me.GBCalibration)
-      Me.Controls.Add(Me.GBCorrected)
-      Me.Controls.Add(Me.GBImgFromCam)
-      Me.Controls.Add(Me.ImageControl1)
-      Me.Controls.Add(Me.LbFocalLenght)
-      Me.Controls.Add(Me.LbImageStatus)
-      Me.Controls.Add(Me.BtnTakeFoto)
-      Me.Name = "FrmMain"
-      Me.GBImgFromCam.ResumeLayout(False)
-      Me.GBCorrected.ResumeLayout(False)
-      Me.GBCalibration.ResumeLayout(False)
-      Me.GBCalibration.PerformLayout()
-      CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
-      CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
-      Me.ToolStrip1.ResumeLayout(False)
-      Me.ToolStrip1.PerformLayout()
-      Me.StatusStrip1.ResumeLayout(False)
-      Me.StatusStrip1.PerformLayout()
-      Me.GBDefAree.ResumeLayout(False)
-      Me.ResumeLayout(False)
-      Me.PerformLayout()
+        Me.GBImgFromCam.SuspendLayout()
+        Me.GBCorrected.SuspendLayout()
+        Me.GBCalibration.SuspendLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.ToolStrip1.SuspendLayout()
+        Me.StatusStrip1.SuspendLayout()
+        Me.GBDefAree.SuspendLayout()
+        Me.SuspendLayout()
+        '
+        'OpenFileDialog1
+        '
+        Me.OpenFileDialog1.FileName = "OpenFileDialog1"
+        '
+        'ImageList1
+        '
+        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
+        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
+        Me.ImageList1.Images.SetKeyName(0, "400D.bmp")
+        Me.ImageList1.Images.SetKeyName(1, "400DDis.bmp")
+        Me.ImageList1.Images.SetKeyName(2, "Correction.bmp")
+        Me.ImageList1.Images.SetKeyName(3, "CorrectionCC.bmp")
+        Me.ImageList1.Images.SetKeyName(4, "Spessore.bmp")
+        Me.ImageList1.Images.SetKeyName(5, "Lente2.bmp")
+        Me.ImageList1.Images.SetKeyName(6, "Lente.bmp")
+        Me.ImageList1.Images.SetKeyName(7, "calibro.jpg")
+        Me.ImageList1.Images.SetKeyName(8, "25_tape.png")
+        '
+        'LbImageStatus
+        '
+        resources.ApplyResources(Me.LbImageStatus, "LbImageStatus")
+        Me.LbImageStatus.Name = "LbImageStatus"
+        '
+        'LbFocalLenght
+        '
+        resources.ApplyResources(Me.LbFocalLenght, "LbFocalLenght")
+        Me.LbFocalLenght.Name = "LbFocalLenght"
+        '
+        'TimerZoom
+        '
+        Me.TimerZoom.Interval = 125
+        '
+        'GBImgFromCam
+        '
+        Me.GBImgFromCam.Controls.Add(Me.BtnDefAree)
+        Me.GBImgFromCam.Controls.Add(Me.BtnCorrLens)
+        Me.GBImgFromCam.Controls.Add(Me.BtnCorrCompleta)
+        resources.ApplyResources(Me.GBImgFromCam, "GBImgFromCam")
+        Me.GBImgFromCam.Name = "GBImgFromCam"
+        Me.GBImgFromCam.TabStop = False
+        '
+        'BtnDefAree
+        '
+        Me.BtnDefAree.Image = Global.My.Resources.Resources.DefAree
+        resources.ApplyResources(Me.BtnDefAree, "BtnDefAree")
+        Me.BtnDefAree.Name = "BtnDefAree"
+        Me.BtnDefAree.UseVisualStyleBackColor = True
+        '
+        'BtnCorrLens
+        '
+        Me.BtnCorrLens.Image = Global.My.Resources.Resources.Calibrazione
+        resources.ApplyResources(Me.BtnCorrLens, "BtnCorrLens")
+        Me.BtnCorrLens.Name = "BtnCorrLens"
+        Me.BtnCorrLens.UseVisualStyleBackColor = True
+        '
+        'BtnCorrCompleta
+        '
+        Me.BtnCorrCompleta.Image = Global.My.Resources.Resources.Correction
+        resources.ApplyResources(Me.BtnCorrCompleta, "BtnCorrCompleta")
+        Me.BtnCorrCompleta.Name = "BtnCorrCompleta"
+        Me.BtnCorrCompleta.UseVisualStyleBackColor = True
+        '
+        'GBCorrected
+        '
+        Me.GBCorrected.Controls.Add(Me.BtnSave)
+        resources.ApplyResources(Me.GBCorrected, "GBCorrected")
+        Me.GBCorrected.Name = "GBCorrected"
+        Me.GBCorrected.TabStop = False
+        '
+        'BtnSave
+        '
+        resources.ApplyResources(Me.BtnSave, "BtnSave")
+        Me.BtnSave.Name = "BtnSave"
+        Me.BtnSave.UseVisualStyleBackColor = True
+        '
+        'GBCalibration
+        '
+        Me.GBCalibration.Controls.Add(Me.Label3)
+        Me.GBCalibration.Controls.Add(Me.Label2)
+        Me.GBCalibration.Controls.Add(Me.Label1)
+        Me.GBCalibration.Controls.Add(Me.lbYmm)
+        Me.GBCalibration.Controls.Add(Me.lbXmm)
+        Me.GBCalibration.Controls.Add(Me.PictureBox2)
+        Me.GBCalibration.Controls.Add(Me.LbAltRif)
+        Me.GBCalibration.Controls.Add(Me.LbAltCali)
+        Me.GBCalibration.Controls.Add(Me.PictureBox1)
+        Me.GBCalibration.Controls.Add(Me.BtnAbortCal)
+        Me.GBCalibration.Controls.Add(Me.BtnSaveCal)
+        resources.ApplyResources(Me.GBCalibration, "GBCalibration")
+        Me.GBCalibration.Name = "GBCalibration"
+        Me.GBCalibration.TabStop = False
+        '
+        'Label3
+        '
+        resources.ApplyResources(Me.Label3, "Label3")
+        Me.Label3.Name = "Label3"
+        '
+        'Label2
+        '
+        resources.ApplyResources(Me.Label2, "Label2")
+        Me.Label2.Name = "Label2"
+        '
+        'Label1
+        '
+        resources.ApplyResources(Me.Label1, "Label1")
+        Me.Label1.Name = "Label1"
+        '
+        'lbYmm
+        '
+        Me.lbYmm.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        resources.ApplyResources(Me.lbYmm, "lbYmm")
+        Me.lbYmm.Name = "lbYmm"
+        '
+        'lbXmm
+        '
+        Me.lbXmm.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        resources.ApplyResources(Me.lbXmm, "lbXmm")
+        Me.lbXmm.Name = "lbXmm"
+        '
+        'PictureBox2
+        '
+        Me.PictureBox2.Image = Global.My.Resources.Resources.Blocchetti
+        resources.ApplyResources(Me.PictureBox2, "PictureBox2")
+        Me.PictureBox2.Name = "PictureBox2"
+        Me.PictureBox2.TabStop = False
+        '
+        'LbAltRif
+        '
+        Me.LbAltRif.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        resources.ApplyResources(Me.LbAltRif, "LbAltRif")
+        Me.LbAltRif.Name = "LbAltRif"
+        '
+        'LbAltCali
+        '
+        Me.LbAltCali.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
+        resources.ApplyResources(Me.LbAltCali, "LbAltCali")
+        Me.LbAltCali.Name = "LbAltCali"
+        '
+        'PictureBox1
+        '
+        Me.PictureBox1.Image = Global.My.Resources.Resources.Spessore
+        resources.ApplyResources(Me.PictureBox1, "PictureBox1")
+        Me.PictureBox1.Name = "PictureBox1"
+        Me.PictureBox1.TabStop = False
+        '
+        'BtnAbortCal
+        '
+        resources.ApplyResources(Me.BtnAbortCal, "BtnAbortCal")
+        Me.BtnAbortCal.Name = "BtnAbortCal"
+        Me.BtnAbortCal.UseVisualStyleBackColor = True
+        '
+        'BtnSaveCal
+        '
+        resources.ApplyResources(Me.BtnSaveCal, "BtnSaveCal")
+        Me.BtnSaveCal.Name = "BtnSaveCal"
+        Me.BtnSaveCal.UseVisualStyleBackColor = True
+        '
+        'ToolStrip1
+        '
+        Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BtnLoad, Me.cmdZoomAll, Me.BtnZoom11, Me.BtnZoomPan, Me.BtnCorrProsp, Me.BtnCfg, Me.BtnBackG, Me.BtnEdgeFinder, Me.BtnChangeThreshold, Me.BtnIncrTh, Me.lbThreshold, Me.btnSearch})
+        resources.ApplyResources(Me.ToolStrip1, "ToolStrip1")
+        Me.ToolStrip1.Name = "ToolStrip1"
+        '
+        'BtnLoad
+        '
+        Me.BtnLoad.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        resources.ApplyResources(Me.BtnLoad, "BtnLoad")
+        Me.BtnLoad.Name = "BtnLoad"
+        '
+        'cmdZoomAll
+        '
+        Me.cmdZoomAll.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        resources.ApplyResources(Me.cmdZoomAll, "cmdZoomAll")
+        Me.cmdZoomAll.Name = "cmdZoomAll"
+        '
+        'BtnZoom11
+        '
+        Me.BtnZoom11.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        resources.ApplyResources(Me.BtnZoom11, "BtnZoom11")
+        Me.BtnZoom11.Name = "BtnZoom11"
+        '
+        'BtnZoomPan
+        '
+        Me.BtnZoomPan.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BtnZoomPan.Image = Global.My.Resources.Resources.zoom_window_img
+        resources.ApplyResources(Me.BtnZoomPan, "BtnZoomPan")
+        Me.BtnZoomPan.Name = "BtnZoomPan"
+        '
+        'BtnCorrProsp
+        '
+        Me.BtnCorrProsp.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        resources.ApplyResources(Me.BtnCorrProsp, "BtnCorrProsp")
+        Me.BtnCorrProsp.Name = "BtnCorrProsp"
+        '
+        'BtnCfg
+        '
+        Me.BtnCfg.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BtnCfg.Image = Global.My.Resources.Resources.Cfg
+        resources.ApplyResources(Me.BtnCfg, "BtnCfg")
+        Me.BtnCfg.Name = "BtnCfg"
+        '
+        'BtnBackG
+        '
+        Me.BtnBackG.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        resources.ApplyResources(Me.BtnBackG, "BtnBackG")
+        Me.BtnBackG.Name = "BtnBackG"
+        '
+        'BtnEdgeFinder
+        '
+        resources.ApplyResources(Me.BtnEdgeFinder, "BtnEdgeFinder")
+        Me.BtnEdgeFinder.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.BtnEdgeFinder.Image = Global.My.Resources.Resources.bordo2
+        Me.BtnEdgeFinder.Name = "BtnEdgeFinder"
+        '
+        'BtnChangeThreshold
+        '
+        Me.BtnChangeThreshold.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        resources.ApplyResources(Me.BtnChangeThreshold, "BtnChangeThreshold")
+        Me.BtnChangeThreshold.Name = "BtnChangeThreshold"
+        '
+        'BtnIncrTh
+        '
+        Me.BtnIncrTh.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
+        resources.ApplyResources(Me.BtnIncrTh, "BtnIncrTh")
+        Me.BtnIncrTh.Name = "BtnIncrTh"
+        '
+        'lbThreshold
+        '
+        Me.lbThreshold.Name = "lbThreshold"
+        resources.ApplyResources(Me.lbThreshold, "lbThreshold")
+        '
+        'btnSearch
+        '
+        resources.ApplyResources(Me.btnSearch, "btnSearch")
+        Me.btnSearch.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
+        Me.btnSearch.Image = Global.My.Resources.Resources.ventosa2
+        Me.btnSearch.Name = "btnSearch"
+        '
+        'StatusStrip1
+        '
+        Me.StatusStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
+        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.TStatus, Me.ProgressBar, Me.lbMousePosmm})
+        resources.ApplyResources(Me.StatusStrip1, "StatusStrip1")
+        Me.StatusStrip1.Name = "StatusStrip1"
+        '
+        'TStatus
+        '
+        Me.TStatus.Name = "TStatus"
+        resources.ApplyResources(Me.TStatus, "TStatus")
+        '
+        'ProgressBar
+        '
+        Me.ProgressBar.Name = "ProgressBar"
+        resources.ApplyResources(Me.ProgressBar, "ProgressBar")
+        '
+        'lbMousePosmm
+        '
+        Me.lbMousePosmm.Name = "lbMousePosmm"
+        resources.ApplyResources(Me.lbMousePosmm, "lbMousePosmm")
+        '
+        'TimerMain
+        '
+        Me.TimerMain.Interval = 500
+        '
+        'BtnEnd
+        '
+        Me.BtnEnd.Image = Global.My.Resources.Resources._exit
+        resources.ApplyResources(Me.BtnEnd, "BtnEnd")
+        Me.BtnEnd.Name = "BtnEnd"
+        Me.BtnEnd.UseVisualStyleBackColor = True
+        '
+        'BtnTakeFoto
+        '
+        resources.ApplyResources(Me.BtnTakeFoto, "BtnTakeFoto")
+        Me.BtnTakeFoto.ImageList = Me.ImageList1
+        Me.BtnTakeFoto.Name = "BtnTakeFoto"
+        Me.BtnTakeFoto.UseVisualStyleBackColor = True
+        '
+        'GBDefAree
+        '
+        Me.GBDefAree.Controls.Add(Me.BtnVentosa)
+        Me.GBDefAree.Controls.Add(Me.BtnExpT)
+        Me.GBDefAree.Controls.Add(Me.BtnStone)
+        Me.GBDefAree.Controls.Add(Me.BtnAbortDefAree)
+        Me.GBDefAree.Controls.Add(Me.BtnSaveAree)
+        resources.ApplyResources(Me.GBDefAree, "GBDefAree")
+        Me.GBDefAree.Name = "GBDefAree"
+        Me.GBDefAree.TabStop = False
+        '
+        'BtnVentosa
+        '
+        resources.ApplyResources(Me.BtnVentosa, "BtnVentosa")
+        Me.BtnVentosa.Name = "BtnVentosa"
+        Me.BtnVentosa.UseVisualStyleBackColor = True
+        '
+        'BtnExpT
+        '
+        resources.ApplyResources(Me.BtnExpT, "BtnExpT")
+        Me.BtnExpT.Name = "BtnExpT"
+        Me.BtnExpT.UseVisualStyleBackColor = True
+        '
+        'BtnStone
+        '
+        resources.ApplyResources(Me.BtnStone, "BtnStone")
+        Me.BtnStone.Name = "BtnStone"
+        Me.BtnStone.UseVisualStyleBackColor = True
+        '
+        'BtnAbortDefAree
+        '
+        resources.ApplyResources(Me.BtnAbortDefAree, "BtnAbortDefAree")
+        Me.BtnAbortDefAree.Name = "BtnAbortDefAree"
+        Me.BtnAbortDefAree.UseVisualStyleBackColor = True
+        '
+        'BtnSaveAree
+        '
+        resources.ApplyResources(Me.BtnSaveAree, "BtnSaveAree")
+        Me.BtnSaveAree.Name = "BtnSaveAree"
+        Me.BtnSaveAree.UseVisualStyleBackColor = True
+        '
+        'ImageControl1
+        '
+        resources.ApplyResources(Me.ImageControl1, "ImageControl1")
+        Me.ImageControl1.Image = Nothing
+        Me.ImageControl1.initialimage = Nothing
+        Me.ImageControl1.MouseEnabled = True
+        Me.ImageControl1.Name = "ImageControl1"
+        Me.ImageControl1.Origin = New System.Drawing.Point(0, 0)
+        Me.ImageControl1.PanButton = System.Windows.Forms.MouseButtons.Middle
+        Me.ImageControl1.PanMode = True
+        Me.ImageControl1.ScrollbarsVisible = True
+        Me.ImageControl1.StretchImageToFit = False
+        Me.ImageControl1.ZoomFactor = 1.0R
+        Me.ImageControl1.ZoomOnMouseWheel = True
+        '
+        'FrmMain
+        '
+        resources.ApplyResources(Me, "$this")
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Controls.Add(Me.GBDefAree)
+        Me.Controls.Add(Me.StatusStrip1)
+        Me.Controls.Add(Me.ToolStrip1)
+        Me.Controls.Add(Me.BtnEnd)
+        Me.Controls.Add(Me.GBCalibration)
+        Me.Controls.Add(Me.GBCorrected)
+        Me.Controls.Add(Me.GBImgFromCam)
+        Me.Controls.Add(Me.ImageControl1)
+        Me.Controls.Add(Me.LbFocalLenght)
+        Me.Controls.Add(Me.LbImageStatus)
+        Me.Controls.Add(Me.BtnTakeFoto)
+        Me.Name = "FrmMain"
+        Me.GBImgFromCam.ResumeLayout(False)
+        Me.GBCorrected.ResumeLayout(False)
+        Me.GBCalibration.ResumeLayout(False)
+        Me.GBCalibration.PerformLayout()
+        CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
+        CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ToolStrip1.ResumeLayout(False)
+        Me.ToolStrip1.PerformLayout()
+        Me.StatusStrip1.ResumeLayout(False)
+        Me.StatusStrip1.PerformLayout()
+        Me.GBDefAree.ResumeLayout(False)
+        Me.ResumeLayout(False)
+        Me.PerformLayout()

-   End Sub
-   Friend WithEvents BtnTakeFoto As System.Windows.Forms.Button
+    End Sub
+    Friend WithEvents BtnTakeFoto As System.Windows.Forms.Button
   Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
   Friend WithEvents BtnEnd As System.Windows.Forms.Button
   Friend WithEvents LbImageStatus As System.Windows.Forms.Label
@@ -128,7 +128,7 @@
        AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
        LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
        ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAS
-        TwAAAk1TRnQBSQFMAgEBCQEAAawBAQGsAQEBMgEAATIBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        TwAAAk1TRnQBSQFMAgEBCQEAAbQBAQG0AQEBMgEAATIBAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
        AwAByAMAAZYDAAEBAQABCAUAATABdRgAAYACAAGAAwACgAEAAYADAAGAAQABgAEAAoACAAPAAQABwAHc
        AcABAAHwAcoBpgEAATMFAAEzAQABMwEAATMBAAIzAgADFgEAAxwBAAMiAQADKQEAA1UBAANNAQADQgEA
        AzkBAAGAAXwB/wEAAlAB/wEAAZMBAAHWAQAB/wHsAcwBAAHGAdYB7wEAAdYC5wEAAZABqQGtAgAB/wEz
@@ -1795,7 +1795,7 @@
    <value>True</value>
  </metadata>
  <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
-    <value>47</value>
+    <value>25</value>
  </metadata>
  <data name="$this.AutoScaleDimensions" type="System.Drawing.SizeF, System.Drawing">
    <value>8, 16</value>
@@ -13,7 +13,6 @@ Imports System.Globalization
 Public Class FrmMain
   'Implements Observer

-
   Private Enum en_status
      NoImage
      ImageFromCamera
@@ -26,6 +25,7 @@ Public Class FrmMain
   End Enum
   Private m_Image As System.Drawing.Image
   Private m_ZoomFactor As Double
+   ' Permette di aggiornare la pagina principale del programma 'SetFormStatus()'
   Private status As en_status
   Private frmSce As New FrmScelta
   Private WithEvents ImageMng As New clsImageMng
@@ -433,7 +433,7 @@ Public Class FrmMain
      PosizionaControlli()
   End Sub
   Private Sub PosizionaControlli()
-
+      ' Posizione di ancoraggio (in alto a sinistra sullo schermo)
      Dim x As Integer, y As Integer
      Dim Width As Integer, Height As Integer
      Dim XGroupBoxes As Integer
@@ -107,6 +107,36 @@ CameraMng
  Looks up a localized resource of type System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="M:clsImageMng.LeggiFileCalibrazioneLenteOCV(System.String)">
+ <summary>
+ Legge il file che contiene i parametri di correzione della lente
+ </summary>
+ <param name="NomeFile">Percorso file da leggere</param>
+ <returns>Ritorna True se la lettura è andata a buon fine</returns>
+</member>
+<member name="M:clsImageMng.LeggiFileCorrezProsp(System.String)">
+ <summary>
+ Lettura del file per la risoluzione della distorsione prospettica
+ </summary>
+ <param name="NomeFile">Percorso del file da leggere</param> 
+ <returns>Ritorna True se la lettura è andata a buon fine</returns>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneDiretta">
+ <summary>
+ Ottine la matrice 'm_MatDir' di correzione prospettica
+ Viene richiamato il metodo 'CalcolaDatiCorrezioneDiretta'
+ </summary>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneDirettaNoRett">
+ <summary>
+ Ottiene la matrice 'm_MatDir' per la correzione prospettica nel piano Z=0
+ </summary>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneInversa">
+ <summary>
+ Ottiene la matrice 'm_MatInv' per la correzione prospettica nel piano Z=0
+ </summary>
+</member>
 <member name="M:clsVisione.AddExpRectangle(System.Int32,System.Int32,System.Int32,System.Int32)">
 <summary>
  Aggiunge una zona rettangolare pe l'analisi ispezione
@@ -19,6 +19,7 @@ Public Class clsImageMng
   Private m_dimx As Short = 1 '3888
   Private m_dimy As Short = 1 ' 2592
   Private m_Pos_x_mm, m_Pos_y_mm As Double
+   ' Posizione in mm del punto_3 (ibl=3)  rispetto all'origine (punto_0)
   Private m_Pos_x_z0_mm, m_Pos_y_z0_mm As Double
   Private m_bCorrected As Boolean = False
   Private m_pmm_bs As New clPuntomm
@@ -29,25 +30,33 @@ Public Class clsImageMng
   Private m_punto0 As New clCoppiaPunto
   Private m_puntoH(4) As clCoppiaPunto
   Private m_bCorrAltezzaEnabled As Boolean
+   ' posizione in px dei punti dell'immagine originale rispetto al punto punto_0 (itl=0)
   Private m_pdst(3) As System.Drawing.PointF ' punti nuova foto
-   Const itl As Integer = 0 'top left
+   ' indice per distinguere i punti salvati nei vettori 'm_pworld', 'm_psrc', 'm_pdst'
+   Const itl As Integer = 0 ' top left
   Const itr As Integer = 1 ' top right
   Const ibl As Integer = 3 ' Bottom right
   Const ibr As Integer = 2 ' Bottom left
+   ' Dimensione immagine dopo aver calcolato le estensioni oltre al riquadro
   Private m_dim_XProsp As Short = 1 ' dimens. img con prospettiva corretta 
   Private m_dim_YProsp As Short = 1
+   ' mm to px all'altezza zero del tavolo
   Private m_mm2PixelProspZ0 As Double
   Private m_mm2PixelProspFinal As Double
-   Private m_ExtXL_pix As Integer, m_ExtXR_pix As Integer
-   Private m_ExtYT_pix As Integer, m_ExtYB_pix As Integer
-   Private m_ExtXL_mm As Single, m_ExtXR_mm As Single
-   Private m_ExtYT_mm As Single, m_ExtYB_mm As Single
+   ' Estension in Pixel dell'immagine
+   Private m_ExtXL_pix As Integer, m_ExtXR_pix As Integer  ' sinistra e destra
+   Private m_ExtYT_pix As Integer, m_ExtYB_pix As Integer  ' sopra e sotto
+   ' Estension in mm dell'immagine
+   Private m_ExtXL_mm As Single, m_ExtXR_mm As Single      ' sinistra e destra
+   Private m_ExtYT_mm As Single, m_ExtYB_mm As Single      ' sopra e sotto
 #If WinXP Then
   Private m_MatDir As Matrix(Of Double) 'HomographyMatrix ' Per creare l'immagine correttta, data la coord. XY, mi dà il pixel da prendere
   Private m_MatInv As Matrix(Of Double) 'HomographyMatrix ' Per ottenere la coord. in mm da un valore in pixel dell'imm. originale
 #Else
-   Private m_MatInv(2, 2) As Double 'HomographyMatrix ' Per creare l'immagine correttta, data la coord. XY, mi dà il pixel da prendere
-   Private m_MatDir(2, 2) As Double 'HomographyMatrix ' Per creare l'immagine correttta, data la coord. XY, mi dà il pixel da prendere
+   ' 'HomographyMatrix' matrice di correzione prospettica (dalle in pixel a quelle world) 'HomographyMatrix '
+   Private m_MatInv(2, 2) As Double
+   ' 'HomographyMatrix' matrice di correzione prospettica (dalle coordinate world a quelle locali in px)
+   Private m_MatDir(2, 2) As Double
 #End If

   Private m_NomeFileCorrezProsp As String
@@ -67,12 +76,17 @@ Public Class clsImageMng
   Private MatConvP(m_dimx, m_dimy) As clPuntoPix
   Private m_CalimageWidth As Integer = 0

+   ' [ fx  0.0  cx
+   '  0.0   fy  cy
+   '  0.0  0.0  1.0 ]
   Private _cameraMatrix As Matrix(Of Double) = Nothing
+   ' [ k1, k2, p1, p2, p3 ]
   Private _distCoeffs As Matrix(Of Double) = Nothing

   Private m_fileCaliLensRead As Boolean = False
   Private m_fileCaliProspRead As Boolean = False
   Private Shared ReadOnly m_sync As New Object
+   ' vettore di correzione prospettica: convertita in matrice (m_MatDir)
   Private _perspMatDir As Emgu.CV.Mat

   Private _ocvMapx As Emgu.CV.Matrix(Of Single)
@@ -82,11 +96,13 @@ Public Class clsImageMng
 #End Region

 #Region "membri pubblici"
+   ' --- variabili per la correzione prospettica
   Public m_AltRif As Double
   Public m_ZCali As Double
-   ' --- variabili per la correzione prospettica
-   Public m_pworld(3) As System.Drawing.PointF ' punti mondo in mm
-   Public m_psrc(3) As System.Drawing.PointF ' punti foto 
+   ' punti world in mm riferiti rispetto all'origine punto_0 (itl=0)
+   Public m_pworld(3) As System.Drawing.PointF
+   ' punti foto riferiti rispetto all'origine immagine
+   Public m_psrc(3) As System.Drawing.PointF
 #End Region

 #Region "eventi"
@@ -190,7 +206,7 @@ Public Class clsImageMng
      Try

         If Not m_fileCaliLensRead Then
-            m_fileCaliLensRead = LeggiFileCalibrazioneLenteOCV(m_FileCalibLens, True)
+            m_fileCaliLensRead = LeggiFileCalibrazioneLenteOCV(m_FileCalibLens)
         End If
         If Not m_fileCaliProspRead Then
            m_fileCaliProspRead = LeggiFileCorrezProsp(m_FileCalibProsp)
@@ -251,13 +267,15 @@ Public Class clsImageMng

   End Sub
   Public Sub CalcolaDatiCorrezione()
-      m_ProspCalibrated = False ' forzo il ricalcolo
+      ' forzo il ricalcolo
+      m_ProspCalibrated = False
      CalcolaDatiCorrezioneDiretta()
      CalcolaDatiCorrezioneInversa()
      m_bCorrAltezzaEnabled = True
      If Not TrovaDatiScalatura() Then m_bCorrAltezzaEnabled = False
      If Not TrovaOffsetPosizione() Then m_bCorrAltezzaEnabled = False
   End Sub
+
   Public Sub SalvaFileCorrezioneProsp()
      Dim writer As StreamWriter
      Dim i As Integer
@@ -389,6 +407,7 @@ Public Class clsImageMng
      TrovaDatiScalatura = True

   End Function
+
   Private Function TrovaOffsetPosizione() As Boolean
      Dim pt As New clPuntomm
      Dim pTmp As New clCoppiaPunto
@@ -417,7 +436,15 @@ Public Class clsImageMng
      Return True

   End Function
-   Private Function LeggiFileCalibrazioneLenteOCV(NomeFile As String, creaMatrice As Boolean) As Boolean
+
+#Region "Lettura configurazioni"
+
+   ''' <summary>
+   ''' Legge il file che contiene i parametri di correzione della lente
+   ''' </summary>
+   ''' <param name="NomeFile">Percorso file da leggere</param>
+   ''' <returns>Ritorna True se la lettura è andata a buon fine</returns>
+   Private Function LeggiFileCalibrazioneLenteOCV(NomeFile As String) As Boolean

      Dim Linea As String
      Dim split() As String
@@ -471,19 +498,18 @@ Public Class clsImageMng
               ElseIf split(0).Equals("FileVersion", StringComparison.InvariantCultureIgnoreCase) Then
                  FileVersion = CInt(split(1))
               ElseIf (Linea.StartsWith("rms")) Then
+                  ' non carico dato

+                  ' CAMERA MATRIX
               ElseIf (Linea.StartsWith("fx")) Then
                  _cameraMatrix.Data(0, 0) = Convert.ToDouble(split(1), nfi)
-
               ElseIf (Linea.StartsWith("cx")) Then
                  _cameraMatrix.Data(0, 2) = Convert.ToDouble(split(1), nfi)
-
               ElseIf (Linea.StartsWith("fy")) Then
                  _cameraMatrix.Data(1, 1) = Convert.ToDouble(split(1), nfi)
-
               ElseIf (Linea.StartsWith("cy")) Then
                  _cameraMatrix.Data(1, 2) = Convert.ToDouble(split(1), nfi)
-
+                  ' DISTORSION COEFFICIENT
               ElseIf (Linea.StartsWith("k1")) Then
                  _distCoeffs.Data(0, 0) = Convert.ToDouble(split(1), nfi)
               ElseIf (Linea.StartsWith("k2")) Then
@@ -492,12 +518,15 @@ Public Class clsImageMng
                  _distCoeffs.Data(0, 2) = Convert.ToDouble(split(1), nfi)
               ElseIf (Linea.StartsWith("p2")) Then
                  _distCoeffs.Data(0, 3) = Convert.ToDouble(split(1), nfi)
+
               ElseIf (Linea.StartsWith("hfov")) Then
+                  ' non carico dato
               ElseIf (Linea.StartsWith("vfov")) Then
+                  ' non carico dato
               ElseIf (Linea.StartsWith("ImageWidth")) Then
-
+                  ' non carico dato
               ElseIf (Linea.StartsWith("ImageHeight")) Then
-
+                  ' non carico dato
               End If
            End If

@@ -530,8 +559,14 @@ Public Class clsImageMng
      Return True

   End Function
-   Private Function LeggiFileCorrezProsp(ByVal NomeFile As String) As Boolean

+   ''' <summary>
+   ''' Lettura del file per la risoluzione della distorsione prospettica
+   ''' </summary>
+   ''' <param name="NomeFile">Percorso del file da leggere</param> 
+   ''' <returns>Ritorna True se la lettura è andata a buon fine</returns>
+   Private Function LeggiFileCorrezProsp(ByVal NomeFile As String) As Boolean
+      ' nome file: Calib.txt
      Dim Linea As String
      Dim delimStr As String
      Dim delimiter(5) As Char
@@ -608,6 +643,8 @@ Public Class clsImageMng

   End Function

+#End Region    ' Lettura configurazioni
+
   Property Corrected() As Boolean
      Get
         Return m_bCorrected
@@ -645,35 +682,41 @@ Public Class clsImageMng
      End Set
   End Property

+#Region "Caolcolo matrici di correzione prospettica"
+
+   ''' <summary>
+   ''' Ottine la matrice 'm_MatDir' di correzione prospettica
+   ''' Viene richiamato il metodo 'CalcolaDatiCorrezioneDiretta'
+   ''' </summary>
   Private Sub CalcolaDatiCorrezioneDiretta()

+      ' L'immagine da rettificare non è un rettangolo
      CalcolaDatiCorrezioneDirettaNoRett()
-      Dim ok As Boolean = True
-      If ok Then Return
+      ' Se ' CalcolaDatiCorrezioneDirettaNoRett' andata a buon fine 'm_ProspCalibrated=true'
+      If m_ProspCalibrated Then Exit Sub

+      ' -- ALGORITMO ABBANDONATO --
      Dim distmm As Double, distpix As Double, mm2pix As Double
      Dim distXMax As Double, distYMax As Double

-      If m_ProspCalibrated Then Exit Sub
-
      ' prendo i pixel per mm più adeguati per non perdere informazioni
-      'lato sopra tl-tr
+      'lato sopra tl-tr (itl=0, itr=1)
      distmm = Math.Sqrt(Math.Pow(m_pworld(itl).X - m_pworld(itr).X, 2) + Math.Pow(m_pworld(itl).Y - m_pworld(itr).Y, 2))
-      distXMax = distmm
      distpix = Math.Sqrt(Math.Pow(m_psrc(itl).X - m_psrc(itr).X, 2) + Math.Pow(m_psrc(itl).Y - m_psrc(itr).Y, 2))
      mm2pix = distpix / distmm ' pixel per mm
-
-      'lato sotto bl-br
+      distXMax = distmm
+      'lato sotto bl-br (ibl=3, ibr=2)
      distmm = Math.Sqrt(Math.Pow(m_pworld(ibl).X - m_pworld(ibr).X, 2) + Math.Pow(m_pworld(ibl).Y - m_pworld(ibr).Y, 2))
      distpix = Math.Sqrt(Math.Pow(m_psrc(ibl).X - m_psrc(ibr).X, 2) + Math.Pow(m_psrc(ibl).Y - m_psrc(ibr).Y, 2))
      If (distpix / distmm > mm2pix) Then mm2pix = distpix / distmm
      If (distmm > distXMax) Then distXMax = distmm
-      'lato sinistro tl-bl
+
+      'lato sinistro tl-bl (itl=0, ibl=3)
      distmm = Math.Sqrt(Math.Pow(m_pworld(itl).X - m_pworld(ibl).X, 2) + Math.Pow(m_pworld(itl).Y - m_pworld(ibl).Y, 2))
      distpix = Math.Sqrt(Math.Pow(m_psrc(itl).X - m_psrc(ibl).X, 2) + Math.Pow(m_psrc(itl).Y - m_psrc(ibl).Y, 2))
      If (distpix / distmm > mm2pix) Then mm2pix = distpix / distmm
      distYMax = distmm
-      'lato destro tr-br
+      'lato destro tr-br (itr=1, ibr=2)
      distmm = Math.Sqrt(Math.Pow(m_pworld(itr).X - m_pworld(ibr).X, 2) + Math.Pow(m_pworld(itr).Y - m_pworld(ibr).Y, 2))
      distpix = Math.Sqrt(Math.Pow(m_psrc(itr).X - m_psrc(ibr).X, 2) + Math.Pow(m_psrc(itr).Y - m_psrc(ibr).Y, 2))
      If (distpix / distmm > mm2pix) Then mm2pix = distpix / distmm
@@ -696,6 +739,8 @@ Public Class clsImageMng
      m_ExtYT_pix = Convert.ToInt16(m_ExtYT_mm * m_mm2PixelProspZ0)
      m_ExtYB_pix = Convert.ToInt16(m_ExtYB_mm * m_mm2PixelProspZ0)

+      ' -- ALGORITMO DEPRECATO --
+      ' perchè considera la figura perfettamente rettangolo con i lati paralleli all'immagine
      m_pdst(itl).X = 0 : m_pdst(itl).Y = 0
      m_pdst(itr).X = m_dim_XProsp : m_pdst(itr).Y = 0
      m_pdst(ibl).X = 0 : m_pdst(ibl).Y = m_dim_YProsp
@@ -723,6 +768,9 @@ Public Class clsImageMng

   End Sub

+   ''' <summary>
+   ''' Ottiene la matrice 'm_MatDir' per la correzione prospettica nel piano Z=0
+   ''' </summary>
   Private Sub CalcolaDatiCorrezioneDirettaNoRett()

      Dim distmm As Double, distpix As Double, mm2pix As Double
@@ -756,6 +804,7 @@ Public Class clsImageMng
      ' -- verifico che l'immagine non sia troppo grande
      Dim widthImagePix As Double = (distXMax + m_ExtXL_mm + m_ExtXR_mm) * mm2pix
      If widthImagePix > m_widthImagePixMax Then
+         ' ???
         mm2pix = mm2pix * CDbl(m_widthImagePixMax) / widthImagePix
      End If

@@ -765,26 +814,39 @@ Public Class clsImageMng

      m_mm2PixelProspZ0 = mm2pix

+      ' ricavo i valori di estesnione dell'immagine in px
      m_ExtXL_pix = Convert.ToInt16(m_ExtXL_mm * m_mm2PixelProspZ0)
      m_ExtXR_pix = Convert.ToInt16(m_ExtXR_mm * m_mm2PixelProspZ0)
      m_ExtYT_pix = Convert.ToInt16(m_ExtYT_mm * m_mm2PixelProspZ0)
      m_ExtYB_pix = Convert.ToInt16(m_ExtYB_mm * m_mm2PixelProspZ0)

+      ' fisso l'origine nel punto in alto a sinistra
      Dim Origmm As PointF = m_pworld(itl)

-
+      ' distanza punto_1 (top-right) da Origine in X (itr=1)
      m_pdst(itr).X = (m_pworld(itr).X - m_pworld(itl).X) * m_mm2PixelProspZ0
+      ' distanza punto_1 da Origine in Y (itr=1)
      m_pdst(itr).Y = -(m_pworld(itr).Y - m_pworld(itl).Y) * m_mm2PixelProspZ0
+
+      ' distanza punto_3 (bottom-left) da Origine in X (ibl=3)
      m_pdst(ibl).X = (m_pworld(ibl).X - m_pworld(itl).X) * m_mm2PixelProspZ0
+      ' distanza punto_3 da Origine in Y (ibl=3)
      m_pdst(ibl).Y = -(m_pworld(ibl).Y - m_pworld(itl).Y) * m_mm2PixelProspZ0
+
+      ' distanza punto_2 (bottom-right) da Origine in X (ibl=3)
      m_pdst(ibr).X = (m_pworld(ibr).X - m_pworld(itl).X) * m_mm2PixelProspZ0
+      ' distanza punto_2 (bottom-right) da Origine in Y (ibl=3)
      m_pdst(ibr).Y = -(m_pworld(ibr).Y - m_pworld(itl).Y) * m_mm2PixelProspZ0
+
+      ' distanza punto_0 (top-left) da Origine in X (itr=0), per definizione è l'origine stessa
      m_pdst(itl).X = 0
+      ' distanza punto_0 (top-left) da Origine in Y (itr=0), per definizione è l'origine stessa
      m_pdst(itl).Y = 0

 #If WinXP Then
      m_MatDir = Emgu.CV.CameraCalibration.GetPerspectiveTransform(m_pdst, m_psrc) 'scambio dest e source!
 #Else
+      ' ottengo la matrice di correzione prospettica (di tipo EmguCV.Mat)
      _perspMatDir = CvInvoke.GetPerspectiveTransform(m_pdst, m_psrc)

      ' unico modo che ho trovato per passare a mia matrice
@@ -804,6 +866,9 @@ Public Class clsImageMng

   End Sub

+   ''' <summary>
+   ''' Ottiene la matrice 'm_MatInv' per la correzione prospettica nel piano Z=0
+   ''' </summary>
   Private Sub CalcolaDatiCorrezioneInversa()

      Dim i As Integer
@@ -830,7 +895,7 @@ Public Class clsImageMng

   End Sub

-
+#End Region    ' Calcolo matrici di correzione prospettica

   Private Sub SaveDataImage(NomeFile As String)

@@ -1 +1 @@
-d1d8ad2ae7b4d3b6857b1fa6bc250bb3223af3c49c42acfed621666653c420c3
+9f744796f1cfeeba57e8b3c4e6b184cb269891126c77eaffb2d2b712d765e841
@@ -48,3 +48,28 @@ C:\EgtDev\CameraMng\CameraMng\obj\x64\Debug\CameraMng.vbproj.Up2Date
 C:\EgtDev\CameraMng\CameraMng\obj\x64\Debug\CameraMng.exe
 C:\EgtDev\CameraMng\CameraMng\obj\x64\Debug\CameraMng.xml
 C:\EgtDev\CameraMng\CameraMng\obj\x64\Debug\CameraMng.pdb
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.vbproj.AssemblyReference.cache
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CfgForm.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\FrmImgShow.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\FrmScelta.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\FrmCfgGeo.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\FrmMain.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\FrmStart.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\DrawingBoard.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\ImageControl.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\Resources.resources
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.vbproj.GenerateResource.cache
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.vbproj.CoreCompileInputs.cache
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.exe
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.xml
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.pdb
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\CameraMng.exe.config
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\CameraMng.exe
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\CameraMng.pdb
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\CameraMng.xml
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\Emgu.CV.UI.dll
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\Emgu.CV.World.dll
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\IPadLibrary.dll
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\IPadLibrary.pdb
+C:\EgtDev\cameramanager\CameraMng\bin\x64\Debug\IPadLibrary.dll.config
+C:\EgtDev\cameramanager\CameraMng\obj\x64\Debug\CameraMng.vbproj.Up2Date
@@ -107,6 +107,36 @@ CameraMng
  Looks up a localized resource of type System.Drawing.Bitmap.
 </summary>
 </member>
+<member name="M:clsImageMng.LeggiFileCalibrazioneLenteOCV(System.String)">
+ <summary>
+ Legge il file che contiene i parametri di correzione della lente
+ </summary>
+ <param name="NomeFile">Percorso file da leggere</param>
+ <returns>Ritorna True se la lettura è andata a buon fine</returns>
+</member>
+<member name="M:clsImageMng.LeggiFileCorrezProsp(System.String)">
+ <summary>
+ Lettura del file per la risoluzione della distorsione prospettica
+ </summary>
+ <param name="NomeFile">Percorso del file da leggere</param> 
+ <returns>Ritorna True se la lettura è andata a buon fine</returns>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneDiretta">
+ <summary>
+ Ottine la matrice 'm_MatDir' di correzione prospettica
+ Viene richiamato il metodo 'CalcolaDatiCorrezioneDiretta'
+ </summary>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneDirettaNoRett">
+ <summary>
+ Ottiene la matrice 'm_MatDir' per la correzione prospettica nel piano Z=0
+ </summary>
+</member>
+<member name="M:clsImageMng.CalcolaDatiCorrezioneInversa">
+ <summary>
+ Ottiene la matrice 'm_MatInv' per la correzione prospettica nel piano Z=0
+ </summary>
+</member>
 <member name="M:clsVisione.AddExpRectangle(System.Int32,System.Int32,System.Int32,System.Int32)">
 <summary>
  Aggiunge una zona rettangolare pe l'analisi ispezione