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