#!/bin/perl
my $x0 = 277555;
my $x1 = 2595852;
my $y0 = 191000;
my $y1 = 2598000;
my $al = ($y1 - $y0)/($x1 - $x0);
my $be = $y0 - $al * $x0;
open(IN , "a.smi");
open(OUT,">b.smi");
while($aline=<IN>) {
	if($aline =~ /SYNC Start/i) {
		my ($a,$b) = split(/SYNC Start=/i,$aline,2);
		my ($c,$d) = split(/\>/,$b,2);
		#my $num = int($c * $var);
		my $num = int($c * $al + $be);
		$aline="${a}SYNC Start=$num>$d";
	}
	print OUT $aline;
}
close(IN);
close(OUT);