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

Diff of /eyes/build_ben_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by hib, Thu Jun 23 05:07:56 2011 UTC revision 1.2 by hib, Tue Jul 12 06:05:08 2011 UTC
# Line 1  Line 1 
1  $x1 = 4578;  $x1 = 4578;
2  $y1 = 3027;  $y1 = 3027;
3  $x2 = 5454;  $x2 = 5454;
4  $y2 = 2085;  $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  # spiral going out 10 centimeters very thin at first then changing to the width
10  # of bens eye.  # of bens eye.
11  # set to be red - we will see how it comes out  # set to be red - we will see how it comes out
# Line 11  srand(3427619); Line 15  srand(3427619);
15    
16  $phase = 0;  $phase = 0;
17    
18  for ($i=0;$i<1000;$i++) {  for ($i=0;$i<1000;$i+=83) {
19    $d = $i / 10000;    $d = $i / 10000;
20    $phase = $i * 6.28 * 79;    $phase = $d * 6.28 *30;
21    $rad = $i/20; # increases slowly to 80 */    $rad = $i/20; # increases slowly to 80 */
22        
23    $x = $x1 + $rad*cos($phase/13.);    $x = $x1 + $rad*cos($phase/13.);
24    $y = $y1 + $rad*sin($phase/13.);    $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;    $z = $d;
31    print "$x|$y|$z|1|671e-9|$phase\n";    print "$x|$y|$z|1|671e-9|$phase\n";
32    
33    }    }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

  ViewVC Help
Powered by ViewVC 1.1.26