Looks good! Now what is that diagram that is on the door?

I've thought about "automated" panorama pictures too, and I think the difficulty is in joining them into one picture. Even in your picture, made with Photoshop controlled by Human Eyes and Brain, I can still kind of see where the individual pictures are joined. Writing software to do as good a job would be tricky.

You can achieve that using some scripting, either with PHP or with a batch script, where you use wget to control position and capture the images.

wget for Windows

Maybe this will be easier to use. It's a Perl script I just wrote, and it captures pix automatically from LogiSphere to make a panorama. It just moves the camera, saves a jpeg image, moves again, etc. So you will of course still have to join the pix in Photoshop.

Since it's a Perl script you obviously will need to have a Perl interpreter installed on your system. If you don't already have one, get a good free one here: LINK

Now copy the code below and paste it into Notepad. Save it as panorama.pl in some "easy" directory like c:\temp.

Now open up a command prompt (DOS box) and go to the directory you just saved panorama.pl in. If Perl was installed correctly, you should be able to just type panorama.pl at the dos prompt and it will run. If it doesn't run, try
c:\perl\bin\perl.exe panorama.pl instead.

Captured image files will be saved in the same directory you're running panorama.pl in.

I'll try to check back here a bit later in case you have problems with this script. It should just work though... it's pretty basic stuff.

######### Set these CONSTANTS to suit your system & needs #########

my $STEPS = 4;             # Number of pictures in panorama.
my $CAM =   0;             # Which camera to use (usually zero).
my $TILT =  0;             # Tilt position to use.
my $LSHOST = "localhost";  # Hostname where LogiSphere is running.
my $LSPORT = "8080";       # Port LogiSphere is running on.

###################################################################

use IO::Socket;
$EOL = "\015\012";
$BLANK = $EOL x 2;

# PAN START POSITION AND STEP SIZE.
$pan = -100;
$panstep = 200/($STEPS-1);

# MAKE UNIQUE FILENAMES FOR OUTPUT JPEGS.
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
   localtime(time);
$basename =
   sprintf("%04d%02d%02d%02d%02d%02d-",
   $year+1900,$mon+1,$mday,$hour,$min,$sec);
chomp ($ourpath = qx/cd/);

# MAKE HTTP REQUEST THAT TRIGGERS IMAGE CAPTURES.
$grab = sprintf("GET /current%d.jpg HTTP/1.1%s",$CAM,$EOL);
$grab .= "Accept: text/html, image/jpeg$BLANK";

# THE MAIN LOOP - ONE ITERATION PER CAPTURE.
for ($i=1;$i<=$STEPS;$i++) {
   $file = $basename.$i.".jpg";

   # MOVE CAMERA TO POSITION.
   $move =
      sprintf("GET /pos%d-%d,%d HTTP/1.1%s",$CAM,$pan,$TILT,$BLANK);
   printf ("Move Cam %1d To: %d,%d\n",$CAM,$pan,$TILT);
   $logi = hookup($LSHOST,$LSPORT);
   print $logi "$move";
   while (<$logi>) {        # Just ignore reply from LogiSphere 
      if ($_ =~ /404/) {    # unless somthing bad happened.
         die "LogiSphere did not accept position command."
      }
   }
   sleep(5); # Allow time for it to really move.

   # REQUEST AN IMAGE CAPTURE.
   $logi = hookup($LSHOST,$LSPORT);
   print $logi "$grab";
   while (<$logi>) {        # Just ignore Headers from LogiSphere 
      if ($_ =~ /404/) {    # unless somthing bad happened.
         die "LogiSphere did not deliver image."
      }
      last if /^\r/
   }

   # WRITE IMAGE TO OUPUT JPEG FILE.
   open(FH, "> $file") || die "Can't create $file.";
   binmode(FH);
   while (<$logi>) {print FH}
   close(FH);
   print "Captured File: $ourpath\\$file\n";

   # CALC NEXT CAMERA POSITION.
   $pan += $panstep;
}

#### SUBROUTINE TO MAKE CONNECTIONS TO LOGISPHERE. ####
sub hookup($$) {
   my($host,$port)=@_;
   $conn = IO::Socket::INET->new(
              Proto    => "tcp",
              PeerAddr => $host,
              PeerPort => $port,
           )
   or die "cannot connect to the LogiSphere server";
   return $conn
}

1

Think it works now, i just set the waiting time up.

Like this.

panorama.pl

######### Set these CONSTANTS to suit your system & needs #########

my $STEPS = 6;             # Number of pictures in panorama.
my $SLEEP = 10;            # Allow time for it to really move.
my $CAM =   0;             # Which camera to use (usually zero).
my $TILT =  0;             # Tilt position to use.
my $LSHOST = "localhost";  # Hostname where LogiSphere is running.
my $LSPORT = "8080";       # Port LogiSphere is running on.

###################################################################

use IO::Socket;
$EOL = "\015\012";
$BLANK = $EOL x 2;

# PAN START POSITION AND STEP SIZE.
$pan = -100;
$panstep = 200/($STEPS-1);

# MAKE UNIQUE FILENAMES FOR OUTPUT JPEGS.
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
   localtime(time);
$basename =
   sprintf("%04d%02d%02d%02d%02d%02d-",
   $year+1900,$mon+1,$mday,$hour,$min,$sec);
chomp ($ourpath = qx/cd/);

# MAKE HTTP REQUEST THAT TRIGGERS IMAGE CAPTURES.
$grab = sprintf("GET /current%d.jpg HTTP/1.1%s",$CAM,$EOL);
$grab .= "Accept: text/html, image/jpeg$BLANK";

# THE MAIN LOOP - ONE ITERATION PER CAPTURE.
for ($i=1;$i<=$STEPS;$i++) {
   $file = $basename.$i.".jpg";

   # MOVE CAMERA TO POSITION.
   $move =
      sprintf("GET /pos%d-%d,%d HTTP/1.1%s",$CAM,$pan,$TILT,$BLANK);
   printf ("Move Cam %1d To: %d,%d\n",$CAM,$pan,$TILT);
   $logi = hookup($LSHOST,$LSPORT);
   print $logi "$move";
   while (<$logi>) {        # Just ignore reply from LogiSphere 
      if ($_ =~ /404/) {    # unless somthing bad happened.
         die "LogiSphere did not accept position command."
      }
   }
   sleep($SLEEP); # Allow time for it to really move.

   # REQUEST AN IMAGE CAPTURE.
   $logi = hookup($LSHOST,$LSPORT);
   print $logi "$grab";
   while (<$logi>) {        # Just ignore Headers from LogiSphere 
      if ($_ =~ /404/) {    # unless somthing bad happened.
         die "LogiSphere did not deliver image."
      }
      last if /^\r/
   }

   # WRITE IMAGE TO OUPUT JPEG FILE.
   open(FH, "> $file") || die "Can't create $file.";
   binmode(FH);
   while (<$logi>) {print FH}
   close(FH);
   print "Captured File: $ourpath\\$file\n";

   # CALC NEXT CAMERA POSITION.
   $pan += $panstep;
}

#### SUBROUTINE TO MAKE CONNECTIONS TO LOGISPHERE. ####
sub hookup($$) {
   my($host,$port)=@_;
   $conn = IO::Socket::INET->new(
              Proto    => "tcp",
              PeerAddr => $host,
              PeerPort => $port,
           )
   or die "cannot connect to the LogiSphere server";
   return $conn
}

1

And in the same folder i made panorama.bat

perl.exe panorama.pl