| v tweet timeUnanswered diameter silenceCircle silenceCircle2 silenceCircle3 dummyData dummyData2 dummyData3 impactData impactData2 impactData3 avatars profiles edge edge2 edge3 | tweet := Tweet new. tweet scrapDataFromUrl: 'https://twitter.com/offrayLC/status/599196718152949760'. timeUnanswered := (Date today - tweet date) days. "Create profiles collecting information for all users mentioned in the tweet" profiles := OrderedCollection new. tweet mentions do: [:eachMention | profiles add: (TwitterProfile new scrapDataFromProfile: eachMention)]. "Use the profiles to create a collection of avatar images which are draggable elements on a view" avatars := OrderedCollection new. profiles do: [:eachProfile | avatars add: (RTBitmap new form: eachProfile avatar) element @ RTDraggable ]. RTCircleLayout new initialRadius: 130; on: avatars. "Creation of dummy data" dummyData := Dictionary new. dummyData at: 'retweeters' put: '5'; at: 'reach' put: '10k'. impactData := dummyData. dummyData2 := Dictionary new. dummyData2 at: 'retweeters' put: '7'; at: 'reach' put: '40k'. impactData2 := dummyData2. dummyData3 := Dictionary new. dummyData3 at: 'retweeters' put: '9'; at: 'reach' put: '80k'. impactData3 := dummyData3. "Creating the view and adding elements to it" v := RTView new. diameter := 75 "+ (timeUnanswered*10)". silenceCircle := Tweet new labeledCircleSized: diameter upperLabel: (impactData at: 'retweeters') bottomLabel: (impactData at: 'reach') inView: v. silenceCircle @ RTDraggable. avatars do: [:avatar | v add: avatar]. silenceCircle translateBy: 600@0. diameter := 80 "+ (timeUnanswered*10)". silenceCircle2 := Tweet new labeledCircleSized: diameter upperLabel: (impactData at: 'retweeters') bottomLabel: (impactData2 at: 'reach') inView: v. silenceCircle2 @ RTDraggable. avatars do: [:avatar | v add: avatar]. silenceCircle2 translateBy: 600@0. diameter := 80 "+ (timeUnanswered*10)". silenceCircle3 := Tweet new labeledCircleSized: diameter upperLabel: (impactData at: 'retweeters') bottomLabel: (impactData3 at: 'reach') inView: v. silenceCircle3 @ RTDraggable. avatars do: [:avatar | v add: avatar]. silenceCircle3 translateBy: 600@0. edge := RTEdge from:(avatars at: 1) to: silenceCircle. v add: (edge + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)). edge2 := RTEdge from:(avatars at: 1) to: silenceCircle2. v add: (edge2 + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)). edge3 := RTEdge from:(avatars at: 1) to: silenceCircle3. v add: (edge3 + (RTGradientColoredLine new colors: (Array with: (Color blue alpha:0.3) with: (Color red alpha:0.9)); precision: 100; gradientColorShape)). v view canvas focusOnCenterScaled.