| visual center data diameter angle |
diameter := 100.
visual := RTView new.
data := #('lion-o' 'panthro' 'tigro' 'chitara' 'munra' 'ozimandias' 'Dr Manhatan').
center := (RTEllipse new 
				size: diameter; 
				color: Color white;
				borderColor: Color veryLightGray).
visual add: center element.
1 to: data size do: [ :index | | label |
	angle := (index * 360/ data size) degreesToRadians.
	label := RTLabel new
					text: (data at: index);
					height: 5. 
	visual add: 
		(label element translateBy: (Point r: (diameter/2)*1.5 theta: angle)).
].
visual