ANN Nine Ball with Spin (English)

[Jim Hurley]

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