https://github.com/pykello/racket-graphviz

Library to enable using graphviz in Racket programs
https://github.com/pykello/racket-graphviz

graph racket visualization

Last synced: 8 days ago
JSON representation

Library to enable using graphviz in Racket programs

• Host: GitHub
• URL: https://github.com/pykello/racket-graphviz
• Owner: pykello
• License: bsd-3-clause
• Created: 2019-07-20T21:50:27.000Z (almost 6 years ago)
• Default Branch: master
• Last Pushed: 2021-10-21T02:34:35.000Z (over 3 years ago)
• Last Synced: 2025-04-10T10:21:07.068Z (12 days ago)
• Topics: graph, racket, visualization
• Language: Racket
• Homepage:
• Size: 459 KB
• Stars: 25
• Watchers: 3
• Forks: 3
• Open Issues: 4
• Metadata Files:
  • Readme: README.md
  • License: LICENSE

Awesome Lists containing this project

README

        
# Racket GraphViz Integration

The goal of this library is to make composition of Racket [Pict](https://docs.racket-lang.org/pict/)

and [Graphviz Diagrams](https://www.graphviz.org/) possible.

The composition is made possible through:

* You can use graphviz diagrams as normal picts

* You can use any Pict as node shape of graphviz diagrams

For example, in the following program note that the shapes for nodes "c" and "f" and also the node with fish shape

are racket shapes. Rest of the nodes use a shape provided by graphviz.

```racket

(digraph->pict

 (make-digraph

  `(["a" #:shape "diamond" #:fillcolor "lightgray" #:style "filled"]

    ["b" #:shape ,(cloud 60 30) #:label "c"]

    ["c" #:shape ,(standard-fish 100 50 #:open-mouth #t #:color "Chartreuse")

         #:label ""]

    "d"

    "a -> b -> c"

    "a -> d -> c"

    (subgraph "stdout" #:style "filled" #:fillcolor "cyan"

              (["f" #:shape ,(file-icon 50 60 "bisque")]

               "g"

               "f -> g"))

    "d -> g")))

```

![](images/custom-shapes.svg)

As another example, take a look at [dirtree.rkt](examples/dirtree.rkt) which dynamically generates a directory tree.

![](images/dirtree.svg)

Notice how dirtree.rkt has used `make-vertex` and `make-edge` functions:

```racket

...

(define root (make-vertex (path->string name) #:shape shape))

...

(make-edge root-node sub-node)

...

```

You can pass a list of vertex and edges to `make-digraph` to create a digraph, and use `digraph->pict`

to convert it to a pict.

```racket

(define d (make-digraph (list v1 v2 (make-edge v1 v2))))

(digraph->pict d)

```