fixed xform[0] not being applied in the 1st iteration

This commit is contained in:
zueuk 2009-02-07 08:34:39 +00:00
parent 433a001f72
commit 5b20e148f5
4 changed files with 20 additions and 4 deletions

View File

@ -130,7 +130,8 @@ end;
{$endif}
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf := fcp.xform[0];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -194,7 +195,8 @@ end;
{$endif}
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf := fcp.xform[0];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -259,7 +261,8 @@ end;
{$endif}
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf := fcp.xform[0];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -325,7 +328,8 @@ end;
{$endif}
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf := fcp.xform[0];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);

View File

@ -158,6 +158,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -224,6 +225,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -291,6 +293,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -359,6 +362,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);

View File

@ -152,6 +152,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -245,6 +246,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -339,6 +341,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -434,6 +437,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);

View File

@ -156,6 +156,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -220,6 +221,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -285,6 +287,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);
@ -351,6 +354,7 @@ end;
try
xf := fcp.xform[0];//random(fcp.NumXForms)];
xf.NextPoint(p);
for i := 0 to FUSE do begin
xf := xf.PropTable[Random(PROP_TABLE_SIZE)];
xf.NextPoint(p);