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

Contents of /eyes/build_kelly_eye_source.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sun Jun 5 05:18:17 2011 UTC (6 years, 10 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +9 -2 lines
File MIME type: text/plain
kelly and viktoria are done.  Enlightenment is being cranked out at 1800x1800.
Just started work on Japan and enlightenment second edition - with alpha appropriated hologram pixels.
And also can print money with any percentage value I want - to save ink.
1 $x1 = 35100;
2 $x2 = 81540;
3 $y1 = 23220;
4 $y2 = 23220;
5 $rand_range = 1080;
6
7 $x1 = 42900;
8 $x2 = 99660;
9 $y1 = 28380;
10 $y2 = 28380;
11 $rand_range = 1320;
12
13 srand(3427624);
14
15 $phase = 0;
16 $za = 2.5;
17
18 for ($i=0;$i<1;$i++) {
19 $x = $x1 + (rand($rand_range)- ($rand_range/2));
20 $y = $y1 + (rand($rand_range)- ($rand_range/2));
21 $d = $phase;
22 $z = $za;
23 print "$x|$y|$z|5|430e-9|$d\n";
24
25 $x = $x2 + (rand($rand_range)- ($rand_range/2));
26 $y = $y2 + (rand($rand_range)- ($rand_range/2));
27 $d = -$phase;
28 $z = $za;
29 print "$x|$y|$z|5|430e-9|$d\n";
30
31
32 $phase = $phase + 0.1;
33 $za = $za + (0.01*1.25);
34
35 $x = $x1 + (rand($rand_range)- ($rand_range/2));
36 $y = $y1 + (rand($rand_range)- ($rand_range/2));
37 $d = $phase;
38 $z = $za;
39 print "$x|$y|$z|1|572e-9|$d\n";
40
41 $x = $x2 + (rand($rand_range)- ($rand_range/2));
42 $y = $y2 + (rand($rand_range)- ($rand_range/2));
43 $d = -$phase;
44 $z = $za;
45 print "$x|$y|$z|1|572e-9|$d\n";
46
47
48 $phase = $phase + 0.1;
49 $za = $za + (0.01*1.25);
50
51 $x = $x1 + (rand($rand_range)- ($rand_range/2));
52 $y = $y1 + (rand($rand_range)- ($rand_range/2));
53 $d = $phase;
54 $z = $za;
55 print "$x|$y|$z|1|544e-9|$d\n";
56
57 $x = $x2 + (rand($rand_range)- ($rand_range/2));
58 $y = $y2 + (rand($rand_range)- ($rand_range/2));
59 $d = -$phase;
60 $z = $za;
61 print "$x|$y|$z|1|544e-9|$d\n";
62
63 $phase = $phase + 0.1;
64 $za = $za + (0.01*1.25);
65
66 $x = $x1 + (rand($rand_range)- ($rand_range/2));
67 $y = $y1 + (rand($rand_range)- ($rand_range/2));
68 $d = $phase;
69 $z = $za;
70 print "$x|$y|$z|1|430e-9|$d\n";
71
72 $x = $x2 + (rand($rand_range)- ($rand_range/2));
73 $y = $y2 + (rand($rand_range)- ($rand_range/2));
74 $d = -$phase;
75 $z = $za;
76 print "$x|$y|$z|1|430e-9|$d\n";
77
78
79 $phase = $phase + 0.1;
80 $za = $za + (0.01*1.25);
81
82 }

  ViewVC Help
Powered by ViewVC 1.1.5