¿Como usar la camara con Scilab?

 

 

// Scilab Computer Vision Module
// Copyright (C) 2017 - Scilab Enterprises

scicv_Init();
f=figure('figure_position',[400,50],'figure_size',[640,480],'auto_resize','on','background',[33],'figure_name','Graphic window number %d','dockable','off','infobar_visible','off','toolbar_visible','off','menubar_visible','off','default_axes','on','visible','off');
//////////
handles.dummy = 0;
handles.abrir=uicontrol(f,'unit','normalized','BackgroundColor',[-1,-1,-1],'Enable','on','FontAngle','normal','FontName','Tahoma','FontSize',[12],'FontUnits','points','FontWeight','normal','ForegroundColor',[-1,-1,-1],'HorizontalAlignment','center','ListboxTop',[],'Max',[1],'Min',[0],'Position',[0.2932692,0.2857143,0.1282051,0.1292517],'Relief','default','SliderStep',[0.01,0.1],'String','UnName1','Style','pushbutton','Value',[0],'VerticalAlignment','middle','Visible','on','Tag','abrir','Callback','abrir_callback(handles)')

f.visible = "on";

//////////
// Callbacks are defined as below. Please do not delete the comments as it will be used in coming version
//////////

function abrir_callback(handles)
//Write your callback for  abrir  here
videoCapture = new_VideoCapture(0);
if ~VideoCapture_isOpened(videoCapture)
    messagebox("Cannot open capture device #0. Please plug a camera.", ..
        "sciCV - Video capture demo");
    return
end

f = scf();
toolbar(f.figure_id, "off");
demo_viewCode("video_capture.dem.sce");

clsf = new_CascadeClassifier();
CascadeClassifier_load(clsf, "data/haarcascades/haarcascade_frontalface_alt.xml");

h_checkbox = uicontrol(f, "style", "checkbox", "string", "fotopal", ..
    "backgroundColor", [1,1,1], "position", [10,20,150,20]);

while is_handle_valid(f)
    [ret, frame] = VideoCapture_read(videoCapture);
    if ret then
        if h_checkbox.value == 1 then
            faces = CascadeClassifier_detectMultiScale(clsf, frame, 1.3, 2, CV_HAAR_SCALE_IMAGE, [10 10]);
            for i=1:size(faces)
                face = faces(i);
                leftTopPt = [face(1), face(2)];
                rightBottomPt = [face(1)+face(4), face(2)+face(3)];
                rectangle(frame, leftTopPt, rightBottomPt, [0, 255, 0], 2, 8, 0);
            end
        end
        if is_handle_valid(f) then
            matplot(frame);
            // This GUI file is generated by guibuilder version 4.2.1
//////////

        end
        delete_Mat(frame);
    else
        break
    end

end

VideoCapture_release(videoCapture);

//graphicwindows("video_capture.dem.sce");
endfunction
// video capture from the camera

Opcion dos

// Scilab Computer Vision Module
// Copyright (C) 2017 - Scilab Enterprises

scicv_Init();

// video capture from the camera
videoCapture = new_VideoCapture(0);
if ~VideoCapture_isOpened(videoCapture)
    messagebox("Cannot open capture device #0. Please plug a camera.", ..
        "sciCV - Video capture demo");
    return
end

f = scf();
toolbar(f.figure_id, "off");
demo_viewCode("video_capture.dem.sce");

clsf = new_CascadeClassifier();
CascadeClassifier_load(clsf, "data/haarcascades/haarcascade_frontalface_alt.xml");

h_checkbox = uicontrol(f, "style", "checkbox", "string", "export to", ..
    "backgroundColor", [1,1,1], "position", [10,20,150,20]);

while is_handle_valid(f)
    [ret, frame] = VideoCapture_read(videoCapture);
    if ret then
        if h_checkbox.value == 1 then
            faces = CascadeClassifier_detectMultiScale(clsf, frame, 1.3, 2, CV_HAAR_SCALE_IMAGE, [10 10]);
            for i=1:size(faces)
                face = faces(i);
                leftTopPt = [face(1), face(2)];
                rightBottomPt = [face(1)+face(4), face(2)+face(3)];
                rectangle(frame, leftTopPt, rightBottomPt, [0, 255, 0], 2, 8, 0);
            end
        end
        if is_handle_valid(f) then
            matplot(frame);
        end
        delete_Mat(frame);
    else
        break
    end

end

VideoCapture_release(videoCapture);

Opcion tres
////////////////////////////////////////////////////////////
// IPCV - Scilab Image Processing and Computer Vision toolbox
// Copyright (C) 2017  Tan Chin Luh
////////////////////////////////////////////////////////////
function demo_webcam()

    re = messagebox("Make sure you have a supported webcam connected", "WebCam Demo", "info", ["Continue" "Stop"], "modal") 

    if re ==1 then
        avicloseall();
        n = camopen(0);
        while(1)
            im = camread(n); //get a frame
            br = imdisplay(im,'Press anykey to exit');
            if br == -1
                
                break
            end            

        end
        //xs2png(im,'foo.png');
        avicloseall();
        imdestroyall

        messagebox("Thanks!", "End of demo", "info", "Done", "modal") ;        

    else
        messagebox("Exit Demo Now", "User Interruption", "warning", "Done", "modal") ;
    end

endfunction
// ====================================================================
demo_webcam();
//clear demo_webcam;
// ====================================================================