Support png display in vm-pictures.rkt
This commit is contained in:
parent
be0878759f
commit
92ee3303c2
|
@ -80,16 +80,18 @@
|
|||
(define (local-leg p)
|
||||
(leg p 0 (default-leg-height)))
|
||||
|
||||
(define (render p #:target [target 'eps])
|
||||
(define (render p #:target [target (string->symbol (or (getenv "VM_PICTURES_TARGET") "eps"))])
|
||||
(define final-pict (cc-superimpose (blank (+ (pict-width p) (* 2 (final-border)))
|
||||
(+ (pict-height p) (* 2 (final-border))))
|
||||
(panorama p)))
|
||||
(case target
|
||||
[(screen)
|
||||
;; FFS. This connects to the display even if you don't use it.
|
||||
;; (local-require racket/gui/base)
|
||||
;; (show-pict (panorama p) 800 600)
|
||||
;; (show-pict final-pict 800 600)
|
||||
(log-error "You need to uncomment a couple of lines in vm-pictures.rkt")
|
||||
(void)]
|
||||
[(png)
|
||||
(display (convert final-pict 'png-bytes))]
|
||||
[(eps)
|
||||
(display (convert (cc-superimpose (blank (+ (pict-width p) (* 2 (final-border)))
|
||||
(+ (pict-height p) (* 2 (final-border))))
|
||||
(panorama p))
|
||||
'eps-bytes))]))
|
||||
(display (convert final-pict 'eps-bytes))]))
|
||||
|
|
Loading…
Reference in New Issue