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

Contents of /eyes/makemontage.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.11 - (show annotations)
Thu Mar 6 06:43:51 2014 UTC (4 years, 7 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
Changes since 1.10: +16 -5 lines
File MIME type: text/plain
Got qi working and released.
1 $var=600; # the resolution of each tile.
2 $final_scale = 1; # the final scale to make the big file
3 $varxvar=$var . "x" . $var;
4
5 $limit = " -limit memory 2000000000 -limit map 2000000000";
6
7 # viktoria 2x10 - or kelly marie!
8 #$width=144;
9 #height=48;
10 #xpages = 10;
11 #ypages=2;
12 #xspan=14;
13 #yspan=24;
14 #cpucount=6;
15 #count = 0;
16
17 # viktoria real big
18 #$width=144;
19 #$height=48;
20 #$xpages = 12;
21 #$ypages=6;
22 #$xspan=12;
23 #$yspan=8;
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
51 #larissa
52 #$var=2160; # the resolution of each tile.
53 #$width=28;
54 #$height=21;
55 #$xpages=1;
56 #$ypages=1;
57 #$xspan=28;
58 #$yspan=21;
59 #$cpucount=6;
60 #$count=0;
61
62 #Stephanie
63 #$width=32;
64 #$height=24;
65 #$xpages=1;
66 #$ypages=1;
67 #$xspan=32;
68 #$yspan=24;
69 #$cpucount=6;
70 #$count=0;
71
72
73 # moot
74 #$width=64;
75 #$height=50;
76 #$xpages=1;
77 #$ypages=1;
78 #$xspan=64;
79 #$yspan=50;
80 #$cpucount=6;
81 #$count=0;
82
83
84 #lovely
85 #$width=32;
86 #$height=42;
87 #$xpages=1;
88 #$ypages=1;
89 #$xspan=32;
90 #$yspan=42;
91 #$cpucount=6;
92 #$count=0;
93
94
95 # ben flag
96 $width=7;
97 $height=5;
98 $xpages=1;
99 $ypages=1;
100 $xspan=7;
101 $yspan=5;
102 $cpucount=6;
103 $count=0;
104
105 for ($bigx=0;$bigx<$xpages;$bigx++) {
106 for ($bigy=0;$bigy<$ypages;$bigy++) {
107 for ($x=$bigx*$xspan;($x<($bigx+1)*$xspan)&&($x<$width);$x++) {
108 $name=sprintf("%03d",$x);
109 $r = "";
110 for ($y=$bigy*$yspan;($y < ($bigy+1)*$yspan)&&($y < $height);$y++) {
111 $n = sprintf("%03d_%03d",$x,$y);
112 $r .= " n/g$n.png";
113 if (($y % 5) == 4) {
114 $r .= " \\\n";
115 }
116 }
117 if (($count != 0)&&(($count % $cpucount)==0)) {print "wait\n";}
118 print "montage $r -geometry $varxvar" . "x0x0 -tile 1x$yspan -depth 8 o/h$bigx" . "_" . "$bigy"
119 . "_" . "$name.png &\n";
120 $count++;
121 }
122 print "wait\n";
123 print "montage $limit o/h$bigx" . "_" . "$bigy" . "*.png -geometry $var" .
124 "x" . ($var*$yspan) . "x0x0 -tile $xspan" . "x1 -depth 8 p/i$bigx" . "_" ."$bigy.png\n";
125 }
126 # print "montage o/h$bigx" . "1*.png -geometry 150x5100 -tile 44x1 p/i$bigx" . "1.png\n";
127
128 }
129
130 $list = "";
131 for ($bigy=0;$bigy<$ypages;$bigy++) {
132 for ($bigx=0;$bigx<$xpages;$bigx++) {
133 $list .= " p/i$bigx" . "_" . "$bigy.png";
134 }
135 }
136 #print "montage $list -geometry " . ($var*$xspan*$final_scale) . "x" . ($var*$yspan*$final_scale) . "x0x0 -tile $xpages" . "x" .
137 # $ypages . " q/final.jpg\n";
138 #montage p/i*_0.png p/i*_1.png p/i*_2.png p/i*_3.png -geometry 13200x10200x1x1 -tile 3x4 p/salka.png

  ViewVC Help
Powered by ViewVC 1.1.5