This commit is contained in:
parent
a8fc283668
commit
60ac3729e7
|
@ -243,6 +243,7 @@
|
||||||
(set! x y)
|
(set! x y)
|
||||||
(set! y tmp)))
|
(set! y tmp)))
|
||||||
|
|
||||||
|
|
||||||
(provide
|
(provide
|
||||||
(contract-out
|
(contract-out
|
||||||
[color/c contract?]
|
[color/c contract?]
|
||||||
|
@ -272,3 +273,5 @@
|
||||||
(->* (exact-nonnegative-integer? exact-nonnegative-integer?)
|
(->* (exact-nonnegative-integer? exact-nonnegative-integer?)
|
||||||
(#:output output-port?)
|
(#:output output-port?)
|
||||||
buffer?)]))
|
buffer?)]))
|
||||||
|
|
||||||
|
|
||||||
|
|
4
draw.rkt
4
draw.rkt
|
@ -325,6 +325,9 @@
|
||||||
(for/list ([col (in-list row)])
|
(for/list ([col (in-list row)])
|
||||||
(if (raart? col) col (text (~a col))))))
|
(if (raart? col) col (text (~a col))))))
|
||||||
|
|
||||||
|
(define (draw-here r)
|
||||||
|
(draw (make-output-buffer) r))
|
||||||
|
|
||||||
(define valign/c (or/c 'top 'center 'bottom))
|
(define valign/c (or/c 'top 'center 'bottom))
|
||||||
(define halign/c (or/c 'left 'center 'right))
|
(define halign/c (or/c 'left 'center 'right))
|
||||||
(provide
|
(provide
|
||||||
|
@ -333,6 +336,7 @@
|
||||||
[draw
|
[draw
|
||||||
(-> buffer? raart?
|
(-> buffer? raart?
|
||||||
void?)]
|
void?)]
|
||||||
|
[draw-here (-> raart? void?)]
|
||||||
[style (-> style/c raart? raart?)]
|
[style (-> style/c raart? raart?)]
|
||||||
[fg (-> color/c raart? raart?)]
|
[fg (-> color/c raart? raart?)]
|
||||||
[bg (-> color/c raart? raart?)]
|
[bg (-> color/c raart? raart?)]
|
||||||
|
|
Loading…
Reference in New Issue