screen_edit.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) 2008 Blender Foundation.
 * All rights reserved.
 *
 *
 * ***** END GPL LICENSE BLOCK *****
 */

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


#include "MEM_guardedalloc.h"

#include "DNA_scene_types.h"
#include "DNA_userdef_types.h"

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

#include "BKE_context.h"
#include "BKE_global.h"
#include "BKE_library.h"
#include "BKE_main.h"
#include "BKE_node.h"
#include "BKE_screen.h"
#include "BKE_scene.h"

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

#include "WM_api.h"
#include "WM_types.h"

#include "ED_image.h"
#include "ED_object.h"
#include "ED_screen.h"
#include "ED_screen_types.h"
#include "ED_fileselect.h"
#include "ED_clip.h"
#include "ED_render.h"

#include "UI_interface.h"

/* XXX actually should be not here... solve later */
#include "wm_subwindow.h"

#include "screen_intern.h"  /* own module include */


/* ******************* screen vert, edge, area managing *********************** */

static ScrVert *screen_addvert(bScreen *sc, short x, short y)
{
    ScrVert *sv= MEM_callocN(sizeof(ScrVert), "addscrvert");
    sv->vec.x= x;
    sv->vec.y= y;
    
    BLI_addtail(&sc->vertbase, sv);
    return sv;
}

static void sortscrvert(ScrVert **v1, ScrVert **v2)
{
    ScrVert *tmp;
    
    if (*v1 > *v2) {
        tmp= *v1;
        *v1= *v2;
        *v2= tmp;   
    }
}

static ScrEdge *screen_addedge(bScreen *sc, ScrVert *v1, ScrVert *v2)
{
    ScrEdge *se= MEM_callocN(sizeof(ScrEdge), "addscredge");
    
    sortscrvert(&v1, &v2);
    se->v1= v1;
    se->v2= v2;
    
    BLI_addtail(&sc->edgebase, se);
    return se;
}


ScrEdge *screen_findedge(bScreen *sc, ScrVert *v1, ScrVert *v2)
{
    ScrEdge *se;
    
    sortscrvert(&v1, &v2);
    for (se= sc->edgebase.first; se; se= se->next)
        if(se->v1==v1 && se->v2==v2)
            return se;
    
    return NULL;
}

void removedouble_scrverts(bScreen *sc)
{
    ScrVert *v1, *verg;
    ScrEdge *se;
    ScrArea *sa;
    
    verg= sc->vertbase.first;
    while(verg) {
        if(verg->newv==NULL) {  /* !!! */
            v1= verg->next;
            while(v1) {
                if(v1->newv==NULL) {    /* !?! */
                    if(v1->vec.x==verg->vec.x && v1->vec.y==verg->vec.y) {
                        /* printf("doublevert\n"); */
                        v1->newv= verg;
                    }
                }
                v1= v1->next;
            }
        }
        verg= verg->next;
    }

    /* replace pointers in edges and faces */
    se= sc->edgebase.first;
    while(se) {
        if(se->v1->newv) se->v1= se->v1->newv;
        if(se->v2->newv) se->v2= se->v2->newv;
        /* edges changed: so.... */
        sortscrvert(&(se->v1), &(se->v2));
        se= se->next;
    }
    sa= sc->areabase.first;
    while(sa) {
        if(sa->v1->newv) sa->v1= sa->v1->newv;
        if(sa->v2->newv) sa->v2= sa->v2->newv;
        if(sa->v3->newv) sa->v3= sa->v3->newv;
        if(sa->v4->newv) sa->v4= sa->v4->newv;
        sa= sa->next;
    }

    /* remove */
    verg= sc->vertbase.first;
    while(verg) {
        v1= verg->next;
        if(verg->newv) {
            BLI_remlink(&sc->vertbase, verg);
            MEM_freeN(verg);
        }
        verg= v1;
    }

}

void removenotused_scrverts(bScreen *sc)
{
    ScrVert *sv, *svn;
    ScrEdge *se;
    
    /* we assume edges are ok */
    
    se= sc->edgebase.first;
    while(se) {
        se->v1->flag= 1;
        se->v2->flag= 1;
        se= se->next;
    }
    
    sv= sc->vertbase.first;
    while(sv) {
        svn= sv->next;
        if(sv->flag==0) {
            BLI_remlink(&sc->vertbase, sv);
            MEM_freeN(sv);
        }
        else sv->flag= 0;
        sv= svn;
    }
}

void removedouble_scredges(bScreen *sc)
{
    ScrEdge *verg, *se, *sn;
    
    /* compare */
    verg= sc->edgebase.first;
    while(verg) {
        se= verg->next;
        while(se) {
            sn= se->next;
            if(verg->v1==se->v1 && verg->v2==se->v2) {
                BLI_remlink(&sc->edgebase, se);
                MEM_freeN(se);
            }
            se= sn;
        }
        verg= verg->next;
    }
}

void removenotused_scredges(bScreen *sc)
{
    ScrEdge *se, *sen;
    ScrArea *sa;
    int a=0;
    
    /* sets flags when edge is used in area */
    sa= sc->areabase.first;
    while(sa) {
        se= screen_findedge(sc, sa->v1, sa->v2);
        if(se==NULL) printf("error: area %d edge 1 doesn't exist\n", a);
        else se->flag= 1;
        se= screen_findedge(sc, sa->v2, sa->v3);
        if(se==NULL) printf("error: area %d edge 2 doesn't exist\n", a);
        else se->flag= 1;
        se= screen_findedge(sc, sa->v3, sa->v4);
        if(se==NULL) printf("error: area %d edge 3 doesn't exist\n", a);
        else se->flag= 1;
        se= screen_findedge(sc, sa->v4, sa->v1);
        if(se==NULL) printf("error: area %d edge 4 doesn't exist\n", a);
        else se->flag= 1;
        sa= sa->next;
        a++;
    }
    se= sc->edgebase.first;
    while(se) {
        sen= se->next;
        if(se->flag==0) {
            BLI_remlink(&sc->edgebase, se);
            MEM_freeN(se);
        }
        else se->flag= 0;
        se= sen;
    }
}

int scredge_is_horizontal(ScrEdge *se)
{
    return (se->v1->vec.y == se->v2->vec.y);
}

ScrEdge *screen_find_active_scredge(bScreen *sc, int mx, int my)
{
    ScrEdge *se;
    
    for (se= sc->edgebase.first; se; se= se->next) {
        if (scredge_is_horizontal(se)) {
            short min, max;
            min= MIN2(se->v1->vec.x, se->v2->vec.x);
            max= MAX2(se->v1->vec.x, se->v2->vec.x);
            
            if (abs(my-se->v1->vec.y)<=2 && mx>=min && mx<=max)
                return se;
        } 
        else {
            short min, max;
            min= MIN2(se->v1->vec.y, se->v2->vec.y);
            max= MAX2(se->v1->vec.y, se->v2->vec.y);
            
            if (abs(mx-se->v1->vec.x)<=2 && my>=min && my<=max)
                return se;
        }
    }
    
    return NULL;
}



/* adds no space data */
static ScrArea *screen_addarea(bScreen *sc, ScrVert *v1, ScrVert *v2, ScrVert *v3, ScrVert *v4, short headertype, short spacetype)
{
    ScrArea *sa= MEM_callocN(sizeof(ScrArea), "addscrarea");
    sa->v1= v1;
    sa->v2= v2;
    sa->v3= v3;
    sa->v4= v4;
    sa->headertype= headertype;
    sa->spacetype= sa->butspacetype= spacetype;
    
    BLI_addtail(&sc->areabase, sa);
    
    return sa;
}

static void screen_delarea(bContext *C, bScreen *sc, ScrArea *sa)
{
    
    ED_area_exit(C, sa);
    
    BKE_screen_area_free(sa);
    
    BLI_remlink(&sc->areabase, sa);
    MEM_freeN(sa);
}

/* return 0: no split possible */
/* else return (integer) screencoordinate split point */
static short testsplitpoint(ScrArea *sa, char dir, float fac)
{
    short x, y;
    
    // area big enough?
    if(dir=='v' && (sa->v4->vec.x- sa->v1->vec.x <= 2*AREAMINX)) return 0;
    if(dir=='h' && (sa->v2->vec.y- sa->v1->vec.y <= 2*AREAMINY)) return 0;
    
    // to be sure
    CLAMP(fac, 0.0f, 1.0f);
    
    if(dir=='h') {
        y= sa->v1->vec.y+ fac*(sa->v2->vec.y- sa->v1->vec.y);
        
        if(y- sa->v1->vec.y < AREAMINY) 
            y= sa->v1->vec.y+ AREAMINY;
        else if(sa->v2->vec.y- y < AREAMINY) 
            y= sa->v2->vec.y- AREAMINY;
        else y-= (y % AREAGRID);
        
        return y;
    }
    else {
        x= sa->v1->vec.x+ fac*(sa->v4->vec.x- sa->v1->vec.x);
        
        if(x- sa->v1->vec.x < AREAMINX) 
            x= sa->v1->vec.x+ AREAMINX;
        else if(sa->v4->vec.x- x < AREAMINX) 
            x= sa->v4->vec.x- AREAMINX;
        else x-= (x % AREAGRID);
        
        return x;
    }
}

ScrArea *area_split(bScreen *sc, ScrArea *sa, char dir, float fac, int merge)
{
    ScrArea *newa=NULL;
    ScrVert *sv1, *sv2;
    short split;
    
    if(sa==NULL) return NULL;
    
    split= testsplitpoint(sa, dir, fac);
    if(split==0) return NULL;
    
    if(dir=='h') {
        /* new vertices */
        sv1= screen_addvert(sc, sa->v1->vec.x, split);
        sv2= screen_addvert(sc, sa->v4->vec.x, split);
        
        /* new edges */
        screen_addedge(sc, sa->v1, sv1);
        screen_addedge(sc, sv1, sa->v2);
        screen_addedge(sc, sa->v3, sv2);
        screen_addedge(sc, sv2, sa->v4);
        screen_addedge(sc, sv1, sv2);
        
        /* new areas: top */
        newa= screen_addarea(sc, sv1, sa->v2, sa->v3, sv2, sa->headertype, sa->spacetype);
        area_copy_data(newa, sa, 0);
        
        /* area below */
        sa->v2= sv1;
        sa->v3= sv2;
        
    }
    else {
        /* new vertices */
        sv1= screen_addvert(sc, split, sa->v1->vec.y);
        sv2= screen_addvert(sc, split, sa->v2->vec.y);
        
        /* new edges */
        screen_addedge(sc, sa->v1, sv1);
        screen_addedge(sc, sv1, sa->v4);
        screen_addedge(sc, sa->v2, sv2);
        screen_addedge(sc, sv2, sa->v3);
        screen_addedge(sc, sv1, sv2);
        
        /* new areas: left */
        newa= screen_addarea(sc, sa->v1, sa->v2, sv2, sv1, sa->headertype, sa->spacetype);
        area_copy_data(newa, sa, 0);
        
        /* area right */
        sa->v1= sv1;
        sa->v2= sv2;
    }
    
    /* remove double vertices en edges */
    if(merge)
        removedouble_scrverts(sc);
    removedouble_scredges(sc);
    removenotused_scredges(sc);
    
    return newa;
}

/* empty screen, with 1 dummy area without spacedata */
/* uses window size */
bScreen *ED_screen_add(wmWindow *win, Scene *scene, const char *name)
{
    bScreen *sc;
    ScrVert *sv1, *sv2, *sv3, *sv4;
    
    sc= alloc_libblock(&G.main->screen, ID_SCR, name);
    sc->scene= scene;
    sc->do_refresh= 1;
    sc->redraws_flag= TIME_ALL_3D_WIN|TIME_ALL_ANIM_WIN;
    sc->winid= win->winid;
    
    sv1= screen_addvert(sc, 0, 0);
    sv2= screen_addvert(sc, 0, win->sizey-1);
    sv3= screen_addvert(sc, win->sizex-1, win->sizey-1);
    sv4= screen_addvert(sc, win->sizex-1, 0);
    
    screen_addedge(sc, sv1, sv2);
    screen_addedge(sc, sv2, sv3);
    screen_addedge(sc, sv3, sv4);
    screen_addedge(sc, sv4, sv1);
    
    /* dummy type, no spacedata */
    screen_addarea(sc, sv1, sv2, sv3, sv4, HEADERDOWN, SPACE_EMPTY);
        
    return sc;
}

static void screen_copy(bScreen *to, bScreen *from)
{
    ScrVert *s1, *s2;
    ScrEdge *se;
    ScrArea *sa, *saf;
    
    /* free contents of 'to', is from blenkernel screen.c */
    free_screen(to);
    
    BLI_duplicatelist(&to->vertbase, &from->vertbase);
    BLI_duplicatelist(&to->edgebase, &from->edgebase);
    BLI_duplicatelist(&to->areabase, &from->areabase);
    to->regionbase.first= to->regionbase.last= NULL;
    
    s2= to->vertbase.first;
    for(s1= from->vertbase.first; s1; s1= s1->next, s2= s2->next) {
        s1->newv= s2;
    }
    
    for(se= to->edgebase.first; se; se= se->next) {
        se->v1= se->v1->newv;
        se->v2= se->v2->newv;
        sortscrvert(&(se->v1), &(se->v2));
    }
    
    saf= from->areabase.first;
    for(sa= to->areabase.first; sa; sa= sa->next, saf= saf->next) {
        sa->v1= sa->v1->newv;
        sa->v2= sa->v2->newv;
        sa->v3= sa->v3->newv;
        sa->v4= sa->v4->newv;
        
        sa->spacedata.first= sa->spacedata.last= NULL;
        sa->regionbase.first= sa->regionbase.last= NULL;
        sa->actionzones.first= sa->actionzones.last= NULL;
        sa->handlers.first= sa->handlers.last= NULL;
        
        area_copy_data(sa, saf, 0);
    }
    
    /* put at zero (needed?) */
    for(s1= from->vertbase.first; s1; s1= s1->next)
        s1->newv= NULL;

}


/* with sa as center, sb is located at: 0=W, 1=N, 2=E, 3=S */
/* -1 = not valid check */
/* used with join operator */
int area_getorientation(ScrArea *sa, ScrArea *sb)
{
    ScrVert *sav1, *sav2, *sav3, *sav4;
    ScrVert *sbv1, *sbv2, *sbv3, *sbv4;

    if(sa==NULL || sb==NULL) return -1;

    sav1= sa->v1;
    sav2= sa->v2;
    sav3= sa->v3;
    sav4= sa->v4;
    sbv1= sb->v1;
    sbv2= sb->v2;
    sbv3= sb->v3;
    sbv4= sb->v4;
    
    if(sav1==sbv4 && sav2==sbv3) { /* sa to right of sb = W */
        return 0;
    }
    else if(sav2==sbv1 && sav3==sbv4) { /* sa to bottom of sb = N */
        return 1;
    }
    else if(sav3==sbv2 && sav4==sbv1) { /* sa to left of sb = E */
        return 2;
    }
    else if(sav1==sbv2 && sav4==sbv3) { /* sa on top of sb = S*/
        return 3;
    }
    
    return -1;
}

/* Helper function to join 2 areas, it has a return value, 0=failed 1=success
*   used by the split, join operators
*/
int screen_area_join(bContext *C, bScreen* scr, ScrArea *sa1, ScrArea *sa2) 
{
    int dir;
    
    dir = area_getorientation(sa1, sa2);
    /*printf("dir is : %i \n", dir);*/
    
    if (dir < 0) {
        if (sa1 ) sa1->flag &= ~AREA_FLAG_DRAWJOINFROM;
        if (sa2 ) sa2->flag &= ~AREA_FLAG_DRAWJOINTO;
        return 0;
    }
    
    if(dir == 0) {
        sa1->v1= sa2->v1;
        sa1->v2= sa2->v2;
        screen_addedge(scr, sa1->v2, sa1->v3);
        screen_addedge(scr, sa1->v1, sa1->v4);
    }
    else if(dir == 1) {
        sa1->v2= sa2->v2;
        sa1->v3= sa2->v3;
        screen_addedge(scr, sa1->v1, sa1->v2);
        screen_addedge(scr, sa1->v3, sa1->v4);
    }
    else if(dir == 2) {
        sa1->v3= sa2->v3;
        sa1->v4= sa2->v4;
        screen_addedge(scr, sa1->v2, sa1->v3);
        screen_addedge(scr, sa1->v1, sa1->v4);
    }
    else if(dir == 3) {
        sa1->v1= sa2->v1;
        sa1->v4= sa2->v4;
        screen_addedge(scr, sa1->v1, sa1->v2);
        screen_addedge(scr, sa1->v3, sa1->v4);
    }
    
    screen_delarea(C, scr, sa2);
    removedouble_scrverts(scr);
    sa1->flag &= ~AREA_FLAG_DRAWJOINFROM;
    
    return 1;
}

void select_connected_scredge(bScreen *sc, ScrEdge *edge)
{
    ScrEdge *se;
    ScrVert *sv;
    int oneselected;
    char dir;
    
    /* select connected, only in the right direction */
    /* 'dir' is the direction of EDGE */
    
    if(edge->v1->vec.x==edge->v2->vec.x) dir= 'v';
    else dir= 'h';
    
    sv= sc->vertbase.first;
    while(sv) {
        sv->flag = 0;
        sv= sv->next;
    }
    
    edge->v1->flag= 1;
    edge->v2->flag= 1;
    
    oneselected= 1;
    while(oneselected) {
        se= sc->edgebase.first;
        oneselected= 0;
        while(se) {
            if(se->v1->flag + se->v2->flag==1) {
                if(dir=='h') if(se->v1->vec.y==se->v2->vec.y) {
                    se->v1->flag= se->v2->flag= 1;
                    oneselected= 1;
                }
                    if(dir=='v') if(se->v1->vec.x==se->v2->vec.x) {
                        se->v1->flag= se->v2->flag= 1;
                        oneselected= 1;
                    }
            }
                se= se->next;
        }
    }
}

/* test if screen vertices should be scaled */
static void screen_test_scale(bScreen *sc, int winsizex, int winsizey)
{
    ScrVert *sv=NULL;
    ScrArea *sa;
    int sizex, sizey;
    float facx, facy, tempf, min[2], max[2];
    
    /* calculate size */
    min[0]= min[1]= 10000.0f;
    max[0]= max[1]= 0.0f;
    
    for(sv= sc->vertbase.first; sv; sv= sv->next) {
        min[0]= MIN2(min[0], sv->vec.x);
        min[1]= MIN2(min[1], sv->vec.y);
        max[0]= MAX2(max[0], sv->vec.x);
        max[1]= MAX2(max[1], sv->vec.y);
    }
    
    /* always make 0.0 left under */
    for(sv= sc->vertbase.first; sv; sv= sv->next) {
        sv->vec.x -= min[0];
        sv->vec.y -= min[1];
    }
    
    sizex= max[0]-min[0];
    sizey= max[1]-min[1];
    
    if(sizex!= winsizex || sizey!= winsizey) {
        facx= winsizex;
        facx/= (float)sizex;
        facy= winsizey;
        facy/= (float)sizey;
        
        /* make sure it fits! */
        for(sv= sc->vertbase.first; sv; sv= sv->next) {
            /* FIXME, this resizing logic is no good when resizing the window + redrawing [#24428]
             * need some way to store these as floats internally and re-apply from there. */
            tempf= ((float)sv->vec.x)*facx;
            sv->vec.x= (short)(tempf+0.5f);
            sv->vec.x+= AREAGRID-1;
            sv->vec.x-=  (sv->vec.x % AREAGRID); 

            CLAMP(sv->vec.x, 0, winsizex);
            
            tempf= ((float)sv->vec.y)*facy;
            sv->vec.y= (short)(tempf+0.5f);
            sv->vec.y+= AREAGRID-1;
            sv->vec.y-=  (sv->vec.y % AREAGRID); 

            CLAMP(sv->vec.y, 0, winsizey);
        }
    }
    
    /* test for collapsed areas. This could happen in some blender version... */
    /* ton: removed option now, it needs Context... */
    
    /* make each window at least ED_area_headersize() high */
    for(sa= sc->areabase.first; sa; sa= sa->next) {
        int headery= ED_area_headersize()+1;
        
        if(sa->v1->vec.y+headery > sa->v2->vec.y) {
            /* lower edge */
            ScrEdge *se= screen_findedge(sc, sa->v4, sa->v1);
            if(se && sa->v1!=sa->v2 ) {
                int yval;
                
                select_connected_scredge(sc, se);
                
                /* all selected vertices get the right offset */
                yval= sa->v2->vec.y-headery;
                sv= sc->vertbase.first;
                while(sv) {
                    /* if is a collapsed area */
                    if(sv!=sa->v2 && sv!=sa->v3) {
                        if(sv->flag) sv->vec.y= yval;
                    }
                    sv= sv->next;
                }
            }
        }
    }
    
}

/* *********************** DRAWING **************************************** */


#define SCR_BACK 0.55
#define SCR_ROUND 12

/* draw vertical shape visualising future joining (left as well
 * right direction of future joining) */
static void draw_horizontal_join_shape(ScrArea *sa, char dir)
{
    vec2f points[10];
    short i;
    float w, h;
    float width = sa->v3->vec.x - sa->v1->vec.x;
    float height = sa->v3->vec.y - sa->v1->vec.y;

    if(height<width) {
        h = height/8;
        w = height/4;
    }
    else {
        h = width/8;
        w = width/4;
    }

    points[0].x = sa->v1->vec.x;
    points[0].y = sa->v1->vec.y + height/2;

    points[1].x = sa->v1->vec.x;
    points[1].y = sa->v1->vec.y;

    points[2].x = sa->v4->vec.x - w;
    points[2].y = sa->v4->vec.y;

    points[3].x = sa->v4->vec.x - w;
    points[3].y = sa->v4->vec.y + height/2 - 2*h;

    points[4].x = sa->v4->vec.x - 2*w;
    points[4].y = sa->v4->vec.y + height/2;

    points[5].x = sa->v4->vec.x - w;
    points[5].y = sa->v4->vec.y + height/2 + 2*h;

    points[6].x = sa->v3->vec.x - w;
    points[6].y = sa->v3->vec.y;

    points[7].x = sa->v2->vec.x;
    points[7].y = sa->v2->vec.y;

    points[8].x = sa->v4->vec.x;
    points[8].y = sa->v4->vec.y + height/2 - h;

    points[9].x = sa->v4->vec.x;
    points[9].y = sa->v4->vec.y + height/2 + h;

    if(dir=='l') {
        /* when direction is left, then we flip direction of arrow */
        float cx = sa->v1->vec.x + width;
        for(i=0;i<10;i++) {
            points[i].x -= cx;
            points[i].x = -points[i].x;
            points[i].x += sa->v1->vec.x;
        }
    }

    glBegin(GL_POLYGON);
    for(i=0;i<5;i++)
        glVertex2f(points[i].x, points[i].y);
    glEnd();
    glBegin(GL_POLYGON);
    for(i=4;i<8;i++)
        glVertex2f(points[i].x, points[i].y);
    glVertex2f(points[0].x, points[0].y);
    glEnd();

    glRectf(points[2].x, points[2].y, points[8].x, points[8].y);
    glRectf(points[6].x, points[6].y, points[9].x, points[9].y);
}

/* draw vertical shape visualising future joining (up/down direction) */
static void draw_vertical_join_shape(ScrArea *sa, char dir)
{
    vec2f points[10];
    short i;
    float w, h;
    float width = sa->v3->vec.x - sa->v1->vec.x;
    float height = sa->v3->vec.y - sa->v1->vec.y;

    if(height<width) {
        h = height/4;
        w = height/8;
    }
    else {
        h = width/4;
        w = width/8;
    }

    points[0].x = sa->v1->vec.x + width/2;
    points[0].y = sa->v3->vec.y;

    points[1].x = sa->v2->vec.x;
    points[1].y = sa->v2->vec.y;

    points[2].x = sa->v1->vec.x;
    points[2].y = sa->v1->vec.y + h;

    points[3].x = sa->v1->vec.x + width/2 - 2*w;
    points[3].y = sa->v1->vec.y + h;

    points[4].x = sa->v1->vec.x + width/2;
    points[4].y = sa->v1->vec.y + 2*h;

    points[5].x = sa->v1->vec.x + width/2 + 2*w;
    points[5].y = sa->v1->vec.y + h;

    points[6].x = sa->v4->vec.x;
    points[6].y = sa->v4->vec.y + h;
    
    points[7].x = sa->v3->vec.x;
    points[7].y = sa->v3->vec.y;

    points[8].x = sa->v1->vec.x + width/2 - w;
    points[8].y = sa->v1->vec.y;

    points[9].x = sa->v1->vec.x + width/2 + w;
    points[9].y = sa->v1->vec.y;

    if(dir=='u') {
        /* when direction is up, then we flip direction of arrow */
        float cy = sa->v1->vec.y + height;
        for(i=0;i<10;i++) {
            points[i].y -= cy;
            points[i].y = -points[i].y;
            points[i].y += sa->v1->vec.y;
        }
    }

    glBegin(GL_POLYGON);
    for(i=0;i<5;i++)
        glVertex2f(points[i].x, points[i].y);
    glEnd();
    glBegin(GL_POLYGON);
    for(i=4;i<8;i++)
        glVertex2f(points[i].x, points[i].y);
    glVertex2f(points[0].x, points[0].y);
    glEnd();

    glRectf(points[2].x, points[2].y, points[8].x, points[8].y);
    glRectf(points[6].x, points[6].y, points[9].x, points[9].y);
}

/* draw join shape due to direction of joining */
static void draw_join_shape(ScrArea *sa, char dir)
{
    if(dir=='u' || dir=='d')
        draw_vertical_join_shape(sa, dir);
    else
        draw_horizontal_join_shape(sa, dir);
}

/* draw screen area darker with arrow (visualisation of future joining) */
static void scrarea_draw_shape_dark(ScrArea *sa, char dir)
{
    glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);
    glEnable(GL_BLEND);
    glColor4ub(0, 0, 0, 50);
    draw_join_shape(sa, dir);
    glDisable(GL_BLEND);
}

/* draw screen area ligher with arrow shape ("eraser" of previous dark shape) */
static void scrarea_draw_shape_light(ScrArea *sa, char UNUSED(dir))
{
    glBlendFunc(GL_DST_COLOR, GL_SRC_ALPHA);
    glEnable(GL_BLEND);
    /* value 181 was hardly computed: 181~105 */
    glColor4ub(255, 255, 255, 50);      
    /* draw_join_shape(sa, dir); */
    glRecti(sa->v1->vec.x, sa->v1->vec.y, sa->v3->vec.x, sa->v3->vec.y);
    glDisable(GL_BLEND);
}

static void drawscredge_area_draw(int sizex, int sizey, short x1, short y1, short x2, short y2, short a) 
{
    /* right border area */
    if(x2<sizex-1)
        sdrawline(x2+a, y1, x2+a, y2);
    
    /* left border area */
    if(x1>0)  /* otherwise it draws the emboss of window over */
        sdrawline(x1+a, y1, x1+a, y2);
    
    /* top border area */
    if(y2<sizey-1)
        sdrawline(x1, y2+a, x2, y2+a);
    
    /* bottom border area */
    if(y1>0)
        sdrawline(x1, y1+a, x2, y1+a);
    
}

static void drawscredge_area(ScrArea *sa, int sizex, int sizey, int center)
{
    short x1= sa->v1->vec.x;
    short y1= sa->v1->vec.y;
    short x2= sa->v3->vec.x;
    short y2= sa->v3->vec.y;
    short a, rt;
    
    rt= 0; // CLAMPIS(G.rt, 0, 16);
    
    if(center==0) {
        cpack(0x505050);
        for(a=-rt; a<=rt; a++)
            if(a!=0)
                drawscredge_area_draw(sizex, sizey, x1, y1, x2, y2, a);
    }
    else {
        cpack(0x0);
        drawscredge_area_draw(sizex, sizey, x1, y1, x2, y2, 0);
    }
}

/* ****************** EXPORTED API TO OTHER MODULES *************************** */

bScreen *ED_screen_duplicate(wmWindow *win, bScreen *sc)
{
    bScreen *newsc;
    
    if(sc->full != SCREENNORMAL) return NULL; /* XXX handle this case! */
    
    /* make new empty screen: */
    newsc= ED_screen_add(win, sc->scene, sc->id.name+2);
    /* copy all data */
    screen_copy(newsc, sc);

    return newsc;
}

/* screen sets cursor based on swinid */
static void region_cursor_set(wmWindow *win, int swinid)
{
    ScrArea *sa= win->screen->areabase.first;
    
    for(;sa; sa= sa->next) {
        ARegion *ar= sa->regionbase.first;
        for(;ar; ar= ar->next) {
            if(ar->swinid == swinid) {
                if(ar->type && ar->type->cursor)
                    ar->type->cursor(win, sa, ar);
                else
                    WM_cursor_set(win, CURSOR_STD);
                return;
            }
        }
    }
}

void ED_screen_do_listen(bContext *C, wmNotifier *note)
{
    wmWindow *win= CTX_wm_window(C);
    
    /* generic notes */
    switch(note->category) {
        case NC_WM:
            if(note->data==ND_FILEREAD)
                win->screen->do_draw= 1;
            break;
        case NC_WINDOW:
            win->screen->do_draw= 1;
            break;
        case NC_SCREEN:
            if(note->data==ND_SUBWINACTIVE)
                uiFreeActiveButtons(C, win->screen);
            if(note->action==NA_EDITED)
                win->screen->do_draw= win->screen->do_refresh= 1;
            break;
        case NC_SCENE:
            if(note->data==ND_MODE)
                region_cursor_set(win, note->swinid);               
            break;
    }
}

/* only for edge lines between areas, and the blended join arrows */
void ED_screen_draw(wmWindow *win)
{
    ScrArea *sa;
    ScrArea *sa1= NULL;
    ScrArea *sa2= NULL;
    ScrArea *sa3= NULL;
    int dir = -1;
    int dira = -1;

    wmSubWindowSet(win, win->screen->mainwin);
    
    for(sa= win->screen->areabase.first; sa; sa= sa->next) {
        if (sa->flag & AREA_FLAG_DRAWJOINFROM) sa1 = sa;
        if (sa->flag & AREA_FLAG_DRAWJOINTO) sa2 = sa;
        if (sa->flag & (AREA_FLAG_DRAWSPLIT_H|AREA_FLAG_DRAWSPLIT_V)) sa3 = sa;
        drawscredge_area(sa, win->sizex, win->sizey, 0);
    }
    for(sa= win->screen->areabase.first; sa; sa= sa->next)
        drawscredge_area(sa, win->sizex, win->sizey, 1);
    
    /* blended join arrow */
    if (sa1 && sa2) {
        dir = area_getorientation(sa1, sa2);
        if (dir >= 0) {
            switch(dir) {
                case 0: /* W */
                    dir = 'r';
                    dira = 'l';
                    break;
                case 1: /* N */
                    dir = 'd';
                    dira = 'u';
                    break;
                case 2: /* E */
                    dir = 'l';
                    dira = 'r';
                    break;
                case 3: /* S */
                    dir = 'u';
                    dira = 'd';
                    break;
            }
        }
        scrarea_draw_shape_dark(sa2, dir);
        scrarea_draw_shape_light(sa1, dira);
    }
    
    /* splitpoint */
    if(sa3) {
        glEnable(GL_BLEND);
        glColor4ub(255, 255, 255, 100);
        
        if(sa3->flag & AREA_FLAG_DRAWSPLIT_H) {
            sdrawline(sa3->totrct.xmin, win->eventstate->y, sa3->totrct.xmax, win->eventstate->y);
            glColor4ub(0, 0, 0, 100);
            sdrawline(sa3->totrct.xmin, win->eventstate->y+1, sa3->totrct.xmax, win->eventstate->y+1);
        }
        else {
            sdrawline(win->eventstate->x, sa3->totrct.ymin, win->eventstate->x, sa3->totrct.ymax);
            glColor4ub(0, 0, 0, 100);
            sdrawline(win->eventstate->x+1, sa3->totrct.ymin, win->eventstate->x+1, sa3->totrct.ymax);
        }
        
        glDisable(GL_BLEND);
    }
    
    win->screen->do_draw= 0;
}

/* helper call for below, dpi changes headers */
static void screen_refresh_headersizes(void)
{
    const ListBase *lb= BKE_spacetypes_list();
    SpaceType *st;
    
    for(st= lb->first; st; st= st->next) {
        ARegionType *art= BKE_regiontype_from_id(st, RGN_TYPE_HEADER);
        if(art) art->prefsizey= ED_area_headersize();
    }       
}

/* make this screen usable */
/* for file read and first use, for scaling window, area moves */
void ED_screen_refresh(wmWindowManager *wm, wmWindow *win)
{   
    /* exception for bg mode, we only need the screen context */
    if (!G.background) {
        ScrArea *sa;
        rcti winrct;
    
        winrct.xmin= 0;
        winrct.xmax= win->sizex-1;
        winrct.ymin= 0;
        winrct.ymax= win->sizey-1;
        
        screen_test_scale(win->screen, win->sizex, win->sizey);
        
        if(win->screen->mainwin==0)
            win->screen->mainwin= wm_subwindow_open(win, &winrct);
        else
            wm_subwindow_position(win, win->screen->mainwin, &winrct);
        
        /* header size depends on DPI, let's verify */
        screen_refresh_headersizes();
        
        for(sa= win->screen->areabase.first; sa; sa= sa->next) {
            /* set spacetype and region callbacks, calls init() */
            /* sets subwindows for regions, adds handlers */
            ED_area_initialize(wm, win, sa);
        }
    
        /* wake up animtimer */
        if(win->screen->animtimer)
            WM_event_timer_sleep(wm, win, win->screen->animtimer, 0);
    }

    if(G.f & G_DEBUG) printf("set screen\n");
    win->screen->do_refresh= 0;

    win->screen->context= ed_screen_context;
}

/* file read, set all screens, ... */
void ED_screens_initialize(wmWindowManager *wm)
{
    wmWindow *win;
    
    for(win= wm->windows.first; win; win= win->next) {
        
        if(win->screen==NULL)
            win->screen= G.main->screen.first;
        
        ED_screen_refresh(wm, win);
    }
}


/* *********** exit calls are for closing running stuff ******** */

void ED_region_exit(bContext *C, ARegion *ar)
{
    ARegion *prevar= CTX_wm_region(C);

    CTX_wm_region_set(C, ar);
    WM_event_remove_handlers(C, &ar->handlers);
    if(ar->swinid)
        wm_subwindow_close(CTX_wm_window(C), ar->swinid);
    ar->swinid= 0;
    
    if(ar->headerstr)
        MEM_freeN(ar->headerstr);
    ar->headerstr= NULL;
    
    CTX_wm_region_set(C, prevar);
}

void ED_area_exit(bContext *C, ScrArea *sa)
{
    ScrArea *prevsa= CTX_wm_area(C);
    ARegion *ar;

    if (sa->spacetype == SPACE_FILE) {
        SpaceLink *sl= sa->spacedata.first;
        if(sl && sl->spacetype == SPACE_FILE) {
            ED_fileselect_exit(C, (SpaceFile *)sl);
        }
    }

    CTX_wm_area_set(C, sa);
    for(ar= sa->regionbase.first; ar; ar= ar->next)
        ED_region_exit(C, ar);

    WM_event_remove_handlers(C, &sa->handlers);
    CTX_wm_area_set(C, prevsa);
}

void ED_screen_exit(bContext *C, wmWindow *window, bScreen *screen)
{
    wmWindowManager *wm= CTX_wm_manager(C);
    wmWindow *prevwin= CTX_wm_window(C);
    ScrArea *sa;
    ARegion *ar;

    CTX_wm_window_set(C, window);
    
    if(screen->animtimer)
        WM_event_remove_timer(wm, window, screen->animtimer);
    screen->animtimer= NULL;
    
    if(screen->mainwin)
        wm_subwindow_close(window, screen->mainwin);
    screen->mainwin= 0;
    screen->subwinactive= 0;
    
    for(ar= screen->regionbase.first; ar; ar= ar->next)
        ED_region_exit(C, ar);

    for(sa= screen->areabase.first; sa; sa= sa->next)
        ED_area_exit(C, sa);

    /* mark it available for use for other windows */
    screen->winid= 0;
    
    if (prevwin->screen->temp == 0) {
        /* use previous window if possible */
        CTX_wm_window_set(C, prevwin);
    } else {
        /* none otherwise */
        CTX_wm_window_set(C, NULL);
    }
    
}

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

/* case when on area-edge or in azones, or outside window */
static void screen_cursor_set(wmWindow *win, wmEvent *event)
{
    AZone *az= NULL;
    ScrArea *sa;
    
    for(sa= win->screen->areabase.first; sa; sa= sa->next)
        if((az=is_in_area_actionzone(sa, event->x, event->y)))
            break;
    
    if(sa) {
        if(az->type==AZONE_AREA)
            WM_cursor_set(win, CURSOR_EDIT);
        else if(az->type==AZONE_REGION) {
            if(az->edge == AE_LEFT_TO_TOPRIGHT || az->edge == AE_RIGHT_TO_TOPLEFT)
                WM_cursor_set(win, CURSOR_X_MOVE);
            else
                WM_cursor_set(win, CURSOR_Y_MOVE);
        }
    }
    else {
        ScrEdge *actedge= screen_find_active_scredge(win->screen, event->x, event->y);
        
        if (actedge) {
            if(scredge_is_horizontal(actedge))
                WM_cursor_set(win, CURSOR_Y_MOVE);
            else
                WM_cursor_set(win, CURSOR_X_MOVE);
        }
        else
            WM_cursor_set(win, CURSOR_STD);
    } 
}


/* called in wm_event_system.c. sets state vars in screen, cursors */
/* event type is mouse move */
void ED_screen_set_subwinactive(bContext *C, wmEvent *event)
{
    wmWindow *win= CTX_wm_window(C);
    
    if(win->screen) {
        bScreen *scr= win->screen;
        ScrArea *sa;
        ARegion *ar;
        int oldswin= scr->subwinactive;

        for(sa= scr->areabase.first; sa; sa= sa->next) {
            if(event->x > sa->totrct.xmin && event->x < sa->totrct.xmax)
                if(event->y > sa->totrct.ymin && event->y < sa->totrct.ymax)
                    if(NULL==is_in_area_actionzone(sa, event->x, event->y))
                        break;
        }
        if(sa) {
            for(ar= sa->regionbase.first; ar; ar= ar->next) {
                if(BLI_in_rcti(&ar->winrct, event->x, event->y))
                    scr->subwinactive= ar->swinid;
            }
        }
        else
            scr->subwinactive= scr->mainwin;
        
        /* check for redraw headers */
        if(oldswin!=scr->subwinactive) {

            for(sa= scr->areabase.first; sa; sa= sa->next) {
                int do_draw= 0;
                
                for(ar= sa->regionbase.first; ar; ar= ar->next)
                    if(ar->swinid==oldswin || ar->swinid==scr->subwinactive)
                        do_draw= 1;
                
                if(do_draw) {
                    for(ar= sa->regionbase.first; ar; ar= ar->next)
                        if(ar->regiontype==RGN_TYPE_HEADER)
                            ED_region_tag_redraw(ar);
                }
            }
        }
        
        /* cursors, for time being set always on edges, otherwise aregion doesnt switch */
        if(scr->subwinactive==scr->mainwin) {
            screen_cursor_set(win, event);
        }
        else if(oldswin!=scr->subwinactive) {
            region_cursor_set(win, scr->subwinactive);
            WM_event_add_notifier(C, NC_SCREEN|ND_SUBWINACTIVE, scr);
        }
    }
}

int ED_screen_area_active(const bContext *C)
{
    wmWindow *win= CTX_wm_window(C);
    bScreen *sc= CTX_wm_screen(C);
    ScrArea *sa= CTX_wm_area(C);

    if(win && sc && sa) {
        AZone *az= is_in_area_actionzone(sa, win->eventstate->x, win->eventstate->y);
        ARegion *ar;
        
        if (az && az->type == AZONE_REGION)
            return 1;
        
        for(ar= sa->regionbase.first; ar; ar= ar->next)
            if(ar->swinid == sc->subwinactive)
                return 1;
    }   
    return 0;
}

/* operator call, WM + Window + screen already existed before */
/* Do NOT call in area/region queues! */
void ED_screen_set(bContext *C, bScreen *sc)
{
    wmWindowManager *wm= CTX_wm_manager(C);
    wmWindow *win= CTX_wm_window(C);
    bScreen *oldscreen= CTX_wm_screen(C);
    ID *id;
    
    /* validate screen, it's called with notifier reference */
    for(id= CTX_data_main(C)->screen.first; id; id= id->next)
        if(sc == (bScreen *)id)
            break;
    if(id==NULL) 
        return;
    
    /* check for valid winid */
    if(sc->winid!=0 && sc->winid!=win->winid)
        return;
    
    if(sc->full) {              /* find associated full */
        bScreen *sc1;
        for(sc1= CTX_data_main(C)->screen.first; sc1; sc1= sc1->id.next) {
            ScrArea *sa= sc1->areabase.first;
            if(sa->full==sc) {
                sc= sc1;
                break;
            }
        }
    }
    
    if (oldscreen != sc) {
        wmTimer *wt= oldscreen->animtimer;
        ScrArea *sa;

        /* remove handlers referencing areas in old screen */
        for(sa = oldscreen->areabase.first; sa; sa = sa->next) {
            WM_event_remove_area_handler(&win->modalhandlers, sa);
        }

        /* we put timer to sleep, so screen_exit has to think there's no timer */
        oldscreen->animtimer= NULL;
        if(wt)
            WM_event_timer_sleep(wm, win, wt, 1);
        
        ED_screen_exit(C, win, oldscreen);
        oldscreen->animtimer= wt;
        
        win->screen= sc;
        CTX_wm_window_set(C, win);  // stores C->wm.screen... hrmf
        
        /* prevent multiwin errors */
        sc->winid= win->winid;
        
        ED_screen_refresh(CTX_wm_manager(C), CTX_wm_window(C));
        WM_event_add_notifier(C, NC_WINDOW, NULL);
        WM_event_add_notifier(C, NC_SCREEN|ND_SCREENSET, sc);
        
        /* makes button hilites work */
        WM_event_add_mousemove(C);
    }
}

static int ed_screen_used(wmWindowManager *wm, bScreen *sc)
{
    wmWindow *win;

    for(win=wm->windows.first; win; win=win->next)
        if(win->screen == sc)
            return 1;
    
    return 0;
}

/* only call outside of area/region loops */
void ED_screen_delete(bContext *C, bScreen *sc)
{
    Main *bmain= CTX_data_main(C);
    wmWindowManager *wm= CTX_wm_manager(C);
    wmWindow *win= CTX_wm_window(C);
    bScreen *newsc;
    int delete= 1;
    
    /* don't allow deleting temp fullscreens for now */
    if (sc->full == SCREENFULL) {
        return;
    }
    
        
    /* screen can only be in use by one window at a time, so as
       long as we are able to find a screen that is unused, we
       can safely assume ours is not in use anywhere an delete it */

    for(newsc= sc->id.prev; newsc; newsc=newsc->id.prev)
        if(!ed_screen_used(wm, newsc))
            break;
    
    if(!newsc) {
        for(newsc= sc->id.next; newsc; newsc=newsc->id.next)
            if(!ed_screen_used(wm, newsc))
                break;
    }

    if(!newsc)
        return;

    ED_screen_set(C, newsc);

    if(delete && win->screen != sc)
        free_libblock(&bmain->screen, sc);
}

/* only call outside of area/region loops */
void ED_screen_set_scene(bContext *C, Scene *scene)
{
    Main *bmain= CTX_data_main(C);
    bScreen *sc;
    bScreen *curscreen= CTX_wm_screen(C);
    
    ED_object_exit_editmode(C, EM_FREEDATA|EM_DO_UNDO);

    for(sc= CTX_data_main(C)->screen.first; sc; sc= sc->id.next) {
        if((U.flag & USER_SCENEGLOBAL) || sc==curscreen) {
            
            if(scene != sc->scene) {
                /* all areas endlocalview */
            // XXX  ScrArea *sa= sc->areabase.first;
            //  while(sa) {
            //      endlocalview(sa);
            //      sa= sa->next;
            //  }       
                sc->scene= scene;
            }
            
        }
    }
    
    //  copy_view3d_lock(0);    /* space.c */
    
    /* are there cameras in the views that are not in the scene? */
    for(sc= CTX_data_main(C)->screen.first; sc; sc= sc->id.next) {
        if( (U.flag & USER_SCENEGLOBAL) || sc==curscreen) {
            ScrArea *sa= sc->areabase.first;
            while(sa) {
                SpaceLink *sl= sa->spacedata.first;
                while(sl) {
                    if(sl->spacetype==SPACE_VIEW3D) {
                        View3D *v3d= (View3D*) sl;

                        BKE_screen_view3d_sync(v3d, scene);

                        if (!v3d->camera || !object_in_scene(v3d->camera, scene)) {
                            v3d->camera= scene_find_camera(sc->scene);
                            // XXX if (sc==curscreen) handle_view3d_lock();
                            if (!v3d->camera) {
                                ARegion *ar;
                                for(ar=v3d->regionbase.first; ar; ar= ar->next) {
                                    if(ar->regiontype == RGN_TYPE_WINDOW) {
                                        RegionView3D *rv3d= ar->regiondata;

                                        if(rv3d->persp==RV3D_CAMOB)
                                            rv3d->persp= RV3D_PERSP;
                                    }
                                }
                            }
                        }
                    }
                    sl= sl->next;
                }
                sa= sa->next;
            }
        }
    }
    
    CTX_data_scene_set(C, scene);
    set_scene_bg(bmain, scene);
    
    ED_render_engine_changed(bmain);
    ED_update_for_newframe(bmain, scene, curscreen, 1);
    
    /* complete redraw */
    WM_event_add_notifier(C, NC_WINDOW, NULL);
    
}

/* only call outside of area/region loops */
void ED_screen_delete_scene(bContext *C, Scene *scene)
{
    Main *bmain= CTX_data_main(C);
    Scene *newscene;

    if(scene->id.prev)
        newscene= scene->id.prev;
    else if(scene->id.next)
        newscene= scene->id.next;
    else
        return;

    ED_screen_set_scene(C, newscene);

    unlink_scene(bmain, scene, newscene);
}

ScrArea *ED_screen_full_newspace(bContext *C, ScrArea *sa, int type)
{
    wmWindow *win= CTX_wm_window(C);
    bScreen *screen= CTX_wm_screen(C);
    ScrArea *newsa= NULL;

    if(!sa || sa->full==NULL) {
        newsa= ED_screen_full_toggle(C, win, sa);
    }
    
    if(!newsa) {
        if (sa->full) {
            /* if this has been called from the temporary info header generated in
             * temp fullscreen layouts, find the correct fullscreen area to change
             * to create a new space inside */
            for (newsa = screen->areabase.first; newsa; newsa=newsa->next) {
                if (!(sa->flag & AREA_TEMP_INFO))
                    break;
            }
        } else
            newsa= sa;
    }
    
    ED_area_newspace(C, newsa, type);
    
    return newsa;
}

void ED_screen_full_prevspace(bContext *C, ScrArea *sa)
{
    wmWindow *win= CTX_wm_window(C);

    ED_area_prevspace(C, sa);
    
    if(sa->full)
        ED_screen_full_toggle(C, win, sa);
}

/* restore a screen / area back to default operation, after temp fullscreen modes */
void ED_screen_full_restore(bContext *C, ScrArea *sa)
{
    wmWindow *win= CTX_wm_window(C);
    SpaceLink *sl = sa->spacedata.first;
    
    /* if fullscreen area has a secondary space (such as a file browser or fullscreen render 
     * overlaid on top of a existing setup) then return to the previous space */
    
    if (sl->next) {
        /* specific checks for space types */

        int sima_restore = 0;

        /* Special check added for non-render image window (back from fullscreen through "Back to Previous" button) */
        if (sl->spacetype == SPACE_IMAGE) {
            SpaceImage *sima= sa->spacedata.first;
            if (!(sima->flag & SI_PREVSPACE) && !(sima->flag & SI_FULLWINDOW))
                sima_restore = 1;
        }

        if (sl->spacetype == SPACE_IMAGE && !sima_restore) {
            SpaceImage *sima= sa->spacedata.first;
            if (sima->flag & SI_PREVSPACE)
                sima->flag &= ~SI_PREVSPACE;
            if (sima->flag & SI_FULLWINDOW) {
                sima->flag &= ~SI_FULLWINDOW;
                ED_screen_full_prevspace(C, sa);
            }
        } else if (sl->spacetype == SPACE_FILE) {
            ED_screen_full_prevspace(C, sa);
        } else
            ED_screen_full_toggle(C, win, sa);
    }
    /* otherwise just tile the area again */
    else {
        ED_screen_full_toggle(C, win, sa);
    }
}

/* this function toggles: if area is full then the parent will be restored */
ScrArea *ED_screen_full_toggle(bContext *C, wmWindow *win, ScrArea *sa)
{
    bScreen *sc, *oldscreen;
    ARegion *ar;

    if(sa) {
        /* ensure we don't have a button active anymore, can crash when
           switching screens with tooltip open because region and tooltip
           are no longer in the same screen */
        for(ar=sa->regionbase.first; ar; ar=ar->next)
            uiFreeBlocks(C, &ar->uiblocks);
        
        /* prevent hanging header prints */
        ED_area_headerprint(sa, NULL);
    }

    if(sa && sa->full) {
        ScrArea *old;
        /*short fulltype;*/ /*UNUSED*/

        sc= sa->full;       /* the old screen to restore */
        oldscreen= win->screen; /* the one disappearing */

        /*fulltype = sc->full;*/
        sc->full= 0;

        /* removed: SCREENAUTOPLAY exception here */
    
        /* find old area */
        for(old= sc->areabase.first; old; old= old->next)
            if(old->full) break;
        if(old==NULL) {
            if (G.f & G_DEBUG)
                printf("something wrong in areafullscreen\n");
            return NULL;
        }

        area_copy_data(old, sa, 1); /*  1 = swap spacelist */
        if (sa->flag & AREA_TEMP_INFO) sa->flag &= ~AREA_TEMP_INFO;
        old->full= NULL;

        /* animtimer back */
        sc->animtimer= oldscreen->animtimer;
        oldscreen->animtimer= NULL;

        ED_screen_set(C, sc);

        free_screen(oldscreen);
        free_libblock(&CTX_data_main(C)->screen, oldscreen);

    }
    else {
        ScrArea *newa;
        char newname[MAX_ID_NAME-2];

        oldscreen= win->screen;

        /* nothing wrong with having only 1 area, as far as I can see...
        // is there only 1 area?
        if(oldscreen->areabase.first==oldscreen->areabase.last)
            return NULL;
        */

        oldscreen->full = SCREENFULL;
        BLI_snprintf(newname, sizeof(newname), "%s-%s", oldscreen->id.name+2, "full");
        sc= ED_screen_add(win, oldscreen->scene, newname);
        sc->full = SCREENFULL; // XXX

        /* timer */
        sc->animtimer= oldscreen->animtimer;
        oldscreen->animtimer= NULL;

        /* returns the top small area */
        newa= area_split(sc, (ScrArea *)sc->areabase.first, 'h', 0.99f, 1);
        ED_area_newspace(C, newa, SPACE_INFO);

        /* use random area when we have no active one, e.g. when the
           mouse is outside of the window and we open a file browser */
        if(!sa)
            sa= oldscreen->areabase.first;

        /* copy area */
        newa= newa->prev;
        area_copy_data(newa, sa, 1);    /* 1 = swap spacelist */
        sa->flag |= AREA_TEMP_INFO;

        sa->full= oldscreen;
        newa->full= oldscreen;
        newa->next->full= oldscreen; // XXX

        ED_screen_set(C, sc);
    }

    /* XXX bad code: setscreen() ends with first area active. fullscreen render assumes this too */
    CTX_wm_area_set(C, sc->areabase.first);

    return sc->areabase.first;
}

/* update frame rate info for viewport drawing */
void ED_refresh_viewport_fps(bContext *C)
{
    wmTimer *animtimer= CTX_wm_screen(C)->animtimer;
    Scene *scene= CTX_data_scene(C);
    
    /* is anim playback running? */
    if (animtimer && (U.uiflag & USER_SHOW_FPS)) {
        ScreenFrameRateInfo *fpsi= scene->fps_info;
        
        /* if there isn't any info, init it first */
        if (fpsi == NULL)
            fpsi= scene->fps_info= MEM_callocN(sizeof(ScreenFrameRateInfo), "refresh_viewport_fps fps_info");
        
        /* update the values */
        fpsi->redrawtime= fpsi->lredrawtime;
        fpsi->lredrawtime= animtimer->ltime;
    }
    else {  
        /* playback stopped or shouldn't be running */
        if (scene->fps_info)
            MEM_freeN(scene->fps_info);
        scene->fps_info= NULL;
    }
}

/* redraws: uses defines from stime->redraws 
 * enable: 1 - forward on, -1 - backwards on, 0 - off
 */
void ED_screen_animation_timer(bContext *C, int redraws, int refresh, int sync, int enable)
{
    bScreen *screen= CTX_wm_screen(C);
    wmWindowManager *wm= CTX_wm_manager(C);
    wmWindow *win= CTX_wm_window(C);
    Scene *scene= CTX_data_scene(C);
    
    if(screen->animtimer)
        WM_event_remove_timer(wm, win, screen->animtimer);
    screen->animtimer= NULL;
    
    if(enable) {
        ScreenAnimData *sad= MEM_callocN(sizeof(ScreenAnimData), "ScreenAnimData");
        
        screen->animtimer= WM_event_add_timer(wm, win, TIMER0, (1.0/FPS));
        
        sad->ar= CTX_wm_region(C);
        sad->sfra = scene->r.cfra;
        sad->redraws= redraws;
        sad->refresh= refresh;
        sad->flag |= (enable < 0)? ANIMPLAY_FLAG_REVERSE: 0;
        sad->flag |= (sync == 0)? ANIMPLAY_FLAG_NO_SYNC: (sync == 1)? ANIMPLAY_FLAG_SYNC: 0;
        
        screen->animtimer->customdata= sad;
        
    }
    /* notifier catched by top header, for button */
    WM_event_add_notifier(C, NC_SCREEN|ND_ANIMPLAY, screen);
}

/* helper for screen_animation_play() - only to be used for TimeLine */
static ARegion *time_top_left_3dwindow(bScreen *screen)
{
    ARegion *aret= NULL;
    ScrArea *sa;
    int min= 10000;
    
    for(sa= screen->areabase.first; sa; sa= sa->next) {
        if(sa->spacetype==SPACE_VIEW3D) {
            ARegion *ar;
            for(ar= sa->regionbase.first; ar; ar= ar->next) {
                if(ar->regiontype==RGN_TYPE_WINDOW) {
                    if(ar->winrct.xmin - ar->winrct.ymin < min) {
                        aret= ar;
                        min= ar->winrct.xmin - ar->winrct.ymin;
                    }
                }
            }
        }
    }

    return aret;
}

void ED_screen_animation_timer_update(bScreen *screen, int redraws, int refresh)
{
    if(screen && screen->animtimer) {
        wmTimer *wt= screen->animtimer;
        ScreenAnimData *sad= wt->customdata;
        
        sad->redraws= redraws;
        sad->refresh= refresh;
        sad->ar= NULL;
        if(redraws & TIME_REGION)
            sad->ar= time_top_left_3dwindow(screen);
    }
}

/* results in fully updated anim system
 * screen can be NULL */
void ED_update_for_newframe(Main *bmain, Scene *scene, bScreen *screen, int UNUSED(mute))
{   
#ifdef DURIAN_CAMERA_SWITCH
    void *camera= scene_camera_switch_find(scene);
    if(camera && scene->camera != camera) {
        bScreen *sc;
        scene->camera= camera;
        /* are there cameras in the views that are not in the scene? */
        for(sc= bmain->screen.first; sc; sc= sc->id.next) {
            BKE_screen_view3d_scene_sync(sc);
        }
    }
#endif

    //extern void audiostream_scrub(unsigned int frame);    /* seqaudio.c */
    
    /* update animated image textures for gpu, etc,
     * call before scene_update_for_newframe so modifiers with textuers dont lag 1 frame */
    ED_image_update_frame(bmain, scene->r.cfra);

    ED_clip_update_frame(bmain, scene->r.cfra);

    /* this function applies the changes too */
    /* XXX future: do all windows */
    scene_update_for_newframe(bmain, scene, BKE_screen_visible_layers(screen, scene)); /* BKE_scene.h */
    
    //if ( (CFRA>1) && (!mute) && (scene->r.audio.flag & AUDIO_SCRUB)) 
    //  audiostream_scrub( CFRA );
    
    /* 3d window, preview */
    //BIF_view3d_previewrender_signal(curarea, PR_DBASE|PR_DISPRECT);
    
    /* all movie/sequence images */
    //BIF_image_update_frame();
    
    /* composite */
    if(scene->use_nodes && scene->nodetree)
        ntreeCompositTagAnimated(scene->nodetree);
    
    /* update animated texture nodes */
    {
        Tex *tex;
        for(tex= bmain->tex.first; tex; tex= tex->id.next)
            if( tex->use_nodes && tex->nodetree ) {
                ntreeTexTagAnimated( tex->nodetree );
            }
    }
    
}