REVO2700Bezier2ˆH€ã±:ñBezier UGeneva UTimes UTimes WGenevaUGeneva UGeneva WGeneva WTimes U Segoe UIcREVGeometryCachestackID1282 cREVGeneralscripteditorvscroll0breakpointconditions debugObjectsâcard id 1002 of stack "Untitled 2" graphic id 1011 of card id 1002 of stack "Bezier control" button id 1017 of card id 1002 of stack "Bezier control" graphic id 1011 of group id 1015 of card id 1002 of stack "Bezier control" graphic id 1010 of group id 1015 of card id 1002 of stack "Bezier control" graphic id 1078 of group id 1077 of card id 1002 of stack "Bezier control" group id 1077 of card id 1002 of stack "GroupBezier" button id 1017 of card id 1002 of stack "GroupBezier" button id 1179 of card id 1145 of stack "Bezier help" of stack "Bezier Line" graphic id 1011 of group id 1015 of card id 1002 of stack "Bezier Line" button id 1017 of card id 1002 of stack "Bezier Line" button id 1086 of card id 1002 of stack "Bezier Line"scripteditorselection0 breakpointsbreakpointstatesAlreadyHiddenfalseê PÒon mouseDoubleUp get binaryDecode("H*", md5Digest(the long seconds), tHash) clone grp "grpBezier" set the location of it to the mouseLoc set the name of it to "grpBezier-" & tHash end mouseDoubleUp command drawCurve pBezier repeat with i= 1 to 4 put the loc of grc ("r" & i) of pBezier into pt[i] end repeat repeat with i = 0 to 50 put i/50 into t put 1-t into s repeat with j = 1 to 2 put round(s^3 * item j of pt[1] + 3 * s^2 * t * item j of pt[2] + 3 * s * t^2 * item j of pt[3] + t^3 * item j of pt[4]) into item j of tPoint end repeat put tPoint & LF after tPoints end repeat set the points of grc "bezierLine" of pBezier to tPoints set the points of grc "TangentStartLine" of pBezier to the loc of grc "r1" of pBezier & LF & the loc of grc "r2" of pBezier set the points of grc "TangentEndLine" of pBezier to the loc of grc "r3" of pBezier & LF & the loc of grc "r4" of pBezier end drawCurve €:cREVGeometryCacheIDs 10822619688281015108220105837910091082201059002101010822060148811014124172889366112321082200959159100712417296153561250108220105799110081082206014867101310822038457871011cREVGeometrycachetotal10order cREVGeneralscripteditorvscroll0scripteditorselection228 breakPoints4âÐ÷÷ grpBezieri£on mouseDown set the uMove of me to true end mouseDown on mouseUp set the uMove of me to false end mouseUp on mouseRelease mouseUp end mouseRelease on mouseMove pX, pY if the uMove of me <> true then exit mouseMove put the target && "of" && me into tTarget put the uControl of tTarget into tControl put the loc of tTarget into tLoc if tControl <> empty then put the loc of grc tControl of me into tLoc2 put pX - (item 1 of tLoc - item 1 of tLoc2) into tX put pY - (item 2 of tLoc - item 2 of tLoc2) into tY set the loc of grc tControl of me to tX,tY end if set loc of tTarget to pX, pY drawCurve me end mouseMove €>t_MuMovefalseÔ cREVGeneralscripteditorvscroll0 revUniqueID 1082261968828scripteditorselection673ó bezierLineKV®on mouseDown set the uRefLoc of me to the mouseLoc pass mouseDown end mouseDown on mouseMove pX, pY put the owner of me into tOwner if the uMove of tOwner <> true then exit mouseMove put the uRefLoc of me into tRefLoc put the mouseLoc into tMouseLoc put item 1 of tRefLoc - item 1 of tMouseLoc into tX put item 2 of tRefLoc - item 2 of tMouseLoc into tY set the uRefLoc of me to tMouseLoc repeat for each item tGrc in "r1,r2,r3,r4" put the loc of grc tGrc of tOwner into tLoc subtract tX from item 1 of tLoc subtract tY from item 2 of tLoc set the loc of grc tGrc of tOwner to tLoc end repeat drawCurve tOwner end mouseMove €U‹6/uRefLoc114,1393Y¹X¶W²W¯V¬V©V¦V¤W¡WŸXœYšZ˜[—\•]“_’`‘bceŽgikŒlŒnŒpŒrŒtvxŽzŽ{}’€“‚”ƒ–…˜†š‡œˆž‰¡‰£Š¦Š©Š¬Š¯Š²Šµ‰¹ cREVGeneralscripteditorvscroll0 revUniqueID 1082203845787scripteditorselection685 breakPoints5debugParametersdebugEntryHandler M,drawCurveõtangentStartLineKF€E}=–Y¹F~ cREVGeneral revUniqueID 1082206014867ötangentEndLineKF€ˆ{?”•|‰¹ cREVGeneral revUniqueID 1082206014881ïr1KD""Í̀Uµ uControlr2”h cREVGeneralscripteditorvscroll0 revUniqueID 1082200959159scripteditorselection0 breakPoints14ðr2K@ÿÿêê€Bz’ cREVGeneralscripteditorvscroll0 revUniqueID 1082201057991scripteditorselection0ñr3K@//‹‹ €‘x’ cREVGeneralscripteditorvscroll0 revUniqueID 1082201058379scripteditorselection0òr4KDblack€…µ uControlr3h cREVGeneralscripteditorvscroll0 revUniqueID 1082201059002scripteditorselection0 breakPoints23Ð btnCleanUpèe‹p®on mouseUp repeat with i = the num of controls to 1 step -1 if the short name of control i begins with "grpBezier-" then delete control i end repeat end mouseUp €0R Clean up cREVGeneral revUniqueID 1241728893661scripteditorvscroll0scripteditorselection117 â Label Field`ÀÀÀÀÀÀÀÿÿÿÿè+¾ cREVTable currentviewÆDouble click on the card to clone the curve. The curves can be dragged around and tweaked. This stack is based on Jim Hurley's Bezier Line stack which was based on earlier work by Alejandro Tejada. cREVGeneral revUniqueID 1241729615356 \Double click on the card to clone the curve. The curves can be dragged around and tweaked. kThis stack is based on Jim Hurley's Bezier Line stack which was based on earlier work by Alejandro Tejada. revOnline | RunRev