tab := RTTabTable new input: 'http://earthquake.usgs.gov/earthquakes/feed/v1.0/summary/2.5_month.csv' asUrl retrieveContents usingDelimiter: $,. tab removeFirstRow. tab convertColumn: 1 to: [ :s | (DateAndTime fromString: s) julianDayNumber ]. tab convertColumnsAsFloat: #(5). v := RTView new. es := RTEllipse elementsOn: tab values. v addAll: es. es @ RTPopup. RTMetricNormalizer new elements: es; normalizeColor: #fifth using: { Color orange . Color red }; alphaColor: 0.3; normalizeX: #first min: 0 max: 600; normalizeSize: #fifth min: 0 max: 80 using: [ :mag | 2 raisedTo: (mag - 1) ]. es @ (RTLabeled new text: [ :row | row fifth > 6 ifTrue: [ row fifth ] ifFalse: [ '' ] ]). v @ RTDraggableView. v