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