%\title{Barras de colores SMPTE RP 219-2002}
\documentclass[svgnames]{standalone}
\usepackage{tikz, verbatim}
\input{definido} % Archivo de definición de colores y dimensiones.
\begin{comment}
Esta imagen es una "carta de ajuste", dividida en 4 franjas o patrones, usada en televisión de Alta Definición para comprobar la fidelidad de las señales de color transmitidas. Este patrón, en la actualidad, se encuentra incorporado a los equipos usados para pruebas de televisión en transmisores que se encuentran en mantenimiento. 
La cantidad de barras y tonalidades de color en cada franja se encuentran definidos en la norma estadounidense SMPTE RP 219-2002, que es la variante en Alta Definición de la norma SMPTE EG-1-1990 y que es descrita en parte en el documento "Audio/Video Connectivity Solutions for Virtex-II Pro and Virtex-4 FPGAs (http://www.xilinx.com/support/documentation/application_notes/xapp514.pdf) pp 383-384 y las dimensiones aproximadas de los patrones están en el estándar japonés ARIB STD-B28 (http://www.arib.or.jp/english/html/overview/doc/6-STD-B28v1_0-E1.pdf) página 8.
\end{comment}
\begin{document}
\begin{tikzpicture}
% Primer patrón, de altura \b 
	\fill [Gray!80!Black] (0,\barb) rectangle (\d,\b); % Gris al 40% de negro
	\foreach \x / \y [evaluate=\x as \z using int(\x-1)] in {1/White, 2/Yellow, 3/Cyan, 4/green, 5/Magenta, 6/Red, 7/Blue}{
	\fill [\y!75!Black] (\d+\x*\c, \barb) rectangle (\d+\z*\c,\b);
}
	\fill [Gray!80!Black] (\d+7*\c, \barb) rectangle (\a,\b);
% Segundo patrón, de altura \barb
	\fill [Cyan] (0,\barc) rectangle (\d,\barb);
	\fill [Black Pearl] (\d,\barc) rectangle (\c+\d,\barb); % Señal -I
	\fill [White!75!Black] (\c+\d,\barc) rectangle (\d+0.75*\a, \barb);
	\fill [Blue] (\d+0.75*\a, \barc) rectangle (\a, \barb);
% Tercer patrón, de altura \barc
	\fill [Yellow] (0,\bard) rectangle (\d,\barc);
	\fill [Blackcurrant] (\d,\bard) rectangle (\c+\d,\barc); % Señal +Q
	\fill [left color=Black, right color= White] (\c+\d,\bard) rectangle (\d+0.75*\a,\barc); 
	\fill [Red] (\d+0.75*\a,\bard) rectangle (\a,\barc);
% Cuarto patrón, de altura \bard 
	\fill [Gray!30!Black] (0,0) rectangle (\d,\bard); % Gris al 15% de negro.
	\fill [Black] (\d,0) rectangle (\d+1.5*\c,\bard);
	\fill [White] (\d+1.5*\c,0) rectangle (\d+3.5*\c,\bard);
	\fill [Black] (\d+3.5*\c,0) rectangle (\d+5*\c,\bard);
    \fill [Negro1] (\d+5*\c,0) rectangle (\d+5.33*\c,\bard);
    \fill [Black] (\d+5.33*\c,0) rectangle (\d+5.66*\c,\bard);
    \fill [Negro2] (\d+5.66*\c,0) rectangle (\d+6*\c,\bard);
    \fill [Black] (\d+6*\c,0) rectangle (\d+7*\c,\bard);
    \fill [Gray!30!Black] (\d+7*\c,0) rectangle (\a,\bard);
\end{tikzpicture}
\end{document}