Misc fixes.
authorArnar Mar Hrafnkelsson <addi@cpan.org>
Thu, 14 Jun 2001 01:22:11 +0000 (01:22 +0000)
committerArnar Mar Hrafnkelsson <addi@cpan.org>
Thu, 14 Jun 2001 01:22:11 +0000 (01:22 +0000)
Imager.pm
STATUS
gif.c
lib/Imager/Font.pm

index f92d79a..55710bc 100644 (file)
--- a/Imager.pm
+++ b/Imager.pm
@@ -152,7 +152,7 @@ BEGIN {
   require Exporter;
   require DynaLoader;
 
-  $VERSION = '0.38';
+  $VERSION = '0.39pre1';
   @ISA = qw(Exporter DynaLoader);
   bootstrap Imager $VERSION;
 }
diff --git a/STATUS b/STATUS
index bc53188..0b87e04 100644 (file)
--- a/STATUS
+++ b/STATUS
@@ -30,7 +30,7 @@ quant.c               # comments, lots of changing code
 Iolayer todo list:
 Format Read/Write
 gif:    O    O
-jpeg:   X    O
+jpeg:   X    X
 png:    X    X
 raw:    X    X
 tiff:   X    X
diff --git a/gif.c b/gif.c
index 22ca044..8a14226 100644 (file)
--- a/gif.c
+++ b/gif.c
@@ -1,6 +1,8 @@
 #include "image.h"
 #include <gif_lib.h>
 
+/* XXX: Reading still needs to support reading all those gif properties */
+
 /*
 =head1 NAME
 
@@ -96,14 +98,7 @@ my_gif_inputfunc(GifFileType* gft, GifByteType *buf,int length) {
 
 #endif
 
-/*
-  This file needs a complete rewrite 
 
-  This file needs a complete rewrite 
-
-  Maybe not anymore, though reading still needs to support reading
-  all those gif properties.
-*/
 
 /* Make some variables global, so we could access them faster: */
 
@@ -111,7 +106,6 @@ static int
   InterlacedOffset[] = { 0, 4, 2, 1 }, /* The way Interlaced image should. */
   InterlacedJumps[] = { 8, 8, 4, 2 };    /* be read - offsets and jumps... */
 
-/*  static ColorMapObject *ColorMap; */
 
 
 static
@@ -181,8 +175,7 @@ i_readgif_low(GifFileType *GifFile, int **colour_table, int *colours) {
 
   Size = GifFile->SWidth * sizeof(GifPixelType); 
   
-  if ((GifRow = (GifRowType) mymalloc(Size)) == NULL)
-    m_fatal(0,"Failed to allocate memory required, aborted."); /* First row. */
+  GifRow = (GifRowType) mymalloc(Size);
 
   for (i = 0; i < GifFile->SWidth; i++) GifRow[i] = GifFile->SBackGroundColor;
   
@@ -394,8 +387,7 @@ Returns non-zero on success.
 */
 
 undef_int
-i_writegif(i_img *im, int fd, int max_colors, int pixdev, int fixedlen, i_color fixed[])
-{
+i_writegif(i_img *im, int fd, int max_colors, int pixdev, int fixedlen, i_color fixed[]) {
   i_color colors[256];
   i_quantize quant;
   i_gif_opts opts;
index fab3e47..30bd889 100644 (file)
@@ -165,7 +165,7 @@ Imager::Font - Font handling for Imager.
             x     => 15,
             y     => 40,
             size  => 40,
-            color => $red
+            color => $red,
             aa    => 1);
 
   # Documentation in Imager.pm
@@ -264,7 +264,7 @@ This is a method of the Imager class but because it's described in
 here since it belongs to the font routines.  Example:
 
   $img=Imager->new();
-  $img=read(file=>"test.jpg");
+  $img->read(file=>"test.jpg");
   $img->string(font=>$t1font,
                text=>"Model-XYZ",
                x=>0,