loncom/homework/functionplotresponse.pm - diff

Return to functionplotresponse.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.85, 2011/11/22 02:13:37	version 1.86, 2011/11/24 13:43:21
Line 1477 sub attached {	Line 1477 sub attached {
my $toly=($ymax-$ymin)/100.;	my $toly=($ymax-$ymin)/100.;
my $tail=0;	my $tail=0;
my $tip=0;	my $tip=0;
&addlog("Proximity $vector ($xs,$xe,$ys,$ye) to $object ($xo,$yo)");	&addlog("Proximity $vector ($xs,$ys)-($xe,$ye) to $object ($xo,$yo)");
if ((abs($xs-$xo)<$tolx) && (abs($ys-$yo)<$toly)) { $tail=1; }	if ((abs($xs-$xo)<$tolx) && (abs($ys-$yo)<$toly)) { $tail=1; }
if ((abs($xe-$xo)<$tolx) && (abs($ye-$yo)<$toly)) { $tip=1; }	if ((abs($xe-$xo)<$tolx) && (abs($ye-$yo)<$toly)) { $tip=1; }
&addlog("Result tail:$tail tip:$tip");	&addlog("Result tail:$tail tip:$tip");