diff --git a/fcore/text-constants.sml b/fcore/text-constants.sml
index ca4ad79..372b0c3 100644
--- a/fcore/text-constants.sml
+++ b/fcore/text-constants.sml
@@ -3,6 +3,6 @@ struct
   val xSpace = 13
   val xSpace3 = xSpace * 3
   val ySpace = 25
-  val fontSize: Real32.real = 30.0
   val scale: Real32.real = 2.0
+  val textLineWidth = xSpace * 80
 end