🚀 go-pugleaf

chriske911 schreef op 10/11/2004 :
> 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?

Je positioneert je vormen aan de hand van de linkerbovenhoek van elk 
vorm. Dus het middelpunt van elke vorm zal shpSim(i).Width/2 teveel 
naar rechts en shpSim(i).Height/2 teveel naar boven staan

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

-- 
Joris "flotspe" Janssens *** http://inferno.xhtml.be/
m(28,23,Kempen) zkt v(20<=age<=35,20<=bmi<=25,Kempen)