#!/bin/bash

#Xvfb :3 &
#xpid=$!
#export DISPLAY=:3

#cp configs/help3demo.gier default.gier
cp configs/drum3ga4.gier default.gier

cat >jop.demo <<EOF
SOUND 0
LOADREADER tapes/mk/000.asc
LOADPUNCH 1p.flx
WAITINPUT
$(./maketext.sh 'r<')
WAITINPUT
$(./maketext.sh 'p,print,work,_p<')
WAITINPUT
FINISHPUNCH
LOADPUNCH 1r.flx
$(./maketext.sh 'p,print,work,_r_x<')
WAITINPUT
FINISHPUNCH
LOADPUNCH 1i.flx
$(./maketext.sh 'p,print,work,_i_x<')
WAITINPUT
FINISHPUNCH
LOADPUNCH 0.flx
DEBUG 100
$(./maketext.sh 'run<')
SELECT 3 48
WAITINPUT
LOADREADER /home/mk/gier/otzentapes/jop02x.asc
# t1 ilt
$(./maketext.sh "3.0,30,")
WAITINPUT
LOADREADER /home/mk/gier/otzentapes/jop13x.flx
$(./maketext.sh ' ')
WAITINPUT
# 1/Hp
$(./maketext.sh '1.5,')
# M, X, Y, Z, qfit
$(./maketext.sh '6, .7, .28, .02, .2,')
# Log Te, Log L/Ls, Log Tc, Log rhoc
$(./maketext.sh '4.29, 3.06, 7.43, 1.14,')
# choose
$(./maketext.sh '1')
# a: automatic
$(./maketext.sh 'a')
# autm:=2
$(./maketext.sh '2,')
# stop
$(./maketext.sh 's')
WAITINPUT
FINISHPUNCH
DEBUG 0
QUIT
EOF
./GIER ./jop.demo

./flx2a <0.flx >0.asc
./flx2a <1p.flx >1p.asc
./flx2a <1r.flx >1r.asc
./flx2a <1i.flx >1i.asc
paste 1p.asc 1r.asc 1i.asc >1pri.asc
grep '^LK' gier.debug|cut -f3|sort -n|uniq -c >debug.LK
first=`head -2 <1p.asc|tail -1|perl -pe 's/^.*?(\d+)\./$1/g'`
sort -n <debug.LK | \
while read count track
do
  reltrack=$((track-first))
  lineno=$((reltrack*41+3))
  /bin/echo -e $count\\t$track\\t$reltrack\\t$lineno
done >debug.LK.sort

#kill $xpid