|v shape avatars edge edge2|
v := RTView new.
	shape := RTBox new 
		color: (Color blue alpha: 0.3);
		size: 200.
	avatars := shape elementsOn: (1 to: 3).
	v addAll: avatars @ RTDraggable .
	
	avatars @ RTPopup.
	RTCircleLayout new
		initialRadius: 150;
		on: avatars.
		
edge := RTEdge from:(avatars at: 1) to: (avatars at: 2).
edge2 := RTEdge from:(avatars at: 1) to: (avatars at: 3).
	
"	RTNest new
		for: avatars" 
	

	v add: (edge + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)).
	v add: (edge2 + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)).
	
"	v view canvas focusOnCenterScaled."