/[opencvs]/eyes/jos_flip_over.pl
ViewVC logotype

Contents of /eyes/jos_flip_over.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sat May 11 04:06:09 2013 UTC (5 years, 7 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
josephine stuff
1 # this is for Josephines symmetry
2 # we have to expand the points symmetrically aroudn the x and y squares.
3 # which means 9 times moe points
4 # but most points will be way the fuck away from anything
5 # so it doesn't matter.
6 $xsize = 8400;
7 $ysize = 10500;
8
9 while (<>) {
10 $s = $_;
11 ($x,$y,$z,$i,$wl,$p) = split(/\|/,$s);
12 print "$s";
13 $rest = "$z|$i|$wl|$p";
14 # to the left yall
15 $x1 = -$x;
16 $y1 = $y;
17 print "$x1|$y1|$rest";
18 # left top flip
19 $y1 = -$y;
20 print "$x1|$y1|$rest";
21 # left bottom flip
22 $y1 = $ysize + ($ysize - $y);
23 print "$x1|$y1|$rest";
24 # bottom flip
25 $x1 = $x;
26 print "$x1|$y1|$rest";
27 # bottom right flip
28 $x1 = $xsize + ($xsize-$x);
29 print "$x1|$y1|$rest";
30 # right flip
31 $y1 = $y;
32 print "$x1|$y1|$rest";
33 # right top flip
34 $y1 = -$y;
35 print "$x1|$y1|$rest";
36 # top flip
37 $x1 = $x;
38 print "$x1|$y1|$rest";
39 }

  ViewVC Help
Powered by ViewVC 1.1.5