--- capa/capa51/GUITools/quizzer.tcl	1999/10/13 18:45:28	1.2
+++ capa/capa51/GUITools/quizzer.tcl	1999/10/18 21:29:12	1.3
@@ -4506,11 +4506,24 @@ 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)]
-	set center [expr $center+25]
-	$c create oval [expr $center - 2] 48 [expr $center + 2] 52 -fill green
+	if { $lastpoint != $point } {
+	    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
+	    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
 }