| words arc avatars avatarsFiles els els2 v|

"Surrounds"
words := #('sólo' 'hago' 'algunas' 'pruebas').
words doWithIndex: [:each :i | | label |
	label := RTRotatedLabel new
					text: each asString;
					color: Color random.
	words at: i put: label element
].
avatarsFiles := (FileLocator documents / 'Temas' / 'Iconos') asFileReference allChildrenMatching: '*.png'.
avatars := avatarsFiles collect: [:each | (RTBitmap new form: (each binaryReadStreamDo: [ :stream | ImageReadWriter formFromStream: stream ])) element scaleBy: 0.5].

els := avatars copyFrom: 1 to: 16.
els2 := avatars collect: [:each | each scaleBy: 0.3 ].
"Visuals"
arc := RTArc new alphaAngle: 20; betaAngle: 320; innerRadius: 650; externalRadius: 685; color: Color lightGray.
v := RTView new.
arc surroundBy: els withGap: 90 renderedIn: v.
arc surroundBy: els2 withGap: 150 renderedIn: v.