opencvs/eyes/build_kelly_eye_source.pl

$x1 = 35100;
$x2 = 81540;
$y1 = 23220;
$y2 = 23220;
$rand_range = 1080;

$x1 = 42900;
$x2 = 99660;
$y1 = 28380;
$y2 = 28380;
$rand_range = 1320;

srand(3427624);

$phase = 0;
$za = 2.5;

for ($i=0;$i<1;$i++) {
  $x = $x1 + (rand($rand_range)- ($rand_range/2));
  $y = $y1 + (rand($rand_range)- ($rand_range/2));
  $d = $phase;
  $z = $za;
  print "$x|$y|$z|5|430e-9|$d\n";
  
  $x = $x2 + (rand($rand_range)- ($rand_range/2));
  $y = $y2 + (rand($rand_range)- ($rand_range/2));
  $d = -$phase;
  $z = $za;
  print "$x|$y|$z|5|430e-9|$d\n";
  

  $phase = $phase + 0.1;
  $za = $za + (0.01*1.25);
      
  $x = $x1 + (rand($rand_range)- ($rand_range/2));
  $y = $y1 + (rand($rand_range)- ($rand_range/2));
  $d = $phase;
  $z = $za;
  print "$x|$y|$z|1|572e-9|$d\n";
  
  $x = $x2 + (rand($rand_range)- ($rand_range/2));
  $y = $y2 + (rand($rand_range)- ($rand_range/2));
  $d = -$phase;
  $z = $za;
  print "$x|$y|$z|1|572e-9|$d\n";

  
  $phase = $phase + 0.1;
  $za = $za + (0.01*1.25);
      
  $x = $x1 + (rand($rand_range)- ($rand_range/2));
  $y = $y1 + (rand($rand_range)- ($rand_range/2));
  $d = $phase;
  $z = $za;
  print "$x|$y|$z|1|544e-9|$d\n";
  
  $x = $x2 + (rand($rand_range)- ($rand_range/2));
  $y = $y2 + (rand($rand_range)- ($rand_range/2));
  $d = -$phase;
  $z = $za;
  print "$x|$y|$z|1|544e-9|$d\n";
      
  $phase = $phase + 0.1;
  $za = $za + (0.01*1.25);
      
  $x = $x1 + (rand($rand_range)- ($rand_range/2));
  $y = $y1 + (rand($rand_range)- ($rand_range/2));
  $d = $phase;
  $z = $za;
  print "$x|$y|$z|1|430e-9|$d\n";
  
  $x = $x2 + (rand($rand_range)- ($rand_range/2));
  $y = $y2 + (rand($rand_range)- ($rand_range/2));
  $d = -$phase;
  $z = $za;
  print "$x|$y|$z|1|430e-9|$d\n";
     
  
  $phase = $phase + 0.1;  
  $za = $za + (0.01*1.25);

  }
1	$x1 = 35100;
2	$x2 = 81540;
3	$y1 = 23220;
4	$y2 = 23220;
5	$rand_range = 1080;
6
7	$x1 = 42900;
8	$x2 = 99660;
9	$y1 = 28380;
10	$y2 = 28380;
11	$rand_range = 1320;
12
13	srand(3427624);
14
15	$phase = 0;
16	$za = 2.5;
17
18	for ($i=0;$i<1;$i++) {
19	$x = $x1 + (rand($rand_range)- ($rand_range/2));
20	$y = $y1 + (rand($rand_range)- ($rand_range/2));
21	$d = $phase;
22	$z = $za;
23	print "$x\|$y\|$z\|5\|430e-9\|$d\n";
24
25	$x = $x2 + (rand($rand_range)- ($rand_range/2));
26	$y = $y2 + (rand($rand_range)- ($rand_range/2));
27	$d = -$phase;
28	$z = $za;
29	print "$x\|$y\|$z\|5\|430e-9\|$d\n";
30
31
32	$phase = $phase + 0.1;
33	$za = $za + (0.01*1.25);
34
35	$x = $x1 + (rand($rand_range)- ($rand_range/2));
36	$y = $y1 + (rand($rand_range)- ($rand_range/2));
37	$d = $phase;
38	$z = $za;
39	print "$x\|$y\|$z\|1\|572e-9\|$d\n";
40
41	$x = $x2 + (rand($rand_range)- ($rand_range/2));
42	$y = $y2 + (rand($rand_range)- ($rand_range/2));
43	$d = -$phase;
44	$z = $za;
45	print "$x\|$y\|$z\|1\|572e-9\|$d\n";
46
47
48	$phase = $phase + 0.1;
49	$za = $za + (0.01*1.25);
50
51	$x = $x1 + (rand($rand_range)- ($rand_range/2));
52	$y = $y1 + (rand($rand_range)- ($rand_range/2));
53	$d = $phase;
54	$z = $za;
55	print "$x\|$y\|$z\|1\|544e-9\|$d\n";
56
57	$x = $x2 + (rand($rand_range)- ($rand_range/2));
58	$y = $y2 + (rand($rand_range)- ($rand_range/2));
59	$d = -$phase;
60	$z = $za;
61	print "$x\|$y\|$z\|1\|544e-9\|$d\n";
62
63	$phase = $phase + 0.1;
64	$za = $za + (0.01*1.25);
65
66	$x = $x1 + (rand($rand_range)- ($rand_range/2));
67	$y = $y1 + (rand($rand_range)- ($rand_range/2));
68	$d = $phase;
69	$z = $za;
70	print "$x\|$y\|$z\|1\|430e-9\|$d\n";
71
72	$x = $x2 + (rand($rand_range)- ($rand_range/2));
73	$y = $y2 + (rand($rand_range)- ($rand_range/2));
74	$d = -$phase;
75	$z = $za;
76	print "$x\|$y\|$z\|1\|430e-9\|$d\n";
77
78
79	$phase = $phase + 0.1;
80	$za = $za + (0.01*1.25);
81
82	}