Changeset 13167 for trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

Timestamp:

May 2, 2007, 3:17:40 PM (19 years ago)

Author:

Paul Price

Message:

Adding function to return list of defined tessellations.

File:

• trunk/PS-IPP-Config/lib/PS/IPP/Config.pm (modified) (2 diffs)

trunk/PS-IPP-Config/lib/PS/IPP/Config.pm

@@ -1 +1 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.36 2007-04-17 01:25:44 eugene Exp $
+# $Id: Config.pm,v 1.37 2007-05-03 01:17:40 price Exp $
 
 package PS::IPP::Config;
@@ -420 +420 @@
 }   
 
+# Return hash of tessellations, from TESSELLATIONS within the camera configuration
+sub tessellations
+{
+    my $self = shift;           # Configuration object
+
+    unless (defined $self) {
+        carp "Programming error";
+        exit($PS_EXIT_PROG_ERROR);
+    }
+
+    my $camera = $self->{camera}; # Camera configuration
+    unless (defined $camera) {
+        carp "Camera has not yet been defined.\n";
+        exit($PS_EXIT_PROG_ERROR);
+    }
+
+    my $tessellations = _mdLookupMD($camera, 'TESSELLATIONS'); # Tessellations
+    unless (defined $tessellations) {
+        carp "Can't find TESSELLATIONS in camera configuration.\n";
+        exit($PS_EXIT_CONFIG_ERROR);
+    }
+
+    my %tessellations;          # Tessellations hash to return
+    foreach my $tess ( @$tessellations ) {
+        unless ($tess->{type} eq "STR") {
+            carp "Type for " . $tess->{name} . " within TESSELLATIONS in camera config is not STR.\n";
+            next;
+        }
+
+        $tessellations{$tess->{name}} = $tess->{value};
+    }
+
+    return \%tessellations;
+}
+
+
 # Return the DVO.CAMERADIR in the camera configuration
 sub dvo_cameradir