/* Auth:                                                        minas */
/* Date:                                 Mon Oct 03 10:47:28 EDT 2016 */
/*--Break--*/
cam=LT_C920("/dev/video0");
/*--Break--*/
v4l2_streamon(cam);
for(Tk_Button_Set();!Tk_Button_Pressed(); gshow(img=v4l2_grab(cam),:tk_img="ltech",:update_now=t));
v4l2_streamoff(cam);
/*--Break--*/
gshow(img);
/*--Break--*/
cam=NIL;GC();
/*--Break--*/
N=60;
/*--Break--*/
imgg = (img->r+img->g+img->b);
/*--Break--*/
imgg /= 3;
/*--Break--*/
gshow(imgg);
/*--Break--*/
imggx = imgg (-) mk_der_tmpl();
/*--Break--*/
imggy = imgg (|) mk_der_tmpl();
/*--Break--*/
gshow(imggx, :rescale=t);
/*--Break--*/
gshow(imggy, :rescale=t);
/*--Break--*/
for (i=0;i<N;i++)
  {
    gshow(imggx*cos(2*PI/N*i)+
	  imggy*sin(2*PI/N*i), :rescale=nil);
  };
/*--Break--*/
 for (i=0; i<N; i++)
{
  gshow(imgg(*) mk_gauss_tmpl(0.15*i),:rescale=t,:update_now=t);
};


/*--Break--*/
