… | |
… | |
200 | 13 => [3, 6, 9], |
200 | 13 => [3, 6, 9], |
201 | 19 => [3, 9, 15], |
201 | 19 => [3, 9, 15], |
202 | ); |
202 | ); |
203 | our %HANDICAP_XY = ( |
203 | our %HANDICAP_XY = ( |
204 | 2 => [qw(0,2 2,0 )], |
204 | 2 => [qw(0,2 2,0 )], |
205 | 3 => [qw(0,2 2,0 2,2 )], |
205 | 3 => [qw(0,2 2,0 0,0 )], |
206 | 4 => [qw(0,2 2,0 2,2 0,0 )], |
206 | 4 => [qw(0,2 2,0 0,0 2,2 )], |
207 | 5 => [qw(0,2 2,0 2,2 0,0 1,1)], |
207 | 5 => [qw(0,2 2,0 0,0 2,2 1,1)], |
208 | 6 => [qw(0,2 2,0 2,2 0,0 0,1 2,1 )], |
208 | 6 => [qw(0,2 2,0 0,0 2,2 0,1 2,1 )], |
209 | 7 => [qw(0,2 2,0 2,2 0,0 0,1 2,1 1,1)], |
209 | 7 => [qw(0,2 2,0 0,0 2,2 0,1 2,1 1,1)], |
210 | 8 => [qw(0,2 2,0 2,2 0,0 0,1 2,1 1,0 1,2 )], |
210 | 8 => [qw(0,2 2,0 0,0 2,2 0,1 2,1 1,0 1,2 )], |
211 | 9 => [qw(0,2 2,0 2,2 0,0 0,1 2,1 1,0 1,2 1,1)], |
211 | 9 => [qw(0,2 2,0 0,0 2,2 0,1 2,1 1,0 1,2 1,1)], |
212 | ); |
212 | ); |
213 | |
213 | |
214 | sub update { |
214 | sub update { |
215 | my ($self, $path) = @_; |
215 | my ($self, $path) = @_; |
216 | |
216 | |