syndicate-lang
/
racket-matrix-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Customisable space

This commit is contained in:
Tony Garnock-Jones 2012-08-27 18:02:59 -04:00
parent 92ee3303c2
commit 3b139d0775
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vm-pictures.rkt
View File

@ -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)))