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

Contents of /eyes/build_ben_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue Jul 12 06:05:08 2011 UTC (7 years, 3 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +13 -3 lines
File MIME type: text/plain
encirculate is a proof in concept for japan.
1 $x1 = 4578;
2 $y1 = 3027;
3 $x2 = 5454;
4 $y2 = 3085;
5 $x1 = $x1 * 0.5;
6 $x2 = $x2 * 0.5;
7 $y1 = $y1 * 0.5;
8 $y2 = $y2 * 0.5;
9 # spiral going out 10 centimeters very thin at first then changing to the width
10 # of bens eye.
11 # set to be red - we will see how it comes out
12
13
14 srand(3427619);
15
16 $phase = 0;
17
18 for ($i=0;$i<1000;$i+=83) {
19 $d = $i / 10000;
20 $phase = $d * 6.28 *30;
21 $rad = $i/20; # increases slowly to 80 */
22
23 $x = $x1 + $rad*cos($phase/13.);
24 $y = $y1 + $rad*sin($phase/13.);
25 $z = $d+0.5;
26 print "$x|$y|$z|1|671e-9|$phase\n";
27
28 $x = $x2 - $rad*cos($phase/13.);
29 $y = $y2 - $rad*sin($phase/13.);
30 $z = $d;
31 print "$x|$y|$z|1|671e-9|$phase\n";
32
33 }

  ViewVC Help
Powered by ViewVC 1.1.5