| v  elem1 elem2 edge line |
v := RTView new.
elem1 := (RTEllipse new color: (Color blue alpha:0.3); size:20) elementOn: 1.
elem2 := (RTEllipse new color: (Color red alpha:0.9); size:20) elementOn: 2.
elem2 translateBy: 300@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: 5; 
						gradientColorShape).
v add: line.
line @ (RTLabelled new text: 37).
v