Draw spokes on a wheel

[Jim Ault]

One note of caution:
you might want to make the first three lines of the script

  repeat with x = the number of graphics down to 1
    delete graphic x
  end repeat

otherwise redoing/redrawing will keep adding graphics and give slower and
slower performance.

Happy you found a solution... and I will be tuning in to see what you come
up with and add it to my Syntax Lib !!

Jim Ault
Las Vegas


On 3/17/06 2:24 PM, "Mark Talluto" <userev at canelasoftware.com> wrote:

> Dick Kriesel, your solution worked extra perfectly as it even set up
> for the inner diameter, outer circumference, and the line size.
> Thanks to you as well.  I decided to use this solution for my project.
> 
> on drawAstig pInnerDiameter,pOuterDiameter,pLineSize
>    repeat with i = 0 to 345 step 15
>      create graphic
>      set the style of it to "oval"
>      set the height of it to pOuterDiameter
>      set the width of it to pOuterDiameter
>      set the angle of it to i
>      set the arcangle of it to 15
>      set the opaque of it to "true"
>      set the lineSize of it to pLineSize
>    end repeat
>    create graphic
>    set the style of it to "oval"
>    set the height of it to pInnerDiameter
>    set the width of it to pInnerDiameter
>    set the opaque of it to "true"
>    set the foregroundColor of it to "white"
>    create graphic
>    set the style of it to "oval"
>    set the height of it to pOuterDiameter+5
>    set the width of it to pOuterDiameter+5
>    set the foregroundColor of it to "white"
>    set the lineSize of it to pLineSize + 4
> end drawAstig