From 5b20e148f561cf38d6f094447242f8e4d3e75018 Mon Sep 17 00:00:00 2001
From: zueuk <zueuk>
Date: Sat, 7 Feb 2009 08:34:39 +0000
Subject: [PATCH] fixed xform[0] not being applied in the 1st iteration

---
 2.10/Source/Render32.pas  | 12 ++++++++----
 2.10/Source/Render32f.pas |  4 ++++
 2.10/Source/Render48.pas  |  4 ++++
 2.10/Source/Render64.pas  |  4 ++++
 4 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/2.10/Source/Render32.pas b/2.10/Source/Render32.pas
index cb96780..eb57de8 100644
--- a/2.10/Source/Render32.pas
+++ b/2.10/Source/Render32.pas
@@ -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);
diff --git a/2.10/Source/Render32f.pas b/2.10/Source/Render32f.pas
index 909c9cf..f0f48f9 100644
--- a/2.10/Source/Render32f.pas
+++ b/2.10/Source/Render32f.pas
@@ -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);
diff --git a/2.10/Source/Render48.pas b/2.10/Source/Render48.pas
index bbf801f..c47d5de 100644
--- a/2.10/Source/Render48.pas
+++ b/2.10/Source/Render48.pas
@@ -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);
diff --git a/2.10/Source/Render64.pas b/2.10/Source/Render64.pas
index 872a91b..74308a3 100644
--- a/2.10/Source/Render64.pas
+++ b/2.10/Source/Render64.pas
@@ -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);