5
$\begingroup$

Guys!

I need capture video from certain webcam which isn't $DefaultImagingDevice. As I know there is one legal way: ImageCapture["Device"->$ImagingDevices[[x]]] where x is number of needed device. However ImageCapture doesn't allow to make a grid on the image like this:

grid = Graphics[{Gray,
    Table[Line[{{(i - 1)*16, 0}, {(i - 1)*16, 240}}], {i, 1, 21}],
    Table[Line[{{0, (i - 1)*16}, {320, (i - 1)*16}}], {i, 1, 16}]
    }];

Dynamic[Show[
  CurrentImage[],
  grid,
  ImageSize -> 800]]

http://s18.postimg.org/hek0gtp2h/Camera_small.jpg

May be somebody knows how to apply CurrentImage for certain non-default imaging device? Or how to take just image without any interface elements using ImageCapture?

Improve this question
$\endgroup$
8
  • $\begingroup$ Perhaps something in here may help ?ImageAcquisition'CaptureDump'* $\endgroup$
    – Dr. belisarius
    Apr 9, 2014 at 15:07
  • $\begingroup$ Could you extend your proposition please? What is ?ImageAcquisition'CaptureDump'* ???? $\endgroup$
    – Rom38
    Apr 9, 2014 at 15:28
  • $\begingroup$ Evaluate this in your front end Information["ImageAcquisitionCaptureDump*"] $\endgroup$
    – Dr. belisarius
    Apr 9, 2014 at 15:31
  • $\begingroup$ Where I can find more info about this ImageAqcquisition? $\endgroup$
    – Rom38
    Apr 9, 2014 at 15:35
  • 1
    $\begingroup$ Does Block[{$DefaultImagingDevice = $ImagingDevices[[x]]]}, code here] work? Sorry, got no imaging devices to test with. $\endgroup$
    – Simon Woods
    Apr 9, 2014 at 15:57

1 Answer 1

Reset to default
7
$\begingroup$

So basically ImageCapture[] is the hub where you set things which CurrentImage[] adoptes. Run ImageCapture[] and in-interface select the device - it is easier:

enter image description here

Then run your code with CurrentImage[] - it will now pick up the external camera.

enter image description here

Droste video-feedback effect you see in the images proves I'm not using my laptop camera in all this ;-) - not that we need any proof - just an excuse to mention Douglas Hofstadter. Let me know if you get the joke.

Improve this answer
$\endgroup$
1
  • $\begingroup$ That would have worth a GIF ;o) $\endgroup$
    – Öskå
    Apr 9, 2014 at 17:19

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.