YUV_Plot_7

>function F () ...
 global C;
 Kr = 0.299;
 Kg = 0.587;
 Kb = 0.114;
 for v=-127:127;
   for u=-127:127;
 y = 255*Kg;
 cBlue = y + 1.732446*u;
 cRed = y + 1.370705*v;
 cGreen = y - 0.3364547*u - 0.6981957*v;
 if ( cRed < 0 || cRed > 255.5 || cGreen < 0 || cGreen > 255.5 || cBlue < 0 || cBlue > 255.5) then
   cRed = 0.0;
   cGreen = 0.0;
   cBlue = 0.0;
 endif;
 C[v+128,u+128]=rgb(cRed / 255, cGreen / 255, cBlue / 255);
   end;
 end;
 endfunction

>C = ones(255,255);
>F()
>plot2d(none,-127,127,-127,127); ...
 plotrgb(C):

YUV_Plot_7