12f56709a31e87e8a9ab0cdf3788e85dda4f8671
[dja/scandal.git] / scan2pages.sh
1 #!/bin/bash
2
3 UNPAPER_PATH="/Users/dja/Applications/unpaper-0.3/"
4 PATH=$UNPAPER_PATH:$PATH
5
6 function usage {
7 cat >&2 << __EOF__ 
8 Usage: $0 [-vfpsmut] [-d depth] pdffile outdir
9 Convert pdffile - a pdf of scanned facing pages - to a set of images in outdir,
10 each with only one page.
11 OPTIONS:
12         -v: Be verbose.
13         -d depth: Use given depth. Default is 1. Unpaper can only handle up to 8.
14         -s: skip masking/trimming. Overrides -m.
15         -f: Forceably redo everything.
16         -p: Forceably redo pdf conversion. Implies options below, equivalent to -f.
17         -m: Forceably redo masking/trimming and other preprocessing. Impiles options below.
18         -u: Forceably redo unpaper processing. Implies option below. IGNORED
19         -t: Forceably redo final trimming and cleaning. IGNORED
20 __EOF__
21 }
22
23
24 # process for -f flag to forceably redo all conversions
25 forcepdf=
26 forcemask=
27 forceunpaper=
28 forceclean=
29 convertflags=
30 unpaperflags=
31 depthflags="-depth 1"
32 skipmask=
33 while getopts 'vd:sfpmuc' OPTION
34 do
35         case $OPTION in
36         v)  convertflags="$convertflags -verbose"
37                 unpaperflags="$unpaperflags -v --time"
38                 ;;
39         d)      depthflags="-depth $OPTARG"
40                 ;;
41         s)      skipmask=1;
42                 ;;
43         f)      forcepdf=1; forcemask=1; forceunpaper=1; forceclean=1
44                 ;;
45         p)      forcepdf=1; forcemask=1; forceunpaper=1; forceclean=1
46                 ;;
47         m)      forcemask=1; forceunpaper=1; forceclean=1
48                 ;;
49         u)      forceunpaper=1; forceclean=1
50                 ;;
51         t)      forceclean=1
52                 ;;
53 #       b)      bflag=1
54 #               bval="$OPTARG"
55 #               ;;
56         ?)      usage
57                 exit 2
58                 ;;
59         esac
60 done
61 shift $(($OPTIND - 1))
62
63 # check we have an input and output!
64 if [[ $# != 2 ]]; then
65         echo "Wrong number of parameters (2 required, $# given: [$@])" >&2
66         usage
67         exit 2
68 fi
69
70 file=$1
71 dir=$2
72
73 filedir=$(dirname $1)
74 base=$(basename $1 .pdf)
75
76 # make the output dir
77 mkdir -p $dir
78
79 # figure out the number of pages
80 dscname=$dir/${base}.dsc
81 pdf2dsc $file $dscname || exit 1
82 pages=$(awk '$1 ~ "%%Pages" {print $2}' $dscname)
83 echo "Got $pages page(s)."
84 rm $dscname
85
86 # process pages 1 by 1 to avoid convert gobbling all the memory
87 for pg in `jot - 1 $pages`; do
88         echo "Processing page $pg."
89         
90         pgn=$(printf '%03d' $pg)
91         
92         # convert from pdf
93         origpnm=$dir/pg-${pgn}.pnm
94         if [[ ! $([ -e $origpnm ]) || $forcepdf ]]; then
95                 convert $convertflags $depthflags -density 300 $file[$(expr $pg - 1)] \
96                         $origpnm || exit 1
97         fi;
98         
99         # preprocess it!
100         preppnm=$dir/pg-pp-${pgn}.pnm
101         if [[ ! $skipmask && ( ! $([ -e $preppnm ]) || $forcemask ) ]]; then
102                 # create mask: 
103                 # ... downscale, blur,
104                 convert $convertflags -resize 25% -depth 8 -blur 10 $origpnm $dir/pg-mask-${pgn}.pnm ||exit 1
105
106                 # ... get crop co-ords
107                 cropcords=$(convert -resize 400% -trim -fuzz 90% -format "%wx%h%O" $dir/pg-mask-${pgn}.pnm info: || exit 1)
108                 
109                 # ... crop and despeckle? the final pre-prepared image
110                 convert $convertflags -crop $cropcords $origpnm $preppnm || exit 1
111         elif [[ $skipmask ]]; then
112                 cp $origpnm $preppnm
113         fi;
114         
115         #unpaper it
116         #names go a bit funny here
117         #also, ignore flags starting here
118         unppnm=$dir/upg-${pgn}-%01d.pnm
119         unpaper $unpaperflags --layout double --overwrite --no-blackfilter -ni 10 -op 2 $preppnm $unppnm || exit 1
120
121         # final convert and clean
122         convert $convertflags $dir/upg-${pgn}-?.pnm $dir/upg-${pgn}-%01d.tiff || exit 1
123         
124         
125 done
126
127 mkdir $dir/pages
128 mv $dir/upg-*.tiff $dir/pages
129         

UCC git Repository :: git.ucc.asn.au