misc-deps
/
racket-ansi
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
test-ansi-output.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 18 KiB

5
test-ansi.rkt
View File

@ -2,7 +2,9 @@
(require "ansi.rkt") (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-text-color color-yellow)
(style-background-color color-blue)) (style-background-color color-blue))
(clear-screen/home) (clear-screen/home)
@ -31,5 +33,6 @@
(goto-column 2) (goto-column 2)
(delete-characters 1) (delete-characters 1)
(select-graphic-rendition) (select-graphic-rendition)
(goto 19 1))) (goto 19 1)))