28 Apr
2015
28 Apr
'15
12:34 a.m.
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.
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
