+++ /dev/null
-#! /usr/bin/perl
-my ($px, $py);
-while (<>) {
- my ($ix, $iy) = /^(\d+) (\d+)$/ or die;
- my ($x) = ($ix - 206) / (436 - 206) * (28 - 23) + 23;
- my ($y) = ($iy - 126) / (287 - 126) * (60 - 0) + 0;
- printf "%.2f %.2f\n", $x, $py if defined $py;
- printf "%.2f %.2f\n", $x, $y;
- ($px, $py) = ($x, $y);
-}