[tex] more plots [spin] make scale configurable

plot.pl

@@ -25,7 +25,7 @@
 
     my $i = 0;
     for my $fn (@files) {
-        $fn =~ /(energy|alpha|phi)([\d.]+)\.dat/ or die "can't work with file name `$fn'";
+        $fn =~ /(energy|alpha|phi|scale)([\d.]+)\.dat/ or die "can't work with file name `$fn'";
         state $what //= $1;
         my $datapoint = $2;
         if ($what ne $1) {

run.pl

@@ -28,9 +28,10 @@
 my %defaults = (
     -b => 0,
     -e => 2.0,
-    -r => 0.2,
+    -r => 0.1,
     -p => 29,
     -n => 21,
+    -s => 0.5,
 );
 
 my %vars = (
@@ -41,10 +42,17 @@
         option  => '-r',
         format  => 'alpha%.4f',
     },
+    scale => {
+        from    => 0,
+        to      => 1.0,
+        step    => 0.02,
+        option  => '-s',
+        format  => 'scale%.4f',
+    },
     phi => {
         from    => 0,
         to      => 90,
-        step    => 0.1,
+        step    => 0.2,
         format  => 'phi%04.1f',
         option  => '-p',
     },

spin.cpp

@@ -98,6 +98,7 @@ const num g_factor   = 20.0;
 num global_gauge     = 1.0;
 
 num stripe_angle     = pi / 4;
+num scale            = 0.0;
 
 // XXX is the +1 correct?
 const num a_sample   = width_sample / (num) (Nx + 1);
@@ -520,11 +521,14 @@ int main (int argc, char** argv) {
     int opt;
     ofstream *fout = new ofstream();
     int n;
-    while ((opt = getopt(argc, argv, "qr:b:e:o:p:n:")) != -1) {
+    while ((opt = getopt(argc, argv, "qr:s:b:e:o:p:n:")) != -1) {
        switch (opt) {
             case 'r':
                 alpha = atof(optarg);
                 break;
+            case 's':
+                scale = atof(optarg);
+                break;
             case 'b':
                 Bz = atof(optarg);
                 break;