P4m Reference Implementation - Versionsgeschichte

Gbachelier am 5. März 2015 um 21:22 Uhr

2015-03-05T21:22:53Z

Gbachelier am 5. März 2015 um 21:18 Uhr

2015-03-05T21:18:36Z

Gbachelier am 3. März 2015 um 20:00 Uhr

2015-03-03T20:00:54Z

Gbachelier am 3. März 2015 um 10:29 Uhr

2015-03-03T10:29:21Z

Gbachelier am 3. März 2015 um 10:19 Uhr

2015-03-03T10:19:43Z

Gbachelier am 3. März 2015 um 10:14 Uhr

2015-03-03T10:14:08Z

Gbachelier: Die Seite wurde neu angelegt: „Let $image be an image from which a right angle triangle part should be cut out and used as prototile for the p4m tile. The triangle has two free parameter: th…“

2015-03-03T10:03:50Z

Die Seite wurde neu angelegt: „Let $image be an image from which a right angle triangle part should be cut out and used as prototile for the p4m tile. The triangle has two free parameter: th…“

Neue Seite

Let $image be an image from which a right angle triangle part should be cut out and used as prototile for the p4m tile. The triangle has two free parameter: the width $t_w and the hight $t_h of a rectangle that is first cut out of $image.

In the following relative translation parameters are used that are referencing to the one prototile that is used viz. to $t_w and $t_h. If patterns are generated with more than one prototile reletive parameters should are referencing to the width and height of the pattern image that itself be constructed as a function of the widths and heights of the prototile set and a multiplicator. Such a function ($w_P, $h_P) = f($mult, $w_S_i, $h_S_i | i = 1, …, n) is specified in the [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015#Definition_of_the_Pattern_Design_Space | design space definition]].

If a random part of $image should be selected for the rectangle that includes the future prototile this is made with:

# RANDOM CROP A RECTANGLE WITH $t_w x $t_h
($w, $h) = $image->Get('columns', 'rows');
$t_w = $crop_w;
$t_h = $crop_h;
$x_allowed = $w - $t_h; $x = int(rand($x_allowed));
$y_allowed = $h - $t_h; $y = int(rand($y_allowed));
$image->Crop(geometry=>"$t_w x $t_h + $x + $y", background=>'transparent'); print "crop rand rectangle from image with (geometry=>$t_w x $t_h + $x + $y)\n";
$image->Set(page=>'0x0+0+0'); #$image->Write(filename=>"$output_meta_folder/image_AfterRectCrop.jpg");

The right angle triangle mask is generated with:

# GENERATE p4m MASK/S
$mask->Set(size=>"$t_w x $t_h"); print "generate triangle mask with t_w x t_h = $t_w x $t_h \n";
$mask->Read('xc:none');
$mask->Draw(primitive=>'polyline', points => "0,0 $t_w,$t_h 0,$t_h", fill=>'red'); $mask->Write(filename=>"$output_meta_folder/p4m_mask_AfterGeneration.png");

[[Datei:P4m mask AfterGeneration.png | 300px]]

The prototile is generated with the triangle mask and the image by a composite command:

# GENERATE PROTOTILE/S AND
$mask->Composite(image=>$image, compose=>'in', color=>'transparent', matte=>'true'); print "generate prototile \n";
$mask->Set(page=>'0x0+0+0'); $mask->Write(filename=>"$output_meta_folder/mask_AfterCompose.png");

In the next step an empty p4m tile is generated for example with transparent background. It has 2 times the width and 2 times the hight of the prototile:

# GENERATE EMPTY p4m-TILE $tile AS A FUNCTION OF $mask or $prototile
$tile_w = 2 * $t_w;
$tile_h = 2 * $t_h;
$tile->Set(size=>"$tile_w x $tile_h"); print "generate empty tile with tile_w x tile_h = $tile_w x $tile_h \n";
$tile->Read('xc:none'); #$tile->Write(filename=>"$output_meta_folder/tile_AfterGeneration.png");

What follows is a sequence of 8 image processing operations, the CRMT commands that takes a clone of the prototile, rotates it, Flop and/or Flip it and makes a composite operation with compose=>over that includes a translation of the prototile over the tile image. The images are shown in jpg which means that the transparent background is transformed to black.

# CRMT-COMMAND-LIST_01: (C0, x0, y0)
@$prototile_crm = ();
$prototile_crm = $Shape_list->[0]->Clone(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterGeneration.png");
$tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>'0', color=>'transparent', matte=>'true');
$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_01.png");
$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_01.jpg");

[[Datei:P4m tile after crmt 01.jpg | 400px]]

# CRMT-COMMAND-LIST_02: (C0, Fo, R-90, x0, y0)
@$prototile_crm = ();
$prototile_crm = $Shape_list->[0]->Clone();
$prototile_crm->Flop();
$prototile_crm->Rotate(degrees=>-90, color=>'transparent');
$prototile_crm->Set(page=>'0x0+0+0');
$tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>'0', color=>'transparent', matte=>'true');
$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_02.png");
$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_02.jpg");

[[Datei:P4m tile after crmt 02.jpg | 400px]]

# CRMT-COMMAND-LIST_03: (C0, Fo, xt_w, y0)
@$prototile_crm = ();
$prototile_crm = $Shape_list->[0]->Clone();
$prototile_crm->Flop();
$tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>'0', color=>'transparent', matte=>'true');
$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_03.png");
$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_03.jpg");

[[Datei:P4m tile after crmt 03.jpg | 400px]]

# CRMT-COMMAND-LIST_04: (C0, R90, xt_w, y0)
@$prototile_crm = ();
$prototile_crm = $Shape_list->[0]->Clone();
#$prototile_crm->Flop();
$prototile_crm->Rotate(degrees=>90, color=>'transparent');
$prototile_crm->Set(page=>'0x0+0+0');
#$prototile_crm->Flop();
$tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>'0', color=>'transparent', matte=>'true');
$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_04.png");
$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_04.jpg");

[[Datei:P4m tile after crmt 04.jpg | 400px]]

← Nächstältere Version		Version vom 5. März 2015, 21:18 Uhr
Zeile 1:		Zeile 1:
		+	back to [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015]]
		+
	Let $image be an image from which a right angle isosceles triangle part should be cut out and used as prototile for the p4m tile. The triangle has with the width $t_w one free parameter, the hight is the same $t_h = $t_w.		Let $image be an image from which a right angle isosceles triangle part should be cut out and used as prototile for the p4m tile. The triangle has with the width $t_w one free parameter, the hight is the same $t_h = $t_w.

Zeile 156:		Zeile 158:

	$CRMT_string = 'C0, x0, y0, C0, Fo, R-90, x0, y0, C0, Fo, xt_w, y0, C0, R90, xt_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-90, Fi, x0, yt_h, C0, Fo, Fi, xt_w, yt_h, C0, R90, Fi, xt_w, yt_h';		$CRMT_string = 'C0, x0, y0, C0, Fo, R-90, x0, y0, C0, Fo, xt_w, y0, C0, R90, xt_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-90, Fi, x0, yt_h, C0, Fo, Fi, xt_w, yt_h, C0, R90, Fi, xt_w, yt_h';
		+
		+	back to [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015]]

← Nächstältere Version		Version vom 3. März 2015, 10:29 Uhr
Zeile 117:		Zeile 117:
	#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_06.jpg");		#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_06.jpg");

−	[[Datei:P4m tile after crmt 05.jpg \| 400px]]	+	[[Datei:P4m tile after crmt 06.jpg \| 400px]]
		+
		+
		+	# CRMT-COMMAND-LIST_07: (C0, Fo, Fi, xt_w, yt_h)
		+	@$prototile_crm = ();
		+	$prototile_crm = $Shape_list->[0]->Clone();
		+	$prototile_crm->Flop();
		+	$prototile_crm->Flip();
		+	$tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>$t_h, color=>'transparent', matte=>'true');
		+	$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_07.png");
		+	#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_07.jpg");
		+
		+
		+	[[Datei:P4m tile after crmt 07.jpg \| 400px]]
		+
		+
		+	# CRMT-COMMAND-LIST_08: (C0, R90, Fi, xt_w, yt_h)
		+	@$prototile_crm = ();
		+	$prototile_crm = $Shape_list->[0]->Clone();
		+	$prototile_crm->Rotate(degrees=>90, color=>'transparent');
		+	$prototile_crm->Set(page=>'0x0+0+0');
		+	$prototile_crm->Flip();
		+	$tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>$t_h, color=>'transparent', matte=>'true');
		+	$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_08.png");
		+	#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_08.jpg");
		+
		+
		+	[[Datei:P4m tile after crmt 08.jpg \| 400px]]

@@ Zeile 102: / Zeile 102: @@
   $tile->Set(page=>'0x0+0+0');                                                           #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_05.png");
                                                                                          #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_05.jpg");
 [[Datei:P4m tile after crmt 05.jpg  | 400px]]

@@ Zeile 14: / Zeile 14: @@
   $y_allowed = $h - $t_h; $y = int(rand($y_allowed));
   $image->Crop(geometry=>"$t_w x $t_h + $x + $y", background=>'transparent');	print "crop rand rectangle from image with  (geometry=>$t_w x $t_h + $x + $y)\n";
-  $image->Set(page=>'0x0+0+0');						        #$image->Write(filename=>"$output_meta_folder/image_AfterRectCrop.jpg");
+  $image->Set(page=>'0x0+0+0'); #$image->Write(filename=>"$output_meta_folder/image_AfterRectCrop.jpg");
@@ Zeile 32: / Zeile 32: @@
   # GENERATE PROTOTILE/S
   $mask->Composite(image=>$image, compose=>'in', color=>'transparent', matte=>'true');     print "generate prototile \n";
-  $mask->Set(page=>'0x0+0+0');					                         $mask->Write(filename=>"$output_meta_folder/mask_AfterCompose.png");
+  $mask->Set(page=>'0x0+0+0');	 # $mask->Write(filename=>"$output_meta_folder/mask_AfterCompose.png");
   # PUSH PROTOTILE INTO $Shape_list
@@ Zeile 44: / Zeile 44: @@
   $tile_w = 2 * $t_w;
   $tile_h = 2 * $t_h;
-  $tile->Set(size=>"$tile_w x $tile_h");                                                   print "generate empty tile with tile_w x tile_h = $tile_w x $tile_h \n";
+  $tile->Set(size=>"$tile_w x $tile_h");  print "generate empty tile with tile_w x tile_h = $tile_w x $tile_h \n";
-  $tile->Read('xc:none');                                                                  #$tile->Write(filename=>"$output_meta_folder/tile_AfterGeneration.png");
+  $tile->Read('xc:none'); #$tile->Write(filename=>"$output_meta_folder/tile_AfterGeneration.png");
@@ Zeile 53: / Zeile 53: @@
   # CRMT-COMMAND-LIST_01: (C0, x0, y0)
   @$prototile_crm = ();
-  $prototile_crm = $Shape_list->[0]->Clone();                                               #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterGeneration.png");
+  $prototile_crm = $Shape_list->[0]->Clone();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>'0', color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                              #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_01.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                           $tile->Write(filename=>"$output_meta_folder/tile_after_crmt_01.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_01.png");
@@ Zeile 69: / Zeile 70: @@
   $prototile_crm->Set(page=>'0x0+0+0');
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>'0', color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                              #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_02.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                           $tile->Write(filename=>"$output_meta_folder/tile_after_crmt_02.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_02.png");
@@ Zeile 81: / Zeile 83: @@
   $prototile_crm->Flop();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>'0', color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                              #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_03.png");
+  $tile->Set(page=>'0x0+0+0');
-							                                   $tile->Write(filename=>"$output_meta_folder/tile_after_crmt_03.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_03.png");
@@ Zeile 94: / Zeile 97: @@
   $prototile_crm->Set(page=>'0x0+0+0');
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>'0', color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');								#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_04.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                        $tile->Write(filename=>"$output_meta_folder/tile_after_crmt_04.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_04.png");
@@ Zeile 106: / Zeile 110: @@
   $prototile_crm->Flip();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>$t_h, color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                           #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_05.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                        #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_05.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_05.png");
 [[Datei:P4m tile after crmt 05.jpg  | 400px]]
@@ Zeile 120: / Zeile 125: @@
   $prototile_crm->Flip();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>'0', y=>$t_h, color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                           #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_06.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                        #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_06.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_06.png");
 [[Datei:P4m tile after crmt 06.jpg  | 400px]]
@@ Zeile 132: / Zeile 138: @@
   $prototile_crm->Flip();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>$t_h, color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                            #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_07.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                         #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_07.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_07.png");
@@ Zeile 146: / Zeile 153: @@
   $prototile_crm->Flip();
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>$t_w, y=>$t_h, color=>'transparent', matte=>'true');
-  $tile->Set(page=>'0x0+0+0');                                                            #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_08.png");
+  $tile->Set(page=>'0x0+0+0');
-                                                                                         #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_08.jpg");
+ #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_08.png");
@@ Zeile 158: / Zeile 166: @@
 $CRMT_string = 'C0, x0, y0, C0, Fo, R-90, x0, y0, C0, Fo, xt_w, y0, C0, R90, xt_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-90, Fi, x0, yt_h, C0, Fo, Fi, xt_w, yt_h, C0, R90, Fi, xt_w, yt_h';
 back to [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015]]

@@ Zeile 1: / Zeile 1: @@
-Let $image be an image from which a right angle triangle part should be cut out and used as prototile for the p4m tile. The triangle has two free parameter: the width $t_w and the hight $t_h of a rectangle that is first cut out of $image.
+Let $image be an image from which a right angle isosceles triangle part should be cut out and used as prototile for the p4m tile. The triangle has with the width $t_w one free parameter, the hight is the same $t_h = $t_w.
-In the following relative translation parameters are used that are referencing to the one prototile that is used viz. to $t_w and $t_h. If patterns are generated with more than one prototile reletive parameters should are referencing to the width and height of the pattern image that itself be constructed as a function of the widths and heights of the prototile set and a multiplicator. Such a function ($w_P, $h_P) = f($mult, $w_S_i, $h_S_i | i = 1, …, n) is specified in the [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015#Definition_of_the_Pattern_Design_Space | design space definition]].
+In the following relative translation parameters are used that are referencing to the one prototile that is used viz. to $t_w and $t_h. If patterns are generated with more than one prototile relative parameters should referencing to the width and height of the pattern image that itself is constructed as a function of the widths and heights of the prototile set and a general multiplicator or two multiplicators for width and height. Such a function ($w_P, $h_P) = f($mult, $w_S_i, $h_S_i | i = 1, …, n) or f($mult_w, $mult_h, $w_S_i, $h_S_i | i = 1, …, n) is specified in the [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015#Definition_of_the_Pattern_Design_Space | design space definition]].
 If a random part of $image should be selected for the rectangle that includes the future prototile this is made with:
-  # RANDOM CROP A RECTANGLE WITH $t_w x $t_h
+  # RANDOM CROP A RECTANGLE WITH $t_w x $t_w
   ($w, $h) = $image->Get('columns', 'rows');
   $t_w = $crop_w;
-  $t_h = $crop_h;
+  $t_h = $crop_w;
-  $x_allowed = $w - $t_h; $x = int(rand($x_allowed));
+  $x_allowed = $w - $t_w; $x = int(rand($x_allowed));
   $y_allowed = $h - $t_h; $y = int(rand($y_allowed));
   $image->Crop(geometry=>"$t_w x $t_h + $x + $y", background=>'transparent');	print "crop rand rectangle from image with  (geometry=>$t_w x $t_h + $x + $y)\n";
@@ Zeile 15: / Zeile 15: @@
-The right angle triangle mask is generated with:
+The right angle isosceles triangle mask is generated with:
   # GENERATE p4m MASK/S
-  $mask->Set(size=>"$t_w x $t_h"); print "generate triangle mask with t_w x t_h = $t_w x $t_h \n";
+  $mask->Set(size=>"$t_w x $t_h");
   $mask->Read('xc:none');
   $mask->Draw(primitive=>'polyline', points => "0,0 $t_w,$t_h 0,$t_h", fill=>'red');	$mask->Write(filename=>"$output_meta_folder/p4m_mask_AfterGeneration.png");
@@ Zeile 26: / Zeile 26: @@
-The prototile is generated with the triangle mask and the image by a composite command:
+The prototile is generated with the triangle mask and the image and the rusult is pushed in a image list for all the prototiles to reflect the general case that a pattern is made of more than one prototile type:
-  # GENERATE PROTOTILE/S AND
+  # GENERATE PROTOTILE/S
   $mask->Composite(image=>$image, compose=>'in', color=>'transparent', matte=>'true');     print "generate prototile \n";
   $mask->Set(page=>'0x0+0+0');					                         $mask->Write(filename=>"$output_meta_folder/mask_AfterCompose.png");
@@ Zeile 145: / Zeile 149: @@
 [[Datei:P4m tile after crmt 08.jpg  | 400px]]