#! /usr/bin/perl
# convert radians to degrees/bams
die "usage: rad {radians}\n" if ($#ARGV != 0);
$rad = $ARGV[0];
$deg = $rad * 180.0 / 3.141592654;
$bam = int($rad * 32768 / 3.141592654) & 0xFFFF;
printf "%7.6f rad = %7.6f deg = %5d BAMs = 0x%04X BAMs\n",
                $rad, $deg, $bam, $bam;
