Kirlian V1.0

Script en memoria del presidente de SVLINUX.
#!/bin/bash
#abcr 5
#abcw 16
#abcx 27
# 1111111111
# 1111001111
# 1111001111
# 1111001111
# 1111111111
# 1111011100
# 1110000111
# 1110000111
# 1110000111
# 1110000111

# 1100000011
# 1100000011
# 1100000011
# 1100000011
# 1100110011
# 1100110011
# 1100110011
# 1101111011
# 1110000111
# 1110000111

# 1100000011
# 1100000011
# 0110000110
# 0011001100
# 0001111000
# 0001111000
# 0011001100
# 0110000110
# 1100000011
# 1100000011
#kirlian VERSION 1.0
function viz(){
filas=0
while [ $filas -le 9 ]
do
conletra=0
aaa=`echo $1`
while [ $conletra -le 2 ]
do
letra=` echo ${aaa:$conletra:1} `
if [ $letra != "-" ]
then
com="abc"$letra
xmin=` cat /usr/bin/kirlian | grep "$com" | awk ' { print $2 } ' `
FX=` expr $xmin + $filas `
row=` cat /usr/bin/kirlian | awk ' NR == '$FX' { print $2 } ' `
if [ $conletra -ne 2 ]
then
echo -n $row"000" >> temp
else
echo $row >> temp
fi
else
if [ $conletra -eq 2 ]
then
echo >> temp
fi
fi
conletra=` expr $conletra + 1 `
done
filas=` expr $filas + 1 `
done
clear
xminx=1
while [ $xminx -le 10 ]
do
col1=` cat temp | awk ' NR == '$xminx' { print $0 } '`
tamano=` echo ${#col1} `
tam2=` expr $tamano - 1 `
bit=0
while [ $bit -lt $tamano ]
do
col2=` echo ${col1:$bit:1} `
if [ $bit -ne $tam2 ]
then
if [ $col2 = "1" ]
then
echo -n "@"
else
echo -n " "
fi
else
if [ $col2 = "1" ]
then
echo "@"
else
echo " "
fi
fi
bit=` expr $bit + 1 `
done
xminx=` expr $xminx + 1 `
done
rm -rf temp
}
clear
if [ -z $1 ]
then
clear
echo "Uso:"
echo "kirlian nombre_archivo"
echo "kirlian memorial"
echo "kirlian about"
else
if [ -f $1 ]
then
permisos=` vdir $1 | awk ' { print $1 } ' `
octal=` echo ${permisos:1:3} `
case $octal in
---)
clear
echo "El archivo o directorio no posee permisos";;
*)
viz $octal
echo
vdir $1
echo;;
esac
else
case $1 in
memorial)
clear
echo "En memoria de Kirlian Zepeda.";;
about)
clear
echo "kirlian v1.0 Released GPL, juliux@juliux.org!!!";;
*)
clear
echo "$1 no es archivo!";;
esac
fi
fi