Play Cmera

Micky

While[True,Pause[0.04];a=CurrentImage[ImageSize->Large];cord=FindFaces[a]//Flatten[#,1]&;b=HighlightImage[a,{Disk[{cord[[1,1]],cord[[2,2]]},20],Disk[cord[[2]],20]}];]//Quiet

Dynamic[b]

Pikachu

pikachu=;smallpika=ImageResize[pikachu,4*{37,39}];While[True,Pause[0.04];pikading=CurrentImage[ImageSize->Large];cord=FindFaces[pikading]//Flatten[#,1]&;
z=0.9;facecord={(cord[[1,1]]+cord[[2,1]])/2//N,z*cord[[2,2]]+cord[[1,2]]*(1-z)};pikapika=ImageCompose[pikading,smallpika,facecord];
]//Quiet

Dynamic[pikapika]

GIF Maker

lstmicky=Table[0,{i,1,100}];i=0;While[True,Pause[0.04];a=CurrentImage[ImageSize->Large];cord=FindFaces[a]//Flatten[#,1]&;b=HighlightImage[a,{Disk[{cord[[1,1]],cord[[2,2]]},20],Disk[cord[[2]],20]}];i=i+1;lst[[i]]=b;
If[i>99,Break[]]]//Quiet

Dynamic[b]

Export["micky1.gif",lstmicky,"DisplayDurations"->0.06,"AnimationRepetitions"->Infinity]

SystemOpen[DirectoryName[AbsoluteFileName["micky.gif"]]]

lstpika=Table[0,{i,1,100}];i=0;pikachu=;smallpika=ImageResize[pikachu,4*{37,39}];While[True,Pause[0.04];pikading=CurrentImage[ImageSize->Large];cord=FindFaces[pikading]//Flatten[#,1]&;
z=0.9;facecord={(cord[[1,1]]+cord[[2,1]])/2//N,z*cord[[2,2]]+cord[[1,2]]*(1-z)};pikapika=ImageCompose[pikading,smallpika,facecord];i=i+1;lstpika[[i]]=pikapika;
If[i>99,Break[]];
]//Quiet

Dynamic[pikapika]

Export["pikapika.gif",lstpika,"DisplayDurations"->0.06,"AnimationRepetitions"->Infinity]

SystemOpen[DirectoryName[AbsoluteFileName["pikapika.gif"]]]