capa/capa51/GUITools/quizzer.tcl - diff

Return to quizzer.tcl CVS log

Up to [LON-CAPA] / capa / capa51 / GUITools

-version 1.2, 1999/10/13 18:45:28
+version 1.3, 1999/10/18 21:29:12
  Line 4506  proc analyzeUpdate { {newProbNumber 0} }
  	set center [expr $center+25]
  	$c create rectangle [expr $center - 1] 40 [expr $center + 1] 60
      }
+     set lastpoint [lindex $gAnalyze($gAnalyze(prob).ans) 0]
+     set num 0
      foreach point $gAnalyze($gAnalyze(prob).ans) {
- 	set center [expr ($gAnalyze(canvaswidth)-50)*(($point-$low)/$diff)]
+ 	if { $lastpoint != $point } {
- 	set center [expr $center+25]
+ 	    set center [expr ($gAnalyze(canvaswidth)-50)*(($lastpoint-$low)/$diff)]
- 	$c create oval [expr $center - 2] 48 [expr $center + 2] 52 -fill green
+ 	    set center [expr $center+25]
+ 	    $c create rectangle [expr $center - 2] [expr 49-$num] \
+ 		[expr $center + 2] [expr 51+$num] -fill green
+ 	    set lastpoint $point
+ 	    set num 0
+ 	} else {
+ 	    incr num
+ 	}
      }
+ 	    set center [expr ($gAnalyze(canvaswidth)-50)*(($lastpoint-$low)/$diff)]
+ 	    set center [expr $center+25]
+     $c create rectangle [expr $center - 2] [expr 49-$num] \
+ 	[expr $center + 2] [expr 51+$num] -fill green
      update idletasks
  }