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

Contents of /eyes/make_frame.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (show annotations)
Thu Sep 24 02:50:11 2015 UTC (2 years, 9 months ago) by hib
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
Adjustments
1
2 # make a frame from the edge
3 $s = "../jenni_quarter_scale.bmp";
4 $t = "jenni_top.bmp";
5 $b = "jenni_bottom.bmp";
6 $l = "jenni_left.bmp";
7 $r = "jenni_right.bmp";
8 $width = 12960;
9 $length = 38880;
10
11
12 print "convert $s -crop 12960x1+0+0 +repage jenni_top.bmp\n";
13 print "convert $s -crop 12960x1+0+38879 +repage jenni_bottom.bmp\n";
14 print "convert $s -crop 1x38880+0+0 +repage jenni_left.bmp\n";
15 print "convert $s -crop 1x38880+12959+0 +repage jenni_right.bmp\n";
16
17
18 for ($i=1;$i<=240;$i++) {
19 $im1 = $i-1;
20 $newwidth = $width +2*$i;
21 $newwidthm2 = $newwidth-2;
22 $newlength = $length +2*$i;
23 $newlengthm2 = $newlength - 2;
24 print "convert $t -resize $newwidth" . "x1! jt$i.bmp\n";
25 print "convert $b -resize $newwidth" . "x1! jb$i.bmp\n";
26 print "convert $l -resize 1x$newlength! jl$i.bmp\n";
27 print "convert $r -resize 1x$newlength! jr$i.bmp\n";
28
29 if ($im1) {
30 print "convert jl$i.bmp -crop 1x$im1+1+1 +repage bl$i.bmp
31 convert jr$i.bmp -crop 1x$1m1+1+1 +repage br$i.bmp
32 convert +append bl$i.bmp kt$im1.bmp br$im1.bmp ct$i.bmp
33 convert -append jt$i.bmp ct$i.bmp kt$i.bmp
34 ???
35 convert jenni_left.bmp -crop 1x38880+0+1 +repage kl1.bmp
36 convert jenni_right.bmp -crop 1x38880+0+1 +repage kr1.bmp
37
38
39 }
40 else {
41 print "cp jt$i.bmp kt$i.bmp\n";
42 print "cp jb$i.bmp kb$i.bmp\n";
43 print "convert jl$i.bmp -crop 1x$newlengthm2+0+1 +repage kl1.bmp\n";
44 print "convert jr$i.bmp -crop 1x$newlengthm2+0+1 +repage kr1.bmp\n";
45 }
46

  ViewVC Help
Powered by ViewVC 1.1.5