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	afe	1.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`;