[Moose-dev] Re: Spectrograph in Roassal

Wow! Very nice! This larger visualization is really informative. A movie of this visualization with frames taken every day from the Jenkins build would be very interesting over time. Movies of the evolution of both individual classes, hierarchies, and packages. Very inspirational. Regards, Sam Sam S. Adams, Cognitive Knowledge Systems IBM Distinguished Engineer, IBM Research Mobile: 919-696-6064, email: ssadams(a)us.ibm.com Assistant: Tonja Ross, 404-348-9086, Tie-Line: 824-9086, tonja_ross(a)us.ibm.com <<Hebrews 11:6, Proverbs 3:5-6, Romans 1:16-17, 1 Corinthians 1:10>> From: Alexandre Bergel &lt;alexandre.bergel(a)me.com&gt; To: Moose-related development &lt;moose-dev(a)iam.unibe.ch&gt; Date: 05/11/2014 08:31 PM Subject: [Moose-dev] Spectrograph in Roassal Sent by: moose-dev-bounces(a)iam.unibe.ch Hi! During my Sunday evening coding session, I worked on a spectrograph in Roassal. Here a small example: Each vertical line is a class. Height is the total amount of methods (class + metaclass). Red = class methods, Gray = instance methods. The script is the following: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= | b | b := RTSpectrograph new. b objects: (RTLayout withAllSubclasses reverseSortedAs: #numberOfMethods). b popupText: [ :aClass :cm | cm methodClass name, '>>', cm selector ]. b lineBlock: [ :cls | cls methods, cls class methods ]. b highlight: [ :aClass :cm | cm methodClass isMeta ]. b title: 'Proportion of class methods'. b open. -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= A more sophisticated example: Each vertical line is a class. Green classes are Trachel classes Gray classes are Roassal classes Height of a class is its age, in number of days (i.e., age of the oldest methods of the class). Each red dot is the creation of one of its method (i.e., when the method was created). We can see that Trachel classes have not evolved that much, i.e., most of the methods have been defined on the same day. The to obtain this visualization is the following: -=-=-=-= -=-=-=-= -=-=-=-= -=-=-=-= -=-=-=-= | b now | now := DateAndTime now. b := RTSpectrograph new. b objects: ((RTObject withAllSubclasses , TRObject withAllSubclasses) reverseSortedAs: #livingInDays). b highlight: [ :cls :livingDay | cls inheritsFrom: TRObject ] color: Color lightGreen. b highlight: [ :cls :livingDay | cls gotMethodOnDay: livingDay ]. b popupText: [ :cls :age | cls name, ' ', age printString , ' days old' ]. b lineBlock: [ :cls | 0 to: cls livingInDays ]. b open. -=-=-=-= -=-=-=-= -=-=-=-= -=-=-=-= -=-=-=-= If you try this code one day after I posted it, all the classes will be one pixel higher :-) Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev