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

Contents of /eyes/montage_sideways.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.7 - (show annotations)
Tue Apr 10 04:13:58 2012 UTC (6 years, 3 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.6: +8 -5 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 $var=1080; # the resolution of each tile.
2 #$var=1320; # the resolution of each tile.
3 $final_scale = 1; # the final scale to make the big file
4 $varxvar=$var . "x" . $var;
5 # viktoria 1x5 - or kelly marie!
6 #$width=144;
7 #$height=48;
8 #$xpages = 6;
9 #$ypages=1;
10 #$xspan=28;
11 #$yspan=48;
12 #$cpucount=6;
13 #$count = 0;
14
15
16
17 # viktoria real big
18 $width=144;
19 $height=48;
20 $xpages = 1;
21 $ypages=1;
22 $xspan=144;
23 $yspan=48;
24 $cpucount=6;
25 $count = 0;
26
27
28
29 #salka:
30 #$width=132;
31 #$height=136;
32 #$xpages = 3;
33 #$ypages=4;
34 #$xspan=44;
35 #$yspan=34;
36 #$cpucount=6;
37 #$count = 0;
38
39
40 # dad:
41 #$width=18;
42 #$height=25;
43 #$xpages=1;
44 #$ypages=1;
45 #$xspan=18;
46 #$yspan=25;
47 #$cpucount=6;
48 #$count=0;
49
50 $source_letter = "k"; # set to k for building an alpha, g for regular
51
52 for ($bigx=0;$bigx<$xpages;$bigx++) {
53 for ($bigy=0;$bigy<$ypages;$bigy++) {
54 for ($x=$bigx*$xspan;($x<($bigx+1)*$xspan)&&($x<$width);$x++) {
55 $name=sprintf("%03d",$x);
56 $r = "";
57 for ($y=$bigy*$yspan;($y < ($bigy+1)*$yspan)&&($y < $height);$y++) {
58 $n = sprintf("%03d_%03d",$x,$y);
59 $r .= " n/$source_letter$n.png";
60 if (($y % 5) == 4) {
61 $r .= " \\\n";
62 }
63 }
64 if (($count != 0)&&(($count % $cpucount)==0)) {print "wait\n";}
65 print "montage $r -geometry $varxvar" . "x0x0 -tile 1x$yspan o/h$bigx" . "_" . "$bigy"
66 . "_" . "$name.png &\n";
67 $count++;
68 }
69 print "wait\n";
70 $count = 0;
71 for ($x=$bigx*$xspan;($x<($bigx+1)*$xspan)&&($x<$width);$x++) {
72 $name=sprintf("%03d",$x);
73 $r = "";
74 for ($y=$bigy*$yspan;($y < ($bigy+1)*$yspan)&&($y < $height);$y++) {
75 $n = sprintf("%03d_%03d",$x,$y);
76 $r .= " n/$source_letter$n.png";
77 if (($y % 5) == 4) {
78 $r .= " \\\n";
79 }
80 }
81 if (($count != 0)&&(($count % $cpucount)==0)) {print "wait\n";}
82 print "convert o/h$bigx" . "_" . "$bigy" . "_" . "$name.png -rotate 90 " .
83 "p/v$bigx" . "_" . "$bigy" . "_" . "$name.png&\n";
84 $count++;
85 }
86 print "wait\n";
87 # print "montage o/h$bigx" . "_" . "$bigy" . "*.png -geometry $var" .
88 # "x" . ($var*$yspan) . "x0x0 -tile $xspan" . "x1 p/i$bigx" . "_" ."$bigy.png\n";
89 }
90 # print "montage o/h$bigx" . "1*.png -geometry 150x5100 -tile 44x1 p/i$bigx" . "1.png\n";
91
92 }
93
94 $list = "";
95 for ($bigy=0;$bigy<$ypages;$bigy++) {
96 for ($bigx=0;$bigx<$xpages;$bigx++) {
97 $list .= " p/i$bigx" . "_" . "$bigy.png";
98 }
99 }
100 #print "montage $list -geometry " . ($var*$xspan*$final_scale) . "x" . ($var*$yspan*$final_scale) . "x0x0 -tile $xpages" . "x" .
101 $ypages . " q/final.jpg\n";
102 #montage p/i*_0.png p/i*_1.png p/i*_2.png p/i*_3.png -geometry 13200x10200x1x1 -tile 3x4 p/salka.jpg
103
104
105 print "time montage -limit memory 1 -limit map 1 p/*.png -geometry 51840x1080x0x0 -tile 1x144 -density 720 q/alpha.png\n";
106 #print "time convert -limit memory 1 -limit map 1 q/jenni.bmp q/jenni.png"
107 #print "time montage -limit memory 1 -limit map 1 p/*.png -geometry 37440x780x0x0 -tile 1x144 -density 720 q/viktoria.png\n";
108 #print "time montage p/*.png -geometry 4800x100x0x0 -tile 1x144 -density 720 q/jenni.png\n";

  ViewVC Help
Powered by ViewVC 1.1.5