function Pat=dctcolor(p1,R)

variable=R-128;
sizeme=size(variable);
bishop=zeros(sizeme(1));

for k=0:(sizeme(1)/8)-1
    for l=0:(sizeme(2)/8)-1
        clutch=variable(8*k+1:8*k+8,8*l+1:8*l+8);
        clutcher=dct(p1,clutch);
        bishop(8*k+1:8*k+8,8*l+1:8*l+8)=clutcher;    
    end
end

%Pat=bishop;
Pat=imagesc(uint8(bishop))