diff options
author | Thomas White <taw@physics.org> | 2011-03-30 17:28:54 +0200 |
---|---|---|
committer | Thomas White <taw@physics.org> | 2012-02-22 15:27:23 +0100 |
commit | 0636814cc2c360fd9f37a1f7fe3e2be04cee8377 (patch) | |
tree | 1c42e92d3b8febd15e0a4bf6801bcc4be29163a0 /scripts/sk_to_crystfel.pl | |
parent | e0ec9d63f7747b47ab516c701fd55ffe977031a7 (diff) |
Clean up old, useless and broken scripts
Diffstat (limited to 'scripts/sk_to_crystfel.pl')
-rwxr-xr-x | scripts/sk_to_crystfel.pl | 139 |
1 files changed, 0 insertions, 139 deletions
diff --git a/scripts/sk_to_crystfel.pl b/scripts/sk_to_crystfel.pl deleted file mode 100755 index d0dd0f4f..00000000 --- a/scripts/sk_to_crystfel.pl +++ /dev/null @@ -1,139 +0,0 @@ -#!/usr/bin/perl -w - -use strict; - -open(ROT, "< rotations.lst"); -open(COORD, "< coords.dat"); -open(OUT, "> cspad-feb2011.geom"); - -my $quadrant = 0; -printf(OUT "n_panels = 64\n\n"); -my $x = 0; -my $y = 0; -my $p = 0; - -my $global_x = 0.0; -my $global_y = 0.0; - -while ( my $coord = <COORD> ) { - - my $rot = <ROT>; - my $cx = 0.0; - my $cy = 0.0; - my $minx = $x*194; - my $miny = $y*185; - my $sc1; - my $sc2; - - chomp $coord; - chomp $rot; - - if ( $coord =~ /\(([0-9\.\-]+),\s([0-9\.\-]+)\)/ ) { - $sc1 = $1; - $sc2 = $2; - printf("%f %f\n", $sc1, $sc2); - - } else { - printf("!!!\n"); - } - - my $a = 388.0; # Fast scan - my $b = 185.0; # Slow scan - - # FIXME: Remove the $b for versions of Stephan's code after 20th Feb - $sc1 -= (1308.696-$b); - $sc2 -= (980.3862-$b); - - my $sx = -$sc2; - my $sy = -$sc1; - - printf(OUT "; Quadrant %i, asic %i\n", $quadrant, ($x%2)+2*$y); - printf(OUT "%i/min_fs = %i\n", $p, $minx); - printf(OUT "%i/min_ss = %i\n", $p, $miny); - printf(OUT "%i/max_fs = %i\n", $p, ($x+1)*194-1); - printf(OUT "%i/max_ss = %i\n", $p, ($y+1)*185-1); - printf(OUT "%i/badrow_direction = -\n", $p); - printf(OUT "%i/res = 9090.91\n", $p); - printf(OUT "%i/peak_sep = 6.0\n", $p); - printf(OUT "%i/clen = 77.0e-3\n", $p); - if ( $rot == "0" ) { - printf(OUT "%i/fs = -x\n", $p); - printf(OUT "%i/ss = -y\n", $p); - $cx = $sx; - $cy = $sy; - } elsif ( $rot == "90" ) { - printf(OUT "%i/fs = +y\n", $p); - printf(OUT "%i/ss = -x\n", $p); - $cx = $sx; - $cy = $sy - $a - 5.0; - } elsif ( $rot == "180" ) { - printf(OUT "%i/fs = +x\n", $p); - printf(OUT "%i/ss = +y\n", $p); - $cx = $sx - $a - 5.0; - $cy = $sy - $b; - } elsif ( $rot == "270" ) { - printf(OUT "%i/fs = -y\n", $p); - printf(OUT "%i/ss = +x\n", $p); - $cx = $sx - $b; - $cy = $sy; - } - printf(OUT "%i/corner_x = %5.2f\n", $p, $cx+$global_x); - printf(OUT "%i/corner_y = %5.2f\n", $p, $cy+$global_y); - printf(OUT "%i/no_index = 0\n", $p); - printf(OUT "\n"); - #if ( ($y < 20) && ($x < 1) ) { - printf(STDERR "%f %f %f %f\n", $cx, $cy, $sc1, $sc2); - #} - $x++; - $p++; - - printf(OUT "; Quadrant %i, asic %i\n", $quadrant, ($x%2)+2*$y); - printf(OUT "%i/min_fs = %i\n", $p, $x*194); - printf(OUT "%i/min_ss = %i\n", $p, $y*185); - printf(OUT "%i/max_fs = %i\n", $p, ($x+1)*194-1); - printf(OUT "%i/max_ss = %i\n", $p, ($y+1)*185-1); - printf(OUT "%i/badrow_direction = -\n", $p); - printf(OUT "%i/res = 9090.91\n", $p); - printf(OUT "%i/peak_sep = 6.0\n", $p); - printf(OUT "%i/clen = 77.0e-3\n", $p); - if ( $rot == "0" ) { - printf(OUT "%i/fs = -x\n", $p); - printf(OUT "%i/ss = -y\n", $p); - $cx = $sx - $a/2.0 - 5.0; - $cy = $sy; - } elsif ( $rot == "90" ) { - printf(OUT "%i/fs = +y\n", $p); - printf(OUT "%i/ss = -x\n", $p); - $cx = $sx; - $cy = $sy - $a/2.0; - } elsif ( $rot == "180" ) { - printf(OUT "%i/fs = +x\n", $p); - printf(OUT "%i/ss = +y\n", $p); - $cx = $sx - $a/2.0; - $cy = $sy - $b; - } elsif ( $rot == "270" ) { - printf(OUT "%i/fs = -y\n", $p); - printf(OUT "%i/ss = +x\n", $p); - $cx = $sx - $b; - $cy = $sy - $a/2.0 - 5.0; - } - printf(OUT "%i/corner_x = %5.2f\n", $p, $cx+$global_x); - printf(OUT "%i/corner_y = %5.2f\n", $p, $cy+$global_y); - printf(OUT "%i/no_index = 0\n", $p); - printf(OUT "\n"); - #if ( ($y < 20) && ($x < 1) ) { - printf(STDERR "%f %f %f %f\n", $cx, $cy, $sc1, $sc2); - #} - $x++; - $p++; - - if ( $x == 8 ) { - $x = 0; - $y++; - } - - $quadrant++; - if ( $quadrant == 4 ) { - $quadrant = 0; - } -} |