void* icvVideoRender(void* data)
{
int cameraid = (int)data;
CvVideoCamera *const camera = &(cameras[cameraid]);
Display* display;
int screen_num;
GC gc;
char* display_name = NULL;
Window window = camera->window;
XWindowAttributes windowattr;
Visual* visual;
int windowdepth;
XImage* image;
XShmSegmentInfo xshmseg;
int width = (camera->renderwidth>0)?camera->renderwidth:camera->videopp.width;
int height = camera->renderheight?camera->renderheight:camera->videopp.height;
int picturedepth = camera->videopp.picture.depth;
int pixelsize;
XGCValues values;
IplImage* iplimage;
time_t start, now;
int frames = 0;
float rate = 0;
Status XShm;
uchar* imgdata = NULL;
uchar* tmpbuff = NULL;
pthread_mutex_lock(&(camera->capturestatemutex));
if(camera->capturestate != CAPTURING)
{
pthread_mutex_unlock(&(camera->capturestatemutex));
pthread_exit( NULL );
}
camera->renderstate=1;
pthread_cond_signal(&(camera->capturestatecond));
pthread_mutex_unlock(&(camera->capturestatemutex));
XInitThreads();
if ( (display=XOpenDisplay(display_name)) == NULL )
{
fprintf( stderr, "cvVideo: cannot connect to X server %s\n",
XDisplayName(display_name));
pthread_exit( NULL );
}
screen_num = DefaultScreen(display);
if (XGetWindowAttributes(display, window,
&windowattr) == 0)
{
fprintf(stderr, "icvVideoRender: failed to get window attributes.\n" );
pthread_exit(NULL);
}
if(windowattr.map_state == IsUnmapped)
{
fprintf(stderr, "icvVideoRender: window is not mapped \n" );
pthread_exit(NULL);
}
windowdepth = windowattr.depth;
visual = windowattr.visual;
pixelsize = icvVideoWindowPixelsize(windowdepth);
XShm = XShmQueryExtension(display);
if(XShm)
{
image = XShmCreateImage(display, visual, windowdepth, ZPixmap, NULL,
&xshmseg, width, height );
assert(image);
xshmseg.shmid = shmget (IPC_PRIVATE,
width*height*pixelsize, IPC_CREAT|0777);
assert(xshmseg.shmid != -1);
xshmseg.shmaddr = image->data=(char*)shmat (xshmseg.shmid, 0, 0) ;
xshmseg.readOnly = False;
XShmAttach (display, &xshmseg);
}
else
{
imgdata = (uchar*)malloc(width*height*icvVideoWindowPixelsize(windowdepth)) ;
image = XCreateImage(display, visual, windowdepth, ZPixmap, 0,
(char*)imgdata, width,
height, 8,
icvVideoWindowPixelsize(windowdepth)
*width);
assert(image);
XInitImage(image);
}
gc = XCreateGC(display,window,0, &values );
#ifdef RENDER_FRAMERATE
start = time(NULL);
#endif
pthread_mutex_lock(&(camera->capturestatemutex));
while((camera->capturestate == CAPTURING) && (camera->rendered))
{
pthread_mutex_unlock(&(camera->capturestatemutex));
pthread_mutex_lock(&(camera->updatedmutex));
while(camera->updated == 0)
pthread_cond_wait(&(camera->updatedcond), &(camera->updatedmutex));
camera->updated = 0;
pthread_mutex_unlock(&(camera->updatedmutex));
if(cvcamGetProperty(cameraid, "raw_image",&iplimage ))
{
assert(image->data);
if(camera->callback != NULL)
camera->callback(iplimage);
if((width==camera->videopp.width)&&
(height==camera->videopp.height))
{
icvvConvert(width, height, width*picturedepth/8, picturedepth,
iplimage->imageData, width*pixelsize, pixelsize*8, image->data
);
cvReleaseImage(&iplimage);
}
else
{
tmpbuff = (uchar*)malloc(camera->videopp.width*camera->videopp.height*
pixelsize) ;
icvvConvert(camera->videopp.width, camera->videopp.height,
camera->videopp.width*picturedepth/8, picturedepth,
iplimage->imageData, camera->videopp.width*pixelsize,
pixelsize*8, (char*)tmpbuff);
cvReleaseImage(&iplimage);
icvvResizeImage(camera->videopp.width,
camera->videopp.height,
(camera->videopp.width)*pixelsize, (char*)tmpbuff,
width, height,width*pixelsize, image->data, pixelsize*8);
free(tmpbuff);
}
//fprintf(stdout, "cvVideoRendering:image converted!!!!\n");
if(XShm)
{
XShmPutImage(display, window, gc,
image,0,0,0,0, width,
height, False);
}
else
{
XPutImage(display, window, gc,
image,0,0,0,0, width,
height);
}
XSync(display, False);
#ifdef RENDER_FRAMERATE
now = time(NULL);
frames++;
if (now-start)
rate = frames/(float)(now-start);
if((frames%30) == 0)
fprintf(stdout, "camera %d fps = %f\n", cameraid, rate);
#endif
}//if(cvcamGetProperty(CAMERA, "raw_image",&image ))
// stop here if we're paused
pthread_mutex_lock(&(camera->pausemutex));
pthread_mutex_unlock(&(camera->pausemutex));
pthread_mutex_lock(&(camera->capturestatemutex));
}//while (camera->state == CAPTURING && camera->rendered)
pthread_mutex_unlock(&(camera->capturestatemutex));
pthread_mutex_lock(&(camera->capturestatemutex));
#if 0
if(camera->state != CAPTURING) {
// we ended because the camera is not capturing anymore
while (camera->capturestate != FINISHED )
{
pthread_cond_wait(&(camera->capturestatecond),&(camera->capturestatemutex));
}
}
#endif
camera->renderstate=0;
pthread_cond_signal(&(camera->capturestatecond));
pthread_mutex_unlock(&(camera->capturestatemutex));
XShmDetach (display, &xshmseg);
XDestroyImage (image);
XFreeGC(display,gc);
shmdt (xshmseg.shmaddr);
shmctl (xshmseg.shmid, IPC_RMID, 0);
if(imgdata)
free(imgdata);
pthread_exit(NULL);
}
int Set_CameraOpt (ClientData, Tcl_Interp *interp,
int, char **argv)
{
void *p;
cvcamGetProperty(0,CVCAM_CAMERAPROPS, p);
return TCL_OK;
}
int Set_Video (ClientData, Tcl_Interp *interp,
int, char **argv)
{
void *p;
cvcamGetProperty(0,CVCAM_VIDEOFORMAT, p);
return TCL_OK;
}
int Init_Camera (ClientData, Tcl_Interp *interp,
int, char **argv)
{
cvcamWindow mainwin;
int ncameras,ret;
Tk_Window win;
char com[1000]="set dlg [Dialog .dlg -parent . -modal local -separator 1 -title \"Choice of cameras\" \
-side bottom -anchor s -default 0]";
CameraDescription cd;
ncameras = cvcamGetCamerasCount();
if (ncameras==0)
{
Tcl_Eval(interp,"tk_dialog .pattern {Error} { Cameras not found.} {} 0 OK");
return TCL_ERROR;
}
ret = Tcl_Eval(interp,com);
strcpy(com,"$dlg add -name ok -width 5");
ret = Tcl_Eval(interp,com);
strcpy(com, "set top [$dlg getframe]");
ret = Tcl_Eval(interp,com);
strcpy(com, "label $top.lab1 -text \"Several cameras has found in your system. Choose one of them.\" \n\
pack $top.lab1 -side top -anchor nw" );
ret = Tcl_Eval(interp,com);
strcpy(com, "label $top.lab2 -text \"\" \n\
pack $top.lab2 -side top -anchor nw");
ret = Tcl_Eval(interp,com);
strcpy(com, "label $top.lab3 -text \"Cameras:\" \n\
pack $top.lab3 -side top -anchor nw");
ret = Tcl_Eval(interp,com);
strcpy(com, "ComboBox $top.cb -width 50 -height 4 -editable no -modifycmd CVLkDemo::Modify");
ret = Tcl_Eval(interp,com);
strcpy(com, "pack $top.cb -side top");
ret = Tcl_Eval(interp,com);
strcpy(com, "$top.cb configure -values {");
for (int i=0; i<ncameras; i++)
{
cvcamGetProperty(i, CVCAM_DESCRIPTION, (void*)&cd);
strcat(com,"\"");
strcat(com,cd.DeviceDescription);
strcat(com,"\" ");
}
strcat(com,"}");
ret = Tcl_Eval(interp, com);
strcpy(com,"$top.cb setvalue @0 \n CVLkDemo::Modify \n set ret [$dlg draw]");
ret = Tcl_Eval(interp, com);
strcpy(com,"destroy $dlg");
ret = Tcl_Eval(interp, com);
ret = Tcl_Eval(interp, "set tmp $CVLkDemo::cam");
int n = atoi(interp->result);
ret = Tcl_Eval(interp, "set f $CVLkDemo::curframe");
win = Tk_NameToWindow(interp, interp->result,
Tk_MainWindow(interp));
Tk_MapWindow(win);
int w = Tk_Width(win);
int h = Tk_Height(win);
mainwin = SYSTEM_WIN_FROM_TK_WIN(win);
int prop;
cvcamSetProperty(n, CVCAM_PROP_ENABLE, CVCAMTRUE);
cvcamSetProperty(n, CVCAM_PROP_RENDER, CVCAMTRUE);
cvcamSetProperty(n, CVCAM_PROP_WINDOW, &mainwin);
cvcamSetProperty(n, CVCAM_PROP_CALLBACK, (void*)testcallback);
cvcamSetProperty(n, CVCAM_RNDWIDTH, (void*)&w);
cvcamSetProperty(n, CVCAM_RNDHEIGHT, (void*)&h);
view.SetSize(w,h);
cvcamInit();
cvcamGetProperty(n, CVCAM_DESCRIPTION, (void*)&cd);
sprintf(com,"set CVLkDemo::curcam \"%s\"",cd.DeviceDescription);
Tcl_Eval(interp, com);
return TCL_OK;
}
LRESULT CALLBACK CamDlgHandler(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
{
static bool init;
CAMOBJ * st;
int tmp;
st = (CAMOBJ *) actobject;
if ((st==NULL)||(st->type!=OB_CAM)) return(FALSE);
switch( message )
{
case WM_INITDIALOG:
SetDlgItemInt(hDlg,IDC_UPDATERATE,update_rate,0);
SetDlgItemText(hDlg,IDC_CAMSTATUS,"0");
SetDlgItemInt(hDlg,IDC_ERROR_DIST,(int)dist_threshold,0);
SetDlgItemInt(hDlg,IDC_ERROR_ANGLE,(int)angle_threshold,0);
SetDlgItemInt(hDlg,IDC_THRESHOLD_TIME,threshold_time,0);
SetDlgItemInt(hDlg,IDC_PT1X,(int)(PT1_xpos*100.0f),1);
SetDlgItemInt(hDlg,IDC_PT1Y,(int)(PT1_ypos*100.0f),1);
SetDlgItemInt(hDlg,IDC_PT2X,(int)(PT2_xpos*100.0f),1);
SetDlgItemInt(hDlg,IDC_PT2Y,(int)(PT2_ypos*100.0f),1);
CheckDlgButton(hDlg,IDC_AUTORESTORE,autorestore);
CheckDlgButton(hDlg,IDC_SHOWLIVE,st->showlive);
CheckDlgButton(hDlg,IDC_ENABLE_TRACKING,st->enable_tracking);
CheckDlgButton(hDlg,IDC_TRACKFACE,st->trackface);
if (st->mode==0) CheckDlgButton(hDlg,IDC_NOARCHIVE,TRUE); else
if (st->mode==1) CheckDlgButton(hDlg,IDC_RECORDARCHIVE,TRUE); else
if (st->mode==2) CheckDlgButton(hDlg,IDC_PLAYARCHIVE,TRUE);
SetDlgItemText(hDlg,IDC_ARCHIVEFILE,st->videofilename);
break;
case WM_CLOSE:
EndDialog(hDlg, LOWORD(wParam));
return TRUE;
break;
case WM_COMMAND:
switch (LOWORD(wParam))
{
case IDC_INITCAM:
lk_init(st);
break;
case IDC_EXITCAM:
lk_exit();
break;
case IDC_RESET:
count = 0;
break;
case IDC_NOARCHIVE:
lk_exit();
st->mode=0;
lk_init(st);
break;
case IDC_RECORDARCHIVE:
lk_exit();
st->mode=1;
if (!strcmp(st->videofilename,"none"))
{
strcpy(st->videofilename,GLOBAL.resourcepath);
strcat(st->videofilename,"MOVIES\\*.avi");
}
if (!open_file_dlg(hDlg,st->videofilename, FT_AVI, OPEN_SAVE))
strcpy(st->videofilename,"none");
SetDlgItemText(hDlg, IDC_ARCHIVEFILE,st->videofilename);
lk_init(st);
break;
case IDC_PLAYARCHIVE:
lk_exit();
st->mode=2;
if (!strcmp(st->videofilename,"none"))
{
strcpy(st->videofilename,GLOBAL.resourcepath);
strcat(st->videofilename,"MOVIES\\*.avi");
}
if (!open_file_dlg(hDlg,st->videofilename, FT_AVI, OPEN_LOAD))
strcpy(st->videofilename,"none");
SetDlgItemText(hDlg, IDC_ARCHIVEFILE,st->videofilename);
lk_init(st);
break;
case IDC_SHOWLIVE:
st->showlive=IsDlgButtonChecked(hDlg,IDC_SHOWLIVE);
if (!st->showlive) cvDestroyWindow("Camera");
else
{
cvNamedWindow( "Camera", 1 );
cvSetMouseCallback( "Camera", on_mouse, 0 );
}
break;
case IDC_UPDATERATE:
tmp=GetDlgItemInt(hDlg,IDC_UPDATERATE,NULL,0);
if ((tmp>10)&&(tmp<1000)) update_rate=tmp;
break;
case IDC_AUTORESTORE:
autorestore=IsDlgButtonChecked(hDlg,IDC_AUTORESTORE);
break;
case IDC_TRACKFACE:
st->trackface=IsDlgButtonChecked(hDlg,IDC_TRACKFACE);
if (st->trackface) MAX_COUNT=2; else MAX_COUNT=1;
break;
case IDC_ERROR_DIST:
dist_threshold=(float)GetDlgItemInt(hDlg, IDC_ERROR_DIST,0,0);
break;
case IDC_ERROR_ANGLE:
angle_threshold=(float)GetDlgItemInt(hDlg, IDC_ERROR_ANGLE,0,0);
break;
case IDC_THRESHOLD_TIME:
threshold_time=GetDlgItemInt(hDlg, IDC_THRESHOLD_TIME,0,0);
break;
case IDC_PT1X:
PT1_xpos=(float) GetDlgItemInt(hDlg, IDC_PT1X,0,1) / 100.0f;
need_to_init=1;
break;
case IDC_PT1Y:
PT1_ypos=(float)GetDlgItemInt(hDlg, IDC_PT1Y,0,1)/ 100.0f;
need_to_init=1;
break;
case IDC_PT2X:
PT2_xpos=(float)GetDlgItemInt(hDlg, IDC_PT2X,0,1)/ 100.0f;
need_to_init=1;
break;
case IDC_PT2Y:
PT2_ypos=(float)GetDlgItemInt(hDlg, IDC_PT2Y,0,1)/ 100.0f;
need_to_init=1;
break;
// case IDC_NIGHTMODE:
// night_mode ^= 1;
// break;
case IDC_AUTOINIT:
need_to_init=1;
break;
case IDC_ENABLE_TRACKING:
st->enable_tracking=IsDlgButtonChecked(hDlg,IDC_ENABLE_TRACKING);
break;
case IDC_SETTINGS:
{
int ncams = cvcamGetCamerasCount( ); // init cvcam
if (ncams==0) report("no cam");
cvcamSetProperty(0, CVCAM_PROP_ENABLE, CVCAMTRUE); //Selects the 1-st found camera
cvcamInit();
cvcamGetProperty(0, CVCAM_CAMERAPROPS, NULL);
// cvcamGetProperty(0, CVCAM_VIDEOFORMAT, NULL);
cvcamExit();
}
break;
}
return TRUE;
break;
case WM_SIZE:
case WM_MOVE: update_toolbox_position(hDlg);
break;
return(TRUE);
}
return FALSE;
}
