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

clean

This commit is contained in:
Jay McCarthy 2018-01-01 19:02:55 -05:00
parent ce775238cc
commit b62acd2340
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
main.rkt
View File

@ -37,9 +37,10 @@
;; h : exact-nonnegative-integer? ;; h : exact-nonnegative-integer?
;; ! : (row col char -> void) row col -> void ;; ! : (row col char -> void) row col -> void
(struct rart (w h !)) (struct rart (w h !))
(define (draw row col x #:clear? [clear? #t]) (define (draw x [row 1] [col 1]
#:clear? [clear? #t])
(match-define (rart w h !) x) (match-define (rart w h !) x)
(display (A:dec-soft-terminal-reset)) (display (A:dec-soft-terminal-reset))
(when clear? (when clear?
(display (A:clear-screen/home))) (display (A:clear-screen/home)))
(set-drawing-parameters!) (set-drawing-parameters!)
@ -161,9 +162,9 @@
['center (floor (/ (- w xw) 2))] ['center (floor (/ (- w xw) 2))]
['right (- w xw)]) ['right (- w xw)])
(match hs (match hs
['top 0] ['top 0]
['center (floor (/ (- h xh) 2))] ['center (floor (/ (- h xh) 2))]
['bottom (- h xh)]) ['bottom (- h xh)])
x)) x))
(define (inset dw dh x) (define (inset dw dh x)
@ -192,8 +193,7 @@
r c)))) r c))))
(module+ test (module+ test
(draw 1 1 (draw (crop 70 80 10 20
(crop 70 80 10 20
(matte 80 20 (matte 80 20
#:halign 'right #:halign 'right
(fg 'blue (fg 'blue
@ -286,8 +286,7 @@
;; xxx paragraph (fit text inside a box) ;; xxx paragraph (fit text inside a box)
(module+ test (module+ test
(draw 1 1 (draw (translate
(translate
2 10 2 10
(table (table
#:frames? #t #:frames? #t