From 13a3bdd44d13de17834a3d85488baba5271695ec Mon Sep 17 00:00:00 2001
From: "Eugeniy E. Mikhailov" <evgmik@gmail.com>
Date: Wed, 9 May 2018 11:22:48 -0400
Subject: grading scheme includes possibility for A+, F is much lower

---
 GradeBook_lib.tcl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'GradeBook_lib.tcl')

diff --git a/GradeBook_lib.tcl b/GradeBook_lib.tcl
index e9807db..702a2df 100755
--- a/GradeBook_lib.tcl
+++ b/GradeBook_lib.tcl
@@ -39,6 +39,7 @@ proc get_default_grading_scheme {} {
 	# pair of letter grade and lower boundary for this grade
 	# should be sorted in descended order!
 	set grading_scheme [ list  \
+		A+ 100 \
 		A	 0.94 \
 		A- 0.90 \
 		B+ 0.87 \
@@ -50,7 +51,7 @@ proc get_default_grading_scheme {} {
 		D+ 0.67 \
 		D  0.64 \
 		D- 0.60 \
-		F  0.00 \
+		F  -100 \
 	]
 	return  $grading_scheme
 }
-- 
cgit v1.2.3