[Moose-dev] Re: Issue 1089 in moose-technology: Roassal should export PNG

Comment #6 on issue 1089 by tu...(a)tudorgirba.com: Roassal should export PNG https://code.google.com/p/moose-technology/issues/detail?id=1089 Here is a script that Alex put together. It almost work, but we still need to extract the logic from TRMorph. Also, there still is a problem with the logic as the picture is shifted to the right. b := RTMondrianViewBuilder new. b shape rectangle withBorder; width: [ :cls | cls numberOfVariables * 5]; height: #numberOfMethods; linearFillColor: #numberOfLinesOfCode within: RTObject withAllSubclasses. b nodes: RTObject withAllSubclasses. b edgesFrom: #superclass. b treeLayout. b build. form := FormCanvas extent: (b view canvas encompassingRectangle) extent. m := TRMorph new. m canvas: b view canvas. m extent: (b view canvas encompassingRectangle) extent. m createSurface. m drawOn: form. m surface writeToPng: 'foo.png' -- You received this message because this project is configured to send all issue notifications to this address. You may adjust your notification preferences at: https://code.google.com/hosting/settings