Hi,
Roassal2 has new interaction RTShowLabel witch dynamically shows labels the same way RTShowEdge shows edges. It uses RTLabelled for placing labels.
Example: -=-=-=- RTExample new dynamicLabels -=-=-=- | view elements | view := RTView new. elements := RTEllipse new size: 30; elementsOn: (1 to: 20). view addAll: elements. RTCircleLayout new initialRadius: 150; on: elements. elements @ (RTShowLabel new highlight: [ :value | value - 5 to: value + 5]; center; yourself). elements @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). view open -=-=-=-
Picture:
Cheers, Juraj
Cool! Excellent!
Alexandre
On Aug 21, 2014, at 9:55 PM, Juraj Kubelka juraj.kubelka@gmail.com wrote:
Hi,
Roassal2 has new interaction RTShowLabel witch dynamically shows labels the same way RTShowEdge shows edges. It uses RTLabelled for placing labels.
Example: -=-=-=- RTExample new dynamicLabels -=-=-=- | view elements | view := RTView new. elements := RTEllipse new size: 30; elementsOn: (1 to: 20). view addAll: elements. RTCircleLayout new initialRadius: 150; on: elements. elements @ (RTShowLabel new highlight: [ :value | value - 5 to: value + 5]; center; yourself). elements @ (RTShowEdge new connectTo: [ :value | value - 5 to: value + 5]; shape: (RTLine new color: (Color blue alpha: 0.4))). view open -=-=-=-
Picture: <Captura de pantalla 2014-08-21 a la(s) 16.48.13.png>
Cheers, Juraj _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Indeed. Pretty cool!
Doru
On Thu, Aug 21, 2014 at 11:30 PM, Alexandre Bergel alexandre.bergel@me.com wrote:
Cool! Excellent!
Alexandre
On Aug 21, 2014, at 9:55 PM, Juraj Kubelka juraj.kubelka@gmail.com wrote:
Hi,
Roassal2 has new interaction RTShowLabel witch dynamically shows labels
the same way RTShowEdge shows edges. It uses RTLabelled for placing labels.
Example: -=-=-=- RTExample new dynamicLabels -=-=-=- | view elements | view := RTView new. elements := RTEllipse new size: 30; elementsOn: (1 to: 20). view addAll: elements. RTCircleLayout new initialRadius: 150; on: elements. elements @ (RTShowLabel new highlight: [ :value | value - 5 to:
value + 5]; center; yourself).
elements @ (RTShowEdge new connectTo: [ :value |
value - 5 to: value + 5];
shape: (RTLine new color:
(Color blue alpha: 0.4))).
view open
-=-=-=-
Picture: <Captura de pantalla 2014-08-21 a la(s) 16.48.13.png>
Cheers, Juraj _______________________________________________ Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev