FIX: output image was left / right mirrowed

Author: PascalCorpsman

miniprojects/Wave_function_collapse/Overlap_model/unit1.pas

@@ -1,7 +1,7 @@
 (******************************************************************************)
 (* Wave function collapse (Ovelap mode)                            23.01.2024 *)
 (*                                                                            *)
-(* Version     : 0.05                                                         *)
+(* Version     : 0.06                                                         *)
 (*                                                                            *)
 (* Author      : Uwe Schächterle (Corpsman)                                   *)
 (*                                                                            *)
@@ -29,6 +29,7 @@
 (*               0.03 - allow wrap                                            *)
 (*               0.04 - ADD: Constraint Editor                                *)
 (*               0.05 - Show pattern infos                                    *)
+(*               0.06 - FIX: left right was swapped                           *)
 (*                                                                            *)
 (******************************************************************************)
 (*
@@ -334,7 +335,7 @@
 Procedure TForm1.FormCreate(Sender: TObject);
 Begin
   Randomize;
-  caption := 'Wave function collapse demo ver. 0.05';
+  caption := 'Wave function collapse demo ver. 0.06';
   edit1.text := '3';
   edit2.text := '40';
   edit3.text := '40';

miniprojects/Wave_function_collapse/Overlap_model/uwfc.pas

@@ -430,7 +430,7 @@
   // Loop over the height of the image.
   For j := 0 To IH - 1 Do Begin
     For i := 0 To IW - 1 Do Begin
-      col := Image.Canvas.Pixels[i, j];
+      col := Image.Canvas.Pixels[IW - i - 1, j];
       If (Not includes(color_table, col)) Then Begin
         push(color_frequencies, 0);
         push(color_table, col);
@@ -620,3 +620,6 @@
 
 End.
 
+
+
+