🚀 go-pugleaf

Joris Janssens interrumpeerde het poetertje met volgende input:
> chriske911 formuleerde op zaterdag :
>> weet er iemand een slimme manier om een aantal shapes in een cirkelvorm te 
>> positioneren en dat natuurlijk gelijkmatig verdeeld?
>> liefst dynamisch vanwege een resize mogelijheid van de form
>> ik kom er niet zo direct uit
>
> in pseudo-code:
>
> for i = 0 to n-1
>   shapes[i].y=sin(2*PI*i/n)*cirkelvorm.r+cirkelvorm.y;
>   shapes[i].x=cos(2*PI*i/n)*cirkelvorm.r+cirkelvorm.x;
> next i
>
> shapes = een array van n shapes
> cirkelvorm = het middelpunt van de cirkel van shapes, met als straal r
>
> en bij een resize van je form pas je dan de eigenschappen van cirkelvorm aan 
> (straal en x en y-co�rdinaten) aan de nieuwe afmetingen van het form
>
> zoiets...

het lijkt te werken zoals ik het verwachtte
de shapes staan dus wel netjes in een cirkel maar niet perfect 
gecentreerd staan rond het middelpunt

dit is hetgeen ik ervan gemaakt heb:

Const Pi = 3.14159265358979
n = nrshapes + 1

For i = 0 To nrshapes
    shpSim(i).Top = Sin(2 * Pi * i / n) * shpCenter.Width + 
shpCenter.Top
    shpSim(i).Left = Cos(2 * Pi * i / n) * shpCenter.Width + 
shpCenter.Left
Next i

wat is er hier aan verkeerd?

thnx

-- 
for OE users:
http://home.in.tum.de/~jain/software/oe-quotefix/
just a suggestion ;-)