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

rfindler · rfindler · commit e93019503810 · 2014-05-17T22:23:40.000-05:00
and make the size a little bit bigger
diff --git 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])
