[Moose-dev] Re: Graph builder...

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. On May 14, 2014, at 5:59 AM, Usman Bhatti usman.bhatti@gmail.com wrote: > A link for a tweet? > > > On Mon, May 5, 2014 at 7:59 PM, Alexandre Bergel alexandre.bergel@me.com 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 > Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev > > > _______________________________________________ > Moose-dev mailing list > Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev