Updated README.

[scheme.forth.jl.git] / term-colours.4th

diff --git a/term-colours.4th b/term-colours.4th
index 97582dc..1852a20 100644 (file)
--- a/term-colours.4th
+++ b/term-colours.4th
@@ -10,14 +10,6 @@
     escape emit [char] 0 + emit escape-end
 ;
 
-: reset-term
-    escape [char] 0 escape-end
-;
-
-: bold
-    escape [char] 1 emit escape-end
-;
-
 : colour
     create ,
 does>
@@ -25,6 +17,7 @@ does>
     set-term-colour
 ;
 
+0 colour black
 1 colour red
 2 colour green
 3 colour yellow
@@ -33,8 +26,22 @@ does>
 6 colour cyan
 7 colour white
 
+: bold
+    escape [char] 1 emit escape-end
+;
+
+: reset-term
+    escape [char] 0 emit escape-end
+;
+
+: clear-term
+    escape [char] 2 emit [char] J emit
+    escape [char] 0 emit [char] ; emit [char] 0 emit [char] f emit
+;
+
 \ Example usage:
 \ fg red        ( set fg colour to red )
 \ bg green      ( set bg colour to green )
 \ bold          ( use a bold font )
 \ reset-term    ( return everything to normal )
+\ clear-term    ( clear terminal and return cursor to origin )