Graph builder...

> A link for a tweet?
>
>
> On Mon, May 5, 2014 at 7:59 PM, Alexandre Bergel <[hidden email]> wrote:
> Hi!
>
> Just to share a screenshot of what we are working on:
> <Screen Shot 2014-05-05 at 12.47.39 PM.png>
>
>
> Result of the script:
> =-=-==-=-==-=-==-=-==-=-=
> | b |
> b := RTGraphBuilder new.
> b nodes color: Color gray.
> b edges
> connectTo: #dependentClasses;
> color: (Color gray alpha: 0.1);
> if: [ :f :t | '*Example*' match: f name ] color: (Color green alpha: 0.2).
>
> b layout
> partition: [ :c | c inheritsFrom: RTTest ];
> partition: [ :c | c inheritsFrom: RTLayout ];
> partition: [ :c | c inheritsFrom: RTShape ];
> partition: [ :c | c inheritsFrom: RTInteraction ];
> partition: [ :c | c inheritsFrom: RTBuilder ];
> partition: [ :c | '*Example*' match: c name ];
> partition: true;
> force.
>
> b layout circle radius: 250.
>
> b global
> normalizeSize: [ :c | c dependentClasses size ] min: 5 max: 30 using: #sqrt.
> b addAll: (RTObject withAllSubclasses).
> b open
> =-=-==-=-==-=-==-=-==-=-=
>
> Comments are welcome!
>
> Cheers,
> Alexandre
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev