18 lines
617 B
Scheme
18 lines
617 B
Scheme
#lang scheme/gui
|
|
(require "lang-slide.ss" slideshow)
|
|
|
|
(define the-margin 32)
|
|
|
|
(define the-pict (let ([p (langs-pict #t)])
|
|
(scale p (/ (- 1024 the-margin) (pict-width p)))))
|
|
(pict-width the-pict)
|
|
(define bm (make-object bitmap%
|
|
(+ the-margin (ceiling (inexact->exact (pict-width the-pict))))
|
|
(+ the-margin (ceiling (inexact->exact (pict-height the-pict))))))
|
|
(define bdc (make-object bitmap-dc% bm))
|
|
(send bdc set-smoothing 'aligned)
|
|
(send bdc clear)
|
|
(draw-pict the-pict bdc (/ the-margin 2) (/ the-margin 2))
|
|
(send bdc set-bitmap #f)
|
|
(send bm save-file "langs.png" 'png)
|