[Moose-dev] Re: Roassal bezier line error

-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > On Apr 27, 2015, at 6:34 PM, Peter Uhnák i.uhnak@gmail.com wrote: > > 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 > > _______________________________________________ > Moose-dev mailing list > Moose-dev@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev