#!/bin/bash

deltav=30

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

do_plot()
{
  v=$1
  printf -v v0 "%03d" $v
  demofile=auplot4_$v0.demo
  echo "LOADCONFIG configs/aarhusorig.gier" > $demofile
  echo "HIDE KB1" >>$demofile
  echo "HIDE KB2" >>$demofile
  echo "LOADREADER tapes/mk/auplot4.asc" >>$demofile
  echo "LOADPUNCH auplot4out/auplot4type_$v0.flx" >>$demofile
  ./maketext.sh "r<" >>$demofile
  echo "WAITINPUT" >>$demofile
  echo "SELECT 3 48" >>$demofile
  echo "SELECT 4 64" >>$demofile
  ./maketext.sh "y<" >>$demofile
  echo "WAITINPUT" >>$demofile
  ./maketext.sh "$v," >>$demofile
  echo "WAITINPUT" >>$demofile
  echo "PLOTTERSIZE A4" >>$demofile
  echo "PLOTTERCENTER YES" >>$demofile
  echo "PLOTTERSCALEUP YES" >>$demofile
  echo "PLOTTERSCALEDOWN YES" >>$demofile
  echo "PLOTTERROTATE AUTO" >>$demofile
  echo "FINISHPUNCH" >>$demofile
  echo "FINISHPLOTTER auplot4out/auplot4_$v0.ps" >>$demofile
  echo "QUIT" >>$demofile
  ./GIER $demofile
  echo output $v0
  flx2a <auplot4out/auplot4type_$v0.flx
  rm -f $demofile
  sed 's/0.598614 setlinewidth/0.4 setlinewidth/g' <auplot4out/auplot4_$v0.ps >auplot4out/auplot4x_$v0.ps
  convert -alpha off -density 328.4 -depth 8 -rotate 270 -crop 3840x2160+0+554 +repage auplot4out/auplot4x_$v0.ps auplot4out/auplot4_$v0.tiff
}

export -f do_plot


rm -rf auplot4out
mkdir auplot4out

seq 0 $deltav 359 |parallel do_plot

rm -f auplot4.mp4
#ffmpeg -framerate 30 -pattern_type glob -i 'auplot4out/*.tiff' -c:v libx264 -vf format=yuv420p -movflags +faststart -r 30 auplot4.mp4
#scp auplot4.mp4 lemo.dk:/var/video/Videos/GIER

#ffmpeg -f lavfi -i anullsrc=channel_layout=stereo:sample_rate=44100 -framerate 30 -pattern_type glob -stream_loop 10 -i 'auplot4out/*.tiff' -c:v libx264 -c:a aac -r 30 -vf format=yuv420p -shortest -movflags +faststart auplot4b.mp4

echo kill $xpid
kill $xpid