|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 "
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.