method
add-check method
(define fig1 (sw-corner 4))
(display-window 0 3 0 3 fig1)
(define fig2 (repeat-cols 3 fig1))
(display-window 0 4
0 12 fig2)
> (define ca (charfig #\a))
> (define cb (charfig #\b))
> (define ab (append-cols ca cb))
> (define cde (append-cols (charfig #\c)
(append-cols (charfig #\d)
(charfig #\e))))
> (define abcd (append-rows ab cde))
> (display-window 0 0 0 0 ca)
a
> (display-window 0 0 0 1 ca)
a.
> (display-window 0 1 0 1 ca)
a.
..
> (display-window 0 1 0 1 ab)
ab
..
> (display-window 0 2 0 2 abcd) ; note that cde gets truncated
to 2 columns
; because ab has only 2 columns
ab.
cd.
...
> (display-window 0 1 0 2 cde)
cde
...
> (display-window 0 3 0 3 (sw-corner 4))
*
**
***
****
> (display-window 0 3 0 3 (flip-rows(sw-corner 4)))
****
***
**
*
> (display-window 0 3 0 3 (flip-cols(sw-corner 4)))
ooo*
oo**
o***
****
> (let ((f1 (append-rows ab (flip-cols ab))))
(display-window 0 2 0 4 (append-cols f1 (flip-rows f1))))
abba.
baab.