Discussion :

[der§en]

Bonjour,

Quelqu’un saurais me convertir cette fonction en pure Delphi ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
procedure TFastPerlinNoise.SetupFPU; register;
asm
fstcw fpu_control_word // store fpu control word
mov dx, word ptr [fpu_control_word]
or dx, $0400 // round towards -inf
and dx, $F7FF
mov fpu_control_word2, dx
fldcw fpu_control_word2 // load modfied control word
end;

Je vous remercie par avance pour toute l’aide possible