let width = 200
let height = srcImg.Img.Height * width / srcImg.Img.Width
imgCtrl.imagePreview.Source <- BitmapSourceConvert.ToBitmapSource (srcImg.Img.Resize (width, height, Emgu.CV.CvEnum.Inter.Cubic))
let width = 200
let height = srcImg.Img.Height * width / srcImg.Img.Width
imgCtrl.imagePreview.Source <- BitmapSourceConvert.ToBitmapSource (srcImg.Img.Resize (width, height, Emgu.CV.CvEnum.Inter.Cubic))