And just for fun, to run an arrow around a circle:
on mouseUp put 0 into tStartAngle put 360 into tEndAngle set the endArrow of grc "myArc" to true repeat 180 times arc the loc of me,100,tStartAngle,tEndAngle,"myArc" add 2 to tStartAngle add 2 to tEndAngle unlock screen -- Necessary only in Mac OS X end repeat end mouseUp
(snip)
Put the following into a button script:
on mouseUp arc the loc of me,100,0,180+90,"myArc" end mouseUp
on arc startPt, r, tStartAngle,tEndAngle,tName put item 1 of startPt into x0 put item 2 of startPt into y0 repeat with a = tStartAngle to tEndAngle put x0 + r*cos(a/180*pi) into x put y0 + r* sin(a/180*pi) into y put round(x),round(y) & cr after results end repeat set the points of graphic tName to results end arc
_______________________________________________ use-revolution mailing list [email protected] http://lists.runrev.com/mailman/listinfo/use-revolution
