opencvcamera.fs

opencvcamera.fs

//    Copyright (c) 2022
//    Author      : Bruno Capuano
//    Create Time : 2022 Feb
//    Change Log  :
//    - Open a camera feed from a local USB webcam 
//    - Press [Q] to quit the app
//
//    The MIT License (MIT)
//
//    Permission is hereby granted, free of charge, to any person obtaining a copy
//    of this software and associated documentation files (the "Software"), to deal
//    in the Software without restriction, including without limitation the rights
//    to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
//    copies of the Software, and to permit persons to whom the Software is
//    furnished to do so, subject to the following conditions:
//
//    The above copyright notice and this permission notice shall be included in
//    all copies or substantial portions of the Software.
//
//    THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
//    IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
//    FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
//    AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
//    LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
//    OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
//    THE SOFTWARE.

open OpenCvSharp

let capture = new VideoCapture(0)
let window = new Window("El Bruno - F# Camera demo")
let image = new Mat()
let mutable run = true;

while (run = true) do
    capture.Read(image)
    if (image.Empty()) then 
        run <- false
    window.ShowImage(image);
    if (Cv2.WaitKey(1) = 113) then // Q
        run <- false