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
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
