#!/bin/bash
# Sat Apr 24 23:25:04 EDT 2004
# Requires ANSI terminal emulation, and tput
# It's experimental, not not guaranteed to work everywhere
# Copyright 2004, Chris F.A. Johnson
# Released under the terms of the GNU General Public License

## special characters
NL=$'\n'
CR=$'\r'
TAB=$'\t'
ESC=$'\e'

## screen codes
CSI=$ESC[
NA=${CSI}0m
wbl=$'\e[0;1;44;37m'

stty=`stty -F /dev/tty -g`

sleepx() { ## 10ths of a second
    local delay=${1:-1}
    stty -icanon time ${delay#.} min 0
    dd bs=1 count=1 >/dev/null 2>&1
}

spread() {
    local string=" $* "
    local n=0
    tput civis
    local l=${#string}
    x=$(( COLUMNS / 2 ))
    while [ $(( n += 1 )) ] 
    do
      s="${string:0:n}${string: -$n}"
      [ ${#s} -gt ${l} ] && break
      printat 3 $(( $x - $n )) "$wbl$s$NA"
      sleepx 1
    done
    printat 3 $(( $x - $n )) "$wbl$string$NA"
    printat $(( $LINES - 1 )) 1
}

printat() { ## USAGE: printat row column string
    [ $# -lt 2 ] && return 1
    local y=${1:?}
    local x=${2:?}
    shift 2
    printf "\e[%d;%dH%b" ${y#-} ${x#-} "$*"
}

clear

cat <<EOF

  flag, by Chris F.A. Johnson

       This is a none-too-serious demo written as an opening screen
       to a voting script posted to Usenet a few years ago.

  Press ENTER to continue

EOF
read

bar=( $'\e[41m' $'\e[41m' $'\e[47m' $'\e[47m' )
s="   *"
s1="$s$s$s$s$s$s   "
s2="  $s$s$s$s$s     "
blank="                           "
st=( "$blank" "$s1" "$s2" "$s1" "$s2" "$s1" "$s2" "$s1" "$s2" "$s1" "$blank" )
w2=$(( ${#st[0]} * 5 / 2 ))
in=$(( ($COLUMNS - $w2) / 2 ))
rows=25
[ $rows -ge $LINES ] && rows=$(( $LINES - 1 ))

tput civis

flag=`
n=1
while [ $n -le $rows ]
do
  [ $n -lt 14 ] && w=${#st[n]} || w=0
  w3=$(( $w2 - $w ))
  printat $n 1
  printf "$NA%${in}s${wbl}%${w}.${w}s${bar[n%4]}%${w3}.${w3}s$NA" " " "${st[n]}"
  n=$(( $n  + 1 ))
done
`

echo "$flag"

px=$(( $w2 * $rows ))
sleepx 10

xx=0
while [ $(( xx += 1 )) -lt $(( $px * 2 )) ]
do
  printat $(( $RANDOM % ($rows + 1) + 1 ))  $(( $RANDOM % $w2 + $in + 1 )) " "
  printat $(( $RANDOM % ($rows + 1) + 1 ))  $(( $RANDOM % $w2 + $in + 1 )) " "
  printat 1 1 "\n"
#sleep .05
done 
clear

spread " WELCOME TO THE BALLOT BOX "
printat 1 1
tput cnorm
stty $stty