/[MITgcm]/MITgcm_contrib/afe/osse_MkII/piv/addcross.pl
ViewVC logotype

Diff of /MITgcm_contrib/afe/osse_MkII/piv/addcross.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by afe, Fri Jul 22 17:50:43 2005 UTC revision 1.2 by afe, Fri Jul 22 18:20:35 2005 UTC
# Line 4  $bar=10; Line 4  $bar=10;
4  @horiz=( 150, 150, 500, 500 );  @horiz=( 150, 150, 500, 500 );
5  @vert=(  180, 320,  180, 320);  @vert=(  180, 320,  180, 320);
6    
7  $cmdconv='convert masker.jpg -stroke white -strokewidth 3 ';  $infile=$ARGV[0];
8    $outfile=$ARGV[1];
9    
10    if (($infile eq "") || ($outfile eq "")) {
11            die "Usage: addcross.pl infile outfile\n";
12            }
13    
14    $cmdconv="convert $infile -stroke white -strokewidth 3 ";
15    
16  foreach $x (@horiz) {  foreach $x (@horiz) {
17   $y=shift( @vert);   $y=shift( @vert);
 #print "$x, $y";  
18    
19  $xh=$x+$bar; $xl=$x-$bar;  $xh=$x+$bar; $xl=$x-$bar;
20  $yh=$y+$bar; $yl=$y-$bar;  $yh=$y+$bar; $yl=$y-$bar;
# Line 17  $cmdconv .= "-draw \"line $xh,$y $xl,$y\ Line 23  $cmdconv .= "-draw \"line $xh,$y $xl,$y\
23  $cmdconv .= "-draw \"line $x,$yh $x,$yl\" ";  $cmdconv .= "-draw \"line $x,$yh $x,$yl\" ";
24  }  }
25    
26  $cmdconv .= "worldco1.jpg";  $cmdconv .= "$outfile ";
 #print $cmdconv;  
 #system($cmdconv);  
27  system $cmdconv;  system $cmdconv;
 #`"$cmdconv"`;  
28    
29  $cmddisp = 'display worldco1.jpg';  $cmddisp = "display $outfile &";
 #system($cmddisp);  
30  system $cmddisp;  system $cmddisp;
31  #`$cmdconv`;  
32    
33    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22