Draw spokes on a wheel

[Jim Hurley]

>
>Message: 11
>Date: Fri, 17 Mar 2006 18:32:17 -0800
>From: Dick Kriesel <dick.kriesel at mail.com>
>Subject: Re: Draw spokes on a wheel
>To: How to use Revolution <use-revolution at lists.runrev.com>
>Message-ID: <C040B131.1936F%dick.kriesel at mail.com>
>Content-Type: text/plain;	charset="US-ASCII"
>
>On 3/17/06 2:24 PM, "Mark Talluto" <userev at canelasoftware.com> wrote:
>
>>  One things is for sure, I owe each of you a drink of your choice 
>>at the RevCon
>>  in Monterey this year.
>
>With positive reinforcement like that, I'll do even better:
>
>on mouseUp
>   drawAstig 50,200,225,2
>end mouseUp
>
>on drawAstig pSpokeRadiusInner,pSpokeRadiusOuter,pLabelRadius,pLineSize
>   go url "http://home.infostations.net/jhurley/StopTurtles.rev"
>   start using stack "stopTurtles" -- note: thanks, Jim Hurley
>   create stack
>   set the width of it to 600
>   set the height of it to 600
>   go to it
>   lock screen
>   set the textSize of the templateField to 16
>   set the margins of the templateField to 1,7,0,0
>   startTurtle
>   setH 75 -- note: set heading
>   repeat with i = 1 to 24
>     penUp
>     forward pSpokeRadiusInner
>     penDown
>     forward pSpokeRadiusOuter - pSpokeRadiusInner
>     penUp
>     if i mod 2 = 0 then
>       forward pLabelRadius - pSpokeRadiusOuter
>       label i div 2
>       set the width of last field to the formattedWidth of last field
>       set the height of last field to the formattedHeight of last field
>       back pLabelRadius
>     else
>       back pSpokeRadiusOuter
>     end if
>     right 15
>   end repeat
>   stopTurtle
>   set the lineSize of last graphic to pLineSize
>   unlock screen
>end drawAstig
>
>RevConWest is sounding better and better...
>
-- Dick


Dick,

Ah, ha, A TG pro. Thanks.

My apologies to all for not responding in order to the posts on this 
thread.  I get the  digest version of the list--it comes all at once. 
It has become a bit overwhelming recently. So much, so fast. I have 
only the vaguest idea of what's going on.

Jim