| 22 |
|
if ( "`getinfo < $f2:q | grep '^FORMAT=32-bit_rle_xyze'`" == "" ) then |
| 23 |
|
set inp2='x2=X(ri(2),gi(2),bi(2));y2=Y(ri(2),gi(2),bi(2));z2=Z(ri(2),gi(2),bi(2))' |
| 24 |
|
endif |
| 25 |
< |
pfilt -1 -x 128 -y 128 -p 1 $f1:q | pvalue -o -h -H -d > /tmp/tf$$.dat |
| 26 |
< |
set wht=(`total -u /tmp/tf$$.dat`) |
| 27 |
< |
set avg=`rcalc -e '$1=$2' /tmp/tf$$.dat | total -m` |
| 28 |
< |
rm /tmp/tf$$.dat |
| 25 |
> |
set tempf=`mktemp /tmp/tf.XXXXXX` |
| 26 |
> |
pfilt -1 -x 128 -y 128 -p 1 $f1:q | pvalue -o -h -H -d > $tempf |
| 27 |
> |
set wht=(`total -u $tempf`) |
| 28 |
> |
set avg=`rcalc -e '$1=$2' $tempf | total -m` |
| 29 |
> |
rm $tempf |
| 30 |
|
pcomb -e $cielab:q -e $rgb2xyz:q \ |
| 31 |
|
-e "Yw:179*3*$avg; Xw:$wht[1]*Yw/$wht[2]; Zw:$wht[3]*Yw/$wht[2]" \ |
| 32 |
|
-e $inp1:q -e $inp2:q -e 'lo=dE(x1,y1,z1,x2,y2,z2)' \ |
