|v shape impact avatars edge timeUnanswered container | timeUnanswered := 38. "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: 150; on: avatars. container := (RTBox new color: Color transparent) element @ RTDraggable. RTNest new on: container nest: avatars. "Line" "edge := RTEdge from:(avatars at: 1) to: impact." 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)). v view canvas focusOnCenterScaled.