Y'a du mieux
Code : Tout sélectionner
Structure RandomStruct
r.f
EndStructure
Global Dim randomBuffer.RandomStruct(plots*2)
Define *pointeur.randomStruct = @randomBuffer()
For k = 0 To plots*2
Define.f tmp
tmp = (Random(RandMax)/(RandMaxBy4)) - 2.0
*pointeur\r = tmp
*pointeur + SizeOf(randomStruct)
Next k
J'aurai aimé faire mieux.
C'est pas tres classe, mais au moins le code FASM généré me fait
un peu moins hurler a la mort
Encore un petit effort, et je pourrai m'attaquer a l'optimisation du code FASM en reecrivant tout ca avec des instruction SSE3
(alors que si ca fait des call, je peux rien y faire ... )