1 #!/usr/bin/perl

     2 #======================================================================

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

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

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

     6 #                    (c) 2009 A.M. Thurnherr

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

     8 #======================================================================

     9 

    10 require	"RDI_Coords.pl";

    11 

    12 $dta{CONVEX_BEAM_PATTERN} = 1;

    13 $dta{BEAM_ANGLE} = 20;

    14 

    15 #---------------------------------------

    16 # Case 1: uplooker, bin 3 pointing south

    17 #---------------------------------------

    18 

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

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

    21 

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

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

    24 

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

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

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

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

    29 

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

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

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

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

    34 

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

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

    37 

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

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

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

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

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

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

    44 

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

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

    47 

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

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

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

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

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

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

    54 

    55 #-----------------------------------------

    56 # Case 1: downlooker, bin 3 pointing south

    57 #-----------------------------------------

    58 

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

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

    61 

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

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

    64 

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

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

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

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

    69 

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

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

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

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

    74 

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

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

    77 

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

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

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

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

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

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

    84 

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

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

    87 

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

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

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

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

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

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

    94 

    95 #----------------------------------------------------------------------

    96 

    97 print(STDERR "ok\n");