26 Jul
2010
26 Jul
'10
1:03 p.m.
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
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"What we can governs what we wish."