Object Profile

Today we are visualizing Ansible by Red Hat source code. Ansible is all about automation of IT tasks.

The first picture shows dependencies between Python source code files (one can see many isolated files).

The second picture shows class hierarchies defined in Ansible. Each square is a class, inheritance is indicated with edges (superclass above subclasses), width = number of variables; height = number of methods; color = containing folder.

Third and fourth picture shows the a part of the file system. Blues are are dependencies between the files (scope to the containing folder).

Beautiful!

Script of the day: Sunday as first day in RTCalendarBuilder

-=-=-=
| b |
Week startDay: .

b := RTCalendarBuilder new.
b dateShape composite: [ :com |
com add: (RTEllipse new color: [ :d |
d = Date today
ifTrue: [ Color blue trans ]
ifFalse: [Color transparent] ]; size: 18).
com add: (RTLabel new text: [:d| d dayOfMonth];
color: [:d | (d dayOfWeek = 1)
ifTrue: [Color red]
ifFalse: [ Color black ] ]) ].``

b showDayNames.
b yearShape composite: [ :comp |
comp add: (RTLabel new text: [ :d | d year ]; height: 20 ).
comp add: (RTBox new color: [ Color blue alpha: 0.1 ]). ] .
b dates: Year current.
b build.
^ b view
-=-=-=

Script of the day: Simple trees
-=-=-=
group1 := {
50 -> 70.
90 -> 30.
30 -> 150.
150 -> 200.

70 -> 200.
10 -> 20.
10 -> 30.
20 -> 50.
}.

group2 := {
1 -> 2.
1 -> 3.
3 -> 7
}.

b := RTMondrian new.
b shape box fillColor: Color transparent; borderColor: Color black.
b nodes: { group1 . group2 } forEach: [ :values |
b shape text.
b nodes: ((values collect: ), (values collect: )) asSet.
b shape arrowedLine color: Color red; withShorterDistanceAttachPoint.
b edges
source: values connectFrom: to: .
b layout sugiyama horizontalGap: 30
].

b
-=-=-=