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

Add default-process-height to vm-pictures

This commit is contained in:
Tony Garnock-Jones 2012-08-28 11:49:06 -04:00
parent 3b139d0775
commit 355bda15b1
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
vm-pictures.rkt
View File

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