Open wilbowma opened 4 years ago
thanks for the report. looking into it.
FWIW, I experimented with different ways of building the pict:
(define (run-dot str format)
(define cmd (string-append "dot -y -T" format))
(match (process cmd)
[(list stdout stdin pid stderr ctl)
(write-string str stdin)
(newline stdin)
(close-output-port stdin)
(cond [(eq? (ctl 'status) 'done-error) (error (port->string stderr))]
[else stdout])]))
(require (only-in pict bitmap) racket/draw)
(define (dot->pict . rest)
(bitmap (make-object bitmap% (run-dot (apply string-append rest) "png"))))
This worked okay, although I ended up using SVG output to include it in a Scribble document instead.
I was trying to convert to using racket-graphviz over graphviz directly, but the graph produced differs in how labels are laid out.
On the other hand, when the same dot script is run with![meow](https://user-images.githubusercontent.com/1133598/87505633-304ea380-c61e-11ea-86bd-0073e1bf1e5f.png)
dot -Tpng meow.dot > meow.png