creation

function creation
global im
global xi
global yi

[Mask,xi,yi]=roipoly;
I=get(im,'CData');
I(:,:,3)=255*Mask;
set(im,'CData',I);