open street map example

Le 3 août 2015 10:33 PM, "Alexandre Bergel" <[hidden email]> 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 <[hidden email]> 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
>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>
>>>
>>>
>>
>>
>

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