rem: RCombineImages(icon, xis);
add: RCombineImagesWithOpaqueness(icon, xis, 180);
context: createImages(WMScreen *scr, RContext *rc, RImage *xis, char *file, 	     WMPixmap **icon1,  WMPixmap **icon2){    RImage *icon;    char *path;    *icon1 = NULL;    *icon2 = NULL;    path = LocateImage(file);    if (!path) {	return;    }        *icon1 = WMCreatePixmapFromFile(scr, path);    if (!*icon1) {	wwarning(_("could not load icon %s"), path);	free(path);	return;    }    icon = RLoadImage(rc, path, 0);    if (!icon) {	wwarning(_("could not load icon %s"), path);	free(path);	return;    }    if (xis) {	RCombineImages(icon, xis);	if (!(*icon2 = WMCreatePixmapFromRImage(scr, icon, 127)))	    wwarning(_("could not process icon %s:"), file, RErrorString);    }    RDestroyImage(icon);    free(path);}