fix default node pict so it doesn't draw outside of its bounding box

and make the size a little bit bigger
2014-05-17 08:51:24 -05:00 · 2014-05-17 08:51:24 -05:00 · e930195038
commit e930195038
parent 419f3fdee1
1 changed files with 2 additions and 2 deletions
--- a/pkgs/pict-pkgs/pict-lib/pict/private/layout.rkt
+++ b/pkgs/pict-pkgs/pict-lib/pict/private/layout.rkt
@ -34,8 +34,8 @@

 (define default-node-pict
  (cc-superimpose
-   (disk 12)
-   (colorize (disk 8) "white")))
+   (disk 16 #:draw-border? #f)
+   (colorize (disk 12 #:draw-border? #f) "white")))

 (define _tree-edge
  (let ([constructor tree-edge])