Diff for /loncom/homework/functionplotresponse.pm between versions 1.73 and 1.74

version 1.73, 2011/11/18 18:54:21 version 1.74, 2011/11/18 19:32:48
Line 412  sub plotvector_script { Line 412  sub plotvector_script {
    my $pointlabel=$label.'Point';     my $pointlabel=$label.'Point';
    my $pointx=2.*($xmax-$xmin)+$xmax;     my $pointx=2.*($xmax-$xmin)+$xmax;
    my $anglelabel=$label.'Angle';     my $anglelabel=$label.'Angle';
    return(<<ENDVECTOR);     return 
 document.ggbApplet_$id.evalCommand("$startlabel=($xs,$ys)");         &new_point_coordinate($id,$startlabel,$xs,$ys,0).
 document.ggbApplet_$id.setVisible("$startlabel",false);         &new_point_coordinate($id,$endlabel,$xe,$ye,0).
 document.ggbApplet_$id.setLabelVisible("$startlabel",false);         (<<ENDVECTOR);
 document.ggbApplet_$id.evalCommand("$endlabel=($xe,$ye)");  
 document.ggbApplet_$id.setLabelVisible("$endlabel",false);  
 document.ggbApplet_$id.evalCommand("$label=Vector[$startlabel,$endlabel]");  document.ggbApplet_$id.evalCommand("$label=Vector[$startlabel,$endlabel]");
 document.ggbApplet_$id.setLabelVisible("$label",true);  document.ggbApplet_$id.setLabelVisible("$label",true);
 document.ggbApplet_$id.setLineThickness("$label",8);  document.ggbApplet_$id.setLineThickness("$label",8);
Line 425  document.ggbApplet_$id.evalCommand("$poi Line 423  document.ggbApplet_$id.evalCommand("$poi
 document.ggbApplet_$id.evalCommand("$anglelabel=Angle[$pointlabel,$startlabel,$endlabel]");  document.ggbApplet_$id.evalCommand("$anglelabel=Angle[$pointlabel,$startlabel,$endlabel]");
 document.ggbApplet_$id.setLabelVisible("$anglelabel",true);  document.ggbApplet_$id.setLabelVisible("$anglelabel",true);
 document.ggbApplet_$id.setLabelStyle("$anglelabel",VALUE=2);  document.ggbApplet_$id.setLabelStyle("$anglelabel",VALUE=2);
 document.ggbApplet_$id.registerObjectUpdateListener('$startlabel','updatePointCoordinates_$id');  
 document.ggbApplet_$id.registerObjectUpdateListener('$endlabel','updatePointCoordinates_$id');  
 document.ggbApplet_$id.registerObjectUpdateListener('$anglelabel','updatePointCoordinates_$id');  
 ENDVECTOR  ENDVECTOR
 }  }
   

Removed from v.1.73  
changed lines
  Added in v.1.74


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