| v  elem1 elem2 edge line timeUnanswered |
timeUnanswered := 48.
v := RTView new.
elem1 := (RTBox new color: (Color blue alpha:0.3); size:200) elementOn: 1.
elem2 := (RTBox new color: (Color red alpha:0.9); size:200) elementOn: 2.
elem2 translateBy: (timeUnanswered*50)@0.
v add: elem1.
v add: elem2.

edge := RTEdge from:elem1 to:elem2.

line := edge + (RTGradientColoredLine new 
						colors: (Array with: (Color white alpha:0.3) with: (Color red alpha:0.9)); 						
						precision: 100;
						width: timeUnanswered * 0.66; 
						gradientColorShape).
v add: line.
line @ (RTLabelled new text: [ :value | timeUnanswered asString, ' dias en silencio']; fontSize: timeUnanswered * 2.3; color: (Color black)).
elem1 @ (RTLabelled new text: '@elem1'; fontSize: timeUnanswered * 1.5).
elem2 @ (RTLabelled new text: '@elem2'; fontSize: timeUnanswered * 1.5).
v view canvas focusOnCenterScaled.