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

Annotation of /eyes/triforce_it.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.2 - (hide annotations)
Tue Apr 10 04:13:58 2012 UTC (7 years, 10 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 hib 1.1
2 hib 1.2 $columns=16;
3     $rows=20;
4 hib 1.1 $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 hib 1.2 if ($x == 9) {
30 hib 1.1 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.26