|
Registriert seit: 23. Jan 2008
3.679 Beiträge
Delphi 2007 Enterprise
|
AW: "Making Galaxies" von C++ nach Delphi
17. Mär 2011, 19:04
Bei % müsste die 1 eine 2 sein um den selben Effekt zu erwirken  .
Das als Einzeiler ( Unit Math nicht vergessen):
fQ := IfThen(Random(2)=0, 1, -1) * FRandom(0.0, fAngularSpread);
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
|