diff --git a/vm-pictures.rkt b/vm-pictures.rkt index bd6d34d..eb9bff4 100644 --- a/vm-pictures.rkt +++ b/vm-pictures.rkt @@ -6,6 +6,8 @@ (provide (all-defined-out)) +(define default-process-height 98) + (define default-font (make-parameter 'roman)) (define final-border (make-parameter 1)) @@ -13,7 +15,7 @@ (define process-angle (make-parameter 90)) (define process-width (make-parameter 24)) (define process-corner (make-parameter 6)) -(define process-height (make-parameter 98)) +(define process-height (make-parameter default-process-height)) (define process-gap (make-parameter 6)) (define leg-offset (make-parameter 4))