[BACK]Return to functionplotresponse.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/functionplotresponse.pm between versions 1.86 and 1.87

version 1.86, 2011/11/24 13:43:21 version 1.87, 2011/11/24 15:43:08
Line 783  sub start_functionplotvectorrule { Line 783  sub start_functionplotvectorrule {
       $vector=~s/\W//gs;        $vector=~s/\W//gs;
       $vector=ucfirst($vector);        $vector=ucfirst($vector);
   
       my $attachpoint=&Apache::lonxml::get_param('attachpoint',$parstack,$safeeval);  
       $attachpoint=~s/\W//gs;  
       $attachpoint=ucfirst($attachpoint);  
   
       my $notattachpoint=&Apache::lonxml::get_param('notattachpoint',$parstack,$safeeval);  
       $notattachpoint=~s/\W//gs;  
       $notattachpoint=ucfirst($notattachpoint);  
   
       my $tailpoint=&Apache::lonxml::get_param('tailpoint',$parstack,$safeeval);  
       $tailpoint=~s/\W//gs;  
       $tailpoint=ucfirst($tailpoint);  
       my $tippoint=&Apache::lonxml::get_param('tippoint',$parstack,$safeeval);  
       $tippoint=~s/\W//gs;  
       $tippoint=ucfirst($tippoint);  
   
       my $nottailpoint=&Apache::lonxml::get_param('nottailpoint',$parstack,$safeeval);  
       $nottailpoint=~s/\W//gs;  
       $nottailpoint=ucfirst($nottailpoint);  
       my $nottippoint=&Apache::lonxml::get_param('nottippoint',$parstack,$safeeval);  
       $nottippoint=~s/\W//gs;  
       $nottippoint=ucfirst($nottippoint);  
   
       push(@Apache::functionplotresponse::functionplotvectorrules,join(':',(        push(@Apache::functionplotresponse::functionplotvectorrules,join(':',(
            $label,             $label,
            'vector',             'vector',
            $internalid,             $internalid,
            $vector,             $vector,
            $attachpoint,             &Apache::lonxml::get_param('attachpoint',$parstack,$safeeval),
            $notattachpoint,             &Apache::lonxml::get_param('notattachpoint',$parstack,$safeeval),
            $tailpoint,             &Apache::lonxml::get_param('tailpoint',$parstack,$safeeval),
            $tippoint,             &Apache::lonxml::get_param('tippoint',$parstack,$safeeval),
            $nottailpoint,             &Apache::lonxml::get_param('nottailpoint',$parstack,$safeeval),
            $nottippoint,             &Apache::lonxml::get_param('nottippoint',$parstack,$safeeval),
            &Apache::lonxml::get_param('length',$parstack,$safeeval),             &Apache::lonxml::get_param('length',$parstack,$safeeval),
            &Apache::lonxml::get_param('angle',$parstack,$safeeval),             &Apache::lonxml::get_param('angle',$parstack,$safeeval),
            &Apache::lonxml::get_param('lengtherror',$parstack,$safeeval),             &Apache::lonxml::get_param('lengtherror',$parstack,$safeeval),
Line 850  sub start_functionplotvectorrule { Line 828  sub start_functionplotvectorrule {
              &Apache::edit::end_row();               &Apache::edit::end_row();
   } elsif ($target eq 'modified') {    } elsif ($target eq 'modified') {
     $env{'form.'.&Apache::edit::html_element_name('vector')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('vector')});      $env{'form.'.&Apache::edit::html_element_name('vector')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('vector')});
     $env{'form.'.&Apache::edit::html_element_name('attachpoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('attachpoint')});  
     $env{'form.'.&Apache::edit::html_element_name('notattachpoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('notattachpoint')});  
     $env{'form.'.&Apache::edit::html_element_name('tailpoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('tailpoint')});  
     $env{'form.'.&Apache::edit::html_element_name('tippoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('tippoint')});  
     $env{'form.'.&Apache::edit::html_element_name('nottailpoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('nottailpoint')});  
     $env{'form.'.&Apache::edit::html_element_name('nottippoint')}=ucfirst($env{'form.'.&Apache::edit::html_element_name('nottippoint')});  
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,      my $constructtag=&Apache::edit::get_new_args($token,$parstack,
                                                  $safeeval,'index','vector','attachpoint','notattachpoint',                                                   $safeeval,'index','vector','attachpoint','notattachpoint',
                                                            'tailpoint','tippoint','nottailpoint','nottipoint',                                                             'tailpoint','tippoint','nottailpoint','nottipoint',
Line 1470  sub objectcoords { Line 1442  sub objectcoords {
 }  }
   
 sub attached {  sub attached {
    my ($id,$vector,$object,$xmin,$xmax,$ymin,$ymax)=@_;     my ($id,$vector,$objects,$xmin,$xmax,$ymin,$ymax)=@_;
    my ($xs,$xe,$ys,$ye)=&vectorcoords($id,$vector);     my ($xs,$xe,$ys,$ye)=&vectorcoords($id,$vector);
    my ($xo,$yo)=&objectcoords($id,$object);  
    my $tolx=($xmax-$xmin)/100.;     my $tolx=($xmax-$xmin)/100.;
    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,$ys)-($xe,$ye) to $object ($xo,$yo)");     foreach my $obj (split(/\s*\,\s*/,$objects)) {
    if ((abs($xs-$xo)<$tolx) && (abs($ys-$yo)<$toly)) { $tail=1; }        $obj=~s/\W//g;
    if ((abs($xe-$xo)<$tolx) && (abs($ye-$yo)<$toly)) { $tip=1; }        unless ($obj) { next; }
         $obj=ucfirst($obj);
         my ($xo,$yo)=&objectcoords($id,$obj);
         &addlog("Proximity $vector ($xs,$ys)-($xe,$ye) to $obj ($xo,$yo)");
         if ((abs($xs-$xo)<$tolx) && (abs($ys-$yo)<$toly)) {
            $tail=1;
            &addlog("Attached tail: $obj"); 
         }
         if ((abs($xe-$xo)<$tolx) && (abs($ye-$yo)<$toly)) { 
            $tip=1;
            &addlog("Attached tip: $obj"); 
         }
      }
    &addlog("Result tail:$tail tip:$tip");     &addlog("Result tail:$tail tip:$tip");
    return($tail,$tip);     return($tail,$tip);
 }  }
Removed from v.1.86  
changed lines
  Added in v.1.87

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>