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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
|
diff --git a/weatherspect b/weatherspect
index 1e98fe7..76f615b 100644
--- a/weatherspect
+++ b/weatherspect
@@ -44,6 +44,8 @@
#############################################################################
use Term::Animation 2.5;
+use Compass::Points;
+use JSON;
use Curses;
use Data::Dumper;
@@ -5227,179 +5229,3 @@ Copyright (C) 2018 Edgar (Edgar@AnotherFoxGuy). All rights reserved. Use is su
1;
}
-
-
-# From http://search.cpan.org/~janus/Compass-Points-0.02/lib/Compass/Points.pm
-BEGIN{
-package Compass::Points;
-
-use strict;
-use warnings;
-
-our $VERSION = "0.02";
-
-our @FIELDS = qw( abbr name );
-our @NAMES = (
- [ N => "North" ],
- [ NbE => "North by east" ],
- [ NNE => "North-northeast" ],
- [ NEbN => "Northeast by north" ],
- [ NE => "Northeast" ],
- [ NEbE => "Northeast by east" ],
- [ ENE => "East-northeast" ],
- [ EbN => "East by north" ],
- [ E => "East" ],
- [ EbS => "East by south" ],
- [ ESE => "East-southeast" ],
- [ SEbE => "Southeast by east" ],
- [ SE => "Southeast" ],
- [ SEbS => "Southeast by south" ],
- [ SSE => "South-southeast" ],
- [ SbE => "South by east" ],
- [ S => "South" ],
- [ SbW => "South by west" ],
- [ SSW => "South-southwest" ],
- [ SWbS => "Southwest by south" ],
- [ SW => "Southwest" ],
- [ SWbW => "Southwest by west" ],
- [ WSW => "West-southwest" ],
- [ WbS => "West by south" ],
- [ W => "West" ],
- [ WbN => "West by north" ],
- [ WNW => "West-northwest" ],
- [ NWbW => "Northwest by west" ],
- [ NW => "Northwest" ],
- [ NWbN => "Northwest by north" ],
- [ NNW => "North-northwest" ],
- [ NbW => "North by west" ],
-);
-our @GROUP; # separate groups to assign different degree values
-our @INDEX; # index per group
-our @MAP; # mapping for easy access
-
-for my $n ( 0 .. 3 ) {
- my $slice = 360 / ( 2 ** ( 2 + $n ) ); # 90, 45, 22.5, 11.25
- my $mod = 2 ** ( 3 - $n ); # 8, 4, 2, 1
- my @offs = grep $_ % $mod == 0, 0 .. $#NAMES; # 0,8,16,24 0,4,8,12,...
-
- $GROUP[ $n ] = bless( [], __PACKAGE__ );
-
- for my $m ( 0 .. $#offs ) {
- my @entry = @{ $NAMES[ $offs[ $m ] ] };
-
- for my $key ( map lc, @entry ) {
- $key =~ s![^a-z]!!g;
-
- $INDEX[ $n ]{ $key } = \@entry;
- }
-
- $entry[ 2 ] = $m * $slice;
-
- $GROUP[ $n ][ $m ] = \@entry;
- }
-
- $MAP[ $_ ] = $n for @MAP .. $#offs;
-}
-
-sub new
-{
- my $class = shift;
- my $number = shift || 16;
-
- $number = @{ $GROUP[ $#GROUP ] }
- if $number > @{ $GROUP[ $#GROUP ] };
-
- return $GROUP[ $MAP[ $number - 1 ] ];
-}
-
-for my $offset ( 0 .. $#FIELDS ) {
- my $deg2sub = "deg2$FIELDS[ $offset ]";
- my $sub2deg = "$FIELDS[ $offset ]2deg";
-
- no strict qw( refs );
-
- *$deg2sub = sub {
- my $self = shift;
- my $deg = abs( shift || 0 );
-
- $deg -= 360 while $deg > 360;
-
- my $slice = 360 / @$self;
- my $index = ( $deg + $slice / 2 ) / $slice;
-
- return $self->[ $index ][ $offset ];
- };
-
- *$sub2deg = sub {
- my $self = shift;
- my $key = lc( shift || "" );
- my $index = $INDEX[ $MAP[ @$self - 1 ] ];
-
- $key =~ s![^a-z]!!g;
-
- return exists( $index->{ $key } )
- ? $index->{ $key }[ 2 ]
- : undef
- ;
- };
-}
-
-1;
-
-=head1 NAME
-
-Compass::Points - Convert between compass point names, abbreviations and values
-
-=head1 SYNOPSIS
-
- use Compass::Points;
- my $points = Compass::Points->new();
- my $deg = $points->abbr2deg( "NNE" );
-
-=head1 DESCRIPTION
-
-This module converts compass point names and abbreviations to degrees
-and vice versa.
-It supports four different compass point systems: 4, 8, 16 and 32.
-The default is 16 and can be used for wind compass usage.
-
-=head1 METHODS
-
-=head2 new( [ $points ] )
-
-Returns a Compass::Points object for the number of points (defaults to 16).
-
-=head2 deg2abbr( $degree )
-
-Takes a degree value and returns the corresponding abbreviation for the
-matching wind name.
-
-=head2 deg2name( $degree )
-
-Same as deg2abbr() but returns the full wind name.
-
-=head2 abbr2deg( $abbreviation )
-
-Given a wind name abbreviation returns the degree of the points object.
-
-=head2 name2deg( $name )
-
-Same as abbr2deg() but takes full wind names.
-
-=head1 SEE ALSO
-
-L<http://en.wikipedia.org/wiki/Points_of_the_compass>
-
-=head1 AUTHOR
-
-Simon Bertrang, E<lt>janus@cpan.orgE<gt>
-
-=head1 COPYRIGHT AND LICENSE
-
-Copyright (C) 2014 by Simon Bertrang
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut
-}
|