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

Contents of /eyes/build_viktoria_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sat Jul 23 02:19:58 2011 UTC (6 years, 9 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
few more
1
2
3 $randx = 155520;
4 $randy = 51840;
5 $f = 445;
6 $t = 650;
7 $m = ($f+$t)/2;
8 $d = ($t-$f);
9
10 srand(3427625);
11
12 $phase = 0;
13 $za = 2.5;
14
15 for ($i=0;$i<15;$i++) {
16
17 $phase = $phase + 0.1;
18 $za = $za + (0.01*1.25);
19
20 $x = rand($randx);
21 $y = rand($randy);
22 $d = $phase;
23 $z = $za;
24 $q = ((rand($d) / $d) - 0.5) + $m;
25 $q = $q / 1000000000.;
26 $q = 532e-9;
27 print "$x|$y|$z|1|$q|$d\n";
28
29 }

  ViewVC Help
Powered by ViewVC 1.1.5