From 935173047a9196fe122694258a0dc1f1b03dfdd3 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Sun, 28 Oct 2012 17:23:35 +0100
Subject: [PATCH] Allow [print_center_X] and [print_center_Y] syntax for all
 coordinates settings (including bed_center etc.) and [temperature_0],
 [temperature_1] etc. for all index-based settings

---
 lib/Slic3r/Config.pm | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/Config.pm b/lib/Slic3r/Config.pm
index 0b63f2815..67dde2bdc 100644
--- a/lib/Slic3r/Config.pm
+++ b/lib/Slic3r/Config.pm
@@ -1165,13 +1165,21 @@ sub replace_options {
     $string =~ s/\[version\]/$Slic3r::VERSION/eg;
     
     # build a regexp to match the available options
-    my $options = join '|',
-        grep !$Slic3r::Config::Options->{$_}{multiline},
+    my @options = grep !$Slic3r::Config::Options->{$_}{multiline},
         grep $self->has($_),
         keys %{$Slic3r::Config::Options};
+    my $options_regex = join '|', @options;
     
     # use that regexp to search and replace option names with option values
-    $string =~ s/\[($options)\]/$self->serialize($1)/eg;
+    $string =~ s/\[($options_regex)\]/$self->serialize($1)/eg;
+    foreach my $opt_key (grep ref $self->$_ eq 'ARRAY', @options) {
+        my $value = $self->$opt_key;
+        $string =~ s/\[${opt_key}_${_}\]/$value->[$_]/eg for 0 .. $#$value;
+        if ($Options->{$opt_key}{type} eq 'point') {
+            $string =~ s/\[${opt_key}_X\]/$value->[0]/eg;
+            $string =~ s/\[${opt_key}_Y\]/$value->[1]/eg;
+        }
+    }
     return $string;
 }