Select Code to Download

Select or download this

        339        508  345.92214  512.55747
        314        518  318.48381   516.9291
        265        533  274.68006  530.37545
        245        537  248.82152  537.19123
        228        544  227.20604  544.26418

Select or download this

        207        550  213.15752  551.70605
        206        569  209.79236  571.16027
        205        602  208.69494  603.29318
        203        621  207.30388  622.07696
        201        638  207.08208  637.97918

Select or download this

my ($px, $py) = fitwarp2d($red_out_x, $red_out_y, $red_in_x, $red_in_y
+, 2);

my ($blue_new_x, $blue_new_y) = applywarp2d($px, $py, $blue_in_x, $blu
+e_in_y);

#say for $blue_out_x, $blue_out_y, $blue_new_x, $blue_new_y, $blue_out
+_x - $blue_new_x, $blue_out_y - $blue_new_y;