From 3b139d0775dced4fb7b855e891de986a928b5e89 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 27 Aug 2012 18:02:59 -0400 Subject: [PATCH] Customisable space --- vm-pictures.rkt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/vm-pictures.rkt b/vm-pictures.rkt index 9a4254a..bd6d34d 100644 --- a/vm-pictures.rkt +++ b/vm-pictures.rkt @@ -42,8 +42,9 @@ (define (process-group . ps) (apply hb-append (process-gap) ps)) -(define (process-space) - (blank (- (/ (process-width) 2) (* 2 (process-gap))) (process-height))) +(define (process-space [n 1]) + (blank (+ (* (- n 1) (/ (process-width) 2)) + (- (/ (process-width) 2) (* 2 (process-gap)))) (process-height))) (define (vm-label str) (text str (default-font) (vm-label-size) (d2r 0)))