DIM COLOR AS INTEGER;

SENSOR_COLOR_X = Galaxy:Var_Empacado.SENSOR_COLOR_X;
SENSOR_COLOR_Y = Galaxy:Var_Empacado.SENSOR_COLOR_Y;
SENSOR_COLOR_Z = Galaxy:Var_Empacado.SENSOR_COLOR_Z;

AMARILLO_X_MIN = Galaxy:Var_Empacado.AMARILLO_X_MIN;
AMARILLO_X_MAX = Galaxy:Var_Empacado.AMARILLO_X_MAX;
AMARILLO_Y_MIN = Galaxy:Var_Empacado.AMARILLO_Y_MIN;
AMARILLO_Y_MAX = Galaxy:Var_Empacado.AMARILLO_Y_MAX;
AMARILLO_Z_MIN = Galaxy:Var_Empacado.AMARILLO_Z_MIN;
AMARILLO_Z_MAX = Galaxy:Var_Empacado.AMARILLO_Z_MAX;

ROJO_X_MIN = Galaxy:Var_Empacado.ROJO_X_MIN;
ROJO_X_MAX = Galaxy:Var_Empacado.ROJO_X_MAX;
ROJO_Y_MIN = Galaxy:Var_Empacado.ROJO_Y_MIN;
ROJO_Y_MAX = Galaxy:Var_Empacado.ROJO_Y_MAX;
ROJO_Z_MIN = Galaxy:Var_Empacado.ROJO_Z_MIN;
ROJO_Z_MAX = Galaxy:Var_Empacado.ROJO_Z_MAX;

NEGRO_X_MIN = Galaxy:Var_Empacado.NEGRO_X_MIN;
NEGRO_X_MAX = Galaxy:Var_Empacado.NEGRO_X_MAX;
NEGRO_Y_MIN = Galaxy:Var_Empacado.NEGRO_Y_MIN;
NEGRO_Y_MAX = Galaxy:Var_Empacado.NEGRO_Y_MAX;
NEGRO_Z_MIN = Galaxy:Var_Empacado.NEGRO_Z_MIN;
NEGRO_Z_MAX = Galaxy:Var_Empacado.NEGRO_Z_MAX;

NARANJA_X_MIN = Galaxy:Var_Empacado.NARANJA_X_MIN;
NARANJA_X_MAX = Galaxy:Var_Empacado.NARANJA_X_MAX;
NARANJA_Y_MIN = Galaxy:Var_Empacado.NARANJA_Y_MIN;
NARANJA_Y_MAX = Galaxy:Var_Empacado.NARANJA_Y_MAX;
NARANJA_Z_MIN = Galaxy:Var_Empacado.NARANJA_Z_MIN;
NARANJA_Z_MAX = Galaxy:Var_Empacado.NARANJA_Z_MAX;

VERDE_X_MIN = Galaxy:Var_Empacado.VERDE_X_MIN;
VERDE_X_MAX = Galaxy:Var_Empacado.VERDE_X_MAX;
VERDE_Y_MIN = Galaxy:Var_Empacado.VERDE_Y_MIN;
VERDE_Y_MAX = Galaxy:Var_Empacado.VERDE_Y_MAX;
VERDE_Z_MIN = Galaxy:Var_Empacado.VERDE_Z_MIN;
VERDE_Z_MAX = Galaxy:Var_Empacado.VERDE_Z_MAX;

AZUL_X_MIN = Galaxy:Var_Empacado.AZUL_X_MIN;
AZUL_X_MAX = Galaxy:Var_Empacado.AZUL_X_MAX;
AZUL_Y_MIN = Galaxy:Var_Empacado.AZUL_Y_MIN;
AZUL_Y_MAX = Galaxy:Var_Empacado.AZUL_Y_MAX;
AZUL_Z_MIN = Galaxy:Var_Empacado.AZUL_Z_MIN;
AZUL_Z_MAX = Galaxy:Var_Empacado.AZUL_Z_MAX;

ALUMINIO_X_MIN = Galaxy:Var_Empacado.ALUMINIO_X_MIN;
ALUMINIO_X_MAX = Galaxy:Var_Empacado.ALUMINIO_X_MAX;
ALUMINIO_Y_MIN = Galaxy:Var_Empacado.ALUMINIO_Y_MIN;
ALUMINIO_Y_MAX = Galaxy:Var_Empacado.ALUMINIO_Y_MAX;
ALUMINIO_Z_MIN = Galaxy:Var_Empacado.ALUMINIO_Z_MIN;
ALUMINIO_Z_MAX = Galaxy:Var_Empacado.ALUMINIO_Z_MAX;

METAL_X_MIN = Galaxy:Var_Empacado.METAL_X_MIN;
METAL_X_MAX = Galaxy:Var_Empacado.METAL_X_MAX;
METAL_Y_MIN = Galaxy:Var_Empacado.METAL_Y_MIN;
METAL_Y_MAX = Galaxy:Var_Empacado.METAL_Y_MAX;
METAL_Z_MIN = Galaxy:Var_Empacado.METAL_Z_MIN;
METAL_Z_MAX = Galaxy:Var_Empacado.METAL_Z_MAX;

PLASTICO_X_MIN = Galaxy:Var_Empacado.PLASTICO_X_MIN;
PLASTICO_X_MAX = Galaxy:Var_Empacado.PLASTICO_X_MAX;
PLASTICO_Y_MIN = Galaxy:Var_Empacado.PLASTICO_Y_MIN;
PLASTICO_Y_MAX = Galaxy:Var_Empacado.PLASTICO_Y_MAX;
PLASTICO_Z_MIN = Galaxy:Var_Empacado.PLASTICO_Z_MIN;
PLASTICO_Z_MAX = Galaxy:Var_Empacado.PLASTICO_Z_MAX;

COLOR = 0;

{AMARILLO}
IF SENSOR_COLOR_X > AMARILLO_X_MIN AND SENSOR_COLOR_X <AMARILLO_X_MAX THEN
    IF SENSOR_COLOR_Y > AMARILLO_Y_MIN AND SENSOR_COLOR_Y < AMARILLO_Y_MAX THEN
        IF SENSOR_COLOR_Z > AMARILLO_Z_MIN AND SENSOR_COLOR_Z < AMARILLO_Z_MAX THEN
            COLOR = 1;
ENDIF;
ENDIF;
ENDIF;

{ROJO}
IF SENSOR_COLOR_X > ROJO_X_MIN AND SENSOR_COLOR_X <ROJO_X_MAX THEN
    IF SENSOR_COLOR_Y > ROJO_Y_MIN AND SENSOR_COLOR_Y < ROJO_Y_MAX THEN
        IF SENSOR_COLOR_Z > ROJO_Z_MIN AND SENSOR_COLOR_Z < ROJO_Z_MAX THEN
            COLOR = 2;
ENDIF;
ENDIF;
ENDIF;


{NEGRO}
IF SENSOR_COLOR_X > NEGRO_X_MIN AND SENSOR_COLOR_X <NEGRO_X_MAX THEN
    IF SENSOR_COLOR_Y > NEGRO_Y_MIN AND SENSOR_COLOR_Y < NEGRO_Y_MAX THEN
        IF SENSOR_COLOR_Z > NEGRO_Z_MIN AND SENSOR_COLOR_Z < NEGRO_Z_MAX THEN
            COLOR = 3;
ENDIF;
ENDIF;
ENDIF;



{NARANJA}
IF SENSOR_COLOR_X > NARANJA_X_MIN AND SENSOR_COLOR_X <NARANJA_X_MAX THEN
    IF SENSOR_COLOR_Y > NARANJA_Y_MIN AND SENSOR_COLOR_Y < NARANJA_Y_MAX THEN
        IF SENSOR_COLOR_Z > NARANJA_Z_MIN AND SENSOR_COLOR_Z < NARANJA_Z_MAX THEN
            COLOR = 4;
ENDIF;
ENDIF;
ENDIF;


{VERDE}
IF SENSOR_COLOR_X > VERDE_X_MIN AND SENSOR_COLOR_X <VERDE_X_MAX THEN
    IF SENSOR_COLOR_Y > VERDE_Y_MIN AND SENSOR_COLOR_Y < VERDE_Y_MAX THEN
        IF SENSOR_COLOR_Z > VERDE_Z_MIN AND SENSOR_COLOR_Z < VERDE_Z_MAX THEN
            COLOR = 5;
ENDIF;
ENDIF;
ENDIF;

{AZUL}
IF SENSOR_COLOR_X > AZUL_X_MIN AND SENSOR_COLOR_X <AZUL_X_MAX THEN
    IF SENSOR_COLOR_Y > AZUL_Y_MIN AND SENSOR_COLOR_Y < AZUL_Y_MAX THEN
        IF SENSOR_COLOR_Z > AZUL_Z_MIN AND SENSOR_COLOR_Z < AZUL_Z_MAX THEN
            COLOR = 6;
ENDIF;
ENDIF;
ENDIF;

{ALUMINIO}
IF SENSOR_COLOR_X > ALUMINIO_X_MIN AND SENSOR_COLOR_X <ALUMINIO_X_MAX THEN
    IF SENSOR_COLOR_Y > ALUMINIO_Y_MIN AND SENSOR_COLOR_Y < ALUMINIO_Y_MAX THEN
        IF SENSOR_COLOR_Z > ALUMINIO_Z_MIN AND SENSOR_COLOR_Z < ALUMINIO_Z_MAX THEN
            COLOR = 7;
ENDIF;
ENDIF;
ENDIF;

{METAL}
IF SENSOR_COLOR_X > METAL_X_MIN AND SENSOR_COLOR_X <METAL_X_MAX THEN
    IF SENSOR_COLOR_Y > METAL_Y_MIN AND SENSOR_COLOR_Y < METAL_Y_MAX THEN
        IF SENSOR_COLOR_Z > METAL_Z_MIN AND SENSOR_COLOR_Z < METAL_Z_MAX THEN
            COLOR = 8;
ENDIF;
ENDIF;
ENDIF;

{PLASTICO}
IF SENSOR_COLOR_X > PLASTICO_X_MIN AND SENSOR_COLOR_X <PLASTICO_X_MAX THEN
    IF SENSOR_COLOR_Y > PLASTICO_Y_MIN AND SENSOR_COLOR_Y < PLASTICO_Y_MAX THEN
        IF SENSOR_COLOR_Z > PLASTICO_Z_MIN AND SENSOR_COLOR_Z < PLASTICO_Z_MAX THEN
            COLOR = 9;
ENDIF;
ENDIF;
ENDIF;

IF COLOR == 0 THEN
    COLOR_TEXT = "COLOR NO RECONOCIDO";
    COLOR_FIG = "D:\Wonderware\Images\pic_no_detectado.jpg";
ELSE IF COLOR== 1 THEN
    COLOR_TEXT = "AMARILLO";
    COLOR_FIG = "D:\Wonderware\Images\pic_amarillo.jpg";
ELSE IF COLOR == 2 THEN
    COLOR_TEXT = "ROJO";
    COLOR_FIG = "D:\Wonderware\Images\pic_rojo.jpg";
ELSE IF COLOR == 3 THEN
    COLOR_TEXT = "NEGRO";
    COLOR_FIG = "D:\Wonderware\Images\pic_negro.jpg";
ELSE IF COLOR == 4 THEN
    COLOR_TEXT = "NARANJA";
    COLOR_FIG = "D:\Wonderware\Images\pic_naranja.jpg";
ELSE IF COLOR == 5 THEN
    COLOR_TEXT = "VERDE";
    COLOR_FIG = "D:\Wonderware\Images\pic_verde.jpg";
ELSE IF COLOR == 6 THEN
    COLOR_TEXT = "AZUL";
    COLOR_FIG = "D:\Wonderware\Images\pic_azul.jpg";
ELSE IF COLOR == 7 THEN
    COLOR_TEXT = "ALUMINIO";
    COLOR_FIG = "D:\Wonderware\Images\pic_aluminio.jpg";
ELSE IF COLOR == 8 THEN
    COLOR_TEXT = "METAL";
    COLOR_FIG = "D:\Wonderware\Images\pic_metal.jpg";
ELSE IF COLOR == 9 THEN
    COLOR_TEXT = "PLASTICO";
    COLOR_FIG = "D:\Wonderware\Images\pic_plastico.jpg";
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;
ENDIF;

 