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