Shared Smalltalk Workspace http://ws.stfx.eu/

http://ws.stfx.eu/http://ws.stfx.eu/

Doit | Raw | Getting Started Workspace | Home | New
| 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.
THIS SOFTWARE SERVICE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHOR OR SERVICE PROVIDER BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE SERVICE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE SERVICE.