CRMT-bitmap-image-interpreter: Unterschied zwischen den Versionen

Aus de_evolutionary_art_org
Wechseln zu: Navigation, Suche
(Die Seite wurde neu angelegt: „Given: * a folder with prototile shapes: png images with monochrome shapes on transparent background with no boarders: $prototile_folder_path * a text file wi…“)
 
 
(2 dazwischenliegende Versionen desselben Benutzers werden nicht angezeigt)
Zeile 1: Zeile 1:
 +
back to [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015]]
 +
 +
 
Given:  
 
Given:  
 
* a folder with prototile shapes: png images with monochrome shapes on transparent background with no boarders: $prototile_folder_path
 
* a folder with prototile shapes: png images with monochrome shapes on transparent background with no boarders: $prototile_folder_path
Zeile 4: Zeile 7:
 
: example: p3m1 CRMT command list: C0, x0, y0, C0, Fo, R-60, x-1/2*t_w, y0, C0, Fo, R60, x1/2*t_w, y0, C0, Fo, R-60, Fi, xt_w, y0, C0, Fi, x3/2*t_w, y0, C0, Fo, R60, Fi, x2*t_w, y0, C0, Fo, R-60, x5/2*t_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-60, Fi, x-1/2*t_w, yt_h, C0, Fo, R60, Fi, x1/2*t_w, yt_h, C0, Fo, R-60, xt_w, yt_h, C0, x3/2*t_w, yt_h, C0, Fo, R60, x2*t_w, yt_h, C0, Fo, R-60, Fi, x5/2*t_w, yt_h
 
: example: p3m1 CRMT command list: C0, x0, y0, C0, Fo, R-60, x-1/2*t_w, y0, C0, Fo, R60, x1/2*t_w, y0, C0, Fo, R-60, Fi, xt_w, y0, C0, Fi, x3/2*t_w, y0, C0, Fo, R60, Fi, x2*t_w, y0, C0, Fo, R-60, x5/2*t_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-60, Fi, x-1/2*t_w, yt_h, C0, Fo, R60, Fi, x1/2*t_w, yt_h, C0, Fo, R-60, xt_w, yt_h, C0, x3/2*t_w, yt_h, C0, Fo, R60, x2*t_w, yt_h, C0, Fo, R-60, Fi, x5/2*t_w, yt_h
  
−
The basic ideas is to read the CRMT string, split it into a global list and process all the local lists that start with "C" (and end with "y" + something).  
+
The basic ideas is to read the CRMT string, split it into a global list with one CRMT command each and process all the local lists that start with "C" (and end with "y" + something). The x- and y-values can be integers or like in the p3m1-example a variable that codes the width (t_w) and height (t_h) of the one prototile.
−
 
 
  
 +
The following code is the main part of the image interpreter without the first part that defines the parameters and last part that defines the subprograms.
  
  
Zeile 15: Zeile 18:
 
  };  
 
  };  
 
  $nr_Shape_list = @$Shape_list; print "check nr of elements in Shape_list: nr_Shape_list = $nr_Shape_list\n\n";  
 
  $nr_Shape_list = @$Shape_list; print "check nr of elements in Shape_list: nr_Shape_list = $nr_Shape_list\n\n";  
−
 
 
  # CRMT COMMAND LIST STRING => LIST
 
  # CRMT COMMAND LIST STRING => LIST
 
  # READ TEXT FILE $CRMT_string_path IN STRING $CRMT_string
 
  # READ TEXT FILE $CRMT_string_path IN STRING $CRMT_string
 
  open (FILEHANDLE,"<$CRMT_string_path");
 
  open (FILEHANDLE,"<$CRMT_string_path");
 
  my $CRMT_string_global = do { local $/; <FILEHANDLE> }; print "read  CRMT_string_global: $CRMT_string_path = $CRMT_string_global \n\n";
 
  my $CRMT_string_global = do { local $/; <FILEHANDLE> }; print "read  CRMT_string_global: $CRMT_string_path = $CRMT_string_global \n\n";
−
 
 
  # SPLIT $CRMT_string_global IN PARTS SEPARATED BY /, / AND PUSH THE PARTS IN LIST @CRMT_list_global
 
  # SPLIT $CRMT_string_global IN PARTS SEPARATED BY /, / AND PUSH THE PARTS IN LIST @CRMT_list_global
 
  @CRMT_list_global = split(/, /, $CRMT_string_global); print "split string in list: CRMT_list_global = @CRMT_list_global\n";
 
  @CRMT_list_global = split(/, /, $CRMT_string_global); print "split string in list: CRMT_list_global = @CRMT_list_global\n";
 
  $nr_CRMT_list_global = @CRMT_list_global; print "nr list elements: nr_CRMT_list_global = $nr_CRMT_list_global\n";
 
  $nr_CRMT_list_global = @CRMT_list_global; print "nr list elements: nr_CRMT_list_global = $nr_CRMT_list_global\n";
−
 
 
  # GET SUB-LIST-STARTPOSITIONS AND NR OF SUB-LISTS IN @CRMT_list_global
 
  # GET SUB-LIST-STARTPOSITIONS AND NR OF SUB-LISTS IN @CRMT_list_global
 
  & get_sublist_startpositions;  # @_ = (@CRMT_list_global); return(@sublist_startposition);  
 
  & get_sublist_startpositions;  # @_ = (@CRMT_list_global); return(@sublist_startposition);  
 
  $nr_sublists = @sublist_startposition; print "nr of sublists in CRMT_list_global: nr_sublists = $nr_sublists\n";
 
  $nr_sublists = @sublist_startposition; print "nr of sublists in CRMT_list_global: nr_sublists = $nr_sublists\n";
−
 
 
  # COMPUTE tile_w AND tile_h
 
  # COMPUTE tile_w AND tile_h
 
  & get_tile_wh; # @_ = ($Shape_list, $mult_w, $mult_h); return($tile_w, $tile_h);
 
  & get_tile_wh; # @_ = ($Shape_list, $mult_w, $mult_h); return($tile_w, $tile_h);
−
 
−
 
−
 
 
  for ($q = $composing_number_min; $q <= $composing_number_max; $q++) {
 
  for ($q = $composing_number_min; $q <= $composing_number_max; $q++) {
 
   my $time_1 = time;
 
   my $time_1 = time;
−
 
 
   # CLONE GLOBAL LIST @CRMT_list_global
 
   # CLONE GLOBAL LIST @CRMT_list_global
 
   @CRMT_list_global_clone = @CRMT_list_global; #print "clone CRMT_list_global: CRMT_list_global_clone = @CRMT_list_global_clone\n\n";
 
   @CRMT_list_global_clone = @CRMT_list_global; #print "clone CRMT_list_global: CRMT_list_global_clone = @CRMT_list_global_clone\n\n";
−
 
−
 
 
   # DEFINE OBJECT $tile FOR EVERY ITERATION  => undef $tile AT END OF EVERY ITERATION  
 
   # DEFINE OBJECT $tile FOR EVERY ITERATION  => undef $tile AT END OF EVERY ITERATION  
 
   $tile = new Image::Magick;  
 
   $tile = new Image::Magick;  
 
   $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");
−
 
−
 
 
   # PROCESS THE COMMAND ELEMENTS IN EVERY SUBLIST  
 
   # PROCESS THE COMMAND ELEMENTS IN EVERY SUBLIST  
 
   for ($i = 1; $i <= $nr_sublists; $i++) {
 
   for ($i = 1; $i <= $nr_sublists; $i++) {
−
 
 
   print "\n !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! processing CRMT_list $i from $nr_sublists !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! \n\n";
 
   print "\n !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! processing CRMT_list $i from $nr_sublists !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! \n\n";
−
 
 
   # SEPERATE FIRST LOCAL COMMAND LIST @CRMT_list_local_1
 
   # SEPERATE FIRST LOCAL COMMAND LIST @CRMT_list_local_1
 
   # DETERMINE POSITION OF SECOND C
 
   # DETERMINE POSITION OF SECOND C
Zeile 62: Zeile 51:
 
     };  
 
     };  
 
   } else {$split_position = @CRMT_list_global_clone; print "first split_position = $split_position\n"};  
 
   } else {$split_position = @CRMT_list_global_clone; print "first split_position = $split_position\n"};  
−
 
 
   # COPY FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone IN @CRMT_list_local_1
 
   # COPY FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone IN @CRMT_list_local_1
 
   for ($j = 0; $j <= $split_position-1; $j++) {
 
   for ($j = 0; $j <= $split_position-1; $j++) {
 
     push(@CRMT_list_local, $CRMT_list_global_clone[$j])
 
     push(@CRMT_list_local, $CRMT_list_global_clone[$j])
 
   }; print "copy first $split_position elements in local list: CRMT_list_local = @CRMT_list_local\n\n";
 
   }; print "copy first $split_position elements in local list: CRMT_list_local = @CRMT_list_local\n\n";
−
 
 
   # DELETE FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone
 
   # DELETE FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone
 
   splice(@CRMT_list_global_clone, 0, $split_position, ()); print "CRMT_list_global_clone after splice(first $split_position) = @CRMT_list_global_clone\n";
 
   splice(@CRMT_list_global_clone, 0, $split_position, ()); print "CRMT_list_global_clone after splice(first $split_position) = @CRMT_list_global_clone\n";
 
   $nr_CRMT_list_global_clone = @CRMT_list_global_clone; print "nr_CRMT_list_global_clone after splice(first $split_position) = $nr_CRMT_list_global_clone\n";
 
   $nr_CRMT_list_global_clone = @CRMT_list_global_clone; print "nr_CRMT_list_global_clone after splice(first $split_position) = $nr_CRMT_list_global_clone\n";
 
   $nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
 
   $nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
−
 
 
   # GET COMMANDS AND COMMAND PARAMETERS FROM @CRMT_list_local AND MAKE IMAGE PROCESSING
 
   # GET COMMANDS AND COMMAND PARAMETERS FROM @CRMT_list_local AND MAKE IMAGE PROCESSING
 
   while ($nr_CRMT_list_local >= 0) {  
 
   while ($nr_CRMT_list_local >= 0) {  
−
 
 
     if ($CRMT_list_local[0] =~ /^C/) {
 
     if ($CRMT_list_local[0] =~ /^C/) {
 
     $shape_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: shape_value = $shape_value \n";
 
     $shape_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: shape_value = $shape_value \n";
Zeile 81: Zeile 66:
 
     $prototile_crm = $Shape_list->[$shape_value]->Clone();#$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterGeneration.png");
 
     $prototile_crm = $Shape_list->[$shape_value]->Clone();#$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterGeneration.png");
 
     };  
 
     };  
 +
    if ($CRMT_list_local[0] =~ /^R/) {
 +
    $rotate_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: rotate_value = $rotate_value \n";
 +
    $prototile_crm->Rotate(degrees=>"$rotate_value", color=>'transparent');
 +
    $prototile_crm->Set(page=>'0x0+0+0'); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterRot.png");
 +
    $prototile_crm->Trim(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterTrim.png");
 +
    };
 +
    if ($CRMT_list_local[0] =~ /^Fo/) { print "list element $CRMT_list_local[0]: make Flop \n";
 +
    $prototile_crm->Flop(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlop.png");
 +
    };
 +
    if ($CRMT_list_local[0] =~ /^Fi/) { print "list element $CRMT_list_local[0]: make Flip \n";
 +
    $prototile_crm->Flip(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlip.png");
 +
    };
 +
    if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/) { print "list element $CRMT_list_local[0]: make translation with \n";
 +
    $x_string = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "x_string = $x_string \n";
 +
    $y_string = substr($CRMT_list_local[1], 1, length($CRMT_list_local[1])); print "y_string = $y_string \n";
 +
    if (looks_like_number($x_string)) {
 +
      $x_value = $x_string; print "x_string = $x_string looks_like_number => use x_string as x_value \n";
 +
    } else {
 +
      $x_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in x_string = $x_string\n";
 +
      $x_value = eval $x_string; print "direct eval x_string: x_value = $x_value\n";
 +
    };
 +
    if (looks_like_number($y_string)) {
 +
      $y_value = $y_string; print "y_string = $y_string looks_like_number => use y_string as y_value \n";
 +
    } else {
 +
      $y_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in y_string = $y_string\n";
 +
      $y_value = eval $y_string; print "direct eval y_string: y_value = $y_value\n";
 +
    };
 +
    print "make compose=>'over' with translation: x_value = $x_value and y_value = $y_value \n";
 +
    $tile->Composite(image=>$prototile_crm, compose=>'over', x=>"$x_value", y=>"$y_value", color=>'transparent', matte=>'true'); 
 +
    $tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_$i.png");
 +
    splice(@CRMT_list_local, 0, 2, ()); print "splice first two elements => CRMT_list_local = ( @CRMT_list_local ) => End of processing $i 'th CRMT_list_local\n";
 +
    last;
 +
  }; #if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/)
 +
  # DELETE FIRST ELEMENT FROM @CRMT_list_local
 +
  if ($CRMT_list_local[0] =~ /^C/ or $CRMT_list_local[0] =~ /^R/ or $CRMT_list_local[0] =~ /^Fo/ or $CRMT_list_local[0] =~ /^Fi/) {
 +
    splice(@CRMT_list_local, 0, 1, ()); print "splice first element => CRMT_list_local_$i = ( @CRMT_list_local ) \n";
 +
  };
 +
  $nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
 +
  }; #while ($nr_CRMT_list_local >= 0)
 +
}; # for ($i = 1; $i <= $nr_sublists; $i++) {
 +
  # CORRECTION OF LINE ARTEFACTS (DIAGONAL AND HORIZONTAL)
 +
  & process_artefacts_1; # @_ =  ($tile, $q); # return($tile);
 +
  # WRITE $tile               
 +
  & make_result_path_CRMT; # @_ =  ($output_meta_folder, $resultimage_template, $index_for_result, $q, $make_result_folder, $output_folder_path); # return($result_path);
 +
  $tile->Write(filename=>"$result_path", compression=>'JPEG', quality=>"$jpg_output_quality"); # quality=>'98'
 +
  # UNDEFINE & EMPTY OBJECTS
 +
  undef $tile; #@$tile = ();
 +
  $time_2 = time; my $deltatime = $time_2 - $time_1; push(@deltatime_list1, $deltatime);
 +
}; # for ($q = $composing_number_min; $q <= $composing_number_max; $q++)
 +
###MAIN END #############################################################################################################################################################
  
−
    if ($CRMT_list_local[0] =~ /^R/) {
 
−
$rotate_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: rotate_value = $rotate_value \n";
 
−
$prototile_crm->Rotate(degrees=>"$rotate_value", color=>'transparent');
 
−
$prototile_crm->Set(page=>'0x0+0+0'); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterRot.png");
 
−
$prototile_crm->Trim(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterTrim.png");
 
−
};
 
−
 
−
if ($CRMT_list_local[0] =~ /^Fo/) { print "list element $CRMT_list_local[0]: make Flop \n";
 
−
$prototile_crm->Flop(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlop.png");
 
−
};
 
−
 
−
if ($CRMT_list_local[0] =~ /^Fi/) { print "list element $CRMT_list_local[0]: make Flip \n";
 
−
$prototile_crm->Flip(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlip.png");
 
−
};
 
−
 
−
if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/) { print "list element $CRMT_list_local[0]: make translation with \n";
 
−
$x_string = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "x_string = $x_string \n";
 
−
$y_string = substr($CRMT_list_local[1], 1, length($CRMT_list_local[1])); print "y_string = $y_string \n";
 
−
########################################################################
 
−
if (looks_like_number($x_string)) {
 
−
$x_value = $x_string; print "x_string = $x_string looks_like_number => use x_string as x_value \n";
 
−
} else {
 
−
$x_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in x_string = $x_string\n";
 
−
$x_value = eval $x_string; print "direct eval x_string: x_value = $x_value\n";
 
−
};
 
−
if (looks_like_number($y_string)) {
 
−
$y_value = $y_string; print "y_string = $y_string looks_like_number => use y_string as y_value \n";
 
−
} else {
 
−
$y_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in y_string = $y_string\n";
 
−
$y_value = eval $y_string; print "direct eval y_string: y_value = $y_value\n";
 
−
};
 
−
########################################################################
 
−
print "make compose=>'over' with translation: x_value = $x_value and y_value = $y_value \n";
 
−
$tile->Composite(image=>$prototile_crm, compose=>'over', x=>"$x_value", y=>"$y_value", color=>'transparent', matte=>'true');
 
−
$tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_$i.png");
 
−
#$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_$i.jpg");
 
−
splice(@CRMT_list_local, 0, 2, ()); print "splice first two elements => CRMT_list_local = ( @CRMT_list_local ) => End of processing $i 'th CRMT_list_local\n";
 
−
last;
 
−
}; # if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/)
 
−
 
−
 
−
# DELETE FIRST ELEMENT FROM @CRMT_list_local
 
−
if ($CRMT_list_local[0] =~ /^C/ or $CRMT_list_local[0] =~ /^R/ or $CRMT_list_local[0] =~ /^Fo/ or $CRMT_list_local[0] =~ /^Fi/) {
 
−
splice(@CRMT_list_local, 0, 1, ()); print "splice first element => CRMT_list_local_$i = ( @CRMT_list_local ) \n";
 
−
};
 
−
$nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
 
−
 
−
};
 
−
 
−
}; # for ($i = 1; $i <= $nr_sublists; $i++) {
 
−
 
−
 
−
 
−
 
−
# CORRECTION OF LINE ARTEFACTS (DIAGONAL AND HORIZONTAL)
 
−
& process_artefacts_1; # @_ =  ($tile, $q);# return($tile);
 
−
 
−
 
−
# WRITE $tile               
 
−
& make_result_path_CRMT; # @_ =  ($output_meta_folder, $resultimage_template, $index_for_result, $q, $make_result_folder, $output_folder_path);
 
−
# return($result_path);
 
−
$tile->Write(filename=>"$result_path", compression=>'JPEG', quality=>"$jpg_output_quality"); # quality=>'98'
 
−
 
−
 
−
# MANIPULATE $Shape_list FOR ($q = $composing_number_min; $q <= $composing_number_max; $q++)
 
−
if ($q < $composing_number_max) {
 
−
& manipulate_Shape_list;  # @_ =  ($manipulate_Shape_list_strategy; $Shape_list, @parent_paths_list);
 
−
# return($Shape_list);
 
−
};
 
−
 
−
 
−
# UNDEFINE & EMPTY OBJECTS
 
−
undef $tile; #@$tile = ();
 
−
 
−
 
−
$time_2 = time; my $deltatime = $time_2 - $time_1; push(@deltatime_list1, $deltatime);
 
−
}; # for ($q = $composing_number_min; $q <= $composing_number_max; $q++)
 
  
−
###MAIN END #############################################################################################################################################################
+
back to [[Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015]]

Aktuelle Version vom 15. April 2015, 21:01 Uhr

back to Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015


Given:

  • a folder with prototile shapes: png images with monochrome shapes on transparent background with no boarders: $prototile_folder_path
  • a text file with a CRMT command list: $CRMT_string_path
example: p3m1 CRMT command list: C0, x0, y0, C0, Fo, R-60, x-1/2*t_w, y0, C0, Fo, R60, x1/2*t_w, y0, C0, Fo, R-60, Fi, xt_w, y0, C0, Fi, x3/2*t_w, y0, C0, Fo, R60, Fi, x2*t_w, y0, C0, Fo, R-60, x5/2*t_w, y0, C0, Fi, x0, yt_h, C0, Fo, R-60, Fi, x-1/2*t_w, yt_h, C0, Fo, R60, Fi, x1/2*t_w, yt_h, C0, Fo, R-60, xt_w, yt_h, C0, x3/2*t_w, yt_h, C0, Fo, R60, x2*t_w, yt_h, C0, Fo, R-60, Fi, x5/2*t_w, yt_h

The basic ideas is to read the CRMT string, split it into a global list with one CRMT command each and process all the local lists that start with "C" (and end with "y" + something). The x- and y-values can be integers or like in the p3m1-example a variable that codes the width (t_w) and height (t_h) of the one prototile.

The following code is the main part of the image interpreter without the first part that defines the parameters and last part that defines the subprograms. 


###MAIN START ###########################################################################################################################################################
# READ PROTOTILE/S FROM $prototile_folder_path IN IMAGE OBJECT $Shape_list
if ($read_prototile == 1) { print "read sorted png prototile/s from $prototile_folder_path in Shape_list\n"; 
 & read_prototiles; 	# @_ =  ($prototile_folder_path); return($Shape_list); 
}; 
$nr_Shape_list = @$Shape_list; print "check nr of elements in Shape_list: nr_Shape_list = $nr_Shape_list\n\n"; 
# CRMT COMMAND LIST STRING => LIST
# READ TEXT FILE $CRMT_string_path IN STRING $CRMT_string
open (FILEHANDLE,"<$CRMT_string_path");
my $CRMT_string_global = do { local $/; <FILEHANDLE> }; print "read  CRMT_string_global: $CRMT_string_path = $CRMT_string_global \n\n";
# SPLIT $CRMT_string_global IN PARTS SEPARATED BY /, / AND PUSH THE PARTS IN LIST @CRMT_list_global
@CRMT_list_global	= split(/, /, $CRMT_string_global); print "split string in list: CRMT_list_global = @CRMT_list_global\n";
$nr_CRMT_list_global = @CRMT_list_global; print "nr list elements: nr_CRMT_list_global = $nr_CRMT_list_global\n";
# GET SUB-LIST-STARTPOSITIONS AND NR OF SUB-LISTS IN @CRMT_list_global
& get_sublist_startpositions;  # @_ = (@CRMT_list_global); return(@sublist_startposition); 
$nr_sublists = @sublist_startposition; print "nr of sublists in CRMT_list_global: nr_sublists = $nr_sublists\n";
# COMPUTE tile_w AND tile_h
& get_tile_wh; # @_ = ($Shape_list, $mult_w, $mult_h); return($tile_w, $tile_h);
for ($q = $composing_number_min; $q <= $composing_number_max; $q++) {
 my $time_1 = time;
 # CLONE GLOBAL LIST @CRMT_list_global
 @CRMT_list_global_clone = @CRMT_list_global; #print "clone CRMT_list_global: CRMT_list_global_clone = @CRMT_list_global_clone\n\n";
 # DEFINE OBJECT $tile FOR EVERY ITERATION  => undef $tile AT END OF EVERY ITERATION 
 $tile = new Image::Magick; 
 $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");
 # PROCESS THE COMMAND ELEMENTS IN EVERY SUBLIST 
 for ($i = 1; $i <= $nr_sublists; $i++) {
  print "\n !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! processing CRMT_list $i from $nr_sublists !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! \n\n";
  # SEPERATE FIRST LOCAL COMMAND LIST @CRMT_list_local_1
  # DETERMINE POSITION OF SECOND C
  if ($i < $nr_sublists) {
   for ($j = 1; $j <= @CRMT_list_global_clone-1; $j++) {
    if ($CRMT_list_global_clone[$j] =~ /^C/) {
     $split_position = $j; print "first split_position = $split_position\n";
     last;
    }; 
   }; 
  } else {$split_position = @CRMT_list_global_clone; print "first split_position = $split_position\n"}; 
  # COPY FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone IN @CRMT_list_local_1
  for ($j = 0; $j <= $split_position-1; $j++) {
   push(@CRMT_list_local, $CRMT_list_global_clone[$j])
  }; print "copy first $split_position elements in local list: CRMT_list_local = @CRMT_list_local\n\n";
  # DELETE FIRST $split_position-1 POSITIONS FROM @CRMT_list_global_clone
  splice(@CRMT_list_global_clone, 0, $split_position, ()); print "CRMT_list_global_clone after splice(first $split_position) = @CRMT_list_global_clone\n";
  $nr_CRMT_list_global_clone = @CRMT_list_global_clone; print "nr_CRMT_list_global_clone after splice(first $split_position) = $nr_CRMT_list_global_clone\n";
  $nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
  # GET COMMANDS AND COMMAND PARAMETERS FROM @CRMT_list_local AND MAKE IMAGE PROCESSING
  while ($nr_CRMT_list_local >= 0) { 
   if ($CRMT_list_local[0] =~ /^C/) {
    $shape_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: shape_value = $shape_value \n";
    @$prototile_crm = (); 
    $prototile_crm = $Shape_list->[$shape_value]->Clone();#$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterGeneration.png");
   }; 
   if ($CRMT_list_local[0] =~ /^R/) {
    $rotate_value = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "list element $CRMT_list_local[0]: rotate_value = $rotate_value \n";
    $prototile_crm->Rotate(degrees=>"$rotate_value", color=>'transparent');
    $prototile_crm->Set(page=>'0x0+0+0'); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterRot.png");
    $prototile_crm->Trim(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterTrim.png");
   }; 
   if ($CRMT_list_local[0] =~ /^Fo/) { print "list element $CRMT_list_local[0]: make Flop \n";
    $prototile_crm->Flop(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlop.png");
   }; 
   if ($CRMT_list_local[0] =~ /^Fi/) {	print "list element $CRMT_list_local[0]: make Flip \n";
    $prototile_crm->Flip(); #$prototile_crm->Write(filename=>"$output_meta_folder/prototile_crm_AfterFlip.png");
   };				
   if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/) { print "list element $CRMT_list_local[0]: make translation with \n";
    $x_string = substr($CRMT_list_local[0], 1, length($CRMT_list_local[0])); print "x_string = $x_string \n";
    $y_string = substr($CRMT_list_local[1], 1, length($CRMT_list_local[1])); print "y_string = $y_string \n";
    if (looks_like_number($x_string)) {
     $x_value = $x_string; print "x_string = $x_string looks_like_number => use x_string as x_value \n";
    } else { 
     $x_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in x_string = $x_string\n";
     $x_value = eval $x_string; print "direct eval x_string: x_value = $x_value\n";
    }; 
    if (looks_like_number($y_string)) {
     $y_value = $y_string; print "y_string = $y_string looks_like_number => use y_string as y_value \n";
    } else {
     $y_string =~ s/t/$dollar_sign_t/g; print "change t by dollar+t in y_string = $y_string\n";
     $y_value = eval $y_string; print "direct eval y_string: y_value = $y_value\n";
    }; 
    print "make compose=>'over' with translation: x_value = $x_value and y_value = $y_value \n";
   $tile->Composite(image=>$prototile_crm, compose=>'over', x=>"$x_value", y=>"$y_value", color=>'transparent', matte=>'true');  
   $tile->Set(page=>'0x0+0+0'); #$tile->Write(filename=>"$output_meta_folder/tile_after_crmt_$i.png");
   splice(@CRMT_list_local, 0, 2, ()); print "splice first two elements => CRMT_list_local = ( @CRMT_list_local ) => End of processing $i 'th CRMT_list_local\n";
   last; 
  }; #if ($CRMT_list_local[0] =~ /^x/ and $CRMT_list_local[1] =~ /^y/)
  # DELETE FIRST ELEMENT FROM @CRMT_list_local
  if ($CRMT_list_local[0] =~ /^C/ or $CRMT_list_local[0] =~ /^R/ or $CRMT_list_local[0] =~ /^Fo/ or $CRMT_list_local[0] =~ /^Fi/) {
   splice(@CRMT_list_local, 0, 1, ()); print "splice first element => CRMT_list_local_$i = ( @CRMT_list_local ) \n";
  }; 
  $nr_CRMT_list_local = @CRMT_list_local; print "nr_CRMT_list_local = $nr_CRMT_list_local \n";
 }; #while ($nr_CRMT_list_local >= 0)
}; # for ($i = 1; $i <= $nr_sublists; $i++) { 
 # CORRECTION OF LINE ARTEFACTS (DIAGONAL AND HORIZONTAL) 
 & process_artefacts_1; # @_ =  ($tile, $q); # return($tile);
 # WRITE $tile                 
 & make_result_path_CRMT; # @_ =  ($output_meta_folder, $resultimage_template, $index_for_result, $q, $make_result_folder, $output_folder_path); # return($result_path);
 $tile->Write(filename=>"$result_path", compression=>'JPEG', quality=>"$jpg_output_quality"); # quality=>'98'	
 # UNDEFINE & EMPTY OBJECTS
 undef $tile; 	#@$tile = (); 
 $time_2 = time; my $deltatime = $time_2 - $time_1; push(@deltatime_list1, $deltatime);
}; # for ($q = $composing_number_min; $q <= $composing_number_max; $q++)
###MAIN END #############################################################################################################################################################


back to Exploring_a_Design_Space_for_Patterns_and_Tilings_Competition_2015

Abgerufen von „http://de.evo-art.org/index.php?title=CRMT-bitmap-image-interpreter&oldid=4687“