--- psiconv/trunk/lib/psiconv/parse_image.c	1999/10/11 16:15:14	12
+++ psiconv/trunk/lib/psiconv/parse_image.c	1999/10/30 22:28:54	25
@@ -52,11 +52,45 @@
     *length = len;
 
   psiconv_progress(lev+1,off+len-1,"End of mbm jumptable section "
-                   "(total length: %08x", len);
+                   "(total length: %08x)", len);
 
   return res;
 }
 
+static int decode_byte(int lev, psiconv_u32 off,
+                       psiconv_paint_data_section data, int *pixelnr,
+                       psiconv_u8 byte, int bits_per_pixel, int linelen,
+                       int *linepos,int picsize)
+{
+  int mask = (bits_per_pixel << 1) -1;
+  int i;
+  if (*linepos < (data->xsize + (8/bits_per_pixel) - 1) / (8/bits_per_pixel)) 
+    for (i = 0; i < 8/bits_per_pixel; i ++) {
+      if ((i != 0) && ((*pixelnr % (data->xsize)) == 0)) {
+        psiconv_debug(lev+1,off,"Skipping padding: %02x",byte);
+        i = 8;
+      } else if (*pixelnr >= picsize) {
+        psiconv_warn(lev+1,off,"Corrupted picture data!");
+        psiconv_debug(lev+1,off,"Trying to write a pixel too far");
+        return -1;
+      } else {
+        data->red[*pixelnr] = data->green[*pixelnr] = data->blue[*pixelnr] =
+          ((float) (byte & mask)) / ((1 << bits_per_pixel) -1);
+        psiconv_debug(lev+1,off,"Pixel %04x: (%04x,%04x) value %02x, color %f",
+                      *pixelnr,*pixelnr % data->xsize,*pixelnr / data->xsize, byte&mask, data->red[*pixelnr]);
+        byte = byte >> bits_per_pixel;
+        (*pixelnr) ++;
+      }
+    }
+  else 
+    psiconv_debug(lev+1,off,"Skipping padding byte");
+  (*linepos) ++;
+  if (*linepos == linelen)
+    *linepos = 0;
+  return 0;
+}
+                   
+
 int psiconv_parse_paint_data_section(const psiconv_buffer buf,int lev,
                                      psiconv_u32 off, int *length,
                                      psiconv_paint_data_section *result)
@@ -64,9 +98,11 @@
   int res = 0;
   int len = 0;
   int read_err = 0;
-  psiconv_u32 size,offset,picsize,temp,datasize,pixelnr,datanr;
+  psiconv_u32 size,offset,picsize,temp,datasize,pixelnr,datanr,linelen;
   psiconv_u8 marker;
-  int i;
+  int i,leng;
+  psiconv_u32 bits_per_pixel,compression;
+  int linepos = 0;
 
   psiconv_progress(lev+1,off,"Going to read a paint data section");
   (*result) = malloc(sizeof(**result));
@@ -78,7 +114,7 @@
 
   psiconv_progress(lev+2,off+len,"Going to read pixel data offset");
   offset = psiconv_read_u32(buf,lev+2,off+len);
-  if (size != 0x28) {
+  if (offset != 0x28) {
     psiconv_warn(lev+2,off+len,
                  "Paint data section data offset has unexpected value");
     psiconv_debug(lev+2,off+len,
@@ -99,18 +135,49 @@
 
   picsize = (*result)->ysize * (*result)->xsize;
 
-  psiconv_progress(lev+2,off+len,"Going to read 6 unused longs");
-  for (i = 0 ; i < 6; i++) {
+  psiconv_progress(lev+2,off+len,"Going to read the real picture x size");
+  (*result)->pic_xsize = psiconv_read_length(buf,lev+2,off+len,&leng);
+  psiconv_debug(lev+2,off+len,"Picture x size: %f",(*result)->pic_xsize);
+  len += leng;
+
+  psiconv_progress(lev+2,off+len,"Going to read the real picture y size");
+  (*result)->pic_ysize = psiconv_read_length(buf,lev+2,off+len,&leng);
+  psiconv_debug(lev+2,off+len,"Picture y size: %f",(*result)->pic_ysize);
+  len += leng;
+
+  psiconv_progress(lev+2,off+len,"Going to read the number of bits per pixel");
+  bits_per_pixel=psiconv_read_u32(buf,lev+2,off+len);
+  if (bits_per_pixel > 8) {
+    psiconv_warn(lev+2,off+len,"Picture has too many colors");
+    psiconv_debug(lev+2,off+len,"Read %d colorbits",bits_per_pixel);
+    res = -1;
+    bits_per_pixel = 2;
+  }
+  psiconv_debug(lev+2,off+len,"Bits per pixel: %d",bits_per_pixel);
+  len += 4;
+
+  for (i = 0 ; i < 2; i++) {
     temp = psiconv_read_u32(buf,lev+2,off+len);
-    if (temp != 0x00) {
+    if (temp != 00) {
       psiconv_warn(lev+2,off+len,
                    "Paint data section prologue has unknown values");
       psiconv_debug(lev+2,off+len,
-                    "offset %02x: read %08x, expected %08x",i,temp,0x00);
+                    "offset %02x: read %08x, expected %08x",i,temp, 0x00);
       res = -1;
     }
     len += 4;
   }
+  
+  psiconv_progress(lev+2,off+len,
+                   "Going to read whether RLE compression is used");
+  compression=psiconv_read_u32(buf,lev+2,off+len);
+  if (compression > 1) {
+    psiconv_warn(lev+2,off+len,"Paint data section has unknown "
+                               "compression type, assuming RLE");
+    psiconv_debug(lev+2,off+len,"Read compression type %d",compression);
+    compression = 1;
+  }
+  psiconv_debug(lev+2,off+len,"Compression: %s",compression?"RLE":"none");
 
   (*result)->red = malloc(sizeof(float) * picsize);
   (*result)->green = malloc(sizeof(float) * picsize);
@@ -121,81 +188,92 @@
   psiconv_progress(lev+2,off+len,"Going to read the pixel data");
   pixelnr = 0;
   datanr = 0;
-  while ((datanr < datasize) && (pixelnr < picsize)) {
-    marker = psiconv_read_u8(buf,lev+3,off+len+datanr);
-    psiconv_debug(lev+3,off+len+datanr,
-                  "Pixelnr %08x, Datanr %08x: Read marker %02x",
-                  pixelnr,datanr,marker);
-    datanr ++;
-    if (marker >= 0x80) {
-      /* 0x100 - marker bytes of data follow */
-      if ((0x100 - marker + datanr > datasize) || 
-          ((0x100 - marker) * 4 + pixelnr > picsize)) {
-        psiconv_warn(lev+3,off+len+datanr,"Corrupted picture data");
-        psiconv_debug(lev+3,off+len+datanr,
-                      "Picsize: %08x, Datasize: %08x, Pixelnr: %08x,"
-                      "Datanr: %08x, marker: %02x",picsize,datasize,pixelnr,
-                      datanr,marker);
-        res = -1;
+  if (!compression) {
+    linelen = datasize / (*result)->ysize;
+    psiconv_debug(lev+3,off+len,"Line length: %04x bytes",linelen);
+    while((datanr < datasize)) {
+      temp = psiconv_read_u8(buf,lev+2,off+len+datanr);
+      if (decode_byte(lev+3,off+len+datanr,*result,&pixelnr,temp,bits_per_pixel,
+                  linelen,&linepos,picsize)) {
         read_err = 1;
-      } else {
-        for (i = 0; i < 0x100-marker; i++) {
-          temp = psiconv_read_u8(buf,lev+3,off+len+datanr+i);
-          (*result)->red[pixelnr + i*4] = 
-                     (*result)->green[pixelnr + i*4] = 
-                     (*result)->blue[pixelnr + i*4] =
-                     (temp & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 1] = 
-                     (*result)->green[pixelnr + i*4 +1] = 
-                     (*result)->blue[pixelnr + i*4 + 1] =
-                     ((temp >> 2) & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 2] = 
-                     (*result)->green[pixelnr + i*4 +2] = 
-                     (*result)->blue[pixelnr + i*4 + 2] =
-                     ((temp >> 4) & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 3] = 
-                     (*result)->green[pixelnr + i*4 +3] = 
-                     (*result)->blue[pixelnr + i*4 + 3] =
-                     ((temp >> 6) & 0x03) * (1.0/3.0);
-        }
-      }
-      pixelnr += (0x100 - marker) * 4;
-      datanr += (0x100 - marker);
-   } else { /* marker < 0x080 */
-      if ((datanr + 1 > datasize) || 
-          (marker * 4 + pixelnr > picsize)) {
-        psiconv_warn(lev+3,off+len+datanr,"Corrupted picture data");
-        psiconv_debug(lev+3,off+len+datanr,
-                      "Picsize: %08x, Datasize: %08x, Pixelnr: %08x,"
-                      "Datanr: %08x, marker: %02x",picsize,datasize,pixelnr,
-                      datanr,marker);
         res = -1;
-        read_err = 1;
+        break;
+      }
+      datanr++;
+    }
+  } else {
+    psiconv_progress(lev+2,off+len,"First pass: determining line length");
+    datanr = 0;
+    i = 0;
+    while (datanr < datasize) {
+      marker = psiconv_read_u8(buf,lev+3,off+len+datanr);
+      if (marker >= 0x80) {
+        datanr += 0x100 - marker + 1;
+        i += 0x100 - marker;
       } else {
-        temp = psiconv_read_u8(buf,lev+3,off+len+datanr);
-        for (i = 0; i < marker; i++) {
-          (*result)->red[pixelnr + i*4] = 
-                     (*result)->green[pixelnr + i*4] = 
-                     (*result)->blue[pixelnr + i*4] =
-                     (temp & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 1] = 
-                     (*result)->green[pixelnr + i*4 +1] = 
-                     (*result)->blue[pixelnr + i*4 + 1] =
-                     ((temp >> 2) & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 2] = 
-                     (*result)->green[pixelnr + i*4 +2] = 
-                     (*result)->blue[pixelnr + i*4 + 2] =
-                     ((temp >> 4) & 0x03) * (1.0/3.0);
-          (*result)->red[pixelnr + i*4 + 3] = 
-                     (*result)->green[pixelnr + i*4 +3] = 
-                     (*result)->blue[pixelnr + i*4 + 3] =
-                     ((temp >> 6) & 0x03) * (1.0/3.0);
-        }
+        datanr += 2;
+        i += marker + 1;
+      }
+    }
+    linelen = i / (*result)->ysize;
+    datanr=0;
+    psiconv_debug(lev+2,off+len,"Linelen: %04x bytes",linelen);
+    while((datanr < datasize)) {
+      marker = psiconv_read_u8(buf,lev+3,off+len+datanr);
+      psiconv_debug(lev+3,off+len+datanr,
+                    "Pixelnr %08x, Datanr %08x: Read marker %02x",
+                    pixelnr,datanr,marker);
+      datanr ++;
+      if (marker >= 0x80) {
+        /* 0x100 - marker bytes of data follow */
+        for (i = 0; i < 0x100-marker; i++,datanr++) {
+          if (datanr >= datasize) {
+            psiconv_warn(lev+3,off+len+datanr,"Corrupted picture data");
+            psiconv_debug(lev+3,off+len+datanr,
+                          "Picsize: %08x, Datasize: %08x, Pixelnr: %08x,"
+                          "Datanr: %08x, marker: %02x",picsize,datasize,pixelnr,
+                          datanr,marker);
+            read_err = 1;
+            res = -1;
+            break;
+          }  
+          temp = psiconv_read_u8(buf,lev+2,off+len+datanr);
+          if (decode_byte(lev+2,off+len+datanr,*result,&pixelnr,temp,
+                      bits_per_pixel,linelen,&linepos,picsize)) {
+            res = -1;
+            read_err = 1;
+            break;
+          }
+        } 
+      } else {
+        if (datanr >= datasize) {
+          psiconv_warn(lev+3,off+len+datanr,"Corrupted picture data");
+          psiconv_debug(lev+3,off+len+datanr,
+                        "Picsize: %08x, Datasize: %08x, Pixelnr: %08x,"
+                        "Datanr: %08x, marker: %02x",picsize,datasize,pixelnr,
+                        datanr,marker);
+          read_err = 1;
+          res = -1;
+        } else {
+          temp = psiconv_read_u8(buf,lev+3,off+len+datanr);
+          for (i = 0; i <= marker; i++) {
+            if (decode_byte(lev+2,off+len+datanr,*result,&pixelnr,temp,
+                        bits_per_pixel,linelen,&linepos,picsize)) {
+              read_err = 1;
+              res = -1;
+              break;
+            }
+          }  
+          datanr ++;
+        }    
       }
-      pixelnr += marker * 4;
-      datanr += 1;
     }
   }
+
+  if (linepos >= ((*result)->xsize + (8/bits_per_pixel) - 1) / 
+                 (8/bits_per_pixel)) 
+    datanr += (linelen - linepos);
+    
   if (!read_err && ((datanr != datasize) || (pixelnr != picsize))) {
     psiconv_warn(lev+2,off+len,"Corrupted picture data!");
     psiconv_debug(lev+3,off+len+datanr,
@@ -210,9 +288,163 @@
     *length = len;
 
   psiconv_progress(lev+1,off+len-1,"End of paint data section "
-                   "(total length: %08x", len);
+                   "(total length: %08x)", len);
 
   return res;
 }
 
+int psiconv_parse_sketch_section(const psiconv_buffer buf, int lev,
+                                 psiconv_u32 off, int *length, int is_object,
+                                 psiconv_sketch_section *result)
+{
+  int res=0;
+  int len=0;
+  psiconv_u32 temp;
+  int leng;
+  int i;
+
+  psiconv_progress(lev+1,off,"Going to read the sketch section");
+  *result = malloc(sizeof(**result));
+
+  if (!is_object) {
+    psiconv_progress(lev+2,off+len,"Going to read the form hor. size");
+    (*result)->form_xsize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Form hor. size: %04x",
+                  (*result)->form_xsize);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the form ver. size");
+    (*result)->form_ysize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Form ver. size: %04x",
+                  (*result)->form_ysize);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the picture hor. offset");
+    (*result)->picture_x_offset = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Picture hor. offset: %04x",
+                  (*result)->picture_x_offset);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the picture ver. offset");
+    (*result)->picture_y_offset = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Picture ver. offset: %04x",
+                  (*result)->picture_y_offset);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to skip 5 words of zeros");
+    for (i = 0; i < 5; i++) {
+      temp = psiconv_read_u16(buf,lev+2,off+len);
+      if (temp != 0) {
+        psiconv_warn(lev+2,off+len,
+                     "Unexpected value in sketch section preamble");
+        psiconv_debug(lev+2,off+len,"Word %d: Read %04x, expected %04x",i,
+                      temp,0);
+        res = -1;
+      }
+      off += 0x02;
+    }
+  } else {
+    psiconv_progress(lev+2,off+len,"Going to read the displayed hor. size");
+    (*result)->picture_xsize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Displayed hor. size: %04x",
+                  (*result)->picture_xsize);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the displayed ver. size");
+    (*result)->picture_ysize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Displayed ver. size: %04x",
+                  (*result)->picture_ysize);
+    len += 0x02;
+
+    psiconv_progress(lev+2,off+len,"Going to skip 2 words of zeros");
+    for (i = 0; i < 2; i++) {
+      temp = psiconv_read_u16(buf,lev+2,off+len);
+      if (temp != 0) {
+        psiconv_warn(lev+2,off+len,
+                     "Unexpected value in sketch section preamble");
+        psiconv_debug(lev+2,off+len,"Word %d: Read %04x, expected %04x",i,
+                      temp,0);
+        res = -1;
+      }
+      off += 0x02;
+    }
+    psiconv_progress(lev+2,off+len,"Going to read the picture hor. offset");
+    (*result)->picture_x_offset = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Picture hor. offset: %04x",
+                  (*result)->picture_x_offset);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the picture ver. offset");
+    (*result)->picture_y_offset = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Picture ver. offset: %04x",
+                  (*result)->picture_y_offset);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the form hor. size");
+    (*result)->form_xsize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Form hor. size: %04x",
+                  (*result)->form_xsize);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to read the form ver. size");
+    (*result)->form_ysize = psiconv_read_u16(buf,lev+2,off + len);
+    psiconv_debug(lev+2,off+len,"Form ver. size: %04x",
+                  (*result)->form_ysize);
+    len += 0x02;
+    psiconv_progress(lev+2,off+len,"Going to skip 1 zero word");
+    temp = psiconv_read_u16(buf,lev+2,off+len);
+    if (temp != 0) {
+      psiconv_warn(lev+2,off+len,
+                   "Unexpected value in sketch section preamble");
+      psiconv_debug(lev+2,off+len,"Read %04x, expected %04x",i, temp,0);
+      res = -1;
+    }
+    off += 0x02;
+  }
+
+  psiconv_progress(lev+2,off+len,"Going to read the picture data");
+  res |= psiconv_parse_paint_data_section(buf,lev+2,off+len,&leng,
+                                          &((*result)->picture));
+  off += leng;
+  if (!is_object) {
+    (*result)->picture_xsize = (*result)->picture->xsize;
+    (*result)->picture_ysize = (*result)->picture->ysize;
+  }
+  
+  psiconv_progress(lev+2,off+len,"Going to read the hor. magnification");
+  (*result)->magnification_x = psiconv_read_u16(buf,lev+2,off + len) / 1000.0;
+  psiconv_debug(lev+2,off+len,"Form hor. magnification: %f",
+                (*result)->magnification_x);
+  len += 0x02;
+  psiconv_progress(lev+2,off+len,"Going to read the ver. magnification");
+  (*result)->magnification_y = psiconv_read_u16(buf,lev+2,off + len) / 1000.0;
+  psiconv_debug(lev+2,off+len,"Form ver. magnification: %f",
+                (*result)->magnification_y);
+  len += 0x02;
+
+  psiconv_progress(lev+2,off+len,"Going to read the left cut");
+  temp = psiconv_read_u32(buf,lev+2,off + len);
+  (*result)->cut_left = (temp * 6.0) / (*result)->picture_xsize;
+  psiconv_debug(lev+2,off+len,"Left cut: raw %08x, real: %f",
+                temp,(*result)->cut_left);
+  len += 0x04;
+  psiconv_progress(lev+2,off+len,"Going to read the right cut");
+  temp = psiconv_read_u32(buf,lev+2,off + len);
+  (*result)->cut_right = (temp * 6.0) / (*result)->picture_xsize;
+  psiconv_debug(lev+2,off+len,"Right cut: raw %08x, real: %f",
+                temp,(*result)->cut_right);
+  len += 0x04;
+  psiconv_progress(lev+2,off+len,"Going to read the top cut");
+  temp = psiconv_read_u32(buf,lev+2,off + len);
+  (*result)->cut_top = (temp * 6.0) / (*result)->picture_ysize;
+  psiconv_debug(lev+2,off+len,"Top cut: raw %08x, real: %f",
+                temp,(*result)->cut_top);
+  len += 0x04;
+  psiconv_progress(lev+2,off+len,"Going to read the bottom cut");
+  temp = psiconv_read_u32(buf,lev+2,off + len);
+  (*result)->cut_bottom = (temp * 6.0) / (*result)->picture_ysize;
+  psiconv_debug(lev+2,off+len,"Bottom cut: raw %08x, real: %f",
+                temp,(*result)->cut_bottom);
+  len += 0x04;
+  
+  if (length)
+    *length = len;
+
+  psiconv_progress(lev,off+len-1,
+                   "End of sketch section (total length: %08x)", len);
+
+  return res;
+}