Hi again
I found a reason why it behaves differently to me.
There is differently implemented Rectangle's origin and corner behavior in
Pharo 3.0 and in 4.0.
In 3.0, calling Rectangle class >>#origin:corner: just sets this origin as
origin and corner as corner, but in Pharo 4.0, it sets upper left 'corner'
as origin and lower right 'corner' as corner, with code in previous message.
So when you call edgeBound origin in Pharo 3.0, you get the original
fromPoint, which could be any rectangle's corner, but in Pharo 4.0, you get
always upper left corner of rectangle.
Jan
Jan B. wrote
Interesting, I use Pharo 4.0 image #40370
Roassal2-AlexandreBergel.604.mcz
Trachel-akevalion.240.mcz
I think that calling edgeBound origin x for 2nd point and edgeBound corner
x for 3rd point should not work, because in Rectangle, "origin" is always
top left and "corner" is always bottom right of it, even if you call
fromPoint corner: toPoint, it sets its own corner in method Rectangle
>#setPoint:point:, which is called via
RTMultiLine >>#orthoVertical
Point >>#corner:
Rectangle class >>#origin:corner:
Rectangle >>#setPoint:point:
and its code is
origin := (pt1 x min: pt2 x)@(pt1 y min: pt2 y).
corner := (pt1 x max: pt2 x)@(pt1 y max: pt2 y).
meaning it always takes upper left corner as "origin" and lower right as
"corner", no matter which original point were in which corner.
abergel wrote
> I do not understand. It works well on my image. Do you use Pharo 4 or a
> moose image?
>
> Are you sure to have the last version of Roassal2 and Trachel?
>
> Cheers,
> Alexandre
>
>
>> On Nov 15, 2014, at 7:51 PM, Jan B. <
> bliznjan@.cvut
>> > wrote:
>>>
>>> Hi, for example
>>> RTRoassalExample new exampleOrthoVerticalLines2 open
>>> you should see it right away
>>>
>>>
>>> abergel wrote
>>>> Hi Jan!
>>>>
>>>> First of all, how can I reproduce the bug?
>>>> The following code seems to work well. At least it does in a moose
>>>> image.
>>>>
>>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>> v := RTView new.
>>>>
>>>> v addAll: ((RTEllipse new size: 20; color: (Color red alpha: 0.3))
>>>> elementsOn: (1 to: 20)).
>>>>
>>>> shape := RTMultiLine new.
>>>> shape orthoVertical.
>>>> shape color: (Color blue alpha: 0.3).
>>>>
>>>> RTEdge
>>>> buildEdgesFromObjects: (1 to: 20) from: [ :n | n // 3 ] to: #yourself
>>>> using: shape inView: v.
>>>>
>>>> v elements @ RTDraggable @ RTPopup.
>>>>
>>>> RTTreeLayout on: v elements.
>>>>
>>>> ^ v
>>>> -=-=-=-=-=-=-=-=-=-=-=-=
>>>>
>>>> Cheers,
>>>> Alexandre
>>>>
>>>>
>>>>> On Nov 15, 2014, at 9:34 AM, Jan B. <
>>>
>>
> bliznjan@.cvut
>>>
>>>> > wrote:
>>>>>
>>>>> Hi, orthogonal modes of multiline do not seem to work right. Pretty
>>>>> hard
>>>>> to
>>>>> describe, better to do it with picture:
>>>>>
https://monosnap.com/image/HyU0C2XV47uZqnLMHvP0qdEnDqjzu7.png
>>>>>
>>>>> I have a possible fix:
>>>>>
http://www.mediafire.com/view/212hadou3uv9uiz/RTMultiLineFix.st
>>>>>
>>>>> or the same fix with added ability to set balance of middle points,
>>>>> ie.
>>>>> ratio between fromPoint and toPoint:
>>>>>
http://www.mediafire.com/view/uzzue7f219x25bb/RTMultiLineFixWithBalance.st
>>>>> ... possible uses: unknown, may just add code and cpu cycles for
>>>>> nothing
>>>>>
>>>>> Jan
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> View this message in context:
>>>>>
http://forum.world.st/Roassal2-Orthogonal-multiline-bug-tp4790382.html
>>>>> Sent from the Moose mailing list archive at
Nabble.com.
>>>>> _______________________________________________
>>>>> Moose-dev mailing list
>>>>>
>>>
>>
> Moose-dev@.unibe
>>>
>>>
>>>>
>>>> --
>>>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>>>> Alexandre Bergel
http://www.bergel.eu
>>>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>>>
>>>>
>>>>
>>>>
>>>> _______________________________________________
>>>> Moose-dev mailing list
>>>
>>
> Moose-dev@.unibe
>>>
>>
>>>
>>>
>>>
>>>
>>>
>>> --
>>> View this message in context:
>>>
http://forum.world.st/Roassal2-Orthogonal-multiline-bug-tp4790382p4790435.h…
>>> Sent from the Moose mailing list archive at
Nabble.com.
>>> _______________________________________________
>>> Moose-dev mailing list
>>>
> Moose-dev@.unibe
>
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel
http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev@.unibe
--
View this message in context:
http://forum.world.st/Roassal2-Orthogonal-multiline-bug-tp4790382p4790783.h…
Sent from the Moose mailing list archive at
Nabble.com.