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