run("Close All")

// Crear imagen color rojo "puro" (255)
newImage("Rojo 255", "RGB white", 128, 128, 1);
setForegroundColor(255, 0, 0);
run("Select All");
run("Fill", "slice");
run("Select None");

// Crear imagen color reduciendo intensidad de rojo a 192
newImage("Rojo 192", "RGB white", 128, 128, 1);
setForegroundColor(192, 0, 0);
run("Select All");
run("Fill", "slice");
run("Select None");

// Crear imagen color reduciendo intensidad de rojo a 128
newImage("Rojo 128", "RGB white", 128, 128, 1);
setForegroundColor(128, 0, 0);
run("Select All");
run("Fill", "slice");
run("Select None");

// Crear imagen color reduciendo intensidad de rojo a 63
newImage("Rojo 064", "RGB white", 128, 128, 1);
setForegroundColor(64, 0, 0);
run("Select All");
run("Fill", "slice");
run("Select None");

// Crear imagen color verde "puro" (255)
newImage("Verde 255", "RGB white", 128, 128, 1);
setForegroundColor(0, 255, 0);
run("Select All");
run("Fill", "slice");
run("Select None");

// Armar los stacks para evaluar "el amarillo de la colocacion"
run("Merge Channels...", "c1=[Rojo 255] c2=[Verde 255] create keep");
run("Merge Channels...", "c1=[Rojo 192] c2=[Verde 255] create keep");
run("Merge Channels...", "c1=[Rojo 128] c2=[Verde 255] create keep");
run("Merge Channels...", "c1=[Rojo 064] c2=[Verde 255] create keep");

// Presentar los resultados.
run("Tile");