pike.git/ src/ modules/ Image/ dct.c

1997-02-11

1997-02-11 08:40:20 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• ab6aec6e2d8e639c1f4124baf6b7310991a0db58 (165 lines) (+165/-0) ^{[ Show | Annotate ]}
  Branch: 7.9

files moved for new module system

Rev: src/modules/Gz/.cvsignore:1.1
Rev: src/modules/Gz/Makefile.in:1.1
Rev: src/modules/Gz/configure.in:1.1
Rev: src/modules/Gz/doc/gz_deflate:1.1
Rev: src/modules/Gz/doc/gz_inflate:1.1
Rev: src/modules/Gz/testsuite.in:1.1
Rev: src/modules/Gz/zlib_machine.h.in:1.1
Rev: src/modules/Gz/zlibmod.c:1.1
Rev: src/modules/Image/.cvsignore:1.1
Rev: src/modules/Image/Makefile.in:1.1
Rev: src/modules/Image/blit.c:1.1
Rev: src/modules/Image/config.h.in:1.1
Rev: src/modules/Image/configure.in:1.1
Rev: src/modules/Image/dct.c:1.1
Rev: src/modules/Image/doc.txt:1.1
Rev: src/modules/Image/doc/image.html:1.1
Rev: src/modules/Image/font.c:1.1
Rev: src/modules/Image/image.c:1.1
Rev: src/modules/Image/image.h:1.1
Rev: src/modules/Image/lzw.c:1.1
Rev: src/modules/Image/lzw.h:1.1
Rev: src/modules/Image/matrix.c:1.1
Rev: src/modules/Image/operator.c:1.1
Rev: src/modules/Image/pattern.c:1.1
Rev: src/modules/Image/pnm.c:1.1
Rev: src/modules/Image/quant.c:1.1
Rev: src/modules/Image/testfont:1.1
Rev: src/modules/Image/testsuite.in:1.1
Rev: src/modules/Image/togif.c:1.1
Rev: src/modules/Mysql/.cvsignore:1.1
Rev: src/modules/Mysql/Makefile.in:1.1
Rev: src/modules/Mysql/acconfig.h:1.1
Rev: src/modules/Mysql/configure.in:1.1
Rev: src/modules/Mysql/doc/mysql:1.1
Rev: src/modules/Mysql/doc/mysql_result:1.1
Rev: src/modules/Mysql/mysql.c:1.1
Rev: src/modules/Mysql/precompiled_mysql.h:1.1
Rev: src/modules/Mysql/result.c:1.1
Rev: src/modules/Pipe/.cvsignore:1.1
Rev: src/modules/Pipe/Makefile.in:1.1
Rev: src/modules/Pipe/config.h.in:1.1
Rev: src/modules/Pipe/configure.in:1.1
Rev: src/modules/Pipe/pipe.c:1.1
Rev: src/modules/Pipe/testsuite.in:1.1
Rev: src/modules/Regexp/.cvsignore:1.1
Rev: src/modules/Regexp/Makefile.in:1.1
Rev: src/modules/Regexp/configure.in:1.1
Rev: src/modules/Regexp/doc/regexp:1.1
Rev: src/modules/Regexp/glue.c:1.1
Rev: src/modules/Regexp/pike_regexp.c:1.1
Rev: src/modules/Regexp/pike_regexp.h:1.1
Rev: src/modules/Regexp/testsuite.in:1.1
Rev: src/modules/Ssleay/.cvsignore:1.1
Rev: src/modules/Ssleay/Makefile.in:1.1
Rev: src/modules/Ssleay/configure.in:1.1
Rev: src/modules/Ssleay/ssleay.c:1.1
Rev: src/modules/call_out/call_out.c:1.7
Rev: src/modules/files/testsuite.in:1.4
Rev: src/modules/readline/.cvsignore:1.1
Rev: src/modules/readline/Makefile.in:1.1
Rev: src/modules/readline/configure.in:1.1
Rev: src/modules/readline/doc/readline:1.1
Rev: src/modules/readline/readline_machine.h.in:1.1
Rev: src/modules/readline/readlinemod.c:1.1
Rev: src/modules/readline/testsuite.in:1.1

1: + /* $Id: dct.c,v 1.1 1997/02/11 08:35:42 hubbe Exp $ */    -  + #include "global.h" +  + #include <math.h> + #include <ctype.h> +  + #include "stralloc.h" + #include "global.h" + #include "types.h" + #include "macros.h" + #include "object.h" + #include "constants.h" + #include "interpret.h" + #include "svalue.h" + #include "array.h" + #include "error.h" +  + #include "image.h" +  + extern struct program *image_program; + #define THIS ((struct image *)(fp->current_storage)) + #define THISOBJ (fp->current_object) +  + #define min(a,b) ((a)<(b)?(a):(b)) + #define max(a,b) ((a)<(b)?(b):(a)) + #define testrange(x) max(min((x),255),0) +  + static const double c0=0.70710678118654752440; + static const double pi=3.14159265358979323846; +  + void image_dct(INT32 args) + { +  rgbd_group *area,*val; +  struct object *o; +  struct image *img; +  INT32 x,y,u,v; +  double xsz2,ysz2,enh,xp,yp,dx,dy; +  double *costbl; +  rgb_group *pix; +  +  if (!THIS->img) error("no image\n"); +  +  fprintf(stderr,"%d bytes, %d bytes\n", +  sizeof(rgbd_group)*THIS->xsize*THIS->ysize, +  sizeof(rgb_group)*THIS->xsize*THIS->ysize+1); +  +  if (!(area=malloc(sizeof(rgbd_group)*THIS->xsize*THIS->ysize+1))) +  error("Out of memory\n"); +  +  if (!(costbl=malloc(sizeof(double)*THIS->xsize+1))) +  { +  free(area); +  error("Out of memory\n"); +  } +  +  o=clone(image_program,0); +  img=(struct image*)(o->storage); +  *img=*THIS; +  +  if (args>=2 +  && sp[-args].type==T_INT +  && sp[1-args].type==T_INT) +  { +  img->xsize=max(1,sp[-args].u.integer); +  img->ysize=max(1,sp[1-args].u.integer); +  } +  else error("Illegal arguments to image->dct()\n"); +  +  if (!(img->img=malloc(sizeof(rgb_group)*img->xsize*img->ysize+1))) +  { +  free(area); +  free(costbl); +  free_object(o); +  error("Out of memory\n"); +  } +  +  xsz2=THIS->xsize*2.0; +  ysz2=THIS->ysize*2.0; +  +  enh=(8.0/THIS->xsize)*(8.0/THIS->ysize); +  +  for (u=0; u<THIS->xsize; u++) +  { +  double d,z0; +  rgbd_group sum; +  +  for (v=0; v<THIS->ysize; v++) +  { +  d=(u?1:c0)*(v?1:c0)/4.0; +  sum.r=sum.g=sum.b=0; +  pix=THIS->img; +  +  for (x=0; x<THIS->xsize; x++) +  costbl[x]=cos( (2*x+1)*u*pi/xsz2 ); +  +  for (y=0; y<THIS->ysize; y++) +  { +  z0=cos( (2*y+1)*v*pi/ysz2 ); +  for (x=0; x<THIS->xsize; x++) +  { +  double z; +  z = costbl[x] * z0; +  sum.r+=pix->r*z; +  sum.g+=pix->g*z; +  sum.b+=pix->b*z; +  pix++; +  } +  } +  sum.r*=d; +  sum.g*=d; +  sum.b*=d; +  area[u+v*THIS->xsize]=sum; +  } +  fprintf(stderr,"."); fflush(stderr); +  } +  fprintf(stderr,"\n"); +  +  dx=((double)(THIS->xsize-1))/(img->xsize); +  dy=((double)(THIS->ysize-1))/(img->ysize); +  +  pix=img->img; +  for (y=0,yp=0; y<img->ysize; y++,yp+=dy) +  { +  double z0; +  rgbd_group sum; +  +  for (x=0,xp=0; x<img->xsize; x++,xp+=dx) +  { +  sum.r=sum.g=sum.b=0; +  val=area; +  +  for (u=0; u<THIS->xsize; u++) +  costbl[u]=cos( (2*xp+1)*u*pi/xsz2 ); +  +  for (v=0; v<THIS->ysize; v++) +  { +  z0=cos( (2*yp+1)*v*pi/ysz2 )*(v?1:c0)/4.0; +  for (u=0; u<THIS->xsize; u++) +  { +  double z; +  z = (u?1:c0) * costbl[u] * z0; +  sum.r+=val->r*z; +  sum.g+=val->g*z; +  sum.b+=val->b*z; +  val++; +  } +  } +  sum.r*=enh; +  sum.g*=enh; +  sum.b*=enh; +  pix->r=testrange(((int)(sum.r+0.5))); +  pix->g=testrange(((int)(sum.g+0.5))); +  pix->b=testrange(((int)(sum.b+0.5))); +  pix++; +  } +  fprintf(stderr,"."); fflush(stderr); +  } +  +  free(area); +  free(costbl); +  +  pop_n_elems(args); +  push_object(o); + }   Newline at end of file added.