open street map example
Hi! Some of you have an interest in visualizing graphs on top of open street maps. Together with Hilaire we made a small example: -=-=-=-=-=-=-=-=-=-=-=-= | v map data b d whiteBackground london elementsAndEdges | v := RTView new. v @ RTDraggableView. map := RTOSM new. v add: map element. "Place to set the data and center the camera" london := 51.507222@ -0.1275. "Some arbitrary data" data := ((1 to: 500) collect: [ :i | 50 atRandom - 25 ]) cumsum. "We build the graph" b := RTGrapher new. b extent: 100@30. d := RTData new. d noDot. d connectColor: Color red. d points: data. b add: d. b axisY labelFontHeight: 6; color: Color red; title: 'Sale'. b axisX color: Color red; noTick; title: 'country'. b build. elementsAndEdges := b view elements, b view edges. "We create a white background" whiteBackground := (RTRoundedBox new color: Color white trans; borderRadius: 10) element. v add: whiteBackground. v addAll: elementsAndEdges. RTNest new on: whiteBackground nest: elementsAndEdges. whiteBackground translateTo: (map latLonToRoassal: london). v canvas camera translateTo: (map latLonToRoassal: london). v canvas camera noInitializationWhenOpen. v canvas camera scale: 1.5. v -=-=-=-=-=-=-=-=-=-=-=-= Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Le 03/08/2015 17:28, Alexandre Bergel a écrit :
Hi!
Some of you have an interest in visualizing graphs on top of open street maps.
Yes! This is why we designed the Roassal OpenStreetMap support that way :) Thierry
Together with Hilaire we made a small example:
-=-=-=-=-=-=-=-=-=-=-=-= | v map data b d whiteBackground london elementsAndEdges | v := RTView new. v @ RTDraggableView. map := RTOSM new. v add: map element.
"Place to set the data and center the camera" london := 51.507222@ -0.1275. "Some arbitrary data" data := ((1 to: 500) collect: [ :i | 50 atRandom - 25 ]) cumsum.
"We build the graph" b := RTGrapher new. b extent: 100@30. d := RTData new. d noDot. d connectColor: Color red. d points: data.
b add: d. b axisY labelFontHeight: 6; color: Color red; title: 'Sale'.
b axisX color: Color red; noTick; title: 'country'. b build. elementsAndEdges := b view elements, b view edges.
"We create a white background" whiteBackground := (RTRoundedBox new color: Color white trans; borderRadius: 10) element. v add: whiteBackground. v addAll: elementsAndEdges. RTNest new on: whiteBackground nest: elementsAndEdges. whiteBackground translateTo: (map latLonToRoassal: london).
v canvas camera translateTo: (map latLonToRoassal: london). v canvas camera noInitializationWhenOpen. v canvas camera scale: 1.5. v -=-=-=-=-=-=-=-=-=-=-=-=
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Yes, and this is pretty cool! Thanks Thierry for it! Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Aug 3, 2015, at 5:19 PM, Thierry Goubier <thierry.goubier@gmail.com> wrote:
Le 03/08/2015 17:28, Alexandre Bergel a écrit :
Hi!
Some of you have an interest in visualizing graphs on top of open street maps.
Yes! This is why we designed the Roassal OpenStreetMap support that way :)
Thierry
Together with Hilaire we made a small example:
-=-=-=-=-=-=-=-=-=-=-=-= | v map data b d whiteBackground london elementsAndEdges | v := RTView new. v @ RTDraggableView. map := RTOSM new. v add: map element.
"Place to set the data and center the camera" london := 51.507222@ -0.1275. "Some arbitrary data" data := ((1 to: 500) collect: [ :i | 50 atRandom - 25 ]) cumsum.
"We build the graph" b := RTGrapher new. b extent: 100@30. d := RTData new. d noDot. d connectColor: Color red. d points: data.
b add: d. b axisY labelFontHeight: 6; color: Color red; title: 'Sale'.
b axisX color: Color red; noTick; title: 'country'. b build. elementsAndEdges := b view elements, b view edges.
"We create a white background" whiteBackground := (RTRoundedBox new color: Color white trans; borderRadius: 10) element. v add: whiteBackground. v addAll: elementsAndEdges. RTNest new on: whiteBackground nest: elementsAndEdges. whiteBackground translateTo: (map latLonToRoassal: london).
v canvas camera translateTo: (map latLonToRoassal: london). v canvas camera noInitializationWhenOpen. v canvas camera scale: 1.5. v -=-=-=-=-=-=-=-=-=-=-=-=
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Le 3 août 2015 10:33 PM, "Alexandre Bergel" <alexandre.bergel@me.com> a écrit :
Yes, and this is pretty cool! Thanks Thierry for it!
Well, Roassal is very cool :) Thierry
Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
On Aug 3, 2015, at 5:19 PM, Thierry Goubier <thierry.goubier@gmail.com> wrote:
Le 03/08/2015 17:28, Alexandre Bergel a écrit :
Hi!
Some of you have an interest in visualizing graphs on top of open street maps.
Yes! This is why we designed the Roassal OpenStreetMap support that way :)
Thierry
Together with Hilaire we made a small example:
-=-=-=-=-=-=-=-=-=-=-=-= | v map data b d whiteBackground london elementsAndEdges | v := RTView new. v @ RTDraggableView. map := RTOSM new. v add: map element.
"Place to set the data and center the camera" london := 51.507222@ -0.1275. "Some arbitrary data" data := ((1 to: 500) collect: [ :i | 50 atRandom - 25 ]) cumsum.
"We build the graph" b := RTGrapher new. b extent: 100@30. d := RTData new. d noDot. d connectColor: Color red. d points: data.
b add: d. b axisY labelFontHeight: 6; color: Color red; title: 'Sale'.
b axisX color: Color red; noTick; title: 'country'. b build. elementsAndEdges := b view elements, b view edges.
"We create a white background" whiteBackground := (RTRoundedBox new color: Color white trans; borderRadius: 10) element. v add: whiteBackground. v addAll: elementsAndEdges. RTNest new on: whiteBackground nest: elementsAndEdges. whiteBackground translateTo: (map latLonToRoassal: london).
v canvas camera translateTo: (map latLonToRoassal: london). v canvas camera noInitializationWhenOpen. v canvas camera scale: 1.5. v -=-=-=-=-=-=-=-=-=-=-=-=
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
really nice. Stef Le 3/8/15 17:28, Alexandre Bergel a écrit :
Hi!
Some of you have an interest in visualizing graphs on top of open street maps. Together with Hilaire we made a small example:
-=-=-=-=-=-=-=-=-=-=-=-= | v map data b d whiteBackground london elementsAndEdges | v := RTView new. v @ RTDraggableView. map := RTOSM new. v add: map element.
"Place to set the data and center the camera" london := 51.507222@ -0.1275. "Some arbitrary data" data := ((1 to: 500) collect: [ :i | 50 atRandom - 25 ]) cumsum.
"We build the graph" b := RTGrapher new. b extent: 100@30. d := RTData new. d noDot. d connectColor: Color red. d points: data.
b add: d. b axisY labelFontHeight: 6; color: Color red; title: 'Sale'.
b axisX color: Color red; noTick; title: 'country'. b build. elementsAndEdges := b view elements, b view edges.
"We create a white background" whiteBackground := (RTRoundedBox new color: Color white trans; borderRadius: 10) element. v add: whiteBackground. v addAll: elementsAndEdges. RTNest new on: whiteBackground nest: elementsAndEdges. whiteBackground translateTo: (map latLonToRoassal: london).
v canvas camera translateTo: (map latLonToRoassal: london). v canvas camera noInitializationWhenOpen. v canvas camera scale: 1.5. v -=-=-=-=-=-=-=-=-=-=-=-=
Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
participants (3)
-
Alexandre Bergel -
stepharo -
Thierry Goubier