!!FP1.0
#here compute the min element of a vector which in a 2d Texture
DECLARE TexOffset0 ={0.5,0,0,0};
DECLARE TexOffset1 ={0,0.5,0,0};
DECLARE TexOffset2 ={0.5,0.5,0,0};

#sample it again
MOV R0, f[TEX0];
ADD R1, f[TEX0], TexOffset0;
ADD R2, f[TEX0], TexOffset1;
ADD R3, f[TEX0], TexOffset2;

TEX R0, R0, TEX0, 2D;
TEX R1, R1, TEX0, 2D;
TEX R2, R2, TEX0, 2D;
TEX R3, R3, TEX0, 2D;

MIN R0, R0, R1;
MIN R0, R2, R0;
MIN R0, R3, R0;

MOV o[COLR], R0;
END