[BACK]Return to image.C CVS log [TXT] [DIR] Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/image.C between versions 1.36 and 1.70

version 1.36, 2001/09/01 14:39:25 version 1.70, 2002/04/15 10:35:21
Line 1 Line 1
 /** @file  /** @file
         Parser: @b image parser class.          Parser: @b image parser class.
   
         Copyright(c) 2001 ArtLebedev Group(http://www.artlebedev.com)          Copyright(c) 2001, 2002 ArtLebedev Group (http://www.artlebedev.com)
           Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
         Author: Alexander Petrosyan <paf@design.ru>(http://design.ru/paf)  
   
         $Id$          $Id$
 */  */
 static const char *RCSId="$Id$";   
   
 /*  /*
         jpegsize: gets the width and height (in pixels) of a jpeg file          jpegsize: gets the width and height (in pixels) of a jpeg file
Line 47  public: // Methoded Line 45  public: // Methoded
   
 // helpers  // helpers
   
 /// simple buffered reader[from memory/file], used in _measure  #ifndef DOXYGEN
 class Measure_reader {  class Measure_reader {
 public:  public:
         enum { READ_CHUNK_SIZE=0x400*10 };// 10K          enum { READ_CHUNK_SIZE=0x400*20 };// 20K
         typedef size_t(*Func)(void *& buf, size_t limit, void *info);          typedef size_t(*Func)(void *& buf, size_t limit, void *info);
   
         Measure_reader(Func afunc, void *ainfo) :           Measure_reader(Func afunc, void *ainfo) : 
Line 83  private: Line 81  private:
         size_t offset;          size_t offset;
         size_t size;          size_t size;
 };  };
   #endif
   
 /// GIF file header  /// GIF file header
 struct GIF_Header {  struct GIF_Header {
Line 129  void measure_gif(Pool& pool, const Strin Line 128  void measure_gif(Pool& pool, const Strin
         void *buf;          void *buf;
         const int head_size=sizeof(GIF_Header);          const int head_size=sizeof(GIF_Header);
         if(reader.read(buf, head_size)<head_size)          if(reader.read(buf, head_size)<head_size)
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         origin_string,                           origin_string, 
                         "not GIF file - too small");                          "not GIF file - too small");
         GIF_Header *head=(GIF_Header *)buf;          GIF_Header *head=(GIF_Header *)buf;
   
         if(strncmp(head->type, "GIF", 3)!=0)          if(strncmp(head->type, "GIF", 3)!=0)
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         origin_string,                           origin_string, 
                         "not GIF file - signature not found");                            "not GIF file - wrong signature");      
   
         width=little_endian_to_int(head->width);          width=little_endian_to_int(head->width);
         height=little_endian_to_int(head->height);          height=little_endian_to_int(head->height);
 }  }
   
   /// @test remove ugly mech in reader - 20K limit
 void measure_jpeg(Pool& pool, const String *origin_string,   void measure_jpeg(Pool& pool, const String *origin_string, 
                          Measure_reader& reader, int& width, int& height) {                           Measure_reader& reader, int& width, int& height) {
         // JFIF format markers          // JFIF format markers
Line 153  void measure_jpeg(Pool& pool, const Stri Line 153  void measure_jpeg(Pool& pool, const Stri
         void *buf;          void *buf;
         const size_t prefix_size=2;          const size_t prefix_size=2;
         if(reader.read(buf, prefix_size)<prefix_size)          if(reader.read(buf, prefix_size)<prefix_size)
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         origin_string,                           origin_string, 
                         "not JPEG file - too small");                          "not JPEG file - too small");
         unsigned char *signature=(unsigned char *)buf;          unsigned char *signature=(unsigned char *)buf;
                   
         if(!(signature[0]==0xFF && signature[1]==0xD8))           if(!(signature[0]==0xFF && signature[1]==0xD8)) 
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         origin_string,                           origin_string, 
                         "not JPEG file - signature not found");                          "not JPEG file - wrong signature");
   
         bool found=false;          bool found=false;
         while(true) {          while(true) {
Line 194  void measure_jpeg(Pool& pool, const Stri Line 194  void measure_jpeg(Pool& pool, const Stri
         }          }
   
         if(!found)          if(!found)
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         origin_string,                           origin_string, 
                         "broken JPEG file - size frame not found");                          "broken JPEG file - size frame not found");
 }  }
Line 203  void measure_jpeg(Pool& pool, const Stri Line 203  void measure_jpeg(Pool& pool, const Stri
   
 void measure(Pool& pool, const String& file_name,   void measure(Pool& pool, const String& file_name, 
                          Measure_reader& reader, int& width, int& height) {                           Measure_reader& reader, int& width, int& height) {
         if(const char *cext=strrchr(file_name.cstr(), '.')) {          if(const char *cext=strrchr(file_name.cstr(String::UL_FILE_SPEC), '.')) {
                 cext++;                  cext++;
                 if(strcasecmp(cext, "GIF")==0)                  if(strcasecmp(cext, "GIF")==0)
                         measure_gif(pool, &file_name, reader, width, height);                          measure_gif(pool, &file_name, reader, width, height);
                 else if(strcasecmp(cext, "JPG")==0 || strcasecmp(cext, "JPEG")==0)                   else if(strcasecmp(cext, "JPG")==0 || strcasecmp(cext, "JPEG")==0) 
                         measure_jpeg(pool, &file_name, reader, width, height);                          measure_jpeg(pool, &file_name, reader, width, height);
                 else                  else
                         PTHROW(0, 0,                           throw Exception("image.format", 
                                 &file_name,                                   &file_name, 
                                 "unhandled image file name extension '%s'", cext);                                  "unhandled image file name extension '%s'", cext);
         } else          } else
                 PTHROW(0, 0,                   throw Exception("image.format", 
                         &file_name,                           &file_name, 
                         "can not determine image type - no file name extension");                          "can not determine image type - no file name extension");
 }  }
   
 /// used by image: _measure / read_mem  #ifndef DOXYGEN
 struct Read_mem_info {  struct Read_mem_info {
         unsigned char *ptr;          unsigned char *ptr;
         unsigned char *eof;          unsigned char *eof;
 };  };
   #endif
 static size_t read_mem(void*& buf, size_t limit, void *info) {  static size_t read_mem(void*& buf, size_t limit, void *info) {
         Read_mem_info& rmi=*static_cast<Read_mem_info *>(info);          Read_mem_info& rmi=*static_cast<Read_mem_info *>(info);
         buf=rmi.ptr;          buf=rmi.ptr;
Line 232  static size_t read_mem(void*& buf, size_ Line 233  static size_t read_mem(void*& buf, size_
         return read_size;          return read_size;
 }  }
   
 /// used by image: _measure / read_disk  #ifndef DOXYGEN
 struct Read_disk_info {  struct Read_disk_info {
         const String *file_spec;          const String *file_spec;
         size_t offset;          size_t offset;
 };  };
   #endif
 static size_t read_disk(void*& buf, size_t limit, void *info) {  static size_t read_disk(void*& buf, size_t limit, void *info) {
         Read_disk_info& rdi=*static_cast<Read_disk_info *>(info);          Read_disk_info& rdi=*static_cast<Read_disk_info *>(info);
         Pool& pool=rdi.file_spec->pool();          Pool& pool=rdi.file_spec->pool();
Line 283  static void _measure(Request& r, const S Line 285  static void _measure(Request& r, const S
         static_cast<VImage *>(r.self)->set(file_name, width, height);          static_cast<VImage *>(r.self)->set(file_name, width, height);
 }  }
   
 /// used by image: _html / append_attrib_pair  #ifndef DOXYGEN
 struct Attrib_info {  struct Attrib_info {
         String *tag; ///< html tag being constructed          String *tag; ///< html tag being constructed
         Hash *skip; ///< tag attributes not to append to tag string [to skip]          Hash *skip; ///< tag attributes not to append to tag string [to skip]
 };  };
   #endif
 static void append_attrib_pair(const Hash::Key& key, Hash::Val *val, void *info) {  static void append_attrib_pair(const Hash::Key& key, Hash::Val *val, void *info) {
         Attrib_info& ai=*static_cast<Attrib_info *>(info);          Attrib_info& ai=*static_cast<Attrib_info *>(info);
   
         if(ai.skip && ai.skip->get(key))          // skip user-specified and internal(starting with "line-") attributes 
           if(ai.skip && ai.skip->get(key) || key.pos("line-")==0)
                 return;                  return;
   
         Value& value=*static_cast<Value *>(val);          Value& value=*static_cast<Value *>(val);
Line 309  static void _html(Request& r, const Stri Line 313  static void _html(Request& r, const Stri
         const Hash& fields=static_cast<VImage *>(r.self)->fields();          const Hash& fields=static_cast<VImage *>(r.self)->fields();
         Hash *attribs=0;          Hash *attribs=0;
   
         if(params->size())          if(params->size()) {
                 if(attribs=params->get(0).get_hash()) {                  // for backward compatibility: someday was ^html{}
                         Attrib_info attrib_info={&tag, 0};                  Value &vattribs=r.process_to_value(params->get(0),
                         attribs->for_each(append_attrib_pair, &attrib_info);                          /*0/*no name* /,*/
                 } else                          false/*don't intercept string*/);
                         PTHROW(0, 0,                   if(vattribs.is_defined()) // allow 'void'
                                 &method_name,                           if(attribs=vattribs.get_hash(&method_name)) {
                                 "attributes must be must be hash");                                  Attrib_info attrib_info={&tag, 0};
                                   attribs->for_each(append_attrib_pair, &attrib_info);
                           } else
                                   throw Exception("parser.runtime", 
                                           &method_name, 
                                           "attributes must be hash");
           }
   
         Attrib_info attrib_info={&tag, attribs};          Attrib_info attrib_info={&tag, attribs};
         fields.for_each(append_attrib_pair, &attrib_info);          fields.for_each(append_attrib_pair, &attrib_info);
Line 324  static void _html(Request& r, const Stri Line 334  static void _html(Request& r, const Stri
         r.write_pass_lang(tag);          r.write_pass_lang(tag);
 }  }
   
   /// @test wrap FILE to auto-object
 static gdImage *load(Request& r, const String& method_name,   static gdImage *load(Request& r, const String& method_name, 
                                          const String& file_name){                                           const String& file_name){
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         const char *file_name_cstr=r.absolute(file_name).cstr(String::UL_FILE_NAME);          const char *file_name_cstr=r.absolute(file_name).cstr(String::UL_FILE_SPEC);
         if(FILE *f=fopen(file_name_cstr, "rb")) {          if(FILE *f=fopen(file_name_cstr, "rb")) {
                 gdImage& image=*new(pool) gdImage(pool);                  gdImage& image=*new(pool) gdImage(pool);
                 bool ok=image.CreateFromGif(f);                  bool ok=image.CreateFromGif(f);
                 fclose(f);                  fclose(f);
                 if(!ok)                  if(!ok)
                         PTHROW(0, 0,                           throw Exception("image.format", 
                                 &file_name,                                  &file_name,
                                 "is not in GIF format");                                  "is not in GIF format");
                 return &image;                  return &image;
         } else {          } else {
                 PTHROW(0, 0,                   throw Exception("file.missing", 
                         &method_name,                           &method_name, 
                         "can not open '%s'", file_name_cstr);                          "can not open '%s'", file_name_cstr);
                 return 0;                  return 0;
Line 350  static gdImage *load(Request& r, const S Line 361  static gdImage *load(Request& r, const S
 static void _load(Request& r, const String& method_name, MethodParams *params) {  static void _load(Request& r, const String& method_name, MethodParams *params) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         Value& vfile_name=params->as_no_junction(0, "file name must not be code");          const String& file_name=params->as_string(0, "file name must not be code");
         const String& file_name=vfile_name.as_string();  
   
         gdImage& image=*load(r, method_name, file_name);          gdImage& image=*load(r, method_name, file_name);
         int width=image.SX();          int width=image.SX();
Line 362  static void _load(Request& r, const Stri Line 372  static void _load(Request& r, const Stri
 static void _create(Request& r, const String& method_name, MethodParams *params) {  static void _create(Request& r, const String& method_name, MethodParams *params) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         int width=params->as_int(0, r);          int width=params->as_int(0, "width must be int", r);
         int height=params->as_int(1, r);          int height=params->as_int(1, "height must be int", r);
         int bgcolor_value=0xffFFff;          int bgcolor_value=0xffFFff;
         if(params->size()>2)          if(params->size()>2)
                 bgcolor_value=params->as_int(2, r);                  bgcolor_value=params->as_int(2, "color must be int", r);
         gdImage& image=*new(pool) gdImage(pool);          gdImage& image=*new(pool) gdImage(pool);
         image.Create(width, height);          image.Create(width, height);
         image.FilledRectangle(0, 0, width-1, height-1, image.Color(bgcolor_value));          image.FilledRectangle(0, 0, width-1, height-1, image.Color(bgcolor_value));
Line 378  static void _gif(Request& r, const Strin Line 388  static void _gif(Request& r, const Strin
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
Line 387  static void _gif(Request& r, const Strin Line 397  static void _gif(Request& r, const Strin
         String out(pool); image->Gif(out);          String out(pool); image->Gif(out);
                   
         VFile& vfile=*new(pool) VFile(pool);          VFile& vfile=*new(pool) VFile(pool);
         String& image_gif=*new(pool) String(pool, "image/gif");          Value *content_type=new(pool) VString(*new(pool) String(pool, "image/gif"));
         vfile.set(false/*not tainted*/,           vfile.set(false/*not tainted*/, 
                 out.cstr(String::UL_AS_IS), out.size(), 0, &image_gif);                  out.cstr(), out.size(), 0, content_type);
   
         r.write_no_lang(vfile);          r.write_no_lang(vfile);
 }  }
Line 399  static void _line(Request& r, const Stri Line 409  static void _line(Request& r, const Stri
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         image->Line(          image->Line(
                 params->as_int(0, r),                   params->as_int(0, "x0 must be int", r), 
                 params->as_int(1, r),                   params->as_int(1, "y0 must be int", r), 
                 params->as_int(2, r),                   params->as_int(2, "x1 must be int", r), 
                 params->as_int(3, r),                   params->as_int(3, "y1 must be int", r), 
                 image->Color(params->as_int(4, r)));                  image->Color(params->as_int(4, "color must be int", r)));
 }  }
   
 static void _fill(Request& r, const String& method_name, MethodParams *params) {  static void _fill(Request& r, const String& method_name, MethodParams *params) {
Line 416  static void _fill(Request& r, const Stri Line 426  static void _fill(Request& r, const Stri
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         image->Fill(          image->Fill(
                 params->as_int(0, r),                   params->as_int(0, "x must be int", r), 
                 params->as_int(1, r),                   params->as_int(1, "y must be int", r), 
                 image->Color(params->as_int(2, r)));                  image->Color(params->as_int(2, "color must be int", r)));
 }  }
   
 static void _rectangle(Request& r, const String& method_name, MethodParams *params) {  static void _rectangle(Request& r, const String& method_name, MethodParams *params) {
Line 431  static void _rectangle(Request& r, const Line 441  static void _rectangle(Request& r, const
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         image->Rectangle(          image->Rectangle(
                 params->as_int(0, r),                   params->as_int(0, "x0 must be int", r), 
                 params->as_int(1, r),                   params->as_int(1, "y0 must be int", r), 
                 params->as_int(2, r),                   params->as_int(2, "x1 must be int", r), 
                 params->as_int(3, r),                   params->as_int(3, "y1 must be int", r), 
                 image->Color(params->as_int(4, r)));                  image->Color(params->as_int(4, "color must be int", r)));
 }  }
   
 static void _bar(Request& r, const String& method_name, MethodParams *params) {  static void _bar(Request& r, const String& method_name, MethodParams *params) {
Line 448  static void _bar(Request& r, const Strin Line 458  static void _bar(Request& r, const Strin
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         image->FilledRectangle(          image->FilledRectangle(
                 params->as_int(0, r),                   params->as_int(0, "x0 must be int", r), 
                 params->as_int(1, r),                   params->as_int(1, "y0 must be int", r), 
                 params->as_int(2, r),                   params->as_int(2, "x1 must be int", r), 
                 params->as_int(3, r),                   params->as_int(3, "y1 must be int", r), 
                 image->Color(params->as_int(4, r)));                  image->Color(params->as_int(4, "color must be int", r)));
   }
   
   #ifndef DOXYGEN
   static void add_point(Array::Item *value, void *info) {
           Array& row=*static_cast<Array *>(value);
           gdImage::Point **p=static_cast<gdImage::Point **>(info);
           
           (**p).x=row.get_string(0)->as_int();
           (**p).y=row.get_string(1)->as_int();
           (*p)++;
 }  }
   #endif
 static void _replace(Request& r, const String& method_name, MethodParams *params) {  static void _replace(Request& r, const String& method_name, MethodParams *params) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         if((params->size()-2)%2) // I see your thoughts, but that's more readable          Table *table=params->as_no_junction(2, "coordinates must not be code").get_table();
                 PTHROW(0, 0,           if(!table) 
                   throw Exception(0,
                           &method_name,
                           "coordinates must be table");
   
           gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size());
           gdImage::Point *add_p=all_p;    
           table->for_each(add_point, &add_p);
           image->FilledPolygonReplaceColor(all_p, table->size(), 
                   image->Color(params->as_int(0, "src color must be int", r)),
                   image->Color(params->as_int(1, "dest color must be int", r)));
   }
   
   static void _polyline(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           gdImage *image=static_cast<VImage *>(r.self)->image;
           if(!image)
                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "y coordinate missing");                          "does not contain an image");
   
         int n=(params->size()-2)/2;          Table *table=params->as_no_junction(1, "coordinates must not be code").get_table();
                   if(!table) 
         gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n);                  throw Exception(0,
         for(int i=0; i<n; i++) {                          &method_name,
                 p[i].x=params->as_int(2+i*2+0, r);                          "coordinates must be table");
                 p[i].y=params->as_int(2+i*2+1, r);  
         }          gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size());
         image->FilledPolygonReplaceColor(p, n,           gdImage::Point *add_p=all_p;    
                 image->Color(params->as_int(0, r)), // src color          table->for_each(add_point, &add_p);
                 image->Color(params->as_int(1, r)));// dest color          image->Polygon(all_p, table->size(), 
                   image->Color(params->as_int(0, "color must be int", r)),
                   false/*not closed*/);
 }  }
   
 static void _polygon(Request& r, const String& method_name, MethodParams *params) {  static void _polygon(Request& r, const String& method_name, MethodParams *params) {
Line 491  static void _polygon(Request& r, const S Line 531  static void _polygon(Request& r, const S
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         if((params->size()-1)%2) // [I see..] see now?          Table *table=params->as_no_junction(1, "coordinates must not be code").get_table();
                 PTHROW(0, 0,           if(!table) 
                         &method_name,                   throw Exception(0,
                         "y coordinate missing");                          &method_name,
                           "coordinates must be table");
         int n=(params->size()-1)/2;  
                   gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size());
         gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n);          gdImage::Point *add_p=all_p;    
         for(int i=0; i<n; i++) {          table->for_each(add_point, &add_p);
                 p[i].x=params->as_int(2+i*2+0, r);          image->Polygon(all_p, table->size(), 
                 p[i].y=params->as_int(2+i*2+1, r);                  image->Color(params->as_int(0, "color must be int", r)));
         }  
         image->Polygon(p, n,   
                 image->Color(params->as_int(0, r)));  
 }  }
   
 static void _polybar(Request& r, const String& method_name, MethodParams *params) {  static void _polybar(Request& r, const String& method_name, MethodParams *params) {
Line 516  static void _polybar(Request& r, const S Line 553  static void _polybar(Request& r, const S
   
         gdImage *image=static_cast<VImage *>(r.self)->image;          gdImage *image=static_cast<VImage *>(r.self)->image;
         if(!image)          if(!image)
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
   
         if((params->size()-1)%2) // [I see..] see now?          Table *table=params->as_no_junction(1, "coordinates must not be code").get_table();
                 PTHROW(0, 0,           if(!table) 
                         &method_name,                   throw Exception("parser.runtime",
                         "y coordinate missing");                          &method_name,
                           "coordinates must be table");
         int n=(params->size()-1)/2;  
                   gdImage::Point *all_p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*table->size());
         gdImage::Point *p=(gdImage::Point *)pool.malloc(sizeof(gdImage::Point)*n);          gdImage::Point *add_p=all_p;    
         for(int i=0; i<n; i++) {          table->for_each(add_point, &add_p);
                 p[i].x=params->as_int(2+i*2+0, r);          image->FilledPolygon(all_p, table->size(), 
                 p[i].y=params->as_int(2+i*2+1, r);                  image->Color(params->as_int(0, "color must be int", r)));
         }  
         image->FilledPolygon(p, n,   
                 image->Color(params->as_int(0, r)));  
 }  }
   
 // font  // font
Line 544  static void _polybar(Request& r, const S Line 578  static void _polybar(Request& r, const S
 class Font : public Pooled {  class Font : public Pooled {
 public:  public:
                   
         const static int kerning;          const static int letter_spacing;
         int height;         ///< Font heigth          int height;         ///< Font heigth
         int monospace;      ///< Default char width          int monospace;      ///< Default char width
         int spacebarspace; ///< spacebar width          int spacebarspace; ///< spacebar width
Line 584  public: Line 618  public:
         }          }
                   
         /* ******************************** string ********************************** */          /* ******************************** string ********************************** */
         /*          
         int string_width(const char *cstr){          int string_width(const String& s){
                   const char *cstr=s.cstr();
                 int result=0;                  int result=0;
                 for(; *cstr; cstr++)                  for(; *cstr; cstr++)
                         result+=index_width(index_of(*cstr));                          result+=index_width(index_of(*cstr));
                 return result;                  return result;
         }          }
         */  
                   
         void string_display(gdImage& image, int x, int y, const String& s){          void string_display(gdImage& image, int x, int y, const String& s){
                 const char *cstr=s.cstr(String::UL_AS_IS);                  const char *cstr=s.cstr();
                 if(cstr) for(; *cstr; cstr++) {                  if(cstr) for(; *cstr; cstr++) {
                         int index=index_of(*cstr);                          int index=index_of(*cstr);
                         index_display(image, x, y, index);                          index_display(image, x, y, index);
                         x+=kerning + (monospace ? monospace : index_width(index));                          x+=letter_spacing + (monospace ? monospace : index_width(index));
                 }                  }
         }          }
                   
 };  };
 const int Font::kerning=1;  const int Font::letter_spacing=1;
   
 static void _font(Request& r, const String& method_name, MethodParams *params) {  static void _font(Request& r, const String& method_name, MethodParams *params) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         Value& valphabet=params->as_no_junction(0, "alphabet must not be code");          const String& alphabet=params->as_string(0, "alphabet must not be code");
         Value& file_name=params->as_no_junction(1, "file_name must not be code");          gdImage& image=*load(r, method_name, params->as_string(1, "file_name must not be code"));
         int spacebar_width=params->as_int(2, r);          int spacebar_width=params->as_int(2, "spacebar_width must be int", r);
           int monospace_width;
           if(params->size()>3) {
                   monospace_width=params->as_int(3, "monospace_width must be int", r);
                   if(!monospace_width)
                           monospace_width=image.SX();
           } else
                   monospace_width=0;
   
         int monospace_width=params->size()>3?params->as_int(3, r):0;          if(!alphabet.size())
         gdImage& image=*load(r, method_name, file_name.as_string());                  throw Exception("parser.runtime",
                           &method_name,
                           "alphabet must not be empty");
           
         static_cast<VImage *>(r.self)->font=new(pool) Font(pool,           static_cast<VImage *>(r.self)->font=new(pool) Font(pool, 
                 valphabet.as_string(),                   alphabet, 
                 image,                   image, 
                 image.SY(), monospace_width, spacebar_width);                  image.SY() / alphabet.size(), monospace_width, spacebar_width);
 }  }
   
 static void _text(Request& r, const String& method_name, MethodParams *params) {  static void _text(Request& r, const String& method_name, MethodParams *params) {
         Pool& pool=r.pool();          Pool& pool=r.pool();
   
         int x=params->as_int(0, r);          int x=params->as_int(0, "x must be int", r);
         int y=params->as_int(1, r);          int y=params->as_int(1, "y must be int", r);
         const String& s=params->as_string(2, "text must not be code");          const String& s=params->as_string(2, "text must not be code");
   
         VImage& vimage=*static_cast<VImage *>(r.self);          VImage& vimage=*static_cast<VImage *>(r.self);
Line 632  static void _text(Request& r, const Stri Line 676  static void _text(Request& r, const Stri
                 if(vimage.font)                  if(vimage.font)
                         vimage.font->string_display(*vimage.image, x, y, s);                          vimage.font->string_display(*vimage.image, x, y, s);
                 else                  else
                         PTHROW(0, 0,                          throw Exception("parser.runtime",
                                   &method_name,
                                   "set the font first");
           else
                   throw Exception(0, 
                           &method_name, 
                           "does not contain an image");
   }
   
   static void _length(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           const String& s=params->as_string(0, "text must not be code");
   
           VImage& vimage=*static_cast<VImage *>(r.self);
           if(vimage.image)
                   if(vimage.font) {
                           VInt& result=*new(pool) VInt(pool, vimage.font->string_width(s));
                           result.set_name(method_name);
                           r.write_assign_lang(result);
                   } else
                           throw Exception("parser.runtime",
                                 &method_name,                                  &method_name,
                                 "set the font first");                                  "set the font first");
         else          else
                 PTHROW(0, 0,                   throw Exception(0, 
                         &method_name,                           &method_name, 
                         "does not contain an image");                          "does not contain an image");
 }  }
   
   static void _arc(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           gdImage *image=static_cast<VImage *>(r.self)->image;
           if(!image)
                   throw Exception(0, 
                           &method_name, 
                           "does not contain an image");
   
           image->Arc(
                   params->as_int(0, "center_x must be int", r), 
                   params->as_int(1, "center_y must be int", r), 
                   params->as_int(2, "width must be int", r), 
                   params->as_int(3, "height must be int", r), 
                   params->as_int(4, "start degrees must be int", r), 
                   params->as_int(5, "end degrees must be int", r), 
                   image->Color(params->as_int(6, "cx must be int", r)));
   }
   
   static void _sector(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           gdImage *image=static_cast<VImage *>(r.self)->image;
           if(!image)
                   throw Exception(0, 
                           &method_name, 
                           "does not contain an image");
   
           image->Sector(
                   params->as_int(0, "center_x must be int", r), 
                   params->as_int(1, "center_y must be int", r), 
                   params->as_int(2, "width must be int", r), 
                   params->as_int(3, "height must be int", r), 
                   params->as_int(4, "start degrees must be int", r), 
                   params->as_int(5, "end degrees must be int", r), 
                   image->Color(params->as_int(6, "color must be int", r)));
   }
   
   static void _circle(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           gdImage *image=static_cast<VImage *>(r.self)->image;
           if(!image)
                   throw Exception(0, 
                           &method_name, 
                           "does not contain an image");
   
           int size=params->as_int(2, "radius must be int", r)*2;
           image->Arc(
                   params->as_int(0, "center_x must be int", r), 
                   params->as_int(1, "center_y must be int", r), 
                   size, //w
                   size, //h
                   0, //s
                   360, //e
                   image->Color(params->as_int(3, "color must be int", r)));
   }
   
   gdImage& as_image(Pool& pool, const String& method_name, MethodParams *params, 
                                                   int index, const char *msg) {
           Value& value=params->as_no_junction(index, msg);
   
           if(strcmp(value.type(), VIMAGE_TYPE)!=0)
                   throw Exception("parser.runtime", 
                           &method_name, 
                           msg);
   
           gdImage *src=static_cast<VImage *>(&value)->image;
           if(!src)
                   throw Exception("parser.runtime", 
                           &method_name, 
                           msg);
   
           return *src;
   }
   
   static void _copy(Request& r, const String& method_name, MethodParams *params) {
           Pool& pool=r.pool();
   
           gdImage *dest=static_cast<VImage *>(r.self)->image;
           if(!dest)
                   throw Exception(0, 
                           &method_name, 
                           "self does not contain an image");
   
           gdImage& src=as_image(pool, method_name, params, 0, "src must be image");
   
           int sx=params->as_int(1, "src_x must be int", r);
           int sy=params->as_int(2, "src_y must be int", r);
           int sw=params->as_int(3, "src_w must be int", r);
           int sh=params->as_int(4, "src_h must be int", r);
           int dx=params->as_int(5, "dest_x must be int", r);
           int dy=params->as_int(6, "dest_y must be int", r);
           if(params->size()>1+2+2+2) {
                   int dw=params->as_int(1+2+2+2, "dest_w must be int", r);
                   int dh=(int)(params->size()>1+2+2+2+1?
                           params->as_int(1+2+2+2+1, "dest_h must be int", r):sh*(((double)dw)/((double)sw)));
                   int tolerance=params->size()>1+2+2+2+2?
                           params->as_int(1+2+2+2+2, "tolerance must be int", r):150;
   
                   src.CopyResampled(*dest, dx, dy, sx, sy, dw, dh, sw, sh, tolerance);
           } else
                   src.Copy(*dest, dx, dy, sx, sy, sw, sh);
   }
   
   
 // constructor  // constructor
   
 MImage::MImage(Pool& apool) : Methoded(apool) {  MImage::MImage(Pool& apool) : Methoded(apool) {
Line 676  MImage::MImage(Pool& apool) : Methoded(a Line 847  MImage::MImage(Pool& apool) : Methoded(a
         // ^image.bar(x0;y0;x1;y1;color)          // ^image.bar(x0;y0;x1;y1;color)
         add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5);          add_native_method("bar", Method::CT_DYNAMIC, _bar, 5, 5);
   
         // ^image.replace(color-source;color-dest)(x;y)... point coord pairs          // ^image.replace(color-source;color-dest)[table x:y]
         add_native_method("replace", Method::CT_DYNAMIC, _replace, 2+3*2, 2+100*2);          add_native_method("replace", Method::CT_DYNAMIC, _replace, 3, 3);
   
         // ^image.polygon(color)(x;y)... point coord pairs          // ^image.polyline(color)[table x:y]
         add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 1+3*2, 1+100*2);          add_native_method("polyline", Method::CT_DYNAMIC, _polyline, 2, 2);
   
         // ^image.polybar(color)(x;y)... point coord pairs          // ^image.polygon(color)[table x:y]
         add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 1+3*2, 1+100*2);          add_native_method("polygon", Method::CT_DYNAMIC, _polygon, 2, 2);
   
           // ^image.polybar(color)[table x:y]
           add_native_method("polybar", Method::CT_DYNAMIC, _polybar, 2, 2);
   
     // ^image.font[alPHAbet;font-file-name.gif](spacebar_width)      // ^image.font[alPHAbet;font-file-name.gif](spacebar_width)
     // ^image.font[alPHAbet;font-file-name.gif](spacebar_width;width)      // ^image.font[alPHAbet;font-file-name.gif](spacebar_width;width)
Line 692  MImage::MImage(Pool& apool) : Methoded(a Line 866  MImage::MImage(Pool& apool) : Methoded(a
     // ^image.text(x;y)[text]      // ^image.text(x;y)[text]
         add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3);          add_native_method("text", Method::CT_DYNAMIC, _text, 3, 3);
                   
       // ^image.ngth[text]
           add_native_method("length", Method::CT_DYNAMIC, _length, 1, 1);
           
           // ^image.arc(center x;center y;width;height;start in degrees;end in degrees;color)
           add_native_method("arc", Method::CT_DYNAMIC, _arc, 7, 7);
   
           // ^image.sector(center x;center y;width;height;start in degrees;end in degrees;color)
           add_native_method("sector", Method::CT_DYNAMIC, _sector, 7, 7);
   
           // ^image.circle(center x;center y;r;color)
           add_native_method("circle", Method::CT_DYNAMIC, _circle, 4, 4);
   
           // ^image.copy[source](src x;src y;src w;src h;dst x;dst y[;dest w[;dest h[;tolerance]]])
           add_native_method("copy", Method::CT_DYNAMIC, _copy, 1+2+2+2, (1+2+2+2)+2+1);
 }  }
   
 // global variable  // global variable
Removed from v.1.36  
changed lines
  Added in v.1.70

E-mail: