1 USING: alien.c-types classes.struct cocoa cocoa.application
2 cocoa.classes cocoa.enumeration cocoa.plists core-foundation
3 core-foundation.strings kernel ;
17 { mSubframeDivisor SInt16 }
26 CFSTRING: QTKitErrorDomain "QTKitErrorDomain"
27 CFSTRING: QTErrorCaptureInputKey "QTErrorCaptureInputKey"
28 CFSTRING: QTErrorCaptureOutputKey "QTErrorCaptureOutputKey"
29 CFSTRING: QTErrorDeviceKey "QTErrorDeviceKey"
30 CFSTRING: QTErrorExcludingDeviceKey "QTErrorExcludingDeviceKey"
31 CFSTRING: QTErrorTimeKey "QTErrorTimeKey"
32 CFSTRING: QTErrorFileSizeKey "QTErrorFileSizeKey"
33 CFSTRING: QTErrorRecordingSuccesfullyFinishedKey "QTErrorRecordingSuccesfullyFinishedKey"
35 CONSTANT: QTErrorUnknown -1
36 CONSTANT: QTErrorIncompatibleInput 1002
37 CONSTANT: QTErrorIncompatibleOutput 1003
38 CONSTANT: QTErrorInvalidInputsOrOutputs 1100
39 CONSTANT: QTErrorDeviceAlreadyUsedbyAnotherSession 1101
40 CONSTANT: QTErrorNoDataCaptured 1200
41 CONSTANT: QTErrorSessionConfigurationChanged 1201
42 CONSTANT: QTErrorDiskFull 1202
43 CONSTANT: QTErrorDeviceWasDisconnected 1203
44 CONSTANT: QTErrorMediaChanged 1204
45 CONSTANT: QTErrorMaximumDurationReached 1205
46 CONSTANT: QTErrorMaximumFileSizeReached 1206
47 CONSTANT: QTErrorMediaDiscontinuity 1207
48 CONSTANT: QTErrorMaximumNumberOfSamplesForFileFormatReached 1208
49 CONSTANT: QTErrorDeviceNotConnected 1300
50 CONSTANT: QTErrorDeviceInUseByAnotherApplication 1301
51 CONSTANT: QTErrorDeviceExcludedByAnotherDevice 1302
53 FRAMEWORK: /System/Library/Frameworks/QTKit.framework
55 IMPORT: QTCaptureAudioPreviewOutput
56 IMPORT: QTCaptureConnection
57 IMPORT: QTCaptureDecompressedAudioOutput
58 IMPORT: QTCaptureDecompressedVideoOutput
59 IMPORT: QTCaptureDevice
60 IMPORT: QTCaptureDeviceInput
61 IMPORT: QTCaptureFileOutput
62 IMPORT: QTCaptureInput
63 IMPORT: QTCaptureLayer
64 IMPORT: QTCaptureMovieFileOutput
65 IMPORT: QTCaptureOutput
66 IMPORT: QTCaptureSession
67 IMPORT: QTCaptureVideoPreviewOutput
69 IMPORT: QTCompressionOptions
70 IMPORT: QTDataReference
71 IMPORT: QTFormatDescription
76 IMPORT: QTSampleBuffer
79 : <movie> ( filename -- movie )
80 QTMovie swap <NSString> f -> movieWithFile:error: -> retain ;
82 ! XXX: this was breaking, commenting out for now
83 ! : movie-attributes ( movie -- attributes )
84 ! -> movieAttributes plist> ;
91 : movie-tracks ( movie -- tracks )
92 -> tracks NSFastEnumeration>vector ;
94 : track-attributes ( track -- attributes )
95 -> trackAttributes plist> ;