Sample output of test-ansi.rkt

This commit is contained in:
Tony Garnock-Jones 2011-10-28 17:58:11 -04:00
parent ef58b36b03
commit d1b2e0c6da
2 changed files with 4 additions and 1 deletions

BIN
test-ansi-output.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 18 KiB

View File

@ -2,7 +2,9 @@
(require "ansi.rkt")
(for-each display (list (select-graphic-rendition style-bold
(for-each display (list (dec-soft-terminal-reset)
(select-graphic-rendition style-bold
(style-text-color color-yellow)
(style-background-color color-blue))
(clear-screen/home)
@ -31,5 +33,6 @@
(goto-column 2)
(delete-characters 1)
(select-graphic-rendition)
(goto 19 1)))