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

Contents of /eyes/build_larissa_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Tue Jul 12 06:05:09 2011 UTC (7 years, 2 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
encirculate is a proof in concept for japan.
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|671e-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,0.05,$tx,$ty,15.0,1000,$sp,6.28*(1.2));
31 $sp = $sp + (6.28 * .2);
32 }
33
34
35 &line2(472,1672,580,304);
36 &line2(1648,672,1296,424);
37 &line2(2272,736,2016,240);
38 &line2(2712,1108,2820,560);
39 &line2(3112,1904,3516,652);
40 &line2(1048,3014,2024,3392);

  ViewVC Help
Powered by ViewVC 1.1.5