t/splat.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

#!perl
use 5.006;
use strict;
use warnings FATAL => 'all';
use Test::More;

plan tests => 2;

use Map::Splat;
my $map = Map::Splat->new(
  lon => -122.279,
  lat => 37.939,
  height => 300,
  freq => 2460,
  azimuth => 200,
  h_width => 180,
  v_width => 20,
  tilt => 2,
  max_loss => 180,
  min_loss => 30,
);
$map->calculate;
ok( defined $map->box, 'bounding box exists' );
ok( defined $map->png, 'PNG generated' );

$map->image->Write('splat.png');
use File::Slurp 'write_file';
write_file 'mask.png', $map->mask;