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
use-revolution@lists.runrev.com
http://lists.runrev.com/mailman/listinfo/use-revolution