Hi Francois,
François Chaplais-3 wrote > > Thanks Alejandro. The actual link is > http://www.jamesphurley.com/RunRev/BezierLine.rev > I will have a deep look at the stack and how it relates to interpolation. > Best regards > I used these 3 different Bezier drawing handlers in this stack: http://andregarzia.on-rev.com/alejandro/stacks/Eps_Import_V04.zip One handler is based in Don Lancaster's code, other handler uses Matrices and another handler uses the very first code that I published many, many years ago... Could you guess which is faster? :-) Although I have not looked in detail, the stack SVGL must have different handlers to draw Quadratic and Bezier curves. http://revonline2.runrev.com/stack/112/SVGL NOTE: global varBezierSegment contains a series of coordinates points that draw the graphic on the card. for example: 145,234 146,236 148,239 149,241 150,244 etc... global variables named a,b,c,d contains four coordinates points of the bezier segment for example: A segment of an Adobe illustrator file: 96 62 m 96 69 101 1555 107 1555 C a = 96,62 b = 96,69 c = 101,1555 d = 107,1555 The field named fld "BezierResolution" and the variable named "cde" should contain a number from 16 to 800. This is the number of rectilinear segments in a bezier segment... on bezier1 global varBezierSegment,a,b,c,d put the first item of a into x1 put the first item of d into x2 put the first item of b into xa put the first item of c into xb put the second item of a into y1 put the second item of d into y2 put the second item of b into ya put the second item of c into yb put 0 into v1 if there is a fld "BezierResolution" then put fld "BezierResolution" into cde if cde is not a number then put "32" into cde Repeat with i = 1 to cde -- a number from 16 to 800 put i * ( 1 / cde ) into v1 put 1 - v1 into v2 put (x1 * (v2 ^ 3) + (3 * xa * v1 * v2 * v2) + (3 * xb * v1 * v1 * v2) + (x2 * (v1 ^ 3))) into x put (y1 * (v2 ^ 3) + (3 * ya * v1 * v2 * v2) + (3 * yb * v1 * v1 * v2) + (y2 * (v1 ^ 3))) into y if varBezierSegment is not empty then put last line of varBezierSegment into varTemp if x div 1,y div 1 <> varTemp then put x div 1,y div 1 & return after varBezierSegment end repeat end bezier1 ---------------------------------------------------------------- on bezier2 /* this is the custom property bm1 1,1 -1 1,2 3 1,3 -3 1,4 1 2,1 3 2,2 -6 2,3 3 2,4 0 3,1 -3 3,2 3 3,3 0 3,4 0 4,1 1 4,2 0 4,3 0 4,4 0 */ /* this is the custom property bm2 [p0] [p1] [p2] [p3] 1,1 0 1,2 0 1,3 0 1,4 0 */ /* this is the custom property bm3 1,1 0 2,1 0 3,1 0 4,1 0 */ global varBezierSegment,a,b,c,d put the first item of a into x1 put the second item of a into y1 put the first item of b into xa put the second item of b into ya put the first item of c into xb put the second item of c into yb put the first item of d into x2 put the second item of d into y2 put 0 into v1 put the bm1 of me into qwe12 split qwe12 by return and space put the bm2 of me into qwy12 put the bm2 of me into qwx12 put x2 into word 2 of line 1 of qwx12 put xb into word 2 of line 2 of qwx12 put xa into word 2 of line 3 of qwx12 put x1 into word 2 of line 4 of qwx12 put y2 into word 2 of line 1 of qwy12 put yb into word 2 of line 2 of qwy12 put ya into word 2 of line 3 of qwy12 put y1 into word 2 of line 4 of qwy12 split qwx12 by return and space split qwy12 by return and space if there is a fld "BezierResolution" then put fld "BezierResolution" into cde if cde is not a number then put "32" into cde Repeat with i = 1 TO cde put i * (1/cde) into v1 put 1 - v1 into v2 put the bm3 of me into qws12 put v2^3 into word 2 of line 1 of qws12 put v2^2 into word 2 of line 2 of qws12 put v2 into word 2 of line 3 of qws12 put 1 into word 2 of line 4 of qws12 split qws12 by return and space put matrixMultiply(qwe12,qws12) into qwz12 put matrixMultiply(qwx12,qwz12) into pX put matrixMultiply(qwy12,qwz12) into pY combine pX using space combine pY using space if varBezierSegment is not empty then put last line of varBezierSegment into varTemp if pX div 1,pY div 1 <> varTemp then put pX div 1,pY div 1 & return after varBezierSegment end repeat end bezier2 ---------------------------------------------------------------- on bezier3 global varBezierSegment,a,b,c,d put the first item of a into x3 put the second item of a into y3 put the first item of b into x2 put the second item of b into y2 put the first item of c into x1 put the second item of c into y1 put the first item of d into x0 put the second item of d into y0 put 0 into v1 put (x3 - 3 * x2 + 3 * x1 - x0) into A put (3 * x2 - 6 * x1 + 3 * x0) into B put (3 * x1 - 3 * x0) into C put (x0) into D put (y3 - 3 * y2 + 3 * y1 - y0) into E put (3*y2 - 6 * y1 + 3 * y0) into F put (3 * y1 - 3 * y0) into G put (y0) into H if there is a fld "BezierResolution" then put fld "BezierResolution" into cde if cde is not a number then put "32" into cde Repeat with i = 1 to cde -- a number from 16 to 800 put i * ( 1 / cde ) into v1 put 1 - v1 into t put ((((A * t) + B)* t) + C) * t + D into x put ((((E* t) + F)* t) + G) * t + H into y if varBezierSegment is not empty then put last line of varBezierSegment into varTemp if x div 1,y div 1 <> varTemp then put x div 1,y div 1 & return after varBezierSegment end repeat end bezier3 Have a nice weekend! Al -- View this message in context: http://runtime-revolution.278305.n4.nabble.com/ANN-Stars-tp4651129p4651208.html Sent from the Revolution - User mailing list archive at Nabble.com. _______________________________________________ use-livecode mailing list use-livecode@lists.runrev.com Please visit this url to subscribe, unsubscribe and manage your subscription preferences: http://lists.runrev.com/mailman/listinfo/use-livecode
