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

Contents of /eyes/build_bobby_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Sat Jul 23 02:18:56 2011 UTC (7 years, 3 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
japan was made but not printed
Also Larissa was made and not printed.
We also cleaned up Enlightenmnet instructions better and set up base "sets" at various resolutions.
1 # lines
2
3
4 srand(3427619);
5
6 $phase = 0;
7
8
9 sub line {
10 ($fromx,$fromy,$fromz,$tox,$toy,$toz,$len,$start_phase,$phase_change) = @_;
11 $phase = $start_phase;
12 for ($i=0;$i<$len;$i++) {
13 $x = $fromx + ($i/($len-1)) * ($tox-$fromx);
14 $y = $fromy + ($i/($len-1)) * ($toy-$fromy);
15 $z = $fromz + ($i/($len-1)) * ($toz-$fromz);
16 print "$x|$y|$z|1|532e-9|$phase\n";
17 $phase += $phase_change/$len;
18 }
19 }
20
21 $sp = 0;
22
23 sub line2 {
24 my ($fx,$fy,$tx,$ty) = @_;
25 $c = 60840.0 / 5040.0;
26 $fx = $fx * $c;
27 $fy = $fy * $c;
28 $tx = $tx * $c;
29 $ty = $ty * $c;
30 &line($fx,$fy,10.5,$tx,$ty,15.0,30,$sp,6.28*(1.2));
31 $sp = $sp + (6.28 * .2);
32 }
33
34
35 &line2(1,60000,1,60000);
36 #&line2(60000,1,60000,1);
37 #&line2(2712,1108,2820,560);

  ViewVC Help
Powered by ViewVC 1.1.5