#!/bin/sh
set -ex

xpixels=1024
ypixels=768
ypersamp=8
fsd=0.3

perl -e <t.nmra.dat '
	for (;;) {
		@l= ();
		$ticks= "";
		undef $tickat;
		print "\n"x3;
		for ($x=0; $x<'$xpixels'; $x++) {
			$_= <>;
			last unless length;
			next if m/^\;/;
			m/^\s*([-e0-9.]+)\s+([-0-9.]+)\s*$/ or die;
			($t,$samp)=($1,$2);
			$h= sprintf "%d",
				($samp/(2.0*'$fsd') + 0.5) * ('$ypersamp'-1);
			for ($y=0, $l=0; $y<'$ypersamp'; $y+=2, $l++) {
				$c= $h==$y ? "_" : $h==$y+1 ? "~" : " ";
				$l[$l] .= $c;
			}
			if (!defined $tickat && $samp > 0 && $lastsamp < 0) {
				$tickat= $t;
			}
			if (defined $tickat && $t >= $tickat) {
				$ticks.= ".";
				$tickat += 58e-6 * 2;
			} else {
				$ticks.= " ";
			}
			$lastsamp= $samp if $samp < 0 || $samp > 0;
		}
		foreach $l (reverse @l) {
			print $l, "\n" or die $!;
		}
		print "\n"x2, $ticks, "\n"x6 or die $!;
		last unless length;
	}
' >t.nmra.ptxt

xterm -fn nil2 \
	-geometry ${xpixels}x$(($ypixels * ($ypsersamp+1)/2)) \
	-e less -sS t.nmra$rate.ptxt

exit 0