|v shape impact avatars edge dummyData timeUnanswered container | timeUnanswered := 28. dummyData := Dictionary new. dummyData at: 'retweets' put: 5; at: 'reach' put: '20k'. "Impact box" impact := RTBox new color: (Color red alpha: 0.3); size: 200. impact := impact element @ RTDraggable. impact translateBy: (timeUnanswered*50)@0. "Avatars" shape := RTBox new color: (Color blue alpha: 0.3); size: 200. avatars := shape elementsOn: (1 to: 3). "avatars @ RTPopup." RTCircleLayout new initialRadius: (avatars size)*50; on: avatars. container := (RTBox new color: Color transparent) element @ RTDraggable. RTNest new on: container nest: avatars. "Line" edge := RTEdge from: container to: impact. "Building the view" v := RTView new. v addAll: avatars. v add: container. v add: impact. v add: (edge + (RTGradientColoredLine new colors: (Array with: (Color white alpha:0.3) with: (Color red alpha:0.9)); precision: 100; width: 20; gradientColorShape)). "Dibujando los textos " edge @ (RTLabelled new text: [ :value | timeUnanswered asString, ' dias en silencio']; fontSize: 60 ). impact @ (RTLabelled new text: (((dummyData at: 'retweets') asString), ' Retweets'); fontSize: 45). impact @ (RTLabelled new text: ((dummyData at: 'reach'), 'seguidores'); fontSize: 45; below). v view canvas focusOnCenterScaled.