Roxen.git/ server/ font_handlers/ imagedir.pike

2000-12-31

2000-12-31 23:54:53 by Martin Nilsson <mani@lysator.liu.se>

• 3c607da0a68ac0f6be306254fe39dd1489ea219a (32 lines) (+25/-7) ^{[ Show | Annotate ]}
  Branch: 5.2

Let x_spacing and y_spacing mean percentage of character if float, pixels if int

Rev: server/font_handlers/imagedir.pike:1.7

1:   #include <config.h>   #include <stat.h> - constant cvs_version = "$Id: imagedir.pike,v 1.6 2000/09/16 21:07:38 per Exp $"; + constant cvs_version = "$Id: imagedir.pike,v 1.7 2000/12/31 23:54:53 nilsson Exp $";      constant name = "Image directory fonts";   constant doc = ("Handles a directory with images (in almost any format), each "
70:    {    array(mapping(string:Image.Image)) res = map( text/"", write_char );    -  Image.Image rr=Image.Image((int)abs(`+(0,@res->image->xsize())*x_spacing), +  Image.Image rr; +  if(floatp(x_spacing)) +  rr=Image.Image((int)abs(`+(0,@res->image->xsize())*x_spacing),    max(0,@res->image->ysize())); -  +  else +  rr=Image.Image(abs(`+(0,@res->image->xsize())+(sizeof(res)*x_spacing)), +  max(0,@res->image->ysize()));    -  +     float start;    if( x_spacing < 0 ) start = (float)rr->xsize()-res[0]->image->xsize();   
84:    (int)start,rr->ysize()-r->image->ysize() );    else    rr->paste(r->image,(int)start,rr->ysize()-r->image->ysize()); +  if(floatp(x_spacing))    start += r->image->xsize()*x_spacing; -  +  else +  start += r->image->xsize()+x_spacing;    }    return rr;    }
97:    Image.Image write( string ... what )    {    array(Image.Image) res = map( what, write_row ); -  Image.Image rr = Image.Image( max(0,@res->xsize()), +  Image.Image rr; +  if(floatp(y_spacing)) +  rr = Image.Image( max(0,@res->xsize()),    (int)abs(`+(0,@res->ysize())*y_spacing) ); -  +  else +  rr = Image.Image( max(0,@res->xsize()), +  abs(`+(0,@res->ysize())+(sizeof(res)+y_spacing)) );       float start;    if( y_spacing < 0 ) start = (float)rr->ysize()-res[0]->ysize();
108:    if( j_right ) rr->paste(r,rr->xsize()-r->xsize(),(int)start);    else if( j_center ) rr->paste(r,(rr->xsize()-r->xsize())/2,(int)start);    else rr->paste( r, 0, (int)start ); +  if(floatp(y_spacing))    start += r->ysize()*y_spacing; -  +  else +  start += r->ysize()+y_spacing;    }    return rr;    }