| arc avatars1 avatars2  v|

"Surrounds"
avatars1 := Array new: 16.
1 to: avatars1 size do: [:i | avatars1 at: i put: ((RTBitmap new form: (RTIcon objectprofile)) element scaleBy: 0.7)].
avatars2 := Array new: 32.
1 to: avatars2 size do: [:i | avatars2 at: i put: ((RTBitmap new form: (RTIcon roassal)) element scaleBy: 0.7)].

"Composition"
arc := RTArc new alphaAngle: 20; betaAngle: 320; innerRadius: 650; externalRadius: 685; color: Color lightGray.
v := RTView new.
arc surroundBy: avatars1 withGap: 90 renderedIn: v.
arc surroundBy: avatars2 withGap: 210 renderedIn: v.