blob: f1288afb859185dea63c024813cbae247c2a48cb (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
#!/bin/bash
set -e
if printf '%s\n' "$0" | grep / >/dev/null 2>/dev/null; then
export PATH="$(printf '%s\n' "$0" | tr '/\n' '\n/' | sed \$d | tr '/\n' '\n/'):${PATH}"
fi
pid=$$
o='0 0 0 0'
E='1 1 1 1'
x=x; y=y; z=z
ciexyy=0
zflag=
grey=0
usage () {
xyy="-z x1 y1 x2 y2 x3 y3 [white-x white-y]"
xyz="X1 Y1 Z1 X2 Y2 Z2 X3 Y3 Z3 [white-X white-Y white-Z]"
printf 'usage: %s [-1 | -2 | -3] [-g] [%s | %s]\n' "$0" "$xyy" "$xyz" >&2
exit 1
}
while ! test $# = 0; do
if test "$1" = --; then
shift 1
break
elif test "${1::1}" = -; then
arg="${1:1}"
shift 1
while test -n "${arg::1}"; do
flag="${arg::1}"
arg="${arg:1}"
if test "$flag" = 1; then
x=x; y=y; z=z
elif test "$flag" = 2; then
x=y; y=z; z=x
elif test "$flag" = 3; then
x=z; y=x; z=y
elif test "$flag" = g; then
grey=1
elif test "$flag" = z; then
ciexyy=1
else
usage
fi
done
else
break
fi
done
a=$(( ( 3 - $ciexyy ) * 3 ))
b=$(( ( 3 - $ciexyy ) * 4 ))
if test $# != 0 && test $# != $a && test $# != $b; then
usage
elif test $ciexyy = 1 && test $# = 0; then
usage
fi
read frames width height pixfmt < <(blind-read-head)
if test $# = 0; then
convert () { cat; }
unconvert () { cat; }
else
if test $ciexyy = 1; then
zflag=-z
fi
convert () {
blind-affine-colour -al \
<(blind-colour-matrix -F "$pixfmt" $zflag -- "$@" | \
blind-tee \
>(blind-invert-matrix -e | \blind-to-named -a blind-${pid}-invmat) | \
blind-repeat inf -)
}
unconvert () {
blind-affine-colour -al \
<(blind-from-named -a blind-${pid}-invmat \
./blind-arithm -xyz max <(./blind-single-colour -w 3 -h 3 1) | \
blind-repeat inf -)
}
fi
if test $grey = 0; then
finalise () { unconvert; }
else
finalise () {
unconvert | blind-set-saturation <(blind-single-colour -f inf -w $width -h $height 0)
}
fi
(blind-write-head $frames $width $height "$pixfmt" ; cat) | \
convert "$@" | \
blind-split-chans -c \
>(blind-to-named -a blind-${pid}-x) \
>(blind-to-named -a blind-${pid}-y) \
>(blind-to-named -a blind-${pid}-z) \
- | \
blind-arithm mul \
<(blind-single-colour -f inf -w $width -h $height 0 0 0 1 | \
blind-arithm sub \
<(blind-from-named -a blind-${pid}-$x \
blind-affine-colour -l \
<(printf '%s %s %s %s\n' \
1 4 4 xyza \
$o $o $o $o \
$o $o $o $o \
$o $o $o $o \
$E $E $E $o | \
blind-from-text | \
blind-repeat inf -))) | \
blind-from-named -f 8 -a blind-${pid}-$y blind-arithm add /dev/fd/8 | \
blind-from-named -f 9 -a blind-${pid}-$z blind-arithm add /dev/fd/9 | \
finalise
|
