Customisable space
This commit is contained in:
parent
92ee3303c2
commit
3b139d0775
|
@ -42,8 +42,9 @@
|
||||||
(define (process-group . ps)
|
(define (process-group . ps)
|
||||||
(apply hb-append (process-gap) ps))
|
(apply hb-append (process-gap) ps))
|
||||||
|
|
||||||
(define (process-space)
|
(define (process-space [n 1])
|
||||||
(blank (- (/ (process-width) 2) (* 2 (process-gap))) (process-height)))
|
(blank (+ (* (- n 1) (/ (process-width) 2))
|
||||||
|
(- (/ (process-width) 2) (* 2 (process-gap)))) (process-height)))
|
||||||
|
|
||||||
(define (vm-label str)
|
(define (vm-label str)
|
||||||
(text str (default-font) (vm-label-size) (d2r 0)))
|
(text str (default-font) (vm-label-size) (d2r 0)))
|
||||||
|
|
Loading…
Reference in New Issue