interface_icons.c

Go to the documentation of this file.

/*
 * ***** BEGIN GPL LICENSE BLOCK *****
 *
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
 *
 * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
 * All rights reserved.
 *
 * Contributors: Blender Foundation, full recode
 *
 * ***** END GPL LICENSE BLOCK *****
 */

#include <math.h>
#include <stdlib.h>
#include <string.h>

#ifndef WIN32
#include <unistd.h>
#else
#include <io.h>
#include <direct.h>
#include "BLI_winstuff.h"
#endif   
#include "MEM_guardedalloc.h"

#include "GPU_extensions.h"

#include "BLI_math.h"
#include "BLI_blenlib.h"
#include "BLI_utildefines.h"

#include "DNA_brush_types.h"
#include "DNA_object_types.h"
#include "DNA_screen_types.h"
#include "DNA_space_types.h"

#include "RNA_access.h"
#include "RNA_enum_types.h"

#include "BKE_context.h"
#include "BKE_global.h"
#include "BKE_icons.h"
#include "BKE_utildefines.h"

#include "IMB_imbuf.h"
#include "IMB_imbuf_types.h"

#include "BIF_gl.h"
#include "BIF_glutil.h"

#include "ED_datafiles.h"
#include "ED_render.h"

#include "UI_interface.h"
#include "UI_interface_icons.h"

#include "interface_intern.h"


#define ICON_IMAGE_W        600
#define ICON_IMAGE_H        640

#define ICON_GRID_COLS      26
#define ICON_GRID_ROWS      30

#define ICON_GRID_MARGIN    5
#define ICON_GRID_W     16
#define ICON_GRID_H     16

typedef struct IconImage {
    int w;
    int h;
    unsigned int *rect; 
} IconImage;

typedef void (*VectorDrawFunc)(int x, int y, int w, int h, float alpha);

#define ICON_TYPE_PREVIEW   0
#define ICON_TYPE_TEXTURE   1
#define ICON_TYPE_BUFFER    2
#define ICON_TYPE_VECTOR    3

typedef struct DrawInfo {
    int type;

    union {
        /* type specific data */
        struct {
            VectorDrawFunc func;
        } vector;
        struct {
            IconImage* image;
        } buffer;
        struct {
            int x, y, w, h;
        } texture;
    } data;
} DrawInfo;

typedef struct IconTexture {
    GLuint id;
    int w;
    int h;
    float invw;
    float invh;
} IconTexture;

/* ******************* STATIC LOCAL VARS ******************* */
/* static here to cache results of icon directory scan, so it's not 
 * scanning the filesystem each time the menu is drawn */
static struct ListBase iconfilelist = {NULL, NULL};
static IconTexture icongltex = {0, 0, 0, 0.0f, 0.0f};

/* **************************************************** */

static void def_internal_icon(ImBuf *bbuf, int icon_id, int xofs, int yofs, int size, int type)
{
    Icon *new_icon = NULL;
    IconImage *iimg = NULL;
    DrawInfo *di;
    int y = 0;
    int imgsize = 0;

    new_icon = MEM_callocN(sizeof(Icon), "texicon");

    new_icon->obj = NULL; /* icon is not for library object */
    new_icon->type = 0; 

    di = MEM_callocN(sizeof(DrawInfo), "drawinfo");
    di->type= type;

    if(type == ICON_TYPE_TEXTURE) {
        di->data.texture.x= xofs;
        di->data.texture.y= yofs;
        di->data.texture.w= size;
        di->data.texture.h= size;
    }
    else if(type == ICON_TYPE_BUFFER) {
        iimg = MEM_mallocN(sizeof(IconImage), "icon_img");
        iimg->rect = MEM_mallocN(size*size*sizeof(unsigned int), "icon_rect");
        iimg->w = size;
        iimg->h = size;

        /* Here we store the rect in the icon - same as before */
        imgsize = bbuf->x;
        for (y=0; y<size; y++) {
            memcpy(&iimg->rect[y*size], &bbuf->rect[(y+yofs)*imgsize+xofs], size*sizeof(int));
        }

        di->data.buffer.image = iimg;
    }

    new_icon->drawinfo_free = UI_icons_free_drawinfo;
    new_icon->drawinfo = di;

    BKE_icon_set(icon_id, new_icon);
}

static void def_internal_vicon( int icon_id, VectorDrawFunc drawFunc)
{
    Icon *new_icon = NULL;
    DrawInfo* di;

    new_icon = MEM_callocN(sizeof(Icon), "texicon");

    new_icon->obj = NULL; /* icon is not for library object */
    new_icon->type = 0;

    di = MEM_callocN(sizeof(DrawInfo), "drawinfo");
    di->type= ICON_TYPE_VECTOR;
    di->data.vector.func =drawFunc;

    new_icon->drawinfo_free = NULL;
    new_icon->drawinfo = di;

    BKE_icon_set(icon_id, new_icon);
}

/* Vector Icon Drawing Routines */

    /* Utilities */

static void viconutil_set_point(GLint pt[2], int x, int y)
{
    pt[0] = x;
    pt[1] = y;
}

static void viconutil_draw_tri(GLint (*pts)[2])
{
    glBegin(GL_TRIANGLES);
    glVertex2iv(pts[0]);
    glVertex2iv(pts[1]);
    glVertex2iv(pts[2]);
    glEnd();
}

static void viconutil_draw_lineloop(GLint (*pts)[2], int numPoints)
{
    int i;

    glBegin(GL_LINE_LOOP);
    for (i=0; i<numPoints; i++) {
        glVertex2iv(pts[i]);
    }
    glEnd();
}

static void viconutil_draw_lineloop_smooth(GLint (*pts)[2], int numPoints)
{
    glEnable(GL_LINE_SMOOTH);
    viconutil_draw_lineloop(pts, numPoints);
    glDisable(GL_LINE_SMOOTH);
}

static void viconutil_draw_points(GLint (*pts)[2], int numPoints, int pointSize)
{
    int i;

    glBegin(GL_QUADS);
    for (i=0; i<numPoints; i++) {
        int x = pts[i][0], y = pts[i][1];

        glVertex2i(x-pointSize,y-pointSize);
        glVertex2i(x+pointSize,y-pointSize);
        glVertex2i(x+pointSize,y+pointSize);
        glVertex2i(x-pointSize,y+pointSize);
    }
    glEnd();
}

    /* Drawing functions */

static void vicon_x_draw(int x, int y, int w, int h, float alpha)
{
    x += 3;
    y += 3;
    w -= 6;
    h -= 6;

    glEnable( GL_LINE_SMOOTH );

    glLineWidth(2.5);
    
    glColor4f(0.0, 0.0, 0.0, alpha);
    glBegin(GL_LINES);
    glVertex2i(x  ,y  );
    glVertex2i(x+w,y+h);
    glVertex2i(x+w,y  );
    glVertex2i(x  ,y+h);
    glEnd();

    glLineWidth(1.0);
    
    glDisable( GL_LINE_SMOOTH );
}

static void vicon_view3d_draw(int x, int y, int w, int h, float alpha)
{
    int cx = x + w/2;
    int cy = y + h/2;
    int d = MAX2(2, h/3);

    glColor4f(0.5, 0.5, 0.5, alpha);
    glBegin(GL_LINES);
    glVertex2i(x  , cy-d);
    glVertex2i(x+w, cy-d);
    glVertex2i(x  , cy+d);
    glVertex2i(x+w, cy+d);

    glVertex2i(cx-d, y  );
    glVertex2i(cx-d, y+h);
    glVertex2i(cx+d, y  );
    glVertex2i(cx+d, y+h);
    glEnd();
    
    glColor4f(0.0, 0.0, 0.0, alpha);
    glBegin(GL_LINES);
    glVertex2i(x  , cy);
    glVertex2i(x+w, cy);
    glVertex2i(cx, y  );
    glVertex2i(cx, y+h);
    glEnd();
}

static void vicon_edit_draw(int x, int y, int w, int h, float alpha)
{
    GLint pts[4][2];

    viconutil_set_point(pts[0], x+3  , y+3  );
    viconutil_set_point(pts[1], x+w-3, y+3  );
    viconutil_set_point(pts[2], x+w-3, y+h-3);
    viconutil_set_point(pts[3], x+3  , y+h-3);

    glColor4f(0.0, 0.0, 0.0, alpha);
    viconutil_draw_lineloop(pts, 4);

    glColor3f(1, 1, 0.0);
    viconutil_draw_points(pts, 4, 1);
}

static void vicon_editmode_hlt_draw(int x, int y, int w, int h, float alpha)
{
    GLint pts[3][2];

    viconutil_set_point(pts[0], x+w/2, y+h-2);
    viconutil_set_point(pts[1], x+3, y+4);
    viconutil_set_point(pts[2], x+w-3, y+4);

    glColor4f(0.5, 0.5, 0.5, alpha);
    viconutil_draw_tri(pts);

    glColor4f(0.0, 0.0, 0.0, 1);
    viconutil_draw_lineloop_smooth(pts, 3);

    glColor3f(1, 1, 0.0);
    viconutil_draw_points(pts, 3, 1);
}

static void vicon_editmode_dehlt_draw(int x, int y, int w, int h, float UNUSED(alpha))
{
    GLint pts[3][2];

    viconutil_set_point(pts[0], x+w/2, y+h-2);
    viconutil_set_point(pts[1], x+3, y+4);
    viconutil_set_point(pts[2], x+w-3, y+4);

    glColor4f(0.0f, 0.0f, 0.0f, 1);
    viconutil_draw_lineloop_smooth(pts, 3);

    glColor3f(.9f, .9f, .9f);
    viconutil_draw_points(pts, 3, 1);
}

static void vicon_disclosure_tri_right_draw(int x, int y, int w, int UNUSED(h), float alpha)
{
    GLint pts[3][2];
    int cx = x+w/2;
    int cy = y+w/2;
    int d = w/3, d2 = w/5;

    viconutil_set_point(pts[0], cx-d2, cy+d);
    viconutil_set_point(pts[1], cx-d2, cy-d);
    viconutil_set_point(pts[2], cx+d2, cy);

    glShadeModel(GL_SMOOTH);
    glBegin(GL_TRIANGLES);
    glColor4f(0.8f, 0.8f, 0.8f, alpha);
    glVertex2iv(pts[0]);
    glVertex2iv(pts[1]);
    glColor4f(0.3f, 0.3f, 0.3f, alpha);
    glVertex2iv(pts[2]);
    glEnd();
    glShadeModel(GL_FLAT);

    glColor4f(0.0f, 0.0f, 0.0f, 1);
    viconutil_draw_lineloop_smooth(pts, 3);
}

static void vicon_small_tri_right_draw(int x, int y, int w, int UNUSED(h), float alpha)
{
    GLint pts[3][2];
    int cx = x+w/2-4;
    int cy = y+w/2;
    int d = w/5, d2 = w/7;

    viconutil_set_point(pts[0], cx-d2, cy+d);
    viconutil_set_point(pts[1], cx-d2, cy-d);
    viconutil_set_point(pts[2], cx+d2, cy);

    glColor4f(0.2f, 0.2f, 0.2f, alpha);

    glShadeModel(GL_SMOOTH);
    glBegin(GL_TRIANGLES);
    glVertex2iv(pts[0]);
    glVertex2iv(pts[1]);
    glVertex2iv(pts[2]);
    glEnd();
    glShadeModel(GL_FLAT);
}

static void vicon_disclosure_tri_down_draw(int x, int y, int w, int UNUSED(h), float alpha)
{
    GLint pts[3][2];
    int cx = x+w/2;
    int cy = y+w/2;
    int d = w/3, d2 = w/5;

    viconutil_set_point(pts[0], cx+d, cy+d2);
    viconutil_set_point(pts[1], cx-d, cy+d2);
    viconutil_set_point(pts[2], cx, cy-d2);

    glShadeModel(GL_SMOOTH);
    glBegin(GL_TRIANGLES);
    glColor4f(0.8f, 0.8f, 0.8f, alpha);
    glVertex2iv(pts[0]);
    glVertex2iv(pts[1]);
    glColor4f(0.3f, 0.3f, 0.3f, alpha);
    glVertex2iv(pts[2]);
    glEnd();
    glShadeModel(GL_FLAT);

    glColor4f(0.0f, 0.0f, 0.0f, 1);
    viconutil_draw_lineloop_smooth(pts, 3);
}

static void vicon_move_up_draw(int x, int y, int w, int h, float UNUSED(alpha))
{
    int d=-2;

    glEnable(GL_LINE_SMOOTH);
    glLineWidth(1);
    glColor3f(0.0, 0.0, 0.0);

    glBegin(GL_LINE_STRIP);
    glVertex2i(x+w/2-d*2, y+h/2+d);
    glVertex2i(x+w/2, y+h/2-d + 1);
    glVertex2i(x+w/2+d*2, y+h/2+d);
    glEnd();

    glLineWidth(1.0);
    glDisable(GL_LINE_SMOOTH);
}

static void vicon_move_down_draw(int x, int y, int w, int h, float UNUSED(alpha))
{
    int d=2;

    glEnable(GL_LINE_SMOOTH);
    glLineWidth(1);
    glColor3f(0.0, 0.0, 0.0);

    glBegin(GL_LINE_STRIP);
    glVertex2i(x+w/2-d*2, y+h/2+d);
    glVertex2i(x+w/2, y+h/2-d - 1);
    glVertex2i(x+w/2+d*2, y+h/2+d);
    glEnd();

    glLineWidth(1.0);
    glDisable(GL_LINE_SMOOTH);
}

#ifndef WITH_HEADLESS
static void init_brush_icons(void)
{

#define INIT_BRUSH_ICON(icon_id, name)                                         \
    bbuf = IMB_ibImageFromMemory((unsigned char*)datatoc_ ##name## _png,       \
                     datatoc_ ##name## _png_size, IB_rect, "<brush icon>");    \
    def_internal_icon(bbuf, icon_id, 0, 0, w, ICON_TYPE_BUFFER);               \
    IMB_freeImBuf(bbuf);
    // end INIT_BRUSH_ICON

    ImBuf *bbuf;
    const int w = 96;

    INIT_BRUSH_ICON(ICON_BRUSH_ADD, add);
    INIT_BRUSH_ICON(ICON_BRUSH_BLOB, blob);
    INIT_BRUSH_ICON(ICON_BRUSH_BLUR, blur);
    INIT_BRUSH_ICON(ICON_BRUSH_CLAY, clay);
    INIT_BRUSH_ICON(ICON_BRUSH_CLONE, clone);
    INIT_BRUSH_ICON(ICON_BRUSH_CREASE, crease);
    INIT_BRUSH_ICON(ICON_BRUSH_DARKEN, darken);
    INIT_BRUSH_ICON(ICON_BRUSH_SCULPT_DRAW, draw);
    INIT_BRUSH_ICON(ICON_BRUSH_FILL, fill);
    INIT_BRUSH_ICON(ICON_BRUSH_FLATTEN, flatten);
    INIT_BRUSH_ICON(ICON_BRUSH_GRAB, grab);
    INIT_BRUSH_ICON(ICON_BRUSH_INFLATE, inflate);
    INIT_BRUSH_ICON(ICON_BRUSH_LAYER, layer);
    INIT_BRUSH_ICON(ICON_BRUSH_LIGHTEN, lighten);
    INIT_BRUSH_ICON(ICON_BRUSH_MIX, mix);
    INIT_BRUSH_ICON(ICON_BRUSH_MULTIPLY, multiply);
    INIT_BRUSH_ICON(ICON_BRUSH_NUDGE, nudge);
    INIT_BRUSH_ICON(ICON_BRUSH_PINCH, pinch);
    INIT_BRUSH_ICON(ICON_BRUSH_SCRAPE, scrape);
    INIT_BRUSH_ICON(ICON_BRUSH_SMEAR, smear);
    INIT_BRUSH_ICON(ICON_BRUSH_SMOOTH, smooth);
    INIT_BRUSH_ICON(ICON_BRUSH_SNAKE_HOOK, snake_hook);
    INIT_BRUSH_ICON(ICON_BRUSH_SOFTEN, soften);
    INIT_BRUSH_ICON(ICON_BRUSH_SUBTRACT, subtract);
    INIT_BRUSH_ICON(ICON_BRUSH_TEXDRAW, texdraw);
    INIT_BRUSH_ICON(ICON_BRUSH_THUMB, thumb);
    INIT_BRUSH_ICON(ICON_BRUSH_ROTATE, twist);
    INIT_BRUSH_ICON(ICON_BRUSH_VERTEXDRAW, vertexdraw);

#undef INIT_BRUSH_ICON
}

static void init_internal_icons(void)
{
    bTheme *btheme= UI_GetTheme();
    ImBuf *bbuf= NULL;
    int x, y, icontype;
    char iconfilestr[FILE_MAX];
    
    if ((btheme!=NULL) && btheme->tui.iconfile[0]) {
        char *icondir= BLI_get_folder(BLENDER_DATAFILES, "icons");
        if (icondir) {
            BLI_join_dirfile(iconfilestr, sizeof(iconfilestr), icondir, btheme->tui.iconfile);
            bbuf = IMB_loadiffname(iconfilestr, IB_rect); /* if the image is missing bbuf will just be NULL */
            if(bbuf && (bbuf->x < ICON_IMAGE_W || bbuf->y < ICON_IMAGE_H)) {
                printf("\n***WARNING***\nIcons file %s too small.\nUsing built-in Icons instead\n", iconfilestr);
                IMB_freeImBuf(bbuf);
                bbuf= NULL;
            }
        }
        else {
            printf("%s: 'icons' data path not found, continuing\n", __func__);
        }
    }
    if(bbuf==NULL)
        bbuf = IMB_ibImageFromMemory((unsigned char*)datatoc_blender_icons_png, datatoc_blender_icons_png_size, IB_rect, "<blender icons>");

    if(bbuf) {
        /* free existing texture if any */
        if(icongltex.id) {
            glDeleteTextures(1, &icongltex.id);
            icongltex.id= 0;
        }

        /* we only use a texture for cards with non-power of two */
        if(GPU_non_power_of_two_support()) {
            glGenTextures(1, &icongltex.id);

            if(icongltex.id) {
                icongltex.w = bbuf->x;
                icongltex.h = bbuf->y;
                icongltex.invw = 1.0f/bbuf->x;
                icongltex.invh = 1.0f/bbuf->y;

                glBindTexture(GL_TEXTURE_2D, icongltex.id);
                glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, bbuf->x, bbuf->y, 0, GL_RGBA, GL_UNSIGNED_BYTE, bbuf->rect);
                glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR);
                glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR);
                glBindTexture(GL_TEXTURE_2D, 0);

                if(glGetError() == GL_OUT_OF_MEMORY) {
                    glDeleteTextures(1, &icongltex.id);
                    icongltex.id= 0;
                }
            }
        }
    }

    if(icongltex.id)
        icontype= ICON_TYPE_TEXTURE;
    else
        icontype= ICON_TYPE_BUFFER;
    
    if(bbuf) {
        for (y=0; y<ICON_GRID_ROWS; y++) {
            for (x=0; x<ICON_GRID_COLS; x++) {
                def_internal_icon(bbuf, BIFICONID_FIRST + y*ICON_GRID_COLS + x,
                    x*(ICON_GRID_W+ICON_GRID_MARGIN)+ICON_GRID_MARGIN,
                    y*(ICON_GRID_H+ICON_GRID_MARGIN)+ICON_GRID_MARGIN, ICON_GRID_W,
                    icontype);
            }
        }
    }

    def_internal_vicon(VICO_VIEW3D_VEC, vicon_view3d_draw);
    def_internal_vicon(VICO_EDIT_VEC, vicon_edit_draw);
    def_internal_vicon(VICO_EDITMODE_DEHLT, vicon_editmode_dehlt_draw);
    def_internal_vicon(VICO_EDITMODE_HLT, vicon_editmode_hlt_draw);
    def_internal_vicon(VICO_DISCLOSURE_TRI_RIGHT_VEC, vicon_disclosure_tri_right_draw);
    def_internal_vicon(VICO_DISCLOSURE_TRI_DOWN_VEC, vicon_disclosure_tri_down_draw);
    def_internal_vicon(VICO_MOVE_UP_VEC, vicon_move_up_draw);
    def_internal_vicon(VICO_MOVE_DOWN_VEC, vicon_move_down_draw);
    def_internal_vicon(VICO_X_VEC, vicon_x_draw);
    def_internal_vicon(VICO_SMALL_TRI_RIGHT_VEC, vicon_small_tri_right_draw);

    IMB_freeImBuf(bbuf);
}
#endif // WITH_HEADLESS

static void init_iconfile_list(struct ListBase *list)
{
    IconFile *ifile;
    struct direntry *dir;
    int restoredir = 1; /* restore to current directory */
    int totfile, i, index=1;
    const char *icondir;
    char olddir[FILE_MAX];

    list->first = list->last = NULL;
    icondir = BLI_get_folder(BLENDER_DATAFILES, "icons");

    if(icondir==NULL)
        return;
    
    /* since BLI_dir_contents changes the current working directory, restore it 
       back to old value afterwards */
    if(!BLI_current_working_dir(olddir, sizeof(olddir))) 
        restoredir = 0;
    totfile = BLI_dir_contents(icondir, &dir);
    if (restoredir && !chdir(olddir)) {} /* fix warning about checking return value */

    for(i=0; i<totfile; i++) {
        if( (dir[i].type & S_IFREG) ) {
            char *filename = dir[i].relname;
            
            if(BLI_testextensie(filename, ".png")) {
                /* loading all icons on file start is overkill & slows startup
                 * its possible they change size after blender load anyway. */
#if 0
                int ifilex, ifiley;
                char iconfilestr[FILE_MAX+16]; /* allow 256 chars for file+dir */
                ImBuf *bbuf= NULL;
                /* check to see if the image is the right size, continue if not */
                /* copying strings here should go ok, assuming that we never get back
                   a complete path to file longer than 256 chars */
                BLI_join_dirfile(iconfilestr, sizeof(iconfilestr), icondir, filename);
                bbuf= IMB_loadiffname(iconfilestr, IB_rect);

                if(bbuf) {
                    ifilex = bbuf->x;
                    ifiley = bbuf->y;
                    IMB_freeImBuf(bbuf);
                }
                else {
                    ifilex= ifiley= 0;
                }
                
                /* bad size or failed to load */
                if ((ifilex != ICON_IMAGE_W) || (ifiley != ICON_IMAGE_H)) {
                    printf("icon '%s' is wrong size %dx%d\n", iconfilestr, ifilex, ifiley);
                    continue;
                }
#endif          /* removed */

                /* found a potential icon file, so make an entry for it in the cache list */
                ifile = MEM_callocN(sizeof(IconFile), "IconFile");
                
                BLI_strncpy(ifile->filename, filename, sizeof(ifile->filename));
                ifile->index = index;

                BLI_addtail(list, ifile);
                
                index++;
            }
        }
    }
    
    /* free temporary direntry structure that's been created by BLI_dir_contents() */
    i= totfile-1;
    
    for(; i>=0; i--){
        MEM_freeN(dir[i].relname);
        MEM_freeN(dir[i].path);
        if (dir[i].string) MEM_freeN(dir[i].string);
    }
    free(dir);
    dir= NULL;
}

static void free_iconfile_list(struct ListBase *list)
{
    IconFile *ifile=NULL, *next_ifile=NULL;
    
    for(ifile=list->first; ifile; ifile=next_ifile) {
        next_ifile = ifile->next;
        BLI_freelinkN(list, ifile);
    }
}

int UI_iconfile_get_index(const char *filename)
{
    IconFile *ifile;
    ListBase *list=&(iconfilelist);
    
    for(ifile=list->first; ifile; ifile=ifile->next) {
        if (BLI_path_cmp(filename, ifile->filename) == 0) {
            return ifile->index;
        }
    }
    
    return 0;
}

ListBase *UI_iconfile_list(void)
{
    ListBase *list=&(iconfilelist);
    
    return list;
}


void UI_icons_free(void)
{
#ifndef WITH_HEADLESS
    if(icongltex.id) {
        glDeleteTextures(1, &icongltex.id);
        icongltex.id= 0;
    }

    free_iconfile_list(&iconfilelist);
    BKE_icons_free();
#endif
}

void UI_icons_free_drawinfo(void *drawinfo)
{
    DrawInfo *di = drawinfo;

    if(di) {
        if(di->type == ICON_TYPE_BUFFER) {
            if(di->data.buffer.image) {
                MEM_freeN(di->data.buffer.image->rect);
                MEM_freeN(di->data.buffer.image);
            }
        }

        MEM_freeN(di);
    }
}

static DrawInfo *icon_create_drawinfo(void)
{
    DrawInfo *di = NULL;

    di = MEM_callocN(sizeof(DrawInfo), "di_icon");
    di->type= ICON_TYPE_PREVIEW;

    return di;
}

/* note!, returns unscaled by DPI, may need to multiply result by UI_DPI_ICON_FAC */
int UI_icon_get_width(int icon_id)
{
    Icon *icon = NULL;
    DrawInfo *di = NULL;

    icon = BKE_icon_get(icon_id);
    
    if (icon==NULL) {
        if (G.f & G_DEBUG)
            printf("%s: Internal error, no icon for icon ID: %d\n", __func__, icon_id);
        return 0;
    }
    
    di = (DrawInfo *)icon->drawinfo;
    if (!di) {
        di = icon_create_drawinfo();
        icon->drawinfo = di;
    }

    if (di)
        return ICON_DEFAULT_WIDTH;

    return 0;
}

int UI_icon_get_height(int icon_id)
{
    Icon *icon = NULL;
    DrawInfo *di = NULL;

    icon = BKE_icon_get(icon_id);
    
    if (icon==NULL) {
        if (G.f & G_DEBUG)
            printf("%s: Internal error, no icon for icon ID: %d\n", __func__, icon_id);
        return 0;
    }
    
    di = (DrawInfo*)icon->drawinfo;

    if (!di) {
        di = icon_create_drawinfo();
        icon->drawinfo = di;
    }
    
    if (di)
        return ICON_DEFAULT_HEIGHT;

    return 0;
}

void UI_icons_init(int first_dyn_id)
{
#ifdef WITH_HEADLESS
    (void)first_dyn_id;
#else
    init_iconfile_list(&iconfilelist);
    BKE_icons_init(first_dyn_id);
    init_internal_icons();
    init_brush_icons();
#endif
}

/* Render size for preview images and icons
 */
static int preview_render_size(enum eIconSizes size)
{
    switch (size) {
        case ICON_SIZE_ICON:    return 32;
        case ICON_SIZE_PREVIEW: return PREVIEW_DEFAULT_HEIGHT;
    }
    return 0;
}

/* Create rect for the icon
 */
static void icon_create_rect(struct PreviewImage* prv_img, enum eIconSizes size) 
{
    unsigned int render_size = preview_render_size(size);

    if (!prv_img) {
        if (G.f & G_DEBUG)
            printf("%s, error: requested preview image does not exist", __func__);
    }
    if (!prv_img->rect[size]) {
        prv_img->w[size] = render_size;
        prv_img->h[size] = render_size;
        prv_img->changed[size] = 1;
        prv_img->changed_timestamp[size] = 0;
        prv_img->rect[size] = MEM_callocN(render_size*render_size*sizeof(unsigned int), "prv_rect"); 
    }
}

/* only called when icon has changed */
/* only call with valid pointer from UI_icon_draw */
static void icon_set_image(bContext *C, ID *id, PreviewImage* prv_img, enum eIconSizes size)
{
    if (!prv_img) {
        if (G.f & G_DEBUG)
            printf("%s: no preview image for this ID: %s\n", __func__, id->name);
        return;
    }   

    icon_create_rect(prv_img, size);

    ED_preview_icon_job(C, prv_img, id, prv_img->rect[size],
        prv_img->w[size], prv_img->h[size]);
}

static void icon_draw_rect(float x, float y, int w, int h, float UNUSED(aspect), int rw, int rh, unsigned int *rect, float alpha, float *rgb, short is_preview)
{
    ImBuf *ima= NULL;

    /* sanity check */
    if(w<=0 || h<=0 || w>2000 || h>2000) {
        printf("%s: icons are %i x %i pixels?\n", __func__, w, h);
        BLI_assert(!"invalid icon size");
        return;
    }

    /* modulate color */
    if(alpha != 1.0f)
        glPixelTransferf(GL_ALPHA_SCALE, alpha);

    if(rgb) {
        glPixelTransferf(GL_RED_SCALE, rgb[0]);
        glPixelTransferf(GL_GREEN_SCALE, rgb[1]);
        glPixelTransferf(GL_BLUE_SCALE, rgb[2]);
    }

    /* rect contains image in 'rendersize', we only scale if needed */
    if(rw!=w && rh!=h) {
        /* first allocate imbuf for scaling and copy preview into it */
        ima = IMB_allocImBuf(rw, rh, 32, IB_rect);
        memcpy(ima->rect, rect, rw*rh*sizeof(unsigned int));    
        IMB_scaleImBuf(ima, w, h); /* scale it */
        rect= ima->rect;
    }

    /* draw */
    if(is_preview) {
        glaDrawPixelsSafe(x, y, w, h, w, GL_RGBA, GL_UNSIGNED_BYTE, rect);
    }
    else {
        glRasterPos2f(x, y);
        glDrawPixels(w, h, GL_RGBA, GL_UNSIGNED_BYTE, rect);
    }

    if(ima)
        IMB_freeImBuf(ima);

    /* restore color */
    if(alpha != 0.0f)
        glPixelTransferf(GL_ALPHA_SCALE, 1.0f);
    
    if(rgb) {
        glPixelTransferf(GL_RED_SCALE, 1.0f);
        glPixelTransferf(GL_GREEN_SCALE, 1.0f);
        glPixelTransferf(GL_BLUE_SCALE, 1.0f);
    }
}

static void icon_draw_texture(float x, float y, float w, float h, int ix, int iy, int UNUSED(iw), int ih, float alpha, float *rgb)
{
    float x1, x2, y1, y2;

    if(rgb) glColor4f(rgb[0], rgb[1], rgb[2], alpha);
    else glColor4f(1.0f, 1.0f, 1.0f, alpha);

    x1= ix*icongltex.invw;
    x2= (ix + ih)*icongltex.invw;
    y1= iy*icongltex.invh;
    y2= (iy + ih)*icongltex.invh;

    glEnable(GL_TEXTURE_2D);
    glBindTexture(GL_TEXTURE_2D, icongltex.id);

    glBegin(GL_QUADS);
    glTexCoord2f(x1, y1);
    glVertex2f(x, y);

    glTexCoord2f(x2, y1);
    glVertex2f(x+w, y);

    glTexCoord2f(x2, y2);
    glVertex2f(x+w, y+h);

    glTexCoord2f(x1, y2);
    glVertex2f(x, y+h);
    glEnd();

    glBindTexture(GL_TEXTURE_2D, 0);
    glDisable(GL_TEXTURE_2D);
}

/* Drawing size for preview images */
static int get_draw_size(enum eIconSizes size)
{
    switch (size) {
        case ICON_SIZE_ICON: return ICON_DEFAULT_HEIGHT;
        case ICON_SIZE_PREVIEW: return PREVIEW_DEFAULT_HEIGHT;
    }
    return 0;
}

static void icon_draw_size(float x, float y, int icon_id, float aspect, float alpha, float *rgb, enum eIconSizes size, int draw_size, int UNUSED(nocreate), short is_preview)
{
    bTheme *btheme= UI_GetTheme();
    Icon *icon = NULL;
    DrawInfo *di = NULL;
    IconImage *iimg;
    float fdraw_size= is_preview ? draw_size : (draw_size * UI_DPI_ICON_FAC);
    int w, h;
    
    icon = BKE_icon_get(icon_id);
    alpha *= btheme->tui.icon_alpha;
    
    if (icon==NULL) {
        if (G.f & G_DEBUG)
            printf("%s: Internal error, no icon for icon ID: %d\n", __func__, icon_id);
        return;
    }

    di = (DrawInfo*)icon->drawinfo;
    
    if (!di) {
        di = icon_create_drawinfo();
    
        icon->drawinfo = di;        
        icon->drawinfo_free = UI_icons_free_drawinfo;       
    }
    
    /* scale width and height according to aspect */
    w = (int)(fdraw_size/aspect + 0.5f);
    h = (int)(fdraw_size/aspect + 0.5f);
    
    if(di->type == ICON_TYPE_VECTOR) {
        /* vector icons use the uiBlock transformation, they are not drawn
        with untransformed coordinates like the other icons */
        di->data.vector.func((int)x, (int)y, ICON_DEFAULT_HEIGHT, ICON_DEFAULT_HEIGHT, 1.0f); 
    } 
    else if(di->type == ICON_TYPE_TEXTURE) {
        icon_draw_texture(x, y, (float)w, (float)h, di->data.texture.x, di->data.texture.y,
            di->data.texture.w, di->data.texture.h, alpha, rgb);
    }
    else if(di->type == ICON_TYPE_BUFFER) {
        /* it is a builtin icon */      
        iimg= di->data.buffer.image;

        if(!iimg->rect) return; /* something has gone wrong! */

        icon_draw_rect(x, y, w, h, aspect, iimg->w, iimg->h, iimg->rect, alpha, rgb, is_preview);
    }
    else if(di->type == ICON_TYPE_PREVIEW) {
        PreviewImage* pi = BKE_previewimg_get((ID*)icon->obj); 

        if(pi) {            
            /* no create icon on this level in code */
            if(!pi->rect[size]) return; /* something has gone wrong! */
            
            /* preview images use premul alpha ... */
            glBlendFunc(GL_ONE, GL_ONE_MINUS_SRC_ALPHA);
            icon_draw_rect(x, y, w, h, aspect, pi->w[size], pi->h[size], pi->rect[size], 1.0f, NULL, is_preview);
            glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
        }
    }
}

static void ui_id_icon_render(bContext *C, ID *id, int big)
{
    PreviewImage *pi = BKE_previewimg_get(id); 
    
    if (pi) {           
        if ((pi->changed[0] ||!pi->rect[0])) /* changed only ever set by dynamic icons */
        {
            /* create the rect if necessary */              
            
            icon_set_image(C, id, pi, ICON_SIZE_ICON);      /* icon size */
            if (big)
                icon_set_image(C, id, pi, ICON_SIZE_PREVIEW);   /* bigger preview size */
            
            pi->changed[0] = 0;
        }
    }
}

static void ui_id_brush_render(bContext *C, ID *id)
{
    PreviewImage *pi = BKE_previewimg_get(id); 
    enum eIconSizes i;
    
    if(!pi)
        return;
    
    for(i = 0; i < NUM_ICON_SIZES; i++) {
        /* check if rect needs to be created; changed
         only set by dynamic icons */
        if((pi->changed[i] || !pi->rect[i])) {
            icon_set_image(C, id, pi, i);
            pi->changed[i] = 0;
        }
    }
}


static int ui_id_brush_get_icon(bContext *C, ID *id)
{
    Brush *br = (Brush*)id;

    if(br->flag & BRUSH_CUSTOM_ICON) {
        BKE_icon_getid(id);
        ui_id_brush_render(C, id);
    }
    else {
        Object *ob = CTX_data_active_object(C);
        SpaceImage *sima;
        EnumPropertyItem *items = NULL;
        int tool, mode = 0;

        /* XXX: this is not nice, should probably make brushes
           be strictly in one paint mode only to avoid
           checking various context stuff here */

        if(CTX_wm_view3d(C) && ob) {
            if(ob->mode & OB_MODE_SCULPT)
                mode = OB_MODE_SCULPT;
            else if(ob->mode & (OB_MODE_VERTEX_PAINT|OB_MODE_WEIGHT_PAINT))
                mode = OB_MODE_VERTEX_PAINT;
            else if(ob->mode & OB_MODE_TEXTURE_PAINT)
                mode = OB_MODE_TEXTURE_PAINT;
        }
        else if((sima = CTX_wm_space_image(C)) &&
            (sima->flag & SI_DRAWTOOL)) {
            mode = OB_MODE_TEXTURE_PAINT;
        }

        /* reset the icon */
        if(mode == OB_MODE_SCULPT) {
            items = brush_sculpt_tool_items;
            tool = br->sculpt_tool;
        }
        else if(mode == OB_MODE_VERTEX_PAINT) {
            items = brush_vertex_tool_items;
            tool = br->vertexpaint_tool;
        }
        else if(mode == OB_MODE_TEXTURE_PAINT) {
            items = brush_image_tool_items;
            tool = br->imagepaint_tool;
        }

        if(!items || !RNA_enum_icon_from_value(items, tool, &id->icon_id))
            id->icon_id = 0;
    }

    return id->icon_id;
}

int ui_id_icon_get(bContext *C, ID *id, int big)
{
    int iconid= 0;
    
    /* icon */
    switch(GS(id->name)) {
        case ID_BR:
            iconid= ui_id_brush_get_icon(C, id);
            break;
        case ID_MA: /* fall through */
        case ID_TE: /* fall through */
        case ID_IM: /* fall through */
        case ID_WO: /* fall through */
        case ID_LA: /* fall through */
            iconid= BKE_icon_getid(id);
            /* checks if not exists, or changed */
            ui_id_icon_render(C, id, big);
            break;
        default:
            break;
    }

    return iconid;
}

static void icon_draw_at_size(float x, float y, int icon_id, float aspect, float alpha, enum eIconSizes size, int nocreate)
{
    int draw_size = get_draw_size(size);
    icon_draw_size(x, y, icon_id, aspect, alpha, NULL, size, draw_size, nocreate, FALSE);
}

void UI_icon_draw_aspect(float x, float y, int icon_id, float aspect, float alpha)
{
    icon_draw_at_size(x, y, icon_id, aspect, alpha, ICON_SIZE_ICON, 0);
}

void UI_icon_draw_aspect_color(float x, float y, int icon_id, float aspect, float *rgb)
{
    int draw_size = get_draw_size(ICON_SIZE_ICON);
    icon_draw_size(x, y, icon_id, aspect, 1.0f, rgb, ICON_SIZE_ICON, draw_size, FALSE, FALSE);
}

void UI_icon_draw(float x, float y, int icon_id)
{
    UI_icon_draw_aspect(x, y, icon_id, 1.0f, 1.0f);
}

void UI_icon_draw_size(float x, float y, int size, int icon_id, float alpha)
{
    icon_draw_size(x, y, icon_id, 1.0f, alpha, NULL, ICON_SIZE_ICON, size, TRUE, FALSE);
}

void UI_icon_draw_preview(float x, float y, int icon_id)
{
    icon_draw_at_size(x, y, icon_id, 1.0f, 1.0f, ICON_SIZE_PREVIEW, 0);
}

void UI_icon_draw_preview_aspect(float x, float y, int icon_id, float aspect)
{
    icon_draw_at_size(x, y, icon_id, aspect, 1.0f, ICON_SIZE_PREVIEW, 0);
}

void UI_icon_draw_preview_aspect_size(float x, float y, int icon_id, float aspect, int size)
{
    icon_draw_size(x, y, icon_id, aspect, 1.0f, NULL, ICON_SIZE_PREVIEW, size, FALSE, TRUE);
}