Red/System [
	Title:		"OpenCV Tests"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:        "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]

#include %../opencv.reds

; function pointer that can be called by TrackBar callback 
trackEvent: func [[cdecl] pos [integer!]][cvGetTrackbarPos "Track" windowsName print ["Trackbar position is : " pos lf]]  


; this is pointer  to the function  called by mouse callback
mouseEvent: func [
	[cdecl]
            event 	[integer!]
            x	        [integer!]
            y	        [integer!]
            flags	[integer!]
            param	[pointer! [byte!]]
	] [
	print ["Mouse Position xy : " x " " y lf]
]

cvStartWindowThread  ; own's window thread 

*p: declare pointer! [integer!]  ; for trackbar position 
windowsName: "Lena: What a Wonderful World!"
print ["Loading a tiff image" lf]
lena: "/Users/fjouen/Desktop/newOpenCV/red/examples/lena.tiff"
lenaWin: cvNamedWindow windowsName CV_WINDOW_AUTOSIZE ; create window 

; for trackbar events 
cvCreateTrackbar "Track" windowsName *p 100 :trackEvent ; function as parameter
cvSetTrackBarPos "Track" windowsName 0
; for mouse events
cvSetMouseCallBack windowsName :mouseEvent none

;load image 
img: cvLoadImage lena CV_LOAD_IMAGE_COLOR
&img: as byte-ptr! img ; pointer address
print [windowsName " is " img/width  "x" img/height lf]


cvShowImage windowsName &img ; show image
cvWaitKey 500 ;wait 500 ms
cvResizeWindow windowsName 256 256 ; resize window
print [windowsName " is now 256x256 "lf]
cvWaitKey 500
print [windowsName " is now 512x512"lf]
cvResizeWindow windowsName 512 512
cvWaitKey 500
print [windowsName " is moved to 300x50 "lf]
cvMoveWindow windowsName 300 50  ;move window
cvWaitKey 0
print ["Saving the image in jpg" lf]
cvSaveImage "/Users/fjouen/Desktop/newOpenCV/red/examples/lena.jpg" &img ; save tiff as jpg
print ["done! Bye "]

cvReleaseImage &img ; relase image pointer  (may be  a pb with MacOSX due to the 32 bit framework)
cvDestroyWindow windowsName 

Red/System [
	Title:		"OpenCV Tests"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012 François Jouen. All rights reserved."
	License:        "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]


#include %../opencv.reds


movie: "/Users/fjouen/Desktop/newOpenCV/red/examples/test.mov" ; use your own movie
cvStartWindowThread

capture: cvCreateFileCapture movie
&capture: as byte-ptr! capture ; get the pointer address 
assert &capture <> 0 ; Red assert 
; some infomation about our movie
print ["Width:  " cvGetCaptureProperty capture CV_CAP_PROP_FRAME_WIDTH lf]
print ["Height:  " cvGetCaptureProperty capture CV_CAP_PROP_FRAME_HEIGHT lf]
print ["N of Frames:  " cvGetCaptureProperty capture CV_CAP_PROP_FRAME_COUNT lf]
print ["FPS:  " cvGetCaptureProperty capture CV_CAP_PROP_FPS lf]
;print ["FOURCC:  " cvGetCaptureProperty capture CV_CAP_PROP_FOURCC lf] ; we have a pb with FOURCC with OSX


cvNamedWindow movie CV_WINDOW_AUTOSIZE ; create window to show the movie

image: cvQueryFrame capture ; for movie frames
&image: as byte-ptr! image

;cvWaitKey 0

foo: 0


while [foo <> 113] [
  	image: cvQueryFrame capture ; get frame
 	cvShowImage movie &image ; show frame
	foo: cvWaitKey 42 ; wait for 42 ms  (1/FPS * 1000)
]

print ["Done. Any key to quit" lf]
cvWaitKey 0
;release windows and pointers
cvDestroyAllWindows
cvReleaseCapture &capture 
cvReleaseImage &image 

Red/System [
	Title:		"OpenCV Camera Test"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:        "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]

#include %../opencv.reds
; use  default camera 
cvStartWindowThread ; separate window thread

capture: cvCreateCameraCapture CV_CAP_ANY ; create a cature using default webcam (iSight) ; change to n for other cam
&capture: as byte-ptr! capture ; get the pointer address
if &capture = null [print "error!" lf]

;set our movie properties
fps: 24.00
camW: 1280
camH: 1024
rec: false ; no automatic movie recording 

; creates a writer to record video
movie: "/Users/fjouen/Desktop/newOpenCV/red/examples/camera.mov"
writer: cvCreateVideoWriter movie CV_FOURCC(#"D" #"I" #"V" #"X") fps camW camH 1 ; 1: CV_DEFAULT (1)
&writer: as byte-ptr! writer ; get the pointer address
if &writer = null [print "error"]


cvNamedWindow "Test Window" CV_WINDOW_AUTOSIZE ; create window to show movie
handle: cvGetWindowHandle "Test Window" ; not used  when using mac OSX without X 
image: cvRetrieveFrame capture ; get the first image 
&image: as byte-ptr! image ; pointer address
assert &image <> 0 ; test image status

key:  #"q"; 113 as integer!
foo: 0

; repeat until q keypress
while [foo <> 113] [
        image: cvRetrieveFrame capture      ; get the frame
       	cvShowImage "Test Window" &image    ; show frame
        if rec [cvWriteFrame writer image]  ; write frame on disk if we want to record movie (set rec to true for testing)
        foo: cvWaitKey 1
]


print ["Done. Any key to quit" lf]
cvWaitKey 0

; releases structures and windows
cvDestroyAllWindows
cvReleaseCapture &capture ; a pb with MacOSX due to the 32 bit framework
cvReleaseVideoWriter &writer
cvReleaseImage &image 

Red/System [
	Title:		"OpenCV Tests: Filtering"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:    "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]
 

    #include %../opencv.reds
    filename: "/Users/fjouen/Desktop/newOpenCV/red/examples/images/baboon.jpg"
    srcWnd: "Using cvTrackbar: ESC to close"
    dstWnd: "Filtering"
    tBar: "Filtre"
    ; for the trackbar  we need a pointer to get back value
    pos: 0
    &pos: declare pointer! [integer!]
    &pos: :pos
    
    ; apply a gaussian blur according to the position of the trackbar (gaussain kernel= param1 * 3.0)
    trackEvent: func [[cdecl] pos [integer!] /local v param1] [ 
        v: (pos // 2) ; param1 must be odd !!!
        if v = 1  [param1: pos cvSmooth &src &dst CV_GAUSSIAN param1 3 0.0 0.0 ]
	cvShowImage dstWnd &dst
    ]
    
    ; load an image and make a copy 
    src: cvLoadImage filename CV_LOAD_IMAGE_COLOR; CV_LOAD_IMAGE_UNCHANGED 
    dst: cvCloneImage src
    &src: as byte-ptr! src ; pointer address
    &dst: as byte-ptr! dst ; pointer address
    &&src: declare double-byte-ptr! ;double pointeur for release
    &&src/ptr: &src
    &&dst: declare double-byte-ptr!; double pointeur for release
    &&dst/ptr: &dst

    ;create windows for output images
    cvNamedWindow srcWnd CV_WINDOW_AUTOSIZE
    cvNamedWindow dstWnd CV_WINDOW_AUTOSIZE
    cvMoveWindow dstWnd 630 150
    
    ; trackbars for the source window 
    cvCreateTrackbar tBar srcWnd &pos 100 :trackEvent &pos
    
    ; repeat show images 
    cvShowImage srcWnd &src
    cvShowImage dstWnd &dst
    cvWaitKey 0 ; until a key is pressed
    
    ; release window and images
    
    cvDestroyAllWindows
    cvReleaseImage &&src
    cvReleaseImage &&dst
    

Red/System [
	Title:		"OpenCV Tests: Laplacian"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:    "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]
 

    #include %../opencv.reds
    filename: "/Users/fjouen/Desktop/newOpenCV/red/examples/images/fruits.jpg"
    srcWnd: "Source"
    dstWnd: "Laplacian"
   
    
    ; load an image and make a copy 
    src: cvLoadImage filename CV_LOAD_IMAGE_UNCHANGED
    &src: as byte-ptr! src ; pointer address
   
    &&src: declare double-byte-ptr! ;double pointeur for release
    &&src/ptr: &src
    size: declare CvSize!
    size: CvGetSize &src
    print [size lf]
    dst: cvCreateImage src/width src/height IPL_DEPTH_32F 3
    &dst: as byte-ptr! dst ; pointer address
    &&dst: declare double-byte-ptr!; double pointeur for release
    &&dst/ptr: &dst
    
    ;create windows for output images
    cvNamedWindow srcWnd CV_WINDOW_AUTOSIZE
    cvNamedWindow dstWnd CV_WINDOW_AUTOSIZE
    cvMoveWindow dstWnd 630 100
    
    ; repeat show images
    
    cvLaplace &src &dst 3  ; 1 to 7 and odd !
    cvShowImage srcWnd &src
    cvShowImage dstWnd &dst
   
    cvWaitKey 0 ; until a key is pressed
    
    ; release window and images
    
    cvDestroyAllWindows
    cvReleaseImage &&src
    cvReleaseImage &&dst
 

Red/System [
	Title:		"OpenCV Tests: Laplacian"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:    "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]
 

#include %../opencv.reds
filename: "/Users/fjouen/Desktop/newOpenCV/red/examples/images/fruits.jpg"

wndname: "Edge"
tbarname: "Threshold"
edge_thresh: 1
&edge_thresh: declare pointer![integer!]
&edge_thresh/value: edge_thresh

;define a trackbar callback

on_trackbar: func [[cdecl] h [integer!] ] [
    cvSmooth &gray &edge CV_BLUR 3 3 0.0 0.0
    cvNot &gray &edge
    ; specific to Red/S get back pointer value 
    edge_thresh: &edge_thresh/value
    
    ;Run the edge detector on grayscale
    cvZero &cedge
    
    if h > 0 [ cvCanny &gray  &edge int-to-float edge_thresh int-to-float edge_thresh * 3 3]
    
    ;copy edge points and show results
    cvCopy &image &cedge &edge
    cvShowImage wndname &cedge
    
    
]


image: cvLoadImage filename 1 
&image: as byte-ptr! image
&&image: declare double-byte-ptr!
&&image/ptr: &image


;Create the output image
cedge: cvCreateImage image/width image/height IPL_DEPTH_8U 3
&cedge: as byte-ptr! cedge
&&cedge: declare double-byte-ptr!
&&cedge/ptr: &cedge

;Convert to grayscale

gray: cvCreateImage image/width image/height IPL_DEPTH_8U 1
&gray: as byte-ptr! gray
&&gray: declare double-byte-ptr!
&&gray/ptr: &gray

edge: cvCreateImage image/width image/height IPL_DEPTH_8U 1
&edge: as byte-ptr! edge
&&edge: declare double-byte-ptr!
&&edge/ptr: &edge

cvCvtColor &image &gray CV_BGR2GRAY
;Create a window
cvNamedWindow wndname 1

;  create trackbar
cvCreateTrackbar tbarname wndname &edge_thresh 100 :on_trackbar

;Show the image

on_trackbar 0

;Wait for a key stroke; the same function arranges events processing
cvWaitKey 0

cvReleaseImage &&image
cvReleaseImage &&gray
cvReleaseImage &&edge
cvDestroyWindow wndname

size: declare CvSize! ; une structure
size/width: 1000
size/height: 700

image: cvCreateImage size IPL_DEPTH_32F 3

cvGetSize: "cvGetSize" [
        "Returns width and height of array in elements"
            arr		[CvArr!]
            return:         [CvSize!]
]
 

#define CV_TREE_NODE_FIELDS(node_type)                          \
    int       flags;         /* micsellaneous flags */          \
    int       header_size;   /* size of sequence header */      \
    struct    node_type* h_prev; /* previous sequence */        \
    struct    node_type* h_next; /* next sequence */            \
    struct    node_type* v_prev; /* 2nd previous sequence */    \
    struct    node_type* v_next  /* 2nd next sequence */

/*
   Read/Write sequence.
   Elements can be dynamically inserted to or deleted from the sequence.
*/
#define CV_SEQUENCE_FIELDS()                                            \
    CV_TREE_NODE_FIELDS(CvSeq);                                         \
    int       total;          /* total number of elements */            \
    int       elem_size;      /* size of sequence element in bytes */   \
    char*     block_max;      /* maximal bound of the last block */     \
    char*     ptr;            /* current write pointer */               \
    int       delta_elems;    /* how many elements allocated when the seq grows */  \
    CvMemStorage* storage;    /* where the seq is stored */             \
    CvSeqBlock* free_blocks;  /* free blocks list */                    \
    CvSeqBlock* first; /* pointer to the first sequence block */

typedef struct CvSeq
{
    CV_SEQUENCE_FIELDS()
}
CvSeq;

typedef struct CvSeq
{
int       flags;
int       header_size;
struct    CvSeq* h_prev;
struct    CvSeq* h_next;
struct    CvSeq* v_prev;
struct    CvSeq* v_next;
 int       total;
int       elem_size;
 char*     block_max;
char*     ptr;
int       delta_elems;
CvMemStorage* storage;
CvSeqBlock* free_blocks;
CvSeqBlock* first;

}CvSeq;

 ; for testing  
#define libopencv "/Library/Frameworks/OpenCV1-0.framework/Versions/A/OpenCV" 

Red/System [
	Title:		"OpenCV Tests"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:     "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]

#include %../opencv.reds

; function pointer that can be called by TrackBar callback 
trackEvent: func [[cdecl] pos [integer!]][cvGetTrackbarPos "Track" windowsName print ["Trackbar position is : " pos lf]]  


; this is pointer  to the function  called by mouse callback
mouseEvent: func [
	[cdecl]
            event 	[integer!]
            x	        [integer!]
            y	        [integer!]
            flags	[integer!]
            param	[pointer! [byte!]]
	] [
	print ["Mouse Position xy : " x " " y lf]
]

cvStartWindowThread  ; own's window thread 

*p: declare pointer! [integer!]  ; for trackbar position 
windowsName: "Lena: What a Wonderful World!"
print ["Loading a tiff image" lf]
lena: "/Users/fjouen/Desktop/newOpenCV/red/examples/images/lena.tiff"
lenaWin: cvNamedWindow windowsName CV_WINDOW_AUTOSIZE ; create window 

; for trackbar events 
cvCreateTrackbar "Track" windowsName *p 100 :trackEvent ; function as parameter
cvSetTrackBarPos "Track" windowsName 0
; for mouse events
cvSetMouseCallBack windowsName :mouseEvent none

;load image 
img: cvLoadImage lena CV_LOAD_IMAGE_COLOR
&img: as byte-ptr! img ; pointer address
&&img: declare double-byte-ptr!
&&img/ptr: &img
print [img " " &img lf]
print [windowsName " is " img/width  "x" img/height lf]


cvShowImage windowsName &img ; show image
cvWaitKey 500 ;wait 500 ms
cvResizeWindow windowsName 256 256 ; resize window
print [windowsName " is now 256x256 " lf]
cvWaitKey 500
print [windowsName " is now 512x512" lf]
cvResizeWindow windowsName 512 512
cvWaitKey 500
print [windowsName " is moved to 300x50 "lf]
cvMoveWindow windowsName 300 50  ;move window
cvWaitKey 0
print ["Saving the image in jpg" lf]
cvSaveImage "/Users/fjouen/Desktop/newOpenCV/red/examples/images/lena.jpg" &img ; save tiff as jpg
print ["done! Bye "]


cvDestroyWindow windowsName
cvReleaseImage &&img ; release image pointer

#! /usr/bin/rebol
REBOL [
	Title:		"OpenCV Tests"
	Author:		"François Jouen"
	Rights:		"Copyright (c) 2012-2013 François Jouen. All rights reserved."
	License:     "BSD-3 - https://github.com/dockimbel/Red/blob/master/BSD-3-License.txt"
]
do %../opencv.r

; function pointer that can be called by TrackBar callback 
trackEvent: func [ pos [integer!] ][cvGetTrackbarPos "Track" windowsName print ["Trackbar position is : " pos]] 

; this is pointer  to the function  called by mouse callback
mouseEvent: func [
            event 	[integer!]
            x	    [integer!]
            y	    [integer!]
            flags	[integer!]
            param	[(int-ptr!)]
	] [
	print ["Mouse Position xy : " x " " y]
]
 
cvStartWindowThread  ; own's window thread 
*p: int-ptr! none  ; for trackbar position 
windowsName: "Lena: What a Wonderful World!"
print ["Loading a tiff image" lf]
lena: "/Users/fjouen/Desktop/newOpenCV/red/examples/images/lena.tiff"
lenaWin: cvNamedWindow windowsName CV_WINDOW_AUTOSIZE ; create window 
; for trackbar events 
cvCreateTrackbar "Track" windowsName *p 100 :trackEvent ; function as parameter
cvSetTrackBarPos "Track" windowsName 0

; for mouse events
cvSetMouseCallBack windowsName :mouseEvent none

;load image 
&img: cvLoadImage lena CV_LOAD_IMAGE_COLOR
&&img: int-ptr! none ; make a pointer to &img structure; a double pointer
&&img/int: struct-address? &img
print [windowsName " is " &img/width  "x" &img/height]

cvShowImage windowsName &img ; show image

cvWaitKey 500 ;wait 500 ms
cvResizeWindow windowsName 256 256 ; resize window
print [windowsName " is now 256x256 "]
cvWaitKey 500
print [windowsName " is now 512x512"]
cvResizeWindow windowsName 512 512
cvWaitKey 500
print [windowsName " is moved to 300x50 "]
cvMoveWindow windowsName 300 50  ;move window

cvWaitKey 0
print ["Saving the image in jpg"]
cvSaveImage "/Users/fjouen/Desktop/newOpenCV/red/examples/images/lena.jpg" &img ; save tiff as jpg
print ["done! Bye "]

cvDestroyWindow windowsName
cvReleaseImage &&img ; release image pointer

  # pierre@autan: ~$        < 2013_05_02__16_01_51 >
dog -l 14 ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/cxcore.reds
        Linux           [#define cxcore "/usr/lib/libcxcore.so.2.1"]

  # pierre@autan: ~$        < 2013_05_02__16_01_51 >
dog -l 14 ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/cv.reds
        Linux           [#define cvision "/usr/lib/libcv.so"]

  # pierre@autan: ~$        < 2013_05_02__16_01_51 >
dog -l 15 ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/highgui.reds
        Linux           [#define highgui "/usr/lib/libhighgui.so.2.1"]

  # pierre@autan: ~$        < 2013_05_02__16_04_22 >
apt-cache search opencv
libcv-dev - development files for libcv
libcv2.1 - computer vision library
libcvaux-dev - development files for libcvaux
libcvaux2.1 - computer vision extension library
libhighgui-dev - development files for libhighgui
libhighgui2.1 - computer vision GUI library
opencv-doc - OpenCV documentation and examples
python-opencv - Python bindings for the computer vision library

  # pierre@autan: ~$        < 2013_05_02__16_04_22 >
cd dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples/

  # pierre@autan: ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples$        < 2013_05_02__16_04_22 >
rebol
>> do/args %~/Red/red-system/rsc.r "%camera.reds"

-= Red/System Compiler =- 
Compiling /home/pierre/heaume_pierre/developpt/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples/camera.reds ...

...compilation time:     7897 ms
...linking time:         151 ms
...output file size:     21256 bytes
>> q

  # pierre@autan: ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples$        < 2013_05_02__16_04_22 >

  # pierre@autan: ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples$        < 2013_05_02__16_04_22 >
ls -trlh ~/Red/red-system/builds/ | tail -1
-rwxr--r-- 1 pierre pierre  21K  2 mai   16:16 camera

  # pierre@autan: ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/examples$        < 2013_05_02__16_04_22 >
~/Red/red-system/builds/camera 
/home/pierre/Red/red-system/builds/camera: symbol lookup error: /home/pierre/Red/red-system/builds/camera: undefined symbol: isNaN

vi ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/C-library.reds 
vi ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/cxtypes.reds 
=> je commente isNaN et isinf

vi ~/dev/rebol/red_opencv/fjouen/Code/OpenCV/Red/libs/cxcore.reds

Je commente:
            ;if v = 2 [cvFree ptr]
            ;if v = 2 [cvFree ptr]
aux lignes 2434 et 2439

  # pierre@autan: ~$        < 2013_05_02__17_29_00 >
~/Red/red-system/builds/camera 
088DE190
Output #0, mov, to '/Users/fjouen/Desktop/newOpenCV/red/examples/camera.mov':
    Stream #0.0: Video: mpeg4, yuv420p, 1280x1024, q=2-31, 83886 kb/s, 90k tbn, 24 tbc
OpenCV Error: Bad argument (Couldn't open output file for writing) in open, file /build/buildd-opencv_2.1.0-3+squeeze1-i386-s1FZIh/opencv-2.1.0/src/highgui/cvcap_ffmpeg.cpp, line 1341
terminate called after throwing an instance of 'cv::Exception'
  what():  /build/buildd-opencv_2.1.0-3+squeeze1-i386-s1FZIh/opencv-2.1.0/src/highgui/cvcap_ffmpeg.cpp:1341: error: (-5) Couldn't open output file for writing in function open

Abandon

  # pierre@autan: ~$        < 2013_05_02__17_34_38 >
~/Red/red-system/builds/camera 
00000000
Output #0, mov, to 'camera.mov':
    Stream #0.0: Video: mpeg4, yuv420p, 1280x1024, q=2-31, 83886 kb/s, 90k tbn, 24 tbc

 rec: false