0ee085 | 1997-02-08 | Per Hedbor | | string cvs_version="$Id: graphic_text.pike,v 1.25 1997/02/07 23:33:20 per Exp $";
|
d47cbf | 1996-12-02 | Per Hedbor | | #include <module.h>
inherit "module";
inherit "roxenlib";
array register_module()
{
return ({ MODULE_LOCATION | MODULE_PARSER,
"Graphics text",
|
a97f5d | 1996-12-10 | Per Hedbor | | "Makes a few new tags, which render text to gifs "
"using the image module in pike. \n<p>"
|
676c23 | 1996-12-06 | Per Hedbor | | "<b><gh1></b> to <b><gh6>:</b> Headers<br>\n"
"<b><gh>:</b> Header<br>\n"
"<b><gtext>:</b> Graphical text<br>\n"
"<b><anfang>:</b> Make the first character to a graphical one. Not all that usefull, really.<br>\n"
|
a97f5d | 1996-12-10 | Per Hedbor | | "<br>\n"
"<b>Common arguments:</b>\n <pre>"
|
bfc707 | 1997-01-13 | Per Hedbor | | " bg=color Use this background, default taken from the\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " <body> tag, if any\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | " fg=color Use this foreground, default taken from the\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " <body> tag, if any\n"
" font=fnt Use this font. The fonts can be found in the\n"
" directory specified in the configuration\n"
" interface.\n"
" If no font is specified, the one from the\n"
" define 'font' is used, or if there is no\n"
" define, the default font will be used.\n"
" scale=float Scale to this font, mostly useful in the <gtext>\n"
" tag, will not work at all in the <gh[number]>\n"
" tags.\n"
" 2 3 4 5 6 Short for scale=1.0/([number]*0.6)\n"
" notrans Do _not_ make the background color transparent\n"
" split Make each word into a separate gif image\n"
" href=url Link the image to the specified URL\n"
" The 'link' color of the document will be\n"
" used as the default foreground of the text\n"
" quant=cols Use this number of colors\n"
" magic[=message] Modifier to href, more flashy links\n"
" Does <b>not</b> work with 'split'\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | " fuzz[=color] Apply the 'glow' effect to the result\n"
" fs Use floyd-steinberg dithering\n"
" border=int,col. Draw an border (width is the first argument\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " in the specified color\n"
" spacing=int Add this amount of spacing around the text\n"
|
3950bb | 1996-12-10 | Per Hedbor | | " xspacing=int like spacing, but only horizontal\n"
" yspacing=int like spacing, but only vertical\n"
" size=int,int Use this (absolute) size\n"
" xsize=int Use this (absolute) size\n"
" ysize=int Use this (absolute) size\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " bevel=int Draw a bevel box (width is the argument)\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | " pressed Invert the \"direction\" of the bevel box\n"
" talign=dir Justify the text to the left, right, or center\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | " textbox=al,col. Use 'al' as opaque value to draw a box below\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " the text with the specified color.\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | " xpad=X% Increase padding between characters with X%\n"
" xpad=Y% Increase padding between lines with Y%\n"
|
4dfdeb | 1996-12-04 | Per Hedbor | | " shadow=int,dist Draw a drop-shadow (variable distance/intensity)\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | " glow=color Draw a 'glow' outline around the text.\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | " opaque=0-100% Draw with more or less opaque text (100%\n"
" is default)\n"
" rotate=ang(deg.)Rotate the finished image\n"
" background=file Use the specifed file as a background\n"
" texture=file Use the specified file as text texture\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | " turbulence=args args is: frequency,color;freq,col;freq,col\n"
|
3642ac | 1996-12-10 | Per Hedbor | | " Apply a turbulence filter, and use this as the\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | " background.\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | " maxlen=arg The maximum length of the rendered text will be\n"
" the specified argument. The default is 300, this\n"
" is used to safeguard against mistakes like\n"
"<gh1></gh>, which would otherwise parse the whole\n"
"document.\n"
|
3642ac | 1996-12-10 | Per Hedbor | | "\n"
|
a97f5d | 1996-12-10 | Per Hedbor | | "<b>Arguments passed on the the <a> tag (if href is specified):</b>\n "
|
1ce8c3 | 1996-12-10 | Per Hedbor | | " target=...\n"
" onClick=...\n"
|
4dd97c | 1996-12-04 | Per Hedbor | | "</pre>\n",
0,
1,
|
d47cbf | 1996-12-02 | Per Hedbor | | });
}
array (string) list_fonts()
{
|
4dd97c | 1996-12-04 | Per Hedbor | | array fnts;
catch(fnts = get_dir("fonts/32/") - ({".",".."}));
if(!fnts)
{
report_error("Failed to find any fonts in 'fonts/32/'. No default font.\n");
return ({});
}
return fnts;
|
d47cbf | 1996-12-02 | Per Hedbor | | }
void create()
{
|
bfc707 | 1997-01-13 | Per Hedbor | |
defvar("deflen", 300, "Default maximum text-length", TYPE_INT,
"The module will, per default, not try to render texts "
"longer than this. This is a safeguard for things like "
"<gh1></gh>, which would otherwise parse the"
" whole document. This can be overrided with maxlen=... in the "
"tag.");
|
d47cbf | 1996-12-02 | Per Hedbor | | defvar("location", "/gtext/", "Mountpoint", TYPE_LOCATION,
"The URL-prefix for the anfang characters.");
defvar("cols", 16, "Default number of colors per image", TYPE_INT_LIST,
"The default number of colors to use. 16 seems to be enough. "
"The size of the image depends on the number of colors",
({ 1,2,3,4,5,6,7,8,10,16,32,64,128,256 }));
defvar("default_size", 32, "Default font size", TYPE_INT_LIST,
"The default size for the font. This is used for the 'base' size, "
"and can be scaled up or down in the tags.",
({ 16, 32, 64 }));
defvar("default_font", "urw_itc_avant_garde-demi-r", "Default font",
TYPE_STRING_LIST,
"The default font. The 'font dir' will be prepended to the path",
list_fonts());
}
string query_location() { return query("location"); }
mapping (string:object) fonts = ([]);
|
38dca8 | 1996-12-10 | Per Hedbor | | object(Font) load_font(string name, string justification, int xs, int ys)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
object fnt = Font();
|
38dca8 | 1996-12-10 | Per Hedbor | |
if(sscanf(name, "%*s/%*s") != 2)
name=QUERY(default_size)+"/"+name;
|
d47cbf | 1996-12-02 | Per Hedbor | |
name = "fonts/" + name;
|
38dca8 | 1996-12-10 | Per Hedbor | | if(!fnt->load( name ))
{
perror("Failed to load the font "+name+", using the default font.\n");
if(!fnt->load("fonts/"+QUERY(default_size) +"/"+ QUERY(default_font)))
error("Failed to load the default font\n");
}
if(justification=="right") fnt->right();
if(justification=="center") fnt->center();
fnt->set_x_spacing((100.0+(float)xs)/100.0);
fnt->set_y_spacing((100.0+(float)ys)/100.0);
|
d47cbf | 1996-12-02 | Per Hedbor | | return fnt;
}
static private mapping (int:mapping(string:mixed)) cached_args = ([ ]);
#define MAX(a,b) ((a)<(b)?(b):(a))
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 = map_array(allocate(size), lambda(int s, int size){
return allocate(size); }, 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;
}
|
e439c0 | 1996-12-10 | Per Hedbor | | object last_image;
string last_image_name;
|
d47cbf | 1996-12-02 | Per Hedbor | | object (Image) load_image(string f)
{
|
e439c0 | 1996-12-10 | Per Hedbor | | if(last_image_name==f) return last_image;
|
d47cbf | 1996-12-02 | Per Hedbor | | object file = File();
string data;
object img = Image();
|
e439c0 | 1996-12-10 | Per Hedbor | |
if(!file->open(f,"r")) return 0;
|
d47cbf | 1996-12-02 | Per Hedbor | | if(!(data=file->read(0x7fffffff))) return 0;
|
e439c0 | 1996-12-10 | Per Hedbor | | if(!img->frompnm(data) && !img->fromgif(data)) return 0;
|
97a693 | 1996-12-10 | Per Hedbor | |
|
e439c0 | 1996-12-10 | Per Hedbor | |
|
97a693 | 1996-12-10 | Per Hedbor | | return img;
|
d47cbf | 1996-12-02 | Per Hedbor | | }
object (Image) blur(object (Image) img, int amnt)
{
|
bfc707 | 1997-01-13 | Per Hedbor | | img->setcolor(0,0,0);
img = img->autocrop(amnt, 0,0,0,0, 0,0,0);
|
d47cbf | 1996-12-02 | Per Hedbor | | for(int i=0; i<amnt; i++)
|
bfc707 | 1997-01-13 | Per Hedbor | | img = img->apply_matrix( make_matrix((int)sqrt(img->ysize()+20)));
|
d47cbf | 1996-12-02 | Per Hedbor | | return img;
}
|
bfc707 | 1997-01-13 | Per Hedbor | | object (Image) outline(object (Image) on, object (Image) with,
array (int) color, int radie, int x, int y)
{
object foo = Image(with->xsize(), with->ysize(), @color);
int steps=10;
for(int j=0; j<=steps; j++)
on->paste_mask(foo, with,(int)(0.5+x-(sin((float)j/steps*PI*2)*radie)),
(int)(0.5+y-(cos((float)j/steps*PI*2)*radie)));
foo=0;
return on;
}
|
d47cbf | 1996-12-02 | Per Hedbor | | 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 });
|
38dca8 | 1996-12-10 | Per Hedbor | | object (Image) bevel(object (Image) in, int width, int|void invert)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
4dfdeb | 1996-12-04 | Per Hedbor | | int h=in->ysize();
int w=in->xsize();
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
4dfdeb | 1996-12-04 | Per Hedbor | | object corner = Image(width+1,width+1);
|
88e1cb | 1996-12-07 | David Hedbor | | object corner2 = Image(width+1,width+1);
object pix = Image(1,1);
|
38dca8 | 1996-12-10 | Per Hedbor | |
|
88e1cb | 1996-12-07 | David Hedbor | | 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);
}
|
38dca8 | 1996-12-10 | Per Hedbor | |
if(!invert)
{
in->paste_alpha(Image(width,h-width*2,@white), 160, 0, width);
in->paste_alpha(Image(width,h-width*2,@black), 128, in->xsize()-width, width);
in->paste_alpha(Image(w-width,width,@white), 160, 0, 0);
in->paste_alpha(Image(w-width,width,@black), 128, width, in->ysize()-width);
} else {
corner=corner->invert();
corner2=corner2->invert();
in->paste_alpha(Image(width,h-width*2,@black), 160, 0, width);
in->paste_alpha(Image(width,h-width*2,@white), 128, in->xsize()-width, width);
in->paste_alpha(Image(w-width,width,@black), 160, 0, 0);
in->paste_alpha(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),
|
88e1cb | 1996-12-07 | David Hedbor | | in->xsize()-width,-1);
|
38dca8 | 1996-12-10 | Per Hedbor | | in->paste_mask(corner, corner->color(95,95,95), -1, in->ysize()-width);
|
88e1cb | 1996-12-07 | David Hedbor | | in->paste_mask(corner, corner->invert()->color(128,128,128),
|
38dca8 | 1996-12-10 | Per Hedbor | | -1, in->ysize()-width);
in->paste_mask(corner2, corner2->color(70,70,70), -1, -1);
|
88e1cb | 1996-12-07 | David Hedbor | |
corner = corner2 = pix = 0;
|
d47cbf | 1996-12-02 | Per Hedbor | | return in;
}
object (Image) make_text_image(mapping args, object font, string text)
{
object (Image) text_alpha=font->write(@(text/"\n"));
int xoffset=0, yoffset=0;
|
bfc707 | 1997-01-13 | Per Hedbor | | if(!text_alpha->xsize() || !text_alpha->ysize())
text_alpha = Image(10,10, 0,0,0);
|
d47cbf | 1996-12-02 | Per Hedbor | | if(int op=((((int)args->opaque)*255)/100))
text_alpha=text_alpha->color(op,op,op);
int txsize=text_alpha->xsize();
int tysize=text_alpha->ysize();
int xsize=txsize;
int ysize=tysize;
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | 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;
}
|
4dfdeb | 1996-12-04 | Per Hedbor | | if(args->shadow)
{
xsize+=((int)(args->shadow/",")[-1])+2;
ysize+=((int)(args->shadow/",")[-1])+2;
}
|
d47cbf | 1996-12-02 | Per Hedbor | | 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;
}
|
4dd97c | 1996-12-04 | Per Hedbor | | array (int) bgcolor = parse_color(args->bg);
array (int) fgcolor = parse_color(args->fg);
|
d47cbf | 1996-12-02 | Per Hedbor | |
object background,foreground;
if(args->texture) foreground = load_image(args->texture);
|
4dfdeb | 1996-12-04 | Per Hedbor | | if(args->background)
{
background = load_image(args->background);
xsize = background->xsize();
ysize = background->ysize();
|
3950bb | 1996-12-10 | Per Hedbor | | switch(lower_case(args->talign||"left"))
|
38dca8 | 1996-12-10 | Per Hedbor | | {
case "center":
xoffset = (xsize/2 - txsize/2);
break;
case "right":
xoffset = (xsize - txsize);
break;
case "left":
}
|
4dfdeb | 1996-12-04 | Per Hedbor | | } else
background = Image(xsize, ysize, @bgcolor);
|
786670 | 1996-12-10 | Per Hedbor | |
|
bfc707 | 1997-01-13 | Per Hedbor | | if(args->border)
{
int b = (int)args->border;
background->setcolor(@parse_color((args->border/",")[-1]));
for(--b;b>=0;b--)
{
background->line(b,b, xsize-b-1, b);
background->line(b,ysize-b-1, xsize-b-1, ysize-b-1);
background->line(b,b, b, ysize-b-1);
background->line(xsize-b-1,b, xsize-b-1, ysize-b-1);
}
}
|
3950bb | 1996-12-10 | Per Hedbor | | background->setcolor(@bgcolor);
|
786670 | 1996-12-10 | Per Hedbor | |
|
3950bb | 1996-12-10 | Per Hedbor | | if(args->size || args->xsize || args->ysize)
{
int xs=background->xsize(), ys=background->ysize();
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;
|
786670 | 1996-12-10 | Per Hedbor | | background = background->copy(0,0,xs,ys);
|
3950bb | 1996-12-10 | Per Hedbor | | }
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
3950bb | 1996-12-10 | Per Hedbor | |
|
38dca8 | 1996-12-10 | Per Hedbor | | 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);
|
d47cbf | 1996-12-02 | Per Hedbor | |
if(args->textbox)
{
|
4dfdeb | 1996-12-04 | Per Hedbor | | int alpha,border;
|
d47cbf | 1996-12-02 | Per Hedbor | | string bg;
sscanf(args->textbox, "%d,%s", alpha, bg);
|
4dfdeb | 1996-12-04 | Per Hedbor | | sscanf(bg,"%s,%d", bg,border);
|
38dca8 | 1996-12-10 | Per Hedbor | | background->paste_alpha(Image(txsize+border*2,tysize+border*2,
@parse_color(bg)),
255-(alpha*255/100),xoffset-border,yoffset-border);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
4dfdeb | 1996-12-04 | Per Hedbor | | if(args->shadow)
{
int sd = ((int)args->shadow+10)*2;
int sdist = ((int)(args->shadow/",")[-1])+2;
object ta = text_alpha->copy();
ta = ta->color(256-sd,256-sd,256-sd);
background->paste_mask(Image(txsize,tysize),ta,xoffset+sdist, yoffset+sdist);
}
|
bfc707 | 1997-01-13 | Per Hedbor | | if(args->glow)
{
int amnt = (int)(args->glow/",")[-1]+2;
array (int) blurc = parse_color((args->glow/",")[0]);
background->paste_mask(Image(txsize+amnt*2,tysize*2, @blurc),
blur(text_alpha, amnt),
xoffset-amnt, yoffset-amnt);
}
|
38dca8 | 1996-12-10 | Per Hedbor | | if(args->chisel)
foreground=text_alpha->apply_matrix( ({ ({8,1,0}),
|
14179b | 1997-01-29 | Per Hedbor | | ({1,0,-1}),
({0,-1,-8}) }), 128,128,128, 15 )
|
38dca8 | 1996-12-10 | Per Hedbor | | ->color(@fgcolor);
if(!foreground) foreground=Image(txsize, tysize, @fgcolor);
|
bfc707 | 1997-01-13 | Per Hedbor | | 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);
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
4dfdeb | 1996-12-04 | Per Hedbor | | background->paste_mask(foreground, text_alpha, xoffset, yoffset);
|
d47cbf | 1996-12-02 | Per Hedbor | |
foreground = text_alpha = 0;
if(args->scale)
if((float)args->scale <= 2.0)
background = background->scale((float)args->scale);
if(args->rotate)
{
string c;
|
bfc707 | 1997-01-13 | Per Hedbor | | if(sscanf(args->rotate, "%*d,%s", c)==2)
|
4dd97c | 1996-12-04 | Per Hedbor | | background->setcolor(@parse_color(c));
|
d47cbf | 1996-12-02 | Per Hedbor | | else
background->setcolor(@bgcolor);
background = background->rotate((float)args->rotate);
}
|
4dfdeb | 1996-12-04 | Per Hedbor | | if(args->crop) background = background->autocrop();
|
d47cbf | 1996-12-02 | Per Hedbor | |
return background;
}
|
c3655b | 1997-01-27 | Per Hedbor | | string base_key = "gtext:"+roxen->current_configuration->name;
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
d24995 | 1996-12-10 | Per Hedbor | | int number=time(1), _start=time(1);
|
d47cbf | 1996-12-02 | Per Hedbor | | array(int)|string write_text(int _args, string text, int size,
object id)
{
object img;
mapping args = cached_args[_args];
|
c3655b | 1997-01-27 | Per Hedbor | | if(!args) {
args=(["fg":"black","bg":"white"]);
text="Please reload this page";
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
c3655b | 1997-01-27 | Per Hedbor | | string key = base_key+(_args-_start);
|
d47cbf | 1996-12-02 | Per Hedbor | |
text = replace(text, ({ "<", ">", "&" }), ({ "<", ">", "&" }));
|
c3655b | 1997-01-27 | Per Hedbor | | if(mixed data = cache_lookup(key, text))
|
ba73a2 | 1996-12-10 | Per Hedbor | | {
|
c3655b | 1997-01-27 | Per Hedbor | | if(args->nocache)
cache_remove(key, text);
|
ba73a2 | 1996-12-10 | Per Hedbor | | if(size) return data[1];
return data[0];
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
b551e1 | 1996-12-10 | Per Hedbor | |
|
c3655b | 1997-01-27 | Per Hedbor | | string fkey = args->font+"/"+args->talign+"/"+args->xpad+"/"+args->ypad;
data = cache_lookup("fonts", fkey);
|
d47cbf | 1996-12-02 | Per Hedbor | | if(!data)
{
|
3950bb | 1996-12-10 | Per Hedbor | | data = load_font(args->font, lower_case(args->talign||"left"),(int)args->xpad,(int)args->ypad);
|
c3655b | 1997-01-27 | Per Hedbor | | cache_set("fonts", fkey, data);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
img = make_text_image(args,data,text);
if(!img) return 0;
|
c3655b | 1997-01-27 | Per Hedbor | | int q = (int)args->quant||(args->background||args->texture?250:QUERY(cols));
if(q>255) q=255;
if(q<3) q=3;
|
bfc707 | 1997-01-13 | Per Hedbor | | if(!args->fs)
|
c3655b | 1997-01-27 | Per Hedbor | | {
|
bfc707 | 1997-01-13 | Per Hedbor | | img = img->map_closest(img->select_colors(q-1)+({parse_color(args->bg)}));
|
c3655b | 1997-01-27 | Per Hedbor | | }
|
d47cbf | 1996-12-02 | Per Hedbor | | if(args->fs)
|
4dd97c | 1996-12-04 | Per Hedbor | | data=({ img->togif_fs(@(args->notrans?({}):parse_color(args->bg))),
|
d47cbf | 1996-12-02 | Per Hedbor | | ({img->xsize(),img->ysize()})});
else
|
4dd97c | 1996-12-04 | Per Hedbor | | data=({ img->togif(@(args->notrans?({}):parse_color(args->bg))),
|
d47cbf | 1996-12-02 | Per Hedbor | | ({img->xsize(),img->ysize()})});
img=0;
|
c3655b | 1997-01-27 | Per Hedbor | | cache_set(key, text, data);
|
d47cbf | 1996-12-02 | Per Hedbor | | if(size) return data[1];
return data[0];
}
mapping find_file(string f, object rid)
{
string id;
sscanf(f,"%d/%s", id, f);
return http_string_answer(write_text((int)id,f,0,rid), "image/gif");
}
string quote(string in)
{
string res="";
for(int i=0; i<strlen(in); i++)
switch(in[i])
{
case 'a'..'z':
case 'A'..'Z':
case '0'..'9':
case '.':
case ',':
case '!':
res += in[i..i];
break;
default:
res += sprintf("%%%02x", in[i]);
}
return res;
}
int find_or_insert(mapping find)
{
array a = indices(cached_args);
array b = values(cached_args);
int i;
for(i=0; i<sizeof(a); i++)
if(equal(find, b[i])) return a[i];
cached_args[number]=find;
return number++;
}
string magic_javascript_header(object id)
{
if(!id->supports->javascript || !id->supports->images) return "";
return
("<script>\n"
"<!-- \n"
"version = 1;\n"
"browserName = navigator.appName;\n"
"browserVer = parseInt(navigator.appVersion); \n"
"if(browserName == \"Netscape\" && (browserVer == 3 || browserVer == 4 || browserVer == 5 || browserVer == 6)) \n"
" version = \"3\";\n"
"else\n"
" version= \"1\";\n"
"\n"
"function stat(txt)\n"
"{\n"
" top.window.status = txt;\n"
"}\n"
"\n"
"function img_act(imgName, txt)\n"
"{\n"
" if (version == \"3\") \n"
" {\n"
" imgOn = eval(imgName + \"2.src\");\n"
" document [imgName].src = imgOn;\n"
" }\n"
" setTimeout(\"stat('\"+txt+\"')\", 100);\n"
"}\n"
"\n"
"function img_inact(imgName)\n"
"{\n"
" if (version == \"3\") \n"
" {\n"
" imgOff = eval(imgName + \".src\");\n"
" document [imgName].src = imgOff;\n"
" }\n"
"}\n"
"// -->\n"
"</script>\n");
}
string magic_image(string url, int xs, int ys, string sn,
string image_1, string image_2, string alt,
|
b91fd5 | 1996-12-10 | Per Hedbor | | string mess,object id,string input,string extra_args)
|
d47cbf | 1996-12-02 | Per Hedbor | | {
if(!id->supports->images) return alt;
if(!id->supports->javascript)
|
38dca8 | 1996-12-10 | Per Hedbor | | return (!input)?
|
d2a0f1 | 1996-12-10 | David Hedbor | | ("<a "+extra_args+"href=\""+url+"\"><img _parsed=1 src="+image_1+" name="+
|
38dca8 | 1996-12-10 | Per Hedbor | | sn+" border=0 alt=\""+alt+"\" ></a>\n"):
|
b91fd5 | 1996-12-10 | Per Hedbor | | ("<input type=image "+extra_args+" src="+image_1+" name="+input+">");
|
d47cbf | 1996-12-02 | Per Hedbor | |
return
("<script>\n"
"<!-- \n"
"if(version == \"3\")\n"
"{\n"
" "+sn+" = new Image("+xs+", "+ys+");\n"
" "+sn+".src = \""+image_1+"\";\n"
" "+sn+"2 = new Image("+xs+", "+ys+");\n"
" "+sn+"2.src = \""+image_2+"\";\n"
"}\n"
"// -->\n"
|
38dca8 | 1996-12-10 | Per Hedbor | | "</script>\n"+
|
b91fd5 | 1996-12-10 | Per Hedbor | | ("<a "+extra_args+"href=\""+url+"\" "+(input?"onClick='document.forms[0].submit();' ":"")
|
38dca8 | 1996-12-10 | Per Hedbor | | +"onMouseover=\"img_act('"+sn+"','"
+(mess||url)+"');return true;\"\n"
"\n"
|
bfc707 | 1997-01-13 | Per Hedbor | | "onMouseout=\"img_inact('"+sn+"')\"><img _parsed=1 width="+xs+" "
"height="+ys+" src="+image_1+" name="+sn+" border=0\nalt=\""+alt+"\" ></a>\n"));
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
b91fd5 | 1996-12-10 | Per Hedbor | |
string extra_args(mapping in)
{
string s="";
foreach(indices(in), string i)
{
switch(i)
{
case "target":
|
bfc707 | 1997-01-13 | Per Hedbor | | case "hspace":
case "vspace":
case "onclick":
|
80739c | 1996-12-10 | Per Hedbor | | s+=i+"='"+in[i]+"' ";
|
b91fd5 | 1996-12-10 | Per Hedbor | | m_delete(in, i);
break;
}
}
return s;
}
|
d47cbf | 1996-12-02 | Per Hedbor | | string tag_graphicstext(string t, mapping arg, string contents,
object id, object foo, mapping defines)
{
|
c3655b | 1997-01-27 | Per Hedbor | |
contents = parse_rxml(contents, id, foo, defines);
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | string pre, post, defalign, gt, rest, magic;
int i, split;
if(!id->supports->images || id->prestate->noimages)
{
if(!arg->split) contents=replace(contents,"\n", "\n<br>\n");
|
38dca8 | 1996-12-10 | Per Hedbor | | if(arg->submit) return "<input type=submit value=\""+contents+"\">";
|
d47cbf | 1996-12-02 | Per Hedbor | | switch(t)
{
case "gtext":
case "anfang":
if(arg->href)
return "<a href=\""+arg->href+"\">"+contents+"</a>";
return contents;
default:
if(sscanf(t, "%s%d", t, i)==2)
rest="<h"+i+">"+contents+"</h"+i+">";
else
rest="<h1>"+contents+"</h1>";
if(arg->href)
return "<a href=\""+arg->href+"\">"+rest+"</a>";
return rest;
}
}
|
bfc707 | 1997-01-13 | Per Hedbor | | contents = contents[..((int)arg->maxlen||QUERY(deflen))];
m_delete(arg, "maxlen");
|
d47cbf | 1996-12-02 | Per Hedbor | | if(arg->magic)
{
magic=arg->magic;
m_delete(arg,"magic");
}
|
38dca8 | 1996-12-10 | Per Hedbor | |
int input;
if(arg->submit)
{
input=1;
m_delete(arg,"submit");
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
80739c | 1996-12-10 | Per Hedbor | | string lp, url, ea;
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
80739c | 1996-12-10 | Per Hedbor | | ea = extra_args(arg);
|
bfc707 | 1997-01-13 | Per Hedbor | |
|
d47cbf | 1996-12-02 | Per Hedbor | | if(arg->href)
{
url = arg->href;
|
80739c | 1996-12-10 | Per Hedbor | | lp = "<a href=\""+arg->href+"\" "+ea+">";
|
d47cbf | 1996-12-02 | Per Hedbor | | if(!arg->fg) arg->fg=defines->link||"#0000ff";
}
if(defines->fg && !arg->fg) arg->fg=defines->fg;
if(defines->bg && !arg->bg) arg->bg=defines->bg;
if(defines->font && !arg->font) arg->font=defines->font||QUERY(default_font);
if(!arg->font) arg->font = QUERY(default_font);
if(arg->split)
{
split=1;
m_delete(arg,"split");
}
for(i=2; i<10; i++)
if(arg[(string)i])
{
arg->scale = 1.0 / ((float)i*0.6);
m_delete(arg, (string)i);
}
if(sscanf(t, "%s%d", t, i)==2)
if(i > 1) arg->scale = 1.0 / ((float)i*0.6);
int num = find_or_insert( arg );
gt=contents;
rest="";
if(split)
{
string word;
array res = ({});
string pre = query_location()+num+"/";
if(lp) res+=({ lp });
gt=replace(gt, "\n", " ");
foreach(gt/" "-({""}), word)
{
array size = write_text(num,word,1,0);
|
d2a0f1 | 1996-12-10 | David Hedbor | | res += ({ "<img _parsed=1 border=0 alt=\""+replace(word,"\"","'")
|
d47cbf | 1996-12-02 | Per Hedbor | | +"\" src=\'"+pre+quote(word)+"\' width="+
|
bfc707 | 1997-01-13 | Per Hedbor | | size[0]+" height="+size[1]+" "+ea+">\n"
|
d47cbf | 1996-12-02 | Per Hedbor | | });
}
if(lp) res+=({ "</a>" });
return res*"";
}
switch(t)
{
case "gh1": case "gh2": case "gh3": case "gh4":
case "gh5": case "gh6": case "gh7":
case "gh": pre="<p>"; post="<br>"; defalign="top"; break;
case "gtext":
pre=""; post=""; defalign="bottom";
break;
case "anfang":
gt=contents[0..0]; rest=contents[1..];
pre="<br clear=left>"; post=""; defalign="left";
break;
}
array size = write_text(num,gt,1,0);
if(magic)
{
string res = "";
|
bfc707 | 1997-01-13 | Per Hedbor | | if(!arg->fg) arg->fg=defines->link||"#0000ff";
|
d47cbf | 1996-12-02 | Per Hedbor | | arg = mkmapping(indices(arg), values(arg));
|
bfc707 | 1997-01-13 | Per Hedbor | | if(arg->fuzz)
{
if(arg->fuzz != "fuzz")
arg->glow = arg->fuzz;
else
arg->glow = arg->fg;
}
|
d47cbf | 1996-12-02 | Per Hedbor | | arg->fg = defines->alink||"#ff0000";
|
38dca8 | 1996-12-10 | Per Hedbor | | if(arg->bevel) arg->pressed=1;
|
d47cbf | 1996-12-02 | Per Hedbor | | int num2 = find_or_insert(arg);
array size = write_text(num2,gt,1,0);
|
38dca8 | 1996-12-10 | Per Hedbor | | if(!defines->magic_java) res = magic_javascript_header(id);
|
d47cbf | 1996-12-02 | Per Hedbor | | defines->magic_java="yes";
return res + magic_image(url||"", size[0], size[1],
|
bfc707 | 1997-01-13 | Per Hedbor | | "i"+(num+""+hash(gt,0x7fffffff)+hash(url||"",0x7fffffff))+"g",
|
d47cbf | 1996-12-02 | Per Hedbor | | query_location()+num+"/"+quote(gt),
query_location()+num2+"/"+quote(gt),
replace(gt, "\"","'"),(magic=="magic"?0:magic),
|
80739c | 1996-12-10 | Per Hedbor | | id,input?(arg->name||"submit"):0,ea);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
38dca8 | 1996-12-10 | Per Hedbor | | if(input && id->supports->images)
return (pre+"<input type=image name=\""+arg->name+"\" border=0 alt=\""+
replace(gt,"\"","'")+"\" src="+query_location()+num+"/"+quote(gt)
|
bfc707 | 1997-01-13 | Per Hedbor | | +" align="+(arg->align?arg->align:defalign)+ea+
|
38dca8 | 1996-12-10 | Per Hedbor | | " width="+size[0]+" height="+size[1]+">"+rest+post);
|
d47cbf | 1996-12-02 | Per Hedbor | | return (pre+(lp?lp:"")+
|
d2a0f1 | 1996-12-10 | David Hedbor | | "<img _parsed=1 border=0 alt=\""+replace(gt,"\"","'")+"\" src="+
|
bfc707 | 1997-01-13 | Per Hedbor | | query_location()+num+"/"+quote(gt)+" "+ea
|
d47cbf | 1996-12-02 | Per Hedbor | | +" align="+(arg->align?arg->align:defalign)+
" width="+size[0]+" height="+size[1]+">"+rest+(lp?"</a>":"")+post);
}
|
bfc707 | 1997-01-13 | Per Hedbor | | inline string ns_color(array (int) col)
{
if(!arrayp(col)||sizeof(col)!=3)
return "#000000";
return sprintf("#%02x%02x%02x", col[0],col[1],col[2]);
}
string make_args(mapping in)
{
array a=indices(in), b=values(in);
for(int i=0; i<sizeof(a); i++)
if(lower_case(b[i])!=a[i])
if(search(b,"\"")==-1)
a[i]+="=\""+b[i]+"\"";
else
a[i]+="='"+b[i]+"'";
return a*" ";
}
|
d47cbf | 1996-12-02 | Per Hedbor | | string tag_body(string t, mapping args, object id, object file,
mapping defines)
{
|
bfc707 | 1997-01-13 | Per Hedbor | | int cols,changed;
if(args->bgcolor||args->text||args->link||args->alink
||args->background||args->vlink)
cols=1;
#define FIX(Y,Z,X) do{if(!args->Y){if(cols){defines->X=Z;args->Y=Z;changed=1;}}else{defines->X=args->Y;if(args->Y[0]!='#'){args->Y=ns_color(parse_color(args->Y));changed=1;}}}while(0)
|
0ee085 | 1997-02-08 | Per Hedbor | | if(!search(id->client*"","Mosaic"))
{
FIX(bgcolor,"#bfbfbf",bg);
FIX(text, "#000000",fg);
FIX(link, "#0000b0",link);
FIX(alink, "#3f0f7b",alink);
FIX(vlink, "#ff0000",vlink);
} else {
FIX(bgcolor,"#c0c0c0",bg);
FIX(text, "#000000",fg);
FIX(link, "#0000ee",link);
FIX(alink, "#ff0000",alink);
FIX(vlink, "#551a8b",vlink);
}
if(changed) return ("<body "+make_args(args)+">");
|
d47cbf | 1996-12-02 | Per Hedbor | | }
|
bfc707 | 1997-01-13 | Per Hedbor | | string tag_fix_color(string tagname, mapping args, object id, object file,
mapping defines)
{
int changed;
#define FIX(X,Y) if(args->X){defines->Y=args->X;if(args->X[0]!='#'){args->X=ns_color(parse_color(args->X));changed = 1;}}
FIX(bgcolor,bg);
FIX(text,fg);
FIX(color,fg);
if(changed)return ("<"+tagname+" "+make_args(args)+">");
return 0;
}
|
d47cbf | 1996-12-02 | Per Hedbor | |
|
bfc707 | 1997-01-13 | Per Hedbor | | mapping query_tag_callers()
|
d47cbf | 1996-12-02 | Per Hedbor | | {
|
bfc707 | 1997-01-13 | Per Hedbor | | return ([
"body":tag_body, "font":tag_fix_color,
"table":tag_fix_color,
"tr":tag_fix_color, "td":tag_fix_color
]);
|
d47cbf | 1996-12-02 | Per Hedbor | | }
mapping query_container_callers()
{
return ([ "anfang":tag_graphicstext,
"gh":tag_graphicstext,
|
bfc707 | 1997-01-13 | Per Hedbor | | "gh1":tag_graphicstext, "gh2":tag_graphicstext,
"gh3":tag_graphicstext, "gh4":tag_graphicstext,
"gh5":tag_graphicstext, "gh6":tag_graphicstext,
"gh7":tag_graphicstext, "gh8":tag_graphicstext,
"gh9":tag_graphicstext, "gh10":tag_graphicstext,
"gh11":tag_graphicstext,"gh12":tag_graphicstext,
|
d47cbf | 1996-12-02 | Per Hedbor | | "gtext":tag_graphicstext, ]);
}
|