#!/usr/bin/perl

#======================================================================

#                    T E S T _ V E L B E A M T O B E A M P A I R 

#                    doc: Thu May 21 13:40:27 2009

#                    dlm: Thu May 21 15:03:47 2009

#                    (c) 2009 A.M. Thurnherr

#                    uE-Info: 89 24 NIL 0 0 72 0 2 4 NIL ofnI

#======================================================================

require	"RDI_Coords.pl";

$dta{CONVEX_BEAM_PATTERN} = 1;

$dta{BEAM_ANGLE} = 20;

#---------------------------------------

# Case 1: uplooker, bin 3 pointing south

#---------------------------------------

$dta{ENSEMBLE}[0]->{XDUCER_FACING_UP} = 1;

$dta{ENSEMBLE}[0]->{HEADING} = 180;

$dta{ENSEMBLE}[0]->{PITCH} = 0;

$dta{ENSEMBLE}[0]->{ROLL} = 0;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,2,1,0,0));

@ant = velBeamToBeamPair(\%dta,0,2,1,0,0);

die("1: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]-$ant[0]) < 1e-6);

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,0,0,1,3));

@ant = velBeamToBeamPair(\%dta,0,0,0,1,3);

die("2: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

$dta{ENSEMBLE}[0]->{PITCH} = 20;

$dta{ENSEMBLE}[0]->{ROLL} = 0;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,2,1,2,1));

@ant = velBeamToBeamPair(\%dta,0,2,1,2,1);

die("3: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]-$ant[0]) < 1e-6);

die("4: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

$dta{ENSEMBLE}[0]->{PITCH} = 0;

$dta{ENSEMBLE}[0]->{ROLL} = 15;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,-2,-0.5,-2,-0.5));

@ant = velBeamToBeamPair(\%dta,0,-2,-0.5,-2,-0.5);

die("5: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]-$ant[0]) < 1e-6);

die("6: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

#-----------------------------------------

# Case 1: downlooker, bin 3 pointing south

#-----------------------------------------

$dta{ENSEMBLE}[0]->{XDUCER_FACING_UP} = 0;

$dta{ENSEMBLE}[0]->{HEADING} = 180;

$dta{ENSEMBLE}[0]->{PITCH} = 0;

$dta{ENSEMBLE}[0]->{ROLL} = 0;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,2,1,0,0));

@ant = velBeamToBeamPair(\%dta,0,2,1,0,0);

die("7: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]+$ant[0]) < 1e-6);

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,0,0,1,3));

@ant = velBeamToBeamPair(\%dta,0,0,0,1,3);

die("8: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

$dta{ENSEMBLE}[0]->{PITCH} = 20;

$dta{ENSEMBLE}[0]->{ROLL} = 0;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,2,1,2,1));

@ant = velBeamToBeamPair(\%dta,0,2,1,2,1);

die("9: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]+$ant[0]) < 1e-6);

die("10: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

$dta{ENSEMBLE}[0]->{PITCH} = 0;

$dta{ENSEMBLE}[0]->{ROLL} = 15;

@RDI = velInstrumentToEarth(\%dta,0,velBeamToInstrument(\%dta,-2,-0.5,-2,-0.5));

@ant = velBeamToBeamPair(\%dta,0,-2,-0.5,-2,-0.5);

die("11: $RDI[0] $ant[0]\n")

	unless (abs($RDI[0]+$ant[0]) < 1e-6);

die("12: $RDI[1] $ant[2]\n")

	unless (abs($RDI[1]-$ant[2]) < 1e-6);

#----------------------------------------------------------------------

print(STDERR "ok\n");