1
2;; show some text
3
4(define text
5  (lambda (fsclist)
6    (for-each
7     (lambda (fsc)
8       (let
9	   ((font (car fsc))
10	    (size (cadr fsc))
11	    (color (caddr fsc))
12	    (pos 0))
13	 (apply draw-color color)
14	 (draw-font font size)
15	 (for-each
16	  (lambda (word)
17	    (let ((dim (string-size word font size)))
18	      (draw-move (- (/ (car dim) 2.0)) (* pos (cdr dim)))
19	      (draw-string word)
20	      (set! pos (- pos 1))))
21	  (map
22	   symbol->string
23	   '(The quick brown fox jumps over the lazy dog)))
24	 (draw-show))) fsclist)))
25
26(text
27 '(("Courier" 36 (255 0 0))
28   ("Helvetica-Bold" 24 (0 255 0))
29   ("Lucida-Italic-Sans" 18 (0 0 255))))
30
31