Transparent edges and tree map

> Hi!
>
> I am cleaning some legacy code in Mondrian.
>
> Anyone knows what is a transparent edge?
> -=-=-=-=-=-=-=-=-=-=-=-=
> testTransparentEdges
>
> | view edges model |
> model := MOTestModel new.
> view := MOViewRenderer new.
> view
> nodes: model allNodes
> using:
> (MORectangleShape new width: 60; height: 60 "fixedWidth: 60  
> fixedHeight: 60").
> edges := view
> localEdges: model allEdges
> from: [:entity | entity first]
> to: [:entity | entity last]
> using: model shapeForEdge.
> window := view open.
> self assert: edges value size = model allEdges size.
> view layout: MOTreeMapLayout new.
> view root deepApplyLayout.
> edges value do: [:edge | self deny: edge isVisible].
> view layout: MOTreeLayout new.
> view root deepApplyLayout.
> edges value do: [:edge | self assert: edge isVisible]
> -=-=-=-=-=-=-=-=-=-=-=-=
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel  http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

> Hi,
>
> A transparent edge is a synonym for an invisible edge.
>
> This test comes from an experiment related to applying a treemap layout on a regular Mondrian tree. The challenge here is that a treemap layout does not display edges, but uses nesting to denote containment. As Mondrian is typically used to directly represent nodes and edges, we introduced the idea of an invisible edge to control the visibility. Thus a TreeMapLayout would then just place nodes and mark all edges as being invisible.
>
> Cheers,
> Doru
>
>
> On 26 Jul 2010, at 12:32, Alexandre Bergel wrote:
>
>> Hi!
>>
>> I am cleaning some legacy code in Mondrian.
>>
>> Anyone knows what is a transparent edge?
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> testTransparentEdges
>>
>> | view edges model |
>> model := MOTestModel new.
>> view := MOViewRenderer new.
>> view
>> nodes: model allNodes
>> using:
>> (MORectangleShape new width: 60; height: 60 "fixedWidth: 60 fixedHeight: 60").
>> edges := view
>> localEdges: model allEdges
>> from: [:entity | entity first]
>> to: [:entity | entity last]
>> using: model shapeForEdge.
>> window := view open.
>> self assert: edges value size = model allEdges size.
>> view layout: MOTreeMapLayout new.
>> view root deepApplyLayout.
>> edges value do: [:edge | self deny: edge isVisible].
>> view layout: MOTreeLayout new.
>> view root deepApplyLayout.
>> edges value do: [:edge | self assert: edge isVisible]
>> -=-=-=-=-=-=-=-=-=-=-=-=
>>
>> Cheers,
>> Alexandre
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel  http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>> [hidden email]
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> --
> www.tudorgirba.com
>
> "What we can governs what we wish."
>
>
>
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev