diff options
Diffstat (limited to 'mkdlatbl.pl')
| -rw-r--r-- | mkdlatbl.pl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/mkdlatbl.pl b/mkdlatbl.pl index a941d38..37fb31b 100644 --- a/mkdlatbl.pl +++ b/mkdlatbl.pl @@ -12,8 +12,8 @@ sub bdcos { return cos($_[0] / 128 * $PI); } -$centerx = 127; -$centery = 95; +$centerx = 85; +$centery = 85; for $r (15, 30, 45, 75) { push @xmin, $centerx - ($r + 10); @@ -28,6 +28,9 @@ for $r (15, 30, 45, 75) { } } +print "center_x = $centerx\n"; +print "center_y = $centery\n"; + print "xmin:\n"; for(@xmin) { print " .byte $_\n"; @@ -35,6 +38,7 @@ for(@xmin) { print "xmax:\n"; for(@xmax) { + $_ = 169 if $_ >= 170; print " .byte $_\n"; } @@ -45,6 +49,7 @@ for(@ymin) { print "ymax:\n"; for(@ymax) { + $_ = 169 if $_ >= 170; print " .byte $_\n"; } |