From 92ee3303c2d1c1eb9e55fa52a3cc74b83e835812 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 26 Aug 2012 17:17:42 -0400 Subject: [PATCH] Support png display in vm-pictures.rkt --- vm-pictures.rkt | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/vm-pictures.rkt b/vm-pictures.rkt index 9af5b5f..9a4254a 100644 --- a/vm-pictures.rkt +++ b/vm-pictures.rkt @@ -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))]))