foo: 0
; repeat until q keypress (key:  #"q"; 113 as integer)

while [foo <> 113] [
	image:  cvQueryFrame capture ; get image
        cvShowImage "Test Window"  image   ; show frame
        print ["used : " system/stats / (10 ** 6)] ; used memory
        image: none ; free image
        foo: cvWaitKey 1
]

cam2Rebol: func [src /local data im] [
	rgb: get-memory src/imageData src/imageSize 
	rgb: reverse data
	im: make image! reduce [as-pair (src/width) (src/height) rgb]
]

for i 1 10000 1 [
rgb: 0.0.0
	im: make image! reduce [512x512 rgb]
	visu/image: im
	visu/image/text: join to-string i [": Used Mem: " round/to stats / (10 ** 6) 0.01]
	show visu
]

usedLib: func [version [tuple!]] [
	runningOs: getOs
	if runningOs = "Mac OS X" [
		switch version [
			1.0.0 [ocv: load/library %/Library/Frameworks/OpenCV1-0.framework/Versions/A/OpenCV]
			2.0.0 [ocv: load/library %/Library/Frameworks/OpenCV2-0.framework/Versions/B/OpenCV]
		]
		cvision: ocv highgui: ocv cxcore: ocv
	]
	
	if runningOs = "Windows" [
		switch version [
			1.0.0 [
				cxcore: load/library to-file "c:\windows\system32\cxcore100.dll"
				cvision: load/library to-file "c:\windows\system32\cv100.dll"
				highgui: load/library to-file "c:\windows\system32\highgui100.dll"
			]
			2.0.0 [
				cxcore: load/library to-file "c:\OpenCV2.0\bin\libcxcore200.dll"
				cvision: load/library to-file "c:\OpenCV2.0\bin\libcv200.dll"
				highgui: load/library to-file "c:\OpenCV2.0\bin\libhighgui200.dll"
			]
		]
	]
	
	if runningOs = "linux" [
		switch version [
			2.0.0 [
				cxcore: load/library to-file "/usr/lib/libcxcore.so.2.1"
				cvision: load/library to-file "/usr/lib/libcv.so.2.1"
				highgui: load/library to-file "/usr/lib/libhighgui.so.2.1"
			]
		]
	]
]

; l'appel est enfantin

opencvVersion: 2.0.0
usedLib opencvVersion

findFaces: does [
	; looks for n faces in image  use the fastest variant
	
	if isImage [cvZero isource isource: cvLoadImage file CV_LOAD_IMAGE_UNCHANGED  cvShowImage "Input" isource] 
	faces: cvHaarDetectObjects babyface cascade storage 1.1 2 CV_HAAR_DO_CANNY_PRUNING 20 20
	
	for i 1 faces/total 1
	[
		faceRect: cvGetSeqElem faces i 0 ; we get a pointer to 4 integers
	    x: to-integer reverse get-memory faceRect + 0 4 
		y: to-integer reverse get-memory faceRect + 4 4
		wd: to-integer reverse get-memory faceRect + 8 4
	    hg: to-integer reverse get-memory faceRect + 12 4	
	    roi: cvRect (x * scale) (y * scale) ((x + wd) * scale) ((y + hg) * scale)
	    cvRectangle isource roi/x roi/y roi/width roi/height  0 255 0 0 thickness lineType 0
	]
	cvShowImage "Input" isource	
]

findFaces: does [
	; looks for n faces in image  use the fastest variant
	
	if isImage [cvZero isource isource: cvLoadImage file CV_LOAD_IMAGE_UNCHANGED  cvShowImage "Input" isource] 
	faces: cvHaarDetectObjects babyface cascade storage 1.1 2 CV_HAAR_DO_CANNY_PRUNING 20 20
	
	for i 1 faces/total 1
	[
		faceRect: cvGetSeqElem faces i 0 ; we get a pointer to 4 integers
	    x: to-integer reverse get-memory faceRect + 0 4 
		y: to-integer reverse get-memory faceRect + 4 4
		wd: to-integer reverse get-memory faceRect + 8 4
	    hg: to-integer reverse get-memory faceRect + 12 4	
	    roi: cvRect (x * scale) (y * scale) ((x + wd) * scale) ((y + hg) * scale)
	    cvRectangle isource roi/x roi/y roi/width roi/height  0 255 0 0 thickness lineType 0
	]
	cvShowImage "Input" isource	
]

cvGetSize: make routine! compose/deep/only [
Returns width and height of array in elements
	arr				[struct! (first CvArr!)]
	return:			[integer! integer!]; CvSize not a pointer	
] cxcore "cvGetSize"

IplImage!: make struct! compose/deep/only [
	[save]													; specific to rebol to inhibe GC ;
    nSize 				[integer!]							; sizeof(IplImage)
    ID 					[integer!]							; version (=0)
    nChannels 			[integer!]							; Most of OpenCV functions support 1,2,3 or 4 channels
   	alphaChannel 		[integer!]							; Ignored by OpenCV */
    depth 				[integer!]							; Pixel depth in bits: 
    colorModel 			[integer!]							; Ignored by OpenCV char [4]
    channelSeq 			[integer!]							; ditto *
    dataOrder 			[integer!]							; 0 - interleaved color channels, 1 - separate color channels.
    origin 				[integer!]							; 0 - top-left origin, 1 - bottom-left origin (Windows bitmaps style). 
    align 				[integer!]							; Alignment of image rows (4 or 8).OpenCV ignores it and uses widthStep instead.
    width 				[integer!]							; Image width in pixels
    height 				[integer!]							; Image height in pixels. `
    roi					[int]; [struct! (first IplROI! )]   ; Image ROI. If NULL, the whole image is selected  we absolutely need  a pointer to IplRoi! structure when using routines with a ROI
    maskROI 			[int]; [struct! (first IplImage!)]	; Must be NULL [0]. IplImage! : pointer to maskROI if any
    imageId 			[int] ;[void*]						; "           " 
    tileInfo 			[int] ;[struct! (first IplTileInfo! )]		; [int]; here also"           "
    imageSize 			[integer!]							; Image data size in bytes
    imageData 			[int]; [char*]						; Pointer to aligned image data.     
    widthStep 			[integer!]							; Size of aligned image row in bytes.    
    BorderMode 			[integer!]							; Ignored by OpenCV.                     
    BorderConst 		[integer!]							; Ditto.                                
    imageDataOrigin		[int]	    						; Pointer to very origin of image data 
] none