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

Contents of /eyes/points_to_hologram_vectors.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Sat Oct 8 22:06:17 2011 UTC (6 years, 11 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +16 -2 lines
File MIME type: text/plain
working on tilify.c - this will be pretty neat
1 # read from analysis and then square out
2 #also adds a random placement of the point - so it sin't perfectly symmetrical
3
4 #japan:
5 $xsize=63360;
6 $ysize=63360;
7 $zpos = 22.0 * 0.0254; # meters
8 $color=5.32e-07;
9 srand(43342);
10 $scale = 4.0;
11 $phase_x_variance = 7.0;
12 $phase_y_variance = 11.0;
13 #
14 # moot:
15 $xsize=3200;
16 $ysize = 2500;
17 $zpos = 2.0 * 0.0254; # 2 inches to meters
18 $scale = 43200.0/4200.0*2.0;
19 $phase_x_variance = 5.0;
20 $phase_y_variance = 7.0;
21
22 $i = 1;
23 while (<>) {
24 ($x,$y,$r,$g,$b) = split(/\|/);
25 # $x = $x * 4 + (rand(100)/25.);
26 # $y = $y * 4 + (rand(100)/25.);
27 $x = $x * $scale;
28 $y = $y * $scale;
29 if ($r > 15) {
30 # $intensity = $r / 256. ;
31 $intensity=1.;
32 $phase = ($x * 7 ) % $xsize;
33 $phase = $phase + ($y * 11 ) % $ysize;
34 $phase = $phase * 3.1415927 * 2.0;
35 print "$x|$y|$zpos|$intensity|$color|$phase\n";
36 }
37
38 }
39
40

  ViewVC Help
Powered by ViewVC 1.1.5