Hi,
it seems that last control point of a
bezier line is off.
Here is a comparative view of RTBezierLine
(black line) and bezier line done with SVG (red line).
Notice how the bottom half is flatlined and doesn't
match up.
<2015-04-28_00:29:16.png>
And the code (based on
RTRoassalExample>>exampleBezierCurve):
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
| v e1 e2 l s p1 p2 path svg|
v := RTView new.
e1 := (RTEllipse new size: 15; color:
(Color blue alpha: 0.4)) element.
e2 := (RTEllipse new size: 15; color:
(Color blue alpha: 0.4)) element.
e2 translateBy: -150 @ 150.
p1 := RTBox element.
p2 := RTBox element.
p1 translateTo: (e2 position x + e1
position x / 2) @ e1 position y.
p2 translateTo: (e2 position x + e1
position x / 2) @ e2 position y.
v add: p1.
v add: p2.
s := RTBezierLine new.
s color: Color black.
s controllingElements: (Array with: p1
with: p2).
l := s edgeFrom: e1 to: e2.
v add: e1.
v add: e2.
v add: l.
path := 'M -150 150 Q -75 150 -75 75 Q
-75 0 0 0'.
svg := RTSVGPath new borderColor: Color
red; path: path; element.
v add: svg.
^ v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Peter