#!/bin/bash
# ejemplo 2*5 2x5 2X5 2·5 2,5x5 2.5x5 2⁵ 20:5 2/5 2+5 2-5 (2+5)*(2-5)

cierralanzador


if [ "$1" = "" ];then
	zenity --info --text "Arrastre una imagen para comenzar."
	exit 0
fi

mensaje "Ajustando imagen..." &

rm -r /tmp/puzzle; rm /tmp/arrastrado; rm /tmp/1.jpg
mkdir /tmp/puzzle
ruta=`dirname "$0"`
echo "$ruta"
cd "$ruta"
cp plantilla*.svg /tmp/puzzle
cd /tmp/puzzle

#¿QUÉ NOS ARRASTRAN IMÁGEN LOCAL O WEB?

echo "$@" >/tmp/arrastrado
rpl %2520 %20 /tmp/arrastrado
if [ "`cat /tmp/arrastrado|grep http`" = "" ];then
	echo "no viene de la web"

	convert "$1" -background white -trim +repage imagen.png


else	
	
	echo "sí viene de la web"
	echo "¿Es una imagen directa o un enlace de google images?"
	if [ "`cat /tmp/arrastrado|grep www.google`" = "" ];then
		
		echo "No es de googleimages"		
		wget `cat /tmp/arrastrado` -O /tmp/1.jpg
		convert /tmp/1.jpg -background white -trim +repage imagen.png

		
	else	
	
		echo "Sí es de googleimages"
		awk -F 'imgurl=' '{print $2}' /tmp/arrastrado |cut -d'&' -f1>/tmp/url		
		wget `cat /tmp/url` -O /tmp/1.jpg
		convert /tmp/1.jpg -background white -trim +repage imagen.png
	fi
fi


ANCHO=`identify imagen.png|cut -d " " -f3|cut -d "x" -f1`
ALTO=`identify imagen.png|cut -d " " -f3|cut -d "x" -f2`
echo "ANCHO: "$ANCHO
echo "ALTO: "$ALTO

if (( $ANCHO > $ALTO ));then
	echo "Rotando imagen..."
	convert -rotate -90 imagen.png imagen.png
fi

convert -resize 128 imagen.png imagen128.png 

killall notify-osd

OPCIONES=$(yad --form --title "MATE PUZZLES" \
      --image imagen128.png \
      --text "<big>Las operaciones deben estar separadas por un <b>espacio</b></big>" \
      --field "Tamaño:CB" \
      '3x4 con 12 operaciones!3x5 con 15 operaciones!4x5 con 20 operaciones' \
      --field Operaciones \
      "2*5 2x5 2X5 2·5 2,5x5 2.5x5 2⁵ 20:5 2/5 2+5 2-5 (2+5)*(2-5)" \
      --field "División con decimales:CHK" \
)
if [ `echo $?` = "1" ];then exit 0;fi

TAMANIO=`echo $OPCIONES|cut -d"|" -f1|cut -d " " -f1`
OPERACIONES=`echo $OPCIONES|cut -d"|" -f2`
DECIMALES=`echo $OPCIONES|cut -d"|" -f3`

# MIRAR SI HAY ENTRADAS REPETIDAS FIXME: ahora mismo solo mira entradas repes, pero no resultados repes

num=`echo $OPERACIONES| tr " " "\n" | sort | wc -l`
unum=`echo $OPERACIONES| tr " " "\n" | sort | uniq | wc -l`
numrepes=`echo "$num-$unum"|bc`
repes=`echo $OPERACIONES|tr " " "\n"|sort|uniq -cd`
#if (( $numrepes > 0 ));then
#	zenity --info --text "Hay operaciones repetidas. ¿Continuar?\n \n$repes"
#fi
#if [ `echo $?` = "1" ];then exit 0;fi


#PREPARA OPERACIONES PARA QUE BC ENTIENDA X x · : ...

echo $OPERACIONES >/tmp/puzzle/operaciones
cp operaciones opera

rpl "x" "*" opera
rpl "X" "*" opera
rpl ":" "/" opera
rpl "·" "*" opera
rpl "¹" "^1" opera
rpl "²" "^2" opera
rpl "³" "^3" opera
rpl "⁴" "^4" opera
rpl "⁵" "^5" opera
rpl "⁶" "^6" opera
rpl "⁷" "^7" opera
rpl "⁸" "^8" opera
rpl "⁹" "^9" opera
rpl "," "." opera
rpl "^1" "¹" operaciones
rpl "^2" "²" operaciones
rpl "^3" "³" operaciones
rpl "^4" "⁴" operaciones
rpl "^5" "⁵" operaciones
rpl "^6" "⁶" operaciones
rpl "^7" "⁷" operaciones
rpl "^8" "⁸" operaciones
rpl "^9" "⁹" operaciones

##################################################################
cat opera|tr " " "\n" >operalist
for i in `cat operalist`;do a=`echo "$i"|bc`;echo "$i = $a" >>operalist2;done
mismasolucion=`sort -k3n operalist2|uniq -f2 -D`

if [ "$mismasolucion" = "" ];then
	echo "No hay operaciones repetidas."
else
	zenity --info --text "¡Cuidado! \nHay operaciones con soluciones repetidas.\n \n$mismasolucion"
fi

mensaje "Construyendo puzzle..." &




# PREPARAMOS LA IMÁGEN

case "$TAMANIO" in

	3x4)
		convert imagen.png -resize 505x674 -gravity center -extent 505x674 imagen.png
		convert imagen.png -crop 3x4@ +repage +adjoin %d.png
		mv plantilla3x4.svg plantilla.svg
	;;
	3x5)
		convert imagen.png -resize 465x625 -gravity center -extent 465x625 imagen.png
		convert imagen.png -crop 3x5@ +repage +adjoin %d.png
		mv plantilla3x5.svg plantilla.svg
	;;
	4x5)
		convert imagen.png -resize 480x660 -gravity center -extent 480x660 imagen.png
		convert imagen.png -crop 4x5@ +repage +adjoin %d.png
		mv plantilla4x5.svg plantilla.svg
esac

	
#DESORDENAMOS LAS IMÁGENES

function desordena1 {

mv 0.png tmp; mv 8.png 0.png; mv tmp 8.png; rpl RE0 RETMP plantilla.svg; rpl RE8 RE0 plantilla.svg; rpl RETMP RE8 plantilla.svg

mv 1.png tmp; mv 3.png 1.png; mv tmp 3.png; rpl RE1 RETMP plantilla.svg; rpl RE3 RE1 plantilla.svg; rpl RETMP RE3 plantilla.svg

mv 2.png tmp; mv 9.png 2.png; mv tmp 9.png; rpl RE2 RETMP plantilla.svg; rpl RE9 RE2 plantilla.svg; rpl RETMP RE9 plantilla.svg

mv 4.png tmp; mv 11.png 4.png; mv tmp 11.png; rpl RE4 RETMP plantilla.svg; rpl RE-11 RE4 plantilla.svg; rpl RETMP RE-11 plantilla.svg

mv 5.png tmp; mv 10.png 5.png; mv tmp 10.png; rpl RE5 RETMP plantilla.svg; rpl RE-10 RE5 plantilla.svg; rpl RETMP RE-10 plantilla.svg

mv 6.png tmp; mv 7.png 6.png; mv tmp 7.png; rpl RE6 RETMP plantilla.svg; rpl RE7 RE6 plantilla.svg; rpl RETMP RE7 plantilla.svg

mv 13.png tmp; mv 14.png 13.png; mv tmp 14.png; rpl RE-13 RETMP plantilla.svg; rpl RE-14 RE-13 plantilla.svg; rpl RETMP RE-14 plantilla.svg

mv 17.png tmp; mv 18.png 17.png; mv tmp 18.png; rpl RE-17 RETMP plantilla.svg; rpl RE-18 RE-17 plantilla.svg; rpl RETMP RE-18 plantilla.svg

mv 16.png tmp; mv 19.png 16.png; mv tmp 19.png; rpl RE-16 RETMP plantilla.svg; rpl RE-19 RE-16 plantilla.svg; rpl RETMP RE-19 plantilla.svg

}


desordena1


# AÑADIMOS OPERACIONES Y RESULTADOS A LA PLANTILLA

if [ $DECIMALES = "FALSE" ];then
rpl -- OP0 `cat operaciones |awk '{print $1}'` plantilla.svg;resultado=`cat opera|awk '{print $1}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE0 `echo $resultado` plantilla.svg

rpl -- OP1 `cat operaciones |awk '{print $2}'` plantilla.svg;resultado=`cat opera|awk '{print $2}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE1 `echo $resultado` plantilla.svg

rpl -- OP2 `cat operaciones |awk '{print $3}'` plantilla.svg;resultado=`cat opera|awk '{print $3}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE2 `echo $resultado` plantilla.svg

rpl -- OP3 `cat operaciones |awk '{print $4}'` plantilla.svg;resultado=`cat opera|awk '{print $4}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE3 `echo $resultado` plantilla.svg

rpl -- OP4 `cat operaciones |awk '{print $5}'` plantilla.svg;resultado=`cat opera|awk '{print $5}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE4 `echo $resultado` plantilla.svg

rpl -- OP5 `cat operaciones |awk '{print $6}'` plantilla.svg;resultado=`cat opera|awk '{print $6}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE5 `echo $resultado` plantilla.svg

rpl -- OP6 `cat operaciones |awk '{print $7}'` plantilla.svg;resultado=`cat opera|awk '{print $7}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE6 `echo $resultado` plantilla.svg

rpl -- OP7 `cat operaciones |awk '{print $8}'` plantilla.svg;resultado=`cat opera|awk '{print $8}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE7 `echo $resultado` plantilla.svg

rpl -- OP8 `cat operaciones |awk '{print $9}'` plantilla.svg;resultado=`cat opera|awk '{print $9}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE8 `echo $resultado` plantilla.svg

rpl -- OP9 `cat operaciones |awk '{print $10}'` plantilla.svg;resultado=`cat opera|awk '{print $10}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE9 `echo $resultado` plantilla.svg

rpl -- OP-10 `cat operaciones |awk '{print $11}'` plantilla.svg;resultado=`cat opera|awk '{print $11}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-10 `echo $resultado` plantilla.svg

rpl -- OP-11 `cat operaciones |awk '{print $12}'` plantilla.svg;resultado=`cat opera|awk '{print $12}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-11 `echo $resultado` plantilla.svg

rpl -- OP-12 `cat operaciones |awk '{print $13}'` plantilla.svg;resultado=`cat opera|awk '{print $13}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-12 `echo $resultado` plantilla.svg

rpl -- OP-13 `cat operaciones |awk '{print $14}'` plantilla.svg;resultado=`cat opera|awk '{print $14}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-13 `echo $resultado` plantilla.svg

rpl -- OP-14 `cat operaciones |awk '{print $15}'` plantilla.svg;resultado=`cat opera|awk '{print $15}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-14 `echo $resultado` plantilla.svg

rpl -- OP-15 `cat operaciones |awk '{print $16}'` plantilla.svg;resultado=`cat opera|awk '{print $16}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-15 `echo $resultado` plantilla.svg

rpl -- OP-16 `cat operaciones |awk '{print $17}'` plantilla.svg;resultado=`cat opera|awk '{print $17}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-16 `echo $resultado` plantilla.svg

rpl -- OP-17 `cat operaciones |awk '{print $18}'` plantilla.svg;resultado=`cat opera|awk '{print $18}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-17 `echo $resultado` plantilla.svg

rpl -- OP-18 `cat operaciones |awk '{print $19}'` plantilla.svg;resultado=`cat opera|awk '{print $19}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-18 `echo $resultado` plantilla.svg

rpl -- OP-19 `cat operaciones |awk '{print $20}'` plantilla.svg;resultado=`cat opera|awk '{print $20}'|bc`; 
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-19 `echo $resultado` plantilla.svg

else

rpl -- OP0 `cat operaciones |awk '{print $1}'` plantilla.svg;resultado=`cat opera|awk '{print $1}'|xargs echo "scale=2;"|bc`;
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE0 `echo $resultado` plantilla.svg


rpl -- OP1 `cat operaciones |awk '{print $2}'` plantilla.svg;resultado=`cat opera|awk '{print $2}'|xargs echo "scale=2;"|bc`;
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE1 `echo $resultado` plantilla.svg


rpl -- OP2 `cat operaciones |awk '{print $3}'` plantilla.svg;resultado=`cat opera|awk '{print $3}'|xargs echo "scale=2;"|bc`;
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE2 `echo $resultado` plantilla.svg


rpl -- OP3 `cat operaciones |awk '{print $4}'` plantilla.svg;resultado=`cat opera|awk '{print $4}'|xargs echo "scale=2;"|bc`;
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE3 `echo $resultado` plantilla.svg


rpl -- OP4 `cat operaciones |awk '{print $5}'` plantilla.svg;resultado=`cat opera|awk '{print $5}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE4 `echo $resultado` plantilla.svg


rpl -- OP5 `cat operaciones |awk '{print $6}'` plantilla.svg;resultado=`cat opera|awk '{print $6}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE5 `echo $resultado` plantilla.svg


rpl -- OP6 `cat operaciones |awk '{print $7}'` plantilla.svg;resultado=`cat opera|awk '{print $7}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE6 `echo $resultado` plantilla.svg


rpl -- OP7 `cat operaciones |awk '{print $8}'` plantilla.svg;resultado=`cat opera|awk '{print $8}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE7 `echo $resultado` plantilla.svg


rpl -- OP8 `cat operaciones |awk '{print $9}'` plantilla.svg;resultado=`cat opera|awk '{print $9}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE8 `echo $resultado` plantilla.svg


rpl -- OP9 `cat operaciones |awk '{print $10}'` plantilla.svg;resultado=`cat opera|awk '{print $10}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE9 `echo $resultado` plantilla.svg


rpl -- OP-10 `cat operaciones |awk '{print $11}'` plantilla.svg;resultado=`cat opera|awk '{print $11}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-10 `echo $resultado` plantilla.svg


rpl -- OP-11 `cat operaciones |awk '{print $12}'` plantilla.svg;resultado=`cat opera|awk '{print $12}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-11 `echo $resultado` plantilla.svg


rpl -- OP-12 `cat operaciones |awk '{print $13}'` plantilla.svg;resultado=`cat opera|awk '{print $13}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-12 `echo $resultado` plantilla.svg


rpl -- OP-13 `cat operaciones |awk '{print $14}'` plantilla.svg;resultado=`cat opera|awk '{print $14}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-13 `echo $resultado` plantilla.svg


rpl -- OP-14 `cat operaciones |awk '{print $15}'` plantilla.svg;resultado=`cat opera|awk '{print $15}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-14 `echo $resultado` plantilla.svg


rpl -- OP-15 `cat operaciones |awk '{print $16}'` plantilla.svg;resultado=`cat opera|awk '{print $16}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-15 `echo $resultado` plantilla.svg


rpl -- OP-16 `cat operaciones |awk '{print $17}'` plantilla.svg;resultado=`cat opera|awk '{print $17}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-16 `echo $resultado` plantilla.svg


rpl -- OP-17 `cat operaciones |awk '{print $18}'` plantilla.svg;resultado=`cat opera|awk '{print $18}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-17 `echo $resultado` plantilla.svg


rpl -- OP-18 `cat operaciones |awk '{print $19}'` plantilla.svg;resultado=`cat opera|awk '{print $19}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-18 `echo $resultado` plantilla.svg


rpl -- OP-19 `cat operaciones |awk '{print $20}'` plantilla.svg;resultado=`cat opera|awk '{print $20}'|xargs echo "scale=2;"|bc`; 
#UGLYFIX 0,5 sale como .5 y -0,5 como -.5
punto=${resultado::1}
if [ "$punto" = "-" ];then
	punto=${resultado:1:1}
	if [ "$punto" = "." ];then
		resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
	fi
elif [ "$punto" = "." ];then
	resultado=`echo $resultado|sed -r 's/^(-?)./\10./'`
fi
resultado=`echo $resultado|sed 's/\./,/'`
rpl -- RE-19 `echo $resultado` plantilla.svg

fi


sleep 5;killall notify-osd &
inkscape plantilla.svg

inkscape -d 300 -A ~/PUZZLE$TAMANIO.pdf plantilla.svg

atril ~/PUZZLE$TAMANIO.pdf
