[Openmcl-devel] isight video data stream

Marko Tapio Manninen mmstud at gmail.com
Sat May 17 23:27:17 PDT 2008

Hey, thats the most thorough answer i've ever get from  
discussionboards! Thank you very much. Like someone said, it makes  
sense for most parts for me too. At this point i want to write some  
little nitches i found:

1) from emacs + slime i got stuch on last compile line ";Loading  
#P"ccl:cocoa-ide;fasls;start.dx64fsl.newest"...". It never could end  
this and processor  got whirling. I tried from opening dx86cl64 from  
terminal and everything was ok. Strange enough, when i tried to load  
and compile file again, it worked from slime too. It seems first load  
is not working, but freezes ccl, and second load works...

2) at recording window im not sure, if recording starts at all or it  
just does not open quicktime appliation, when i press stop button. So  
i had to pre-open quicktime player and that way i got recorded and new  
mov loaded to quicktime app. Oh, i saw path to Users/Shared and there  
it was. So its just how to open quicktime app for showing recorded  
file automatic.

3) this is going beyond apples example, but id put stop disabled at  
application start and after pressing start, activate stop button,  
disable start button. And finally vice versa. Is this done thru lisp  
code or interface builder?

4) this also goes beyond apple example and was my initial goal. How  
could i use the stream from isight like reading any data (was it text,  
image, video,...) in lisp? To modify, analyzise... Im kind of after  
data mining in this case.

I dont expect anything as thurough answer to these as much more work  
and effort was done i could never think so far. Im going to work with  
it and share it some time later, lets say as a "reciprocal service."

Not yet middleaged, but balding good way,

BTW. i get processor consume with my macbook from ANY application,  
that uses qt isight capture feature, was it online flash web cam  
capture, photobooth capture,... so i dont think its lisp specific.

Gary Byers kirjoitti 18.5.2008 kello 7.11:

> On Thu, 15 May 2008, Gary Byers wrote:
>> These are often famous last words, but porting Apple's "MyRecorder"
>> sample application from ObjC to CCL looks like it'd be  
>> straightforward.
> Well, it was pretty straightforward (in the "works for me" sense.)
> If anyone who's interested in this could let me know:
> 1) if it works for them on an x86-64 Mac running Leopard with some
>   sort of video input source (it should be possible to get it  
> working on
>   PPC Leopard as well, as soon as we figure out how to distribute PPC
>   interfaces for both Tiger and Leopard)
> 2) whether or not the source code makes sense.  (Most of the comments
>   just discuss issues related to using the ObjC bridge to do this
>   stuff; I don't know anything about QTKit and am just trying to
>   faithfully mimic what Apple's example does.)
> The archive contains a lisp source file ("qtvidcapture.lisp") and
> a .nib ("QTVidCapture.nib") that's basicaly just the nib file from
> Apple's example with the menubar removed.  If you load the lisp
> file into the Cocoa environment and call
> ? (cl-user::open-window-using-selected-nib)
> you should see a standard file open panel that prompts you to select
> a .nib file.  If you select the enclosed "QTVidCapure.nib", you should
> soon see a window which shows someone looking at a window ...
> Apparently, some (internal) parts of QT still aren't directly usable
> from 64-bit applications; using the video capture stuff causes a
> helper process ("QTKitServer") to start up and consume lots of CPU.
> I don't think that any of that's lisp-specific.
> This (or a dressed-up version of it) might make a good example.
> Any help in improving it would be appreciated.
> <ccl-qt-video-capture-example.tar.gz>

More information about the Openmcl-devel mailing list