initial commit
This commit is contained in:
Tilman Kranz
commit
7ac001c424
41
01-rename.sh
Executable file
41
01-rename.sh
Executable file
@ -0,0 +1,41 @@
|
||||
#!/bin/bash
|
||||
|
||||
##
|
||||
# Main Program
|
||||
|
||||
dir=$(dirname "$(readlink -f "$0")")
|
||||
origdir="$dir/orig"
|
||||
indir="$dir/in"
|
||||
|
||||
if ! cd "$dir" ; then
|
||||
echo "ERROR: Could not change to directory \"$dir\"; aborted." >&2
|
||||
exit 1
|
||||
elif ! test -d "$origdir" ; then
|
||||
echo "ERROR: Directory \"$origdir\" not found; aborted." >&2
|
||||
exit 1
|
||||
elif ! mkdir -p "$indir" ; then
|
||||
echo "ERROR: Could not create directory \"$indir\"; aborted." >&2
|
||||
exit 1
|
||||
elif ! rm -f -- "$indir/"*.jpg ; then
|
||||
echo "ERROR: Could not remove files in \"$indir\"; aborted." >&2
|
||||
exit 1
|
||||
else
|
||||
i=1
|
||||
rv=0
|
||||
|
||||
while read -r jpg ; do
|
||||
renamed=$(printf "%02d" "$i").jpg
|
||||
|
||||
if cp "$jpg" "$indir/$renamed" ; then
|
||||
echo "INFO: Copied \"$jpg\" to \"$renamed\"." >&2
|
||||
else
|
||||
echo "WARNING: Could not copy \"$jpg\" to \"$renamed\"." >&2
|
||||
rv=1
|
||||
fi
|
||||
|
||||
i=$((i+1))
|
||||
done < <(ls --reverse --sort time -- "$origdir/"*.jpg)
|
||||
|
||||
exit "$rv"
|
||||
fi
|
||||
|
||||
187
02-convert.sh
Executable file
187
02-convert.sh
Executable file
@ -0,0 +1,187 @@
|
||||
#!/bin/bash
|
||||
|
||||
##
|
||||
# Configuration
|
||||
|
||||
# Before morphology analysis, reduce image dimensions by this factor
|
||||
simplify=2
|
||||
|
||||
# Morphology to apply to reduce content to main area
|
||||
morphology="Open:6"
|
||||
morphology_shape="Disk"
|
||||
|
||||
# Color simplification to apply (50x50% means black/white)
|
||||
random_treshold="50x50%"
|
||||
|
||||
# Treshold for connected components detection
|
||||
area_treshold=500
|
||||
|
||||
# Parameters for sigmoidal contrast adjustment for trimming
|
||||
sigmoidal_contrast_trim="35,30%"
|
||||
|
||||
# Parameters for sigmoidal contrast adjustment for result images
|
||||
sigmoidal_contrast="45,50%"
|
||||
|
||||
# Number of colors result images are quantized to
|
||||
posterize=6
|
||||
|
||||
# Keep intermediate images after processing (note that they will be removed in
|
||||
# any case at the next run of this script)
|
||||
keep_tmpfiles=true
|
||||
|
||||
##
|
||||
# Main Program
|
||||
|
||||
dir="$(dirname "$(readlink -f "$0")")"
|
||||
tmpdir="$dir/tmp"
|
||||
indir="$dir/in"
|
||||
comdir="$dir/com"
|
||||
outdir="$dir/out"
|
||||
resize_percent=$((100/simplify))
|
||||
|
||||
if ! cd "$dir" ; then
|
||||
echo "ERROR: Could not change to directory \"$dir\"; aborted." >&2
|
||||
exit 1
|
||||
elif ! mkdir -p "$comdir" "$outdir" "$tmpdir" ; then
|
||||
echo "ERROR: Could not create working directories; aborted." >&2
|
||||
exit 1
|
||||
elif ! rm -f -- "$comdir/"*.* ; then
|
||||
echo "ERROR: Could not delete existing component files; aborted." >&2
|
||||
exit 1
|
||||
elif ! rm -f -- "$tmpdir/"*.* ; then
|
||||
echo "ERROR: Could not delete existing tempfiles; aborted." >&2
|
||||
exit 1
|
||||
elif ! rm -f -- "$outdir/"*.* ; then
|
||||
echo "ERROR: Could not delete existing results; aborted." >&2
|
||||
exit 1
|
||||
else
|
||||
rv=0
|
||||
|
||||
for jpg in "$indir/"*.jpg ; do
|
||||
base=$(basename "$jpg" .jpg)
|
||||
tmp1="$tmpdir/$base.tmp1.png"
|
||||
tmp2="$tmpdir/$base.tmp2.png"
|
||||
com="$tmpdir/$base.com.png"
|
||||
trimmed="$tmpdir/$base.trimmed.png"
|
||||
inf="$tmpdir/$base.txt"
|
||||
out="$outdir/$base.png"
|
||||
|
||||
if ! convert \
|
||||
"$jpg" \
|
||||
-colorspace RGB \
|
||||
-sigmoidal-contrast "$sigmoidal_contrast_trim" \
|
||||
-resize "$resize_percent%" \
|
||||
-channel All -random-threshold "$random_treshold" \
|
||||
-morphology "$morphology" "$morphology_shape" \
|
||||
"$tmp1"
|
||||
then
|
||||
echo "ERROR: Could not create test image \"$tmp1\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
fi
|
||||
|
||||
draw=()
|
||||
|
||||
while read -r primitive ; do
|
||||
draw+=("-fill" "white" "-draw" "$primitive")
|
||||
done < <(
|
||||
convert \
|
||||
"$tmp1" \
|
||||
-define connected-components:verbose=true \
|
||||
-define connected-components:exclude-header=true \
|
||||
-define connected-components:sort-order=increasing \
|
||||
-define connected-components:area-threshold="$area_treshold" \
|
||||
-virtual-pixel None \
|
||||
-connected-components 8 \
|
||||
-auto-level \
|
||||
"$com" | \
|
||||
perl -e '
|
||||
while(<>){
|
||||
chomp;
|
||||
next unless /(\d+)x(\d+)\+(\d+)\+(\d+)/;
|
||||
printf
|
||||
STDERR
|
||||
"DEBUG: component: $_\n";
|
||||
printf
|
||||
"rectangle %d,%d,%d,%d\n",
|
||||
$1, $2, $1+$3, $2+$4;
|
||||
}
|
||||
|
||||
' | \
|
||||
sort | \
|
||||
uniq
|
||||
)
|
||||
|
||||
printf "DEBUG: connected components in \"%s\":" "$tmp1"
|
||||
for d in "${draw[@]}" ; do
|
||||
printf " \"%s\"" "$d"
|
||||
done
|
||||
printf "\n"
|
||||
|
||||
if ! convert \
|
||||
"$tmp1" \
|
||||
-fill black -colorize 100 \
|
||||
"${draw[@]}" \
|
||||
"$tmp2"
|
||||
then
|
||||
echo "ERROR: Could not convert \"$tmp1\" to \"$tmp2\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
elif ! convert \
|
||||
"$tmp2" \
|
||||
-trim info: \
|
||||
> "$inf"
|
||||
then
|
||||
echo "ERROR: Could not determine trim info from \"$tmp2\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
fi
|
||||
|
||||
if "$keep_tmpfiles" ; then
|
||||
if ! convert \
|
||||
"$tmp2" \
|
||||
-trim \
|
||||
"$trimmed"
|
||||
then
|
||||
echo "ERROR: Could not test trim \"$tmp2\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
fi
|
||||
fi
|
||||
|
||||
# upscale crop area from smaller temporary picture sizes
|
||||
crop=$(simplify=$simplify perl -MEnv -e '
|
||||
while(<>) {
|
||||
chomp();
|
||||
s/(\d+)/$1*${simplify}/eg;
|
||||
/(\d+)x(\d+) \d+x\d+\+(\d+)\+(\d+)/ && do {
|
||||
print $1."x".$2."+".$3."+".$4;
|
||||
}
|
||||
}
|
||||
' < "$inf")
|
||||
|
||||
if ! "$keep_tmpfiles" ; then
|
||||
if ! rm -f -- "$tmp1" "$tmp2" "$trimmed" "$inf" ; then
|
||||
echo "WARNING: Could not remove temporary files in \"$dir/tmp\"." >&2
|
||||
rv=1
|
||||
fi
|
||||
fi
|
||||
|
||||
echo "Processing $base: crop=$crop ..."
|
||||
|
||||
if ! convert \
|
||||
"$jpg" \
|
||||
-crop "$crop" \
|
||||
-sigmoidal-contrast "$sigmoidal_contrast" \
|
||||
+dither -posterize "$posterize" \
|
||||
"$out"
|
||||
then
|
||||
echo "ERROR: Could not process \"$jpg\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
fi
|
||||
done
|
||||
|
||||
exit "$rv"
|
||||
fi
|
||||
|
||||
98
03-pdf.sh
Executable file
98
03-pdf.sh
Executable file
@ -0,0 +1,98 @@
|
||||
#!/bin/bash
|
||||
# shellcheck disable=SC2046
|
||||
|
||||
##
|
||||
# Configuration
|
||||
|
||||
# Paper size of all pages
|
||||
paper="a4paper"
|
||||
|
||||
# Offset in page where image should be placed
|
||||
offset="1cm 3cm"
|
||||
|
||||
# Factor to scale image by before placing in page
|
||||
scale=1
|
||||
|
||||
# Filename of complete result PDF
|
||||
result="pdf/result.pdf"
|
||||
|
||||
##
|
||||
# Main Program
|
||||
|
||||
dir="$(dirname "$(readlink -f "$0")")"
|
||||
|
||||
if ! cd "$dir" ; then
|
||||
echo "ERROR: Could not change to directory \"$dir\"; aborted." >&2
|
||||
exit 1
|
||||
elif ! mkdir -p pdf tmp ; then
|
||||
echo "ERROR: Could not create \"$dir/{pdf,tmp}\"; aborted." >&2
|
||||
exit 1
|
||||
elif ! rm -f -- "pdf/"*.* ; then
|
||||
echo "ERROR: Could not delete existing results in \"$dir/pdf\"; aborted." >&2
|
||||
exit 1
|
||||
else
|
||||
rv=0
|
||||
|
||||
for png in "out/"*.png ; do
|
||||
echo "INFO: Processing \"$png\" ..." >&2
|
||||
|
||||
read -r width height < <(
|
||||
identify -verbose "$png" | \
|
||||
perl -ne '/Geometry: (\d+)x(\d+)/ && print "$1 $2"'
|
||||
)
|
||||
|
||||
if [[ -z $width ]] || [[ -z $height ]] ; then
|
||||
echo "ERROR: Could not identify width or height of \"$png\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
elif [[ $width -gt $height ]] ; then
|
||||
backdrop=template/a4paper/landscape.pdf
|
||||
jam_landscape=--landscape
|
||||
else
|
||||
backdrop=template/a4paper/portrait.pdf
|
||||
jam_landscape=--no-landscape
|
||||
fi
|
||||
|
||||
base=$(basename "$png" .png)
|
||||
pdf=tmp/$base.pdf
|
||||
jammed=tmp/$base-pdfjam.pdf
|
||||
backdropped=tmp/$base.backdropped.pdf
|
||||
|
||||
if ! convert "$png" "$pdf" ; then
|
||||
echo "ERROR: Could not convert \"$png\" to PDF; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
elif ! pdfjam \
|
||||
--quiet \
|
||||
--outfile tmp \
|
||||
--paper "$paper" \
|
||||
"$jam_landscape" \
|
||||
--scale "$scale" \
|
||||
--offset "$offset" \
|
||||
"$pdf"
|
||||
then
|
||||
echo "ERROR: Could not align \"$pdf\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
elif ! pdftk \
|
||||
"$jammed" \
|
||||
stamp "$backdrop" \
|
||||
output "$backdropped"
|
||||
then
|
||||
echo "ERROR: Could not watermark \"$pdf\"; skipped." >&2
|
||||
rv=1
|
||||
continue
|
||||
fi
|
||||
done
|
||||
|
||||
if ! pdftk $(ls -- "tmp/"*.backdropped.pdf) cat output "$result" ; then
|
||||
echo "ERROR: Could not concatenate \"$result\"." >&2
|
||||
rv=1
|
||||
elif ! rm -f -- "tmp/"*.pdf ; then
|
||||
echo "ERROR: Could not remove tempfiles in \"$dir/tmp\"." >&2
|
||||
rv=1
|
||||
fi
|
||||
|
||||
exit "$rv"
|
||||
fi
|
||||
|
||||
1
template/.gitignore
vendored
Normal file
1
template/.gitignore
vendored
Normal file
@ -0,0 +1 @@
|
||||
*/*.svg
|
||||
BIN
template/a4paper/landscape.pdf
Normal file
BIN
template/a4paper/landscape.pdf
Normal file
Binary file not shown.
BIN
template/a4paper/portrait.pdf
Normal file
BIN
template/a4paper/portrait.pdf
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user