version 1.2, 1999/10/13 18:45:28
|
version 1.3, 1999/10/18 21:29:12
|
Line 4506 proc analyzeUpdate { {newProbNumber 0} }
|
Line 4506 proc analyzeUpdate { {newProbNumber 0} }
|
set center [expr $center+25] |
set center [expr $center+25] |
$c create rectangle [expr $center - 1] 40 [expr $center + 1] 60 |
$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) { |
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 |
update idletasks |
} |
} |