RTLabelled doesn't respect bezier line

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
2 messages Options
Reply | Threaded
Open this post in threaded view
|

RTLabelled doesn't respect bezier line

Peter Uhnak
Hi,

apparently RTLabelled (or rather TRConstraint) doesn't respect bezier line (not unexpected), and thus probably also all non-straight-line elements (RTMultiLine, RTSomethingGradientLine, maybe others). I am now working on a solution for our heavily modified dynamic multiline, so maybe the solution would be applicable also for the lines in roassal.

Example:
~~~~~~~~~~~~~~~
| v shape  edge els |
v := RTView new.
shape := RTEllipse new size: 10; color: (Color purple alpha: 0.3).
els := (shape elementsOn: (1 to: 3)) @ RTDraggable.
v addAll: els .
RTHorizontalLineLayout on: v elements.

v elements first translateBy: -50 @ 50.
v elements last translateBy: 150 @ 100.

edge := (RTBezierLine new controllingElements: v elements) edgeFrom: els first to: els last.
v add: edge.
edge @ (RTLabelled new text: 'a text').

^ v
~~~~~~~~~~~~~~~~

Peter

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Reply | Threaded
Open this post in threaded view
|

Re: RTLabelled doesn't respect bezier line

abergel
Hi Peter!

Indeed, this is a valid point you are making.
Each trachel shape has a path, it should be possible to compute the center of it right? Is this what you are trying to do?

Alexandre


> On Apr 15, 2015, at 7:16 PM, Peter Uhnák <[hidden email]> wrote:
>
> Hi,
>
> apparently RTLabelled (or rather TRConstraint) doesn't respect bezier line (not unexpected), and thus probably also all non-straight-line elements (RTMultiLine, RTSomethingGradientLine, maybe others). I am now working on a solution for our heavily modified dynamic multiline, so maybe the solution would be applicable also for the lines in roassal.
>
> Example:
> ~~~~~~~~~~~~~~~
> | v shape  edge els |
> v := RTView new.
> shape := RTEllipse new size: 10; color: (Color purple alpha: 0.3).
> els := (shape elementsOn: (1 to: 3)) @ RTDraggable.
> v addAll: els .
> RTHorizontalLineLayout on: v elements.
>
> v elements first translateBy: -50 @ 50.
> v elements last translateBy: 150 @ 100.
>
> edge := (RTBezierLine new controllingElements: v elements) edgeFrom: els first to: els last.
> v add: edge.
> edge @ (RTLabelled new text: 'a text').
>
> ^ v
> ~~~~~~~~~~~~~~~~
>
> Peter
> _______________________________________________
> Moose-dev mailing list
> [hidden email]
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev