#!/bin/bash
tdir=convert_tmp
echo "see http://mirror.hamakor.org.il/archives/linux-il/07-2004/10831.html"
echo "Karsten Roemke, September 2009"
echo "Umwandlung in Vektorgrafik per potrace -> skalierbar, aber ca Faktor 10 größer"
echo "auf potrace homepage noch hinweise - leider gerade keine Zeit ..."
echo "scan sollte mit 600 dpi erfolgt sein nicht mit 300, nicht zu hell, lieber ein paar flecken!"
echo "pngs koennen auch geloescht werden"
echo "mit convert -density 600x600 allPages.pdf original.png"
echo "bekommt man sie wieder - dauert nur :-)"
echo "musste festellen, bei scan von 600 dpi haben die pdfs die "
echo "doppelte Kantenlaenge - offenbar ist 300dpi irgendwo verdrahtet"
echo "noch unklar - nein geloest, denke pgm kennt keine resolution"
echo "spaeter wieder einbauen, pnmtotiff -> erledigt"
 
echo "create  $tdir in actual dir - ctrl c to stop"
 
echo "Am Ende zwischenErgebnisse ($tdir) entfernen? (j) [j/n]"
read tempWeg
 
 
echo "otherwise enter threshold in [0;1], bigger is darker";
echo "original author says 0.5 I take 0.9 for a bad original, higher -> darker?"
echo "thresh: " 
read thresh
 
mkdir ./$tdir || exit
 
echo "create pgms"
for i in *.png  
do 
   echo convert $i $tdir/${i%.png}.pgm
   convert $i $tdir/${i%.png}.pgm
done
 
cd $tdir
 
echo "using potrace -> vector graphics"
for i in *.pgm 
do  
   echo potrace -g $i -o ${i%.pgm}-2.pgm
   potrace -g $i -o ${i%.pgm}-2.pgm
done
 
echo "to pbm via pgmtopbm"
for i in *-2.pgm  
do  
  echo pgmtopbm -threshold -value $thresh $i > ${i%-*}.pbm 
  pgmtopbm -threshold -value $thresh $i > ${i%-*}.pbm 
done
 
echo "generate tiffs with g4 black/white losless compression"
for i in *.pbm 
do  
   #ermittle auflösung
   xrest=$(identify -format "%x" ../${i%.pbm}.png)
   yrest=$(identify -format "%y" ../${i%.pbm}.png)   
   resunit=inch
   #check ob PixelsPerCentimeter / bzw. nur Centimeter in xres enthalten 
   #dann nehme ich x / y als pixel per cm an, sonst als pixel per inch 
   echo $xrest | grep -q -i centimeter 
   if [[ $? == 0 ]] #gefunden
   then
     resunit=centimeter
   fi
   #variablen splitten
   set -- $xrest # xrest auf $1..$n, siehe mein beispiel in splitVarByReadBetterSet
   #hobby-runden / abschneiden, dachte es geht mit printf
   xres=$(echo $1 | cut -d . -f 1)
   set -- $yrest
   yres=$(echo $1 | cut -d . -f 1)
   echo "found in orig image ${i%.pbm} xres $xres and yres $yres with unit  per $resunit"
   echo pnmtotiff -xresolution $xres -yresolution $yres -resolutionunit $resunit -g4 $i > ${i%.pbm}.tiff 
   pnmtotiff -xresolution $xres -yresolution $yres -resolutionunit $resunit -g4 $i > ${i%.pbm}.tiff 
done
echo "concatenate tiffs"
echo tiffcp *.tiff allPages.tiff
tiffcp *.tiff allPages.tiff
 
echo "convert to pdf"
 
echo tiff2pdf -o ../allPages.pdf allPages.tiff
tiff2pdf -o ../allPages.pdf allPages.tiff
 
cd ..
 
if [[ "$tempWeg." != "n." ]]
then
  echo "cleaning up"
  rm -rf $tdir
fi