Clarify.
[pintos-anon] / doc / mlfqs2i
1 #! /usr/bin/perl
2 print "0 0\n";
3 while (<>) {
4     my ($ix, $iy) = /^(\d+) (\d+)$/ or die;
5     my ($x) = ($ix - 201) / (443 - 201) * 60;
6     my ($y) = ($iy - 456) / (645 - 456) * 25;
7     printf "%.2f %.2f\n", $x, $y;
8 }