Roxen.git/ server/ modules/ graphics/ graphic_text.pike

Branch: Tag:

1999-12-14

1999-12-14 07:26:06 by Martin Nilsson <mani@lysator.liu.se>

Use the GText module insted.

Rev: server/modules/graphics/graphic_text.pike:1.197

1: - constant cvs_version="$Id: graphic_text.pike,v 1.196 1999/12/11 20:39:34 nilsson Exp $"; + constant cvs_version="$Id: graphic_text.pike,v 1.197 1999/12/14 07:26:06 nilsson Exp $";   constant thread_safe=1;      #include <config.h>
71:   #endif       - // ------------------- The actual graphics routines ---------------------- -  - static private mapping (int:array(array(int))) matrixes = ([]); - array (array(int)) make_matrix(int size) - { -  if(matrixes[size]) return matrixes[size]; -  array res; -  int i; -  int j; -  res = allocate(size, allocate)(size); -  for(i=0; i<size; i++) -  for(j=0; j<size; j++) -  res[i][j] = (int)max((float)size/2.0-sqrt((size/2-i)*(size/2-i) + (size/2-j)*(size/2-j)),0); -  return matrixes[size] = res; - } -  - Image.Image blur(object img, int amnt) - { -  img->setcolor(0,0,0); -  img = img->autocrop(amnt, 0,0,0,0, 0,0,0); -  -  for(int i=0; i<amnt; i++) -  img = img->apply_matrix( make_matrix((int)sqrt(img->ysize()+20))); -  return img; - } -  - Image.Image outline(Image.Image on, Image.Image with, -  array (int) color, int radie, int x, int y) - { -  int steps=10; -  for(int j=0; j<=steps; j++) -  on->paste_alpha_color(with, @color, -  (int)(0.5+x-(sin((float)j/steps*3.145*2)*radie)), -  (int)(0.5+y-(cos((float)j/steps*3.145*2)*radie))); -  return on; - } -  - constant white = ({ 255,255,255 }); - constant lgrey = ({ 200,200,200 }); - constant grey = ({ 128,128,128 }); - constant black = ({ 0,0,0 }); - constant wwwb = ({ lgrey,lgrey,grey,black }); -  - Image.Image bevel(Image.Image in, int width, int|void invert) - { -  int h=in->ysize(); -  int w=in->xsize(); -  -  Image.Image corner = Image.Image(width+1,width+1); -  Image.Image corner2 = Image.Image(width+1,width+1); -  Image.Image pix = Image.Image(1,1); -  -  for(int i=-1; i<=width; i++) { -  corner->line(i,width-i,i,-1, @white); -  corner2->setpixel(width-i, width-i, @white); -  in->paste_alpha(pix, 185, w - width + i+1, h - width + i+1); -  } -  -  if(!invert) -  { -  in->paste_alpha(Image.Image(width,h-width*2,@white), 160, 0, width); -  in->paste_alpha(Image.Image(width,h-width*2,@black), 128, in->xsize()-width, width); -  in->paste_alpha(Image.Image(w-width,width,@white), 160, 0, 0); -  in->paste_alpha(Image.Image(w-width,width,@black), 128, width, in->ysize()-width); -  } else { -  corner=corner->invert(); -  corner2=corner2->invert(); -  in->paste_alpha(Image.Image(width,h-width*2,@black), 160, 0, width); -  in->paste_alpha(Image.Image(width,h-width*2,@white), 128, in->xsize()-width, width); -  in->paste_alpha(Image.Image(w-width,width,@black), 160, 0, 0); -  in->paste_alpha(Image.Image(w-width,width,@white), 128, width, in->ysize()-width); -  } -  -  in->paste_mask(corner, corner->color(95,95,95), in->xsize()-width,-1); -  in->paste_mask(corner, corner->invert()->color(128,128,128), -  in->xsize()-width,-1); -  in->paste_mask(corner, corner->color(95,95,95), -1, in->ysize()-width); -  in->paste_mask(corner, corner->invert()->color(128,128,128), -  -1, in->ysize()-width); -  corner=0; -  in->paste_mask(corner2, corner2->color(70,70,70), -1, -1); -  -  corner2 = pix = 0; -  return in; - } -  - Image.Image make_text_image(mapping args, Image.Font font, string text, RequestID id) - { -  if( args->encoding ) -  text = roxen.decode_charset(args->encoding,text); -  Image.Image text_alpha=font->write(@(text/"\n")); -  int xoffset=0, yoffset=0; -  -  if(!text_alpha->xsize() || !text_alpha->ysize()) -  text_alpha = Image.Image(10,10, 0,0,0); -  -  if(int op=((((int)args->opaque)*255)/100)) // Transparent text... -  text_alpha=text_alpha->color(op,op,op); -  -  int txsize=text_alpha->xsize(); -  int tysize=text_alpha->ysize(); // Size of the text, in pixels. -  -  int xsize=txsize; // image size, in pixels -  int ysize=tysize; -  -  if(args->bevel) -  { -  xoffset += (int)args->bevel; -  yoffset += (int)args->bevel; -  xsize += ((int)args->bevel)*2; -  ysize += ((int)args->bevel)*2; -  } -  -  if(args->spacing) -  { -  xoffset += (int)args->spacing; -  yoffset += (int)args->spacing; -  xsize += ((int)args->spacing)*2; -  ysize += ((int)args->spacing)*2; -  } -  -  if(args->yspacing) -  { -  yoffset += (int)args->yspacing; -  ysize += ((int)args->yspacing)*2; -  } -  -  if(args->shadow) -  { -  xsize+=((int)(args->shadow/",")[-1])+2; -  ysize+=((int)(args->shadow/",")[-1])+2; -  } -  -  if(args->bshadow) -  { -  xsize+=(int)args->bshadow+3; -  ysize+=(int)args->bshadow+3; -  } -  -  if(args->fadein) -  { -  xsize+=6; -  ysize+=6; -  xoffset+=3; -  yoffset+=3; -  } -  -  if(args->move) -  { -  int dx,dy; -  if(sscanf(args->move, "%d,%d", dx, dy)==2) -  m_delete(args,"move"); -  else { -  xoffset += dx; -  yoffset += dy; -  } -  } -  -  if(args->ghost) -  { -  int howmuch=(int)args->ghost; -  xsize+=howmuch*2+10; -  xoffset += 3; -  ysize+=howmuch*2+10; -  } -  -  if(args->xspacing) -  { -  xoffset += (int)args->xspacing; -  xsize += ((int)args->xspacing)*2; -  } -  -  if(args->border) -  { -  xoffset += (int)args->border; -  yoffset += (int)args->border; -  xsize += ((int)args->border)*2; -  ysize += ((int)args->border)*2; -  } -  -  array (int) bgcolor = parse_color(args->bgcolor); -  array (int) fgcolor = parse_color(args->fgcolor); -  -  Image.Image background,foreground; -  -  if(args->texture) -  { -  Image.Image t = roxen.load_image(args->texture,id); -  if( t ) -  { -  foreground = t; -  if(args->tile) -  { -  Image.Image b2 = Image.Image(xsize,ysize); -  for(int x=0; x<xsize; x+=foreground->xsize()) -  for(int y=0; y<ysize; y+=foreground->ysize()) -  b2->paste(foreground, x, y); -  foreground = b2; -  } else if(args->mirrortile) { -  Image.Image b2 = Image.Image(xsize,ysize); -  Image.Image b3 = Image.Image(foreground->xsize()*2,foreground->ysize()*2); -  b3->paste(foreground,0,0); -  b3->paste(foreground->mirrorx(),foreground->xsize(),0); -  b3->paste(foreground->mirrory(),0,foreground->ysize()); -  b3->paste(foreground->mirrorx()->mirrory(),foreground->xsize(), -  foreground->ysize()); -  foreground = b3; -  for(int x=0; x<xsize; x+=foreground->xsize()) -  { -  for(int y=0; y<ysize; y+=foreground->ysize()) -  if(y%2) -  b2->paste(foreground->mirrory(), x, y); -  else -  b2->paste(foreground, x, y); -  foreground = foreground->mirrorx(); -  } -  foreground = b2; -  } -  } else -  werror("Failed to load image for "+args->texture+"\n"); -  } -  int background_is_color; -  if(args->background && -  ((background = roxen.load_image(args->background, id)) || -  (sizeof(args->background)>1 && -  (background=Image.Image(xsize,ysize, -  @(parse_color(args->background[1..])))) -  && (background_is_color=1)))) -  { -  Image.Image alpha; -  if(args->alpha && (alpha = roxen.load_image(args->alpha,id)) && background_is_color) -  { -  xsize=max(xsize,alpha->xsize()); -  ysize=max(ysize,alpha->ysize()); -  if((float)args->scale) -  alpha=alpha->scale(1/(float)args->scale); -  background=Image.Image(xsize,ysize, @(parse_color(args->background[1..]))); -  } -  -  if((float)args->scale >= 0.1 && !alpha) -  background = background->scale(1.0/(float)args->scale); -  -  if(args->tile) -  { -  Image.Image b2 = Image.Image(xsize,ysize); -  for(int x=0; x<xsize; x+=background->xsize()) -  for(int y=0; y<ysize; y+=background->ysize()) -  b2->paste(background, x, y); -  background = b2; -  } else if(args->mirrortile) { -  Image.Image b2 = Image.Image(xsize,ysize); -  Image.Image b3 = Image.Image(background->xsize()*2,background->ysize()*2); -  b3->paste(background,0,0); -  b3->paste(background->mirrorx(),background->xsize(),0); -  b3->paste(background->mirrory(),0,background->ysize()); -  b3->paste(background->mirrorx()->mirrory(),background->xsize(), -  background->ysize()); -  background = b3; -  for(int x=0; x<xsize; x+=background->xsize()) -  { -  for(int y=0; y<ysize; y+=background->ysize()) -  if(y%2) -  b2->paste(background->mirrory(), x, y); -  else -  b2->paste(background, x, y); -  background = background->mirrorx(); -  } -  background = b2; -  } -  xsize = max(xsize,background->xsize()); -  ysize = max(ysize,background->ysize()); -  -  if(alpha) -  background->paste_alpha_color(alpha->invert(),@bgcolor); -  -  switch(lower_case(args->talign||"left")) { -  case "center": -  xoffset = (xsize/2 - txsize/2); -  yoffset = (ysize/2 - tysize/2); -  break; -  case "right": -  xoffset = (xsize - txsize); -  break; -  case "left": -  } -  } else -  background = Image.Image(xsize, ysize, @bgcolor); -  -  if(args->border) -  { -  int b = (int)args->border; -  background->setcolor(@parse_color((args->border/",")[-1])); -  -  for(--b;b>=0;b--) -  { -  // upper left -- upper right -  background->line(b,b, xsize-b-1, b); -  // lower left -- lower right -  background->line(b,ysize-b-1, xsize-b-1, ysize-b-1); -  // upper left -- lower left -  background->line(b,b, b, ysize-b-1); -  // upper right -- lower right -  background->line(xsize-b-1,b, xsize-b-1, ysize-b-1); -  } -  } -  -  background->setcolor(@bgcolor); -  -  int xs=background->xsize(), ys=background->ysize(); -  -  if( args->rescale ) -  { -  xs = txsize; -  ys = tysize; -  } -  -  if(args->size) { xs=(int)args->size; ys=(int)(args->size/",")[-1]; } -  if(args->xsize) xs=(int)args->xsize; -  if(args->ysize) ys=(int)args->ysize; -  -  if( xs != background->xsize() || -  ys != background->ysize() ) -  { -  if(!args->rescale) -  background = background->copy(0,0,xs-1,ys-1); -  else -  background = background->scale(xs, ys); -  } -  -  if(args->turbulence) -  { -  array (float|array(int)) arg=({}); -  foreach((args->turbulence/";"), string s) -  { -  array q= s/","; -  if(sizeof(q)<2) args+=({ ((float)s)||0.2, ({ 255,255,255 }) }); -  arg+=({ ((float)q[0])||0.2, parse_color(q[1]) }); -  } -  background=background->turbulence(arg); -  } -  -  if(args->bevel) -  background = bevel(background,(int)args->bevel,!!args->pressed); -  -  if(args->textbox) // Draw a text-box on the background. -  { -  int alpha,border; -  string bg; -  alpha = (int)args->textbox; -  sscanf(args->textbox, "%*[^,],%s", bg); -  sscanf(bg,"%s,%d", bg,border); -  background->paste_alpha(Image.Image(txsize+border*2,tysize+border*2, -  @parse_color(bg)), -  255-(alpha*255/100),xoffset-border,yoffset-border); -  } -  -  if(args->ghost) -  { // Francesco.. -  array(string) a = (args->ghost/","); -  if (sizeof(a) < 2) { -  // Bad argument. -  } else { -  int sdist = (int)(a[0]); -  int bl=(int)(a[1]); -  array(int)clr=parse_color(a[-1]); -  int j; -  Image.Image ta = text_alpha->copy(); -  for (j=0;j<bl;j++) -  ta=ta->apply_matrix(({ -  ({6,7,7,7,6}),({7,8,8,8,7}),({7,8,8,8,7}),({7,8,8,8,7}),({6,7,7,7,6}) -  })); -  background->paste_alpha_color(ta,@clr,xoffset+sdist,yoffset+sdist); -  fgcolor=bgcolor; -  } -  } -  -  if(args->shadow) -  { -  int sd = ((int)args->shadow+10)*2; -  int sdist = ((int)(args->shadow/",")[-1])+2; -  Image.Image ta = text_alpha->copy(); -  ta = ta->color(256-sd,256-sd,256-sd); -  array sc = parse_color(args->scolor||"black"); -  background->paste_alpha_color(ta,sc[0],sc[1],sc[2], -  xoffset+sdist,yoffset+sdist); -  } -  -  if(args->bshadow) -  { -  int sdist = (int)(args->bshadow)+1; -  int xs,ys; -  xs = text_alpha->xsize()+sdist*2+4; -  ys = text_alpha->ysize()+sdist*2+4; -  Image.Image ta = Image.Image(xs+sdist*2,ys+sdist*2); -  array sc = parse_color(args->scolor||"black"); -  -  ta->paste_alpha_color(text_alpha,255,255,255,sdist,sdist); -  ta = blur(ta, min((sdist/2),1))->color(256,256,256); -  -  background->paste_alpha_color(ta,sc[0],sc[1],sc[2], -  xoffset+sdist,yoffset+sdist); -  } -  -  if(args->glow) -  { -  int amnt = (int)(args->glow/",")[-1]+2; -  array (int) blurc = parse_color((args->glow/",")[0]); -  background->paste_alpha_color(blur(text_alpha, amnt),@blurc, -  xoffset-amnt, yoffset-amnt); -  } -  -  if(args->chisel) -  foreground=text_alpha->apply_matrix(({ ({8,1,0}), -  ({1,0,-1}), -  ({0,-1,-8}) }), -  128,128,128, 15 ) -  ->color(@fgcolor); -  -  if(!foreground) foreground=Image.Image(txsize, tysize, @fgcolor); -  if(args->textscale) -  { -  string c1="black",c2="black",c3="black",c4="black"; -  sscanf(args->textscale, "%s,%s,%s,%s", c1, c2, c3, c4); -  foreground->tuned_box(0,0, txsize,tysize, -  ({parse_color(c1),parse_color(c2),parse_color(c3), -  parse_color(c4)})); -  } -  if(args->outline) -  outline(background, text_alpha, parse_color((args->outline/",")[0]), -  ((int)(args->outline/",")[-1])+1, xoffset, yoffset); -  -  if(args->textbelow) -  { -  array color = parse_color(args->textbelow); -  -  background->setcolor( @color ); -  int oby = background->ysize(); -  background = background->copy(0,0, -  max(background->xsize()-1, -  foreground->xsize()-1), -  background->ysize()-1 -  +foreground->ysize()); -  background->paste_mask( foreground, text_alpha, -  (background->xsize()-foreground->xsize())/2, -  oby ); -  } else -  background->paste_mask(foreground, text_alpha, xoffset, yoffset); -  -  foreground = text_alpha = 0; -  -  if(args->rotate) -  { -  string c; -  if(sscanf(args->rotate, "%*d,%s", c)==2) -  background->setcolor(@parse_color(c)); -  else -  background->setcolor(@bgcolor); -  background = background->rotate((float)args->rotate); -  } -  -  if(args->crop) background = background->autocrop(); -  return background; - } -  -  +    // -------------------- Image cache functions --------------------      roxen.ImageCache image_cache;
626:    error("gtext: No font!\n");       // Fonts and such are now initialized. -  img = make_text_image(args, font, text, id); +  img = GText.make_text_image(args, font, text, id);       // Now we have the image in 'img', or nothing.   
656:    for(int i = 0; i<(steps-1); i++)    {    Image.Image foo=img->clone(); -  foo = foo->apply_matrix(make_matrix(( (int)((steps-i)*amount)))); +  foo = foo->apply_matrix(GText.make_matrix(( (int)((steps-i)*amount))));    res += foo->gif_add(0,0,delay);    }    res += img->gif_add(0,0,delay);