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

Annotation of /eyes/build_viktoria_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (hide annotations)
Sat Jul 23 02:19:58 2011 UTC (8 years, 7 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
few more

1 hib 1.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.26