Message: 11
Date: Fri, 17 Mar 2006 18:32:17 -0800
From: Dick Kriesel <[EMAIL PROTECTED]>
Subject: Re: Draw spokes on a wheel
To: How to use Revolution <[email protected]>
Message-ID: <[EMAIL PROTECTED]>
Content-Type: text/plain; charset="US-ASCII"
On 3/17/06 2:24 PM, "Mark Talluto" <[EMAIL PROTECTED]> 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
_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution
