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

Contents of /eyes/triforce_it.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (show annotations)
Tue Apr 10 04:13:58 2012 UTC (6 years, 6 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +3 -3 lines
File MIME type: text/plain
did a fix to randomify that was ever so slight.
For the hologram,  we flip the hologram values if base is lma darker than the pattern.
It is a slight difference,  but noticeable - that it seems to flow better, is softer.
I think it will jump out more, or less, I don't know.  But it has made a big deal.
I used the option 1 and not the objective values. Objective had blue as way too dark.
I guess it shouald all be on hte green in this case because the hologram is
572 nm (green laser pointer).
1
2 $columns=16;
3 $rows=20;
4 $s = chr(194) . chr(160);
5 $c = chr(226) . chr(150) . chr(178);
6 #$s = "-";
7 #$c = "^";
8
9 $l = "";
10 $trip = 0;
11 $start = chr(239) . chr(187) . chr(191);
12 $eo = 1;
13 while (<>) {
14 ($x,$y,$r,$g,$b) = split(/\|/,$_);
15 if (($x % 2)==$eo) {
16 if ($r < 128) {
17 $l .= "$c$s";
18 $trip=1;
19 }
20 else {
21 if ($trip) {
22 $l .= "$s$s$s$s";
23 }
24 else {
25 $l .= "$s$s$s$s";
26 }
27 }
28 }
29 if ($x == 9) {
30 if (($y % 2) == 0) {
31 $l = $s . $s . $l;
32 }
33 while (substr($l,length($l)-(length($s))) eq $s) {
34 $l = substr($l,0,length($l)-length($s));
35 }
36 print "$l\r\n";
37 $l = "";
38 $trip=0;
39 $eo = 1-$eo;
40 }
41 }

  ViewVC Help
Powered by ViewVC 1.1.5