rem: int i;
context: loadRImage(WMScreen *scr, char *path){    FILE *f;    RImage *image;    int w, h, d;    int i;    Pixmap pixmap;    f = fopen(path, "r");    if (!f)	return None;    fscanf(f, "%02x%02x%1x", &w, &h, &d);    image = RCreateImage(w, h, d == 4);    for (i = 0; i < d; i++) {	fread(image->data[i], 1, w*h, f);    }    fclose(f);    RConvertImage(WMScreenRContext(scr), image, &pixmap);    RDestroyImage(image);    return pixmap;}