www

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README

main.rkt (879B)

      1 #lang scheme
      2 
      3 (provide (rename-out [langs-pict1 langs-pict])
      4          langs-in-tree
      5          langs-with-colors)
      6 (require "pictures.rkt")
      7 (require "draw-plain.ss"
      8          "orig-colors.rkt"
      9          racket/draw
     10          slideshow/code
     11          scheme/runtime-path
     12          slideshow/pict
     13          slideshow/base
     14          "pictures.rkt")
     15 
     16 (define (langs-pict1 color? 
     17                      #:fit? [fit? #f]
     18                      #:picts [p (if (pict? color?) (list color?) (list))])
     19   (langs-pict color?
     20               #:fit (λ (all)
     21                       (if fit?
     22                           (scale all (min 1 
     23                                           (/ client-w (pict-width all))
     24                                           (/ client-h (pict-height all))))
     25                           all))
     26               #:picts p))
     27 
     28 (module+ main
     29   (slide (langs-pict #f))
     30   (slide (langs-pict #t)))