| v diameter avatar daysOrbit weeksOrbit monthsOrbit  epicycle impactData dummyData |

v := RTView new.
avatar := (RTBitmap new form: RTIcon roassal) element.
avatar @ RTDraggable.
diameter := 55.
daysOrbit := (RTEllipse new 
						size: diameter*7; 
						color: Color white) element.

weeksOrbit := (RTEllipse new 
						size: diameter*14; 
						color: Color lightGray) element.


monthsOrbit := (RTEllipse new 
						size: diameter*21; 
						color: Color gray) element.						

v add: monthsOrbit.
v add: weeksOrbit.
v add: daysOrbit.
v add: avatar.

dummyData := Dictionary new.
dummyData at: 'retweeters' put: '5'; at: 'reach' put: '10k'.

"impactData := Tweet new impactFor: 'https://twitter.com/offrayLC/status/599196718152949760'."
impactData := dummyData.

epicycle := Tweet new labeledCircleSized: diameter upperLabel: (impactData at: 'retweeters') bottomLabel: (impactData at: 'reach') inView: v.
epicycle @ RTDraggable.


v view canvas focusOnCenterScaled.