|v shape impact avatars edge timeUnanswered | timeUnanswered := 28. "Impact" 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: 150; on: avatars. "Line" edge := RTEdge from:(avatars at: 1) to: impact. "Building the view" v := RTView new. v addAll: avatars @ RTDraggable . v add: impact. v add: (edge + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)). v view canvas focusOnCenterScaled.