[Bigsister-cvslog] CVS: bigsister/tools bsvisio.pl,1.1,1.2

[Thomas A. <ae...@us...>]

Update of /cvsroot/bigsister/bigsister/tools
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv5201/tools

Modified Files:
	bsvisio.pl 
Log Message:
compatibility


Index: bsvisio.pl
===================================================================
RCS file: /cvsroot/bigsister/bigsister/tools/bsvisio.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** bsvisio.pl	27 Dec 2010 21:11:31 -0000	1.1
--- bsvisio.pl	5 Jun 2017 09:23:49 -0000	1.2
***************
*** 24,28 ****
  #=============================================================================
  @BigSister::common::options = ( "p=i" );
! use lib "."; use lib "uxmon"; use lib "platforms"; 		#inslib
  use BigSister::common;
  proginit();
--- 24,29 ----
  #=============================================================================
  @BigSister::common::options = ( "p=i" );
! use lib "."; use lib "uxmon"; use lib "platforms";	#inslib
! 
  use BigSister::common;
  proginit();
***************
*** 52,56 ****
  my $pageheight = width( $pageprops->first_child("PageHeight") );
  
! my $bground = $page->att("NameU").".png";
  unless( -f $bground ) {
      print STDERR "visio export $bground not found: please save your drawing as PNG as $bground\n";
--- 53,57 ----
  my $pageheight = width( $pageprops->first_child("PageHeight") );
  
! my $bground = $page->att("Name").".png";
  unless( -f $bground ) {
      print STDERR "visio export $bground not found: please save your drawing as PNG as $bground\n";
***************
*** 86,89 ****
--- 87,91 ----
  
      print STDERR "Shape ".($shape->att("ID"))." pinx=$pinx, piny=$piny, locx=$locx, locy=$locy, width=$width, height=$height\n" if( $BigSister::common::dl > 3 );
+ #    next if( $shape->att("NameU") =~ /Statusverbinder/ );
      $pinx -= $locx;
      $piny -= $locy;
***************
*** 96,103 ****
      if( (! defined($bxr)) || ($maxx > $bxr) ) { $bxr = $maxx; }
  
!     if( (! defined($byb)) || ($piny < $byb) ) { $byb = $piny; }
!     if( (! defined($byb)) || ($maxy < $byb) ) { $byb = $maxy; }
!     if( (! defined($byt)) || ($piny > $byt) ) { $byt = $piny; }
!     if( (! defined($byt)) || ($maxy > $byt) ) { $byt = $maxy; }
  }
  print STDERR "bounding box: left: $bxl, top: $byt, right: $bxr, bottom: $byb\n" if( $BigSister::common::dl > 1 );
--- 98,105 ----
      if( (! defined($bxr)) || ($maxx > $bxr) ) { $bxr = $maxx; }
  
!     if( (! defined($byb)) || ($piny < $byb) ) { $byb = $piny; print STDERR "byb: $byb (piny)\n" if( $dl > 2 ); }
!     if( (! defined($byb)) || ($maxy < $byb) ) { $byb = $maxy;  print STDERR "byb: $byb (maxy)\n" if( $dl > 2 );}
!     if( (! defined($byt)) || ($piny > $byt) ) { $byt = $piny;  print STDERR "byt: $byt (piny)\n" if( $dl > 2 );}
!     if( (! defined($byt)) || ($maxy > $byt) ) { $byt = $maxy;  print STDERR "byt: $byt (maxy)\n" if( $dl > 2 );}
  }
  print STDERR "bounding box: left: $bxl, top: $byt, right: $bxr, bottom: $byb\n" if( $BigSister::common::dl > 1 );
***************
*** 130,136 ****
  	foreach my $line ( $geom->children("LineTo") ) {
  	    my( $nx, $ny ) = coords( $line );
! 	    print "line ".tohcoords($x+$px,$y+$py)." ".tohcoords($nx+$px,$ny+$py)." $mapent\n";
! 	    $x = $nx;
! 	    $y = $ny;
  	}
  	next;
--- 132,140 ----
  	foreach my $line ( $geom->children("LineTo") ) {
  	    my( $nx, $ny ) = coords( $line );
! 	    if( defined($nx) ) {
! 		print "line ".tohcoords($x+$px,$y+$py)." ".tohcoords($nx+$px,$ny+$py)." $mapent\n";
! 		$x = $nx;
! 		$y = $ny;
! 	    }
  	}
  	next;
***************
*** 154,161 ****
      }
      elsif( $unit eq "IN" ) {
! 	$factor = 2.54;
      }
      elsif( $unit eq "IN_F" ) {
! 	$factor = 2.54;
      }
  
--- 158,167 ----
      }
      elsif( $unit eq "IN" ) {
! 	# not necessary: $factor = 2.54;
! 	$factor = 1;
      }
      elsif( $unit eq "IN_F" ) {
! 	# not necessary: $factor = 2.54;
! 	$factor = 1;
      }
  
***************
*** 196,200 ****
  sub head {
      my( $x, $y ) = ($imgx,$imgy);
!     my $bground = $page->att("NameU");
      print <<END;
  canvas         $x,$y
--- 202,206 ----
  sub head {
      my( $x, $y ) = ($imgx,$imgy);
!     my $bground = $page->att("Name");
      print <<END;
  canvas         $x,$y
***************
*** 251,254 ****
--- 257,261 ----
  	}
      }
+     print STDERR "size: $meta->{width} x $meta->{height}\n" if( $dl > 1 );
      $image_cache{"$file $size $mtime"} = $meta;
      return( $meta->{width}, $meta->{height} );