author | viric <viriketo@gmail.com> |
Sun, 24 Apr 2011 20:43:56 +0200 | |
changeset 4 | 6d09f682bc3e |
permissions | -rw-r--r-- |
4
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
1 |
#!/nix/var/nix/profiles/default/bin/gawk |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
2 |
# gawk -f talla crop.txt | xargs -d '\\n' --verbose sh -c |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
3 |
|
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
4 |
BEGIN { |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
5 |
pag=4; |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
6 |
} |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
7 |
|
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
8 |
{ |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
9 |
x = $2 |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
10 |
y = $3 |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
11 |
w = $4 |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
12 |
h = $5 |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
13 |
|
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
14 |
if (w < 0) |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
15 |
{ |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
16 |
x = x + w; |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
17 |
w = -w; |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
18 |
} |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
19 |
|
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
20 |
if (h < 0) |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
21 |
{ |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
22 |
y = y + h; |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
23 |
h = -h; |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
24 |
} |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
25 |
|
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
26 |
printf "convert %s -crop %ix%i+%i+%i tallat/%04i.pgm\n", $1, w, h, x, y, pag |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
27 |
pag=pag+2 |
6d09f682bc3e
Afegeixo scripts que faig servir per a fer llibres. Aquests són de Duna.
viric <viriketo@gmail.com>
parents:
diff
changeset
|
28 |
} |