osse_MkII/piv/addcross.pl

#!/usr/bin/perl

$bar=10;
@horiz=( 150, 150, 500, 500 );
@vert=(  180, 320,  180, 320);

$cmdconv='convert masker.jpg -stroke white -strokewidth 3 ';

foreach $x (@horiz) {
 $y=shift( @vert);
#print "$x, $y";

$xh=$x+$bar; $xl=$x-$bar;
$yh=$y+$bar; $yl=$y-$bar;

$cmdconv .= "-draw \"line $xh,$y $xl,$y\" "; 
$cmdconv .= "-draw \"line $x,$yh $x,$yl\" "; 
}

$cmdconv .= "worldco1.jpg";
#print $cmdconv;
#system($cmdconv);
system $cmdconv;
#`"$cmdconv"`;

$cmddisp = 'display worldco1.jpg';
#system($cmddisp);
system $cmddisp;
#`$cmdconv`;
1	#!/usr/bin/perl
2
3	$bar=10;
4	@horiz=( 150, 150, 500, 500 );
5	@vert=( 180, 320, 180, 320);
6
7	$cmdconv='convert masker.jpg -stroke white -strokewidth 3 ';
8
9	foreach $x (@horiz) {
10	$y=shift( @vert);
11	#print "$x, $y";
12
13	$xh=$x+$bar; $xl=$x-$bar;
14	$yh=$y+$bar; $yl=$y-$bar;
15
16	$cmdconv .= "-draw \"line $xh,$y $xl,$y\" ";
17	$cmdconv .= "-draw \"line $x,$yh $x,$yl\" ";
18	}
19
20	$cmdconv .= "worldco1.jpg";
21	#print $cmdconv;
22	#system($cmdconv);
23	system $cmdconv;
24	#`"$cmdconv"`;
25
26	$cmddisp = 'display worldco1.jpg';
27	#system($cmddisp);
28	system $cmddisp;
29	#`$cmdconv`;