--- CV/CV.xs	2004/04/05 20:55:10	1.8
+++ CV/CV.xs	2004/04/06 23:53:20	1.9
@@ -99,7 +99,7 @@
 
 /////////////////////////////////////////////////////////////////////////////
 
-MODULE = Gtk2::CV PACKAGE = Gtk2::CV::ImageWindow
+MODULE = Gtk2::CV PACKAGE = Gtk2::CV
 
 PROTOTYPES: ENABLE
 
@@ -347,6 +347,28 @@
 	OUTPUT:
         RETVAL
 
+SV *
+hv84_to_av (unsigned char *hv84)
+	CODE:
+{
+        int i = 72 / 3;
+        AV *av = newAV ();
+
+        RETVAL = (SV *)newRV_noinc ((SV *)av);
+        while (i--)
+          {
+            int h  = *hv84++;
+            int v1 = *hv84++;
+            int v2 = *hv84++;
+
+            av_push (av, newSViv (v1));
+            av_push (av, newSViv ((h >> 4) * 255 / 15));
+            av_push (av, newSViv (v2));
+            av_push (av, newSViv ((h & 15) * 255 / 15));
+          }
+}
+	OUTPUT:
+        RETVAL