#!C:/perl/bin/perl.exe use CGI; $query = new CGI; $xcoord= $query->param('xcoord'); $ycoord= $query->param('ycoord'); $xmin= $query->param('xmin'); $xmax= $query->param('xmax'); #--------------------------- $b = (17/($xmax - $xmin)); $a = -1*($b*$xmin); $xcoordnew= $a + $b*$xcoord; $ycoordnew= $a + $b*$ycoord; $xcoordnew = sprintf("%.0f", $xcoordnew); $ycoordnew = sprintf("%.0f", $ycoordnew); #--------------------------- print $query->header; print $query->start_html(-title=>'2D Graph Demo'); print ""; print "
"; print ""; for($y = 17; $y >= 0; --$y){ print ""; for($x = 0; $x <= 17; ++$x){ print ""; } print ""; } print "
"; if($xcoordnew == $x && $ycoordnew ==$y){ print "X"; } else{ if($y == 0){ $labelx = $xmin + (($xmax-$xmin)/17)*$x; $labelx = sprintf("%.1f", $labelx); print "$labelx"; } if($x == 0 && $y != 0){ $labely = $xmin + (($xmax-$xmin)/17)*$y; $labely = sprintf("%.1f", $labely); print "$labely"; } if($x != 0 && $y != 0){ print "   "; } } print "
"; print "
"; print "
Original (x, y) coordinates: ($xcoord, $ycoord)
"; print "Transformed coordinates: ($xcoordnew, $ycoordnew)
"; print $query->end_html;