#!/bin/sh

TEXT=${1##*/}
TMPDIR=i/tmp
WORDLIST=$TMPDIR/${TEXT%%.*}.list
VALUELIST=$TMPDIR/${TEXT%%.*}-values.list
CANVASTEX=o/txt2structure.tex

if [ `ls $CANVASTEX | wc -l` -lt 1 ]; then

# NEWLINES AS EMPTY LINES + WRITE WORDS AS LINES
sed G $1 | sed -e 'y/ /\n/' | sed 's/^/.../'			>  $WORDLIST

rm $VALUELIST
for LINE in `cat $WORDLIST`; 
 do echo `expr \`echo $LINE | wc -c\` - 4` 			>> $VALUELIST; done

MAXCHAR=`wc -L $1 | cut -d " " -f 1`
CHARWIDTH=`echo 0000\`expr 10000 \/ ${MAXCHAR}\` | rev | cut -c 1-4 | rev`

# NUMBER OF LINES => LINEHEIGHT = CANVASHEIGHT / LINENUMBER
LINES=`wc -l $1 | cut -d " " -f 1`
LINEHEIGHT=`echo 0000\`expr 5000 \/ $LINES  \` | rev | cut -c 1-4 | rev`

LINECOUNT=1

echo '\\newlength{\\myheight}' 			               >  $CANVASTEX
echo '\\setlength{\\myheight}{.9\\textheight}'                 >> $CANVASTEX
echo '\\setlength{\\charwidth}{'.$CHARWIDTH'\\linewidth}'      >> $CANVASTEX
echo '\\setlength{\\unitlength}{'.$LINEHEIGHT'\\myheight}'     >> $CANVASTEX
echo 							       >> $CANVASTEX
echo "\\\\begin{picture}(0,0)"				       >> $CANVASTEX
echo 							       >> $CANVASTEX
echo  "\put(0,-"$LINECOUNT"){" 				       >> $CANVASTEX

GRAFIK=i/a/utils/graphics/blank/black.pdf
GRAFIK=i/a/stock/2009/strisone/LAFKON_090616--12.pdf

GRAFIKWIDTH=`identify  $GRAFIK | cut -d " " -f 3 | cut -d "x" -f 1`
GRAFIKHEIGHT=`identify $GRAFIK | cut -d " " -f 3 | cut -d "x" -f 2`

#------------------------#
 XMAX=400                #
 XMIN=0                #
 YMAX=400               #
 YMIN=100                #
#------------------------#

CLIPCHARWIDTH=`expr $XMAX \/ $MAXCHAR`
# CLIPHEIGHT=`expr $YMAX \/ $LINES`
CLIPHEIGHT=`expr \( $YMAX - $YMIN \) \/ $LINES`
CLIPXEND=$XMIN
CLIPYEND=$YMAX
CLIPYSTART=`expr $CLIPYEND - $CLIPHEIGHT`

for LINE in `cat $WORDLIST`
 do
   WIDTH=`expr \`echo $LINE | wc -c\` - 4`
 
      if [ $WIDTH -eq 0 ] 
       then
	 echo  "}" 							   >> $CANVASTEX
	 LINECOUNT=`expr $LINECOUNT + 1`
	 CLIPXEND=$XMIN
	 CLIPYEND=$CLIPYSTART
	 CLIPYSTART=`expr $CLIPYEND - $CLIPHEIGHT`
	 echo $CLIPYSTART
	 echo 								   >> $CANVASTEX
         echo  "\put(0,-"$LINECOUNT"){" 				   >> $CANVASTEX
      else

	CLIPXSTART=$CLIPXEND
	CLIPXEND=`expr $CLIPXSTART + \( $CLIPCHARWIDTH \* $WIDTH \)`

	echo  "\graphicasword{"$GRAFIK"}"                             	   >> $CANVASTEX
	echo  "{"$CLIPXSTART"}{"$CLIPYSTART"}{"$CLIPXEND"}{"$CLIPYEND"}"   >> $CANVASTEX
	echo  "{width="$WIDTH'\\charwidth}'				   >> $CANVASTEX
     fi
  done
 echo  "}" >> $CANVASTEX
echo "\\end{picture}"						   	   >> $CANVASTEX


else

echo $CANVASTEX does exist

fi

exit 0;