Merging r50625 through r51896 from trunk into soc-2011-tomato
[blender.git] / source / blender / blenkernel / intern / node.c
1 /*
2  * ***** BEGIN GPL LICENSE BLOCK *****
3  *
4  * This program is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU General Public License
6  * as published by the Free Software Foundation; either version 2
7  * of the License, or (at your option) any later version. 
8  *
9  * This program is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12  * GNU General Public License for more details.
13  *
14  * You should have received a copy of the GNU General Public License
15  * along with this program; if not, write to the Free Software Foundation,
16  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
17  *
18  * The Original Code is Copyright (C) 2005 Blender Foundation.
19  * All rights reserved.
20  *
21  * The Original Code is: all of this file.
22  *
23  * Contributor(s): Bob Holcomb.
24  *
25  * ***** END GPL LICENSE BLOCK *****
26  */
27
28 /** \file blender/blenkernel/intern/node.c
29  *  \ingroup bke
30  */
31
32 #include "MEM_guardedalloc.h"
33
34 #include <stdlib.h>
35 #include <stddef.h>
36 #include <string.h>
37 #include <limits.h>
38
39 #include "DNA_action_types.h"
40 #include "DNA_anim_types.h"
41 #include "DNA_node_types.h"
42 #include "DNA_node_types.h"
43 #include "DNA_scene_types.h"
44
45 #include "BLI_string.h"
46 #include "BLI_math.h"
47 #include "BLI_listbase.h"
48 #include "BLI_path_util.h"
49 #include "BLI_utildefines.h"
50
51 #include "BLF_translation.h"
52
53 #include "BKE_animsys.h"
54 #include "BKE_action.h"
55 #include "BKE_fcurve.h"
56 #include "BKE_global.h"
57 #include "BKE_image.h"
58 #include "BKE_library.h"
59 #include "BKE_main.h"
60 #include "BKE_node.h"
61
62 #include "RNA_access.h"
63
64 #include "NOD_socket.h"
65 #include "NOD_composite.h"
66 #include "NOD_shader.h"
67 #include "NOD_texture.h"
68
69
70 bNodeTreeType *ntreeGetType(int type)
71 {
72         static bNodeTreeType *types[NUM_NTREE_TYPES];
73         static int types_init = 1;
74         if (types_init) {
75                 types[NTREE_SHADER] = &ntreeType_Shader;
76                 types[NTREE_COMPOSIT] = &ntreeType_Composite;
77                 types[NTREE_TEXTURE] = &ntreeType_Texture;
78                 types_init = 0;
79         }
80         
81         if (type >= 0 && type < NUM_NTREE_TYPES) {
82                 return types[type];
83         }
84         else {
85                 return NULL;
86         }
87 }
88
89 static bNodeType *node_get_type(bNodeTree *ntree, int type)
90 {
91         bNodeType *ntype = ntreeGetType(ntree->type)->node_types.first;
92         for (; ntype; ntype = ntype->next)
93                 if (ntype->type == type)
94                         return ntype;
95         
96         return NULL;
97 }
98
99 bNodeType *ntreeGetNodeType(bNodeTree *ntree)
100 {
101         return node_get_type(ntree, ntree->nodetype);
102 }
103
104 bNodeSocketType *ntreeGetSocketType(int type)
105 {
106         static bNodeSocketType *types[NUM_SOCKET_TYPES] = {NULL};
107         static int types_init = 1;
108
109         if (types_init) {
110                 node_socket_type_init(types);
111                 types_init = 0;
112         }
113
114         if (type < NUM_SOCKET_TYPES) {
115                 return types[type];
116         }
117         else {
118                 return NULL;
119         }
120 }
121
122 void ntreeInitTypes(bNodeTree *ntree)
123 {
124         bNode *node, *next;
125         
126         for (node = ntree->nodes.first; node; node = next) {
127                 next = node->next;
128                 
129                 node->typeinfo = node_get_type(ntree, node->type);
130
131                 if (node->typeinfo == NULL) {
132                         printf("Error: Node type %s doesn't exist anymore, removed\n", node->name);
133                         nodeFreeNode(ntree, node);
134                 }
135         }
136                         
137         ntree->init |= NTREE_TYPE_INIT;
138 }
139
140 static bNodeSocket *make_socket(bNodeTree *UNUSED(ntree), int in_out, const char *name, int type)
141 {
142         bNodeSocket *sock;
143         
144         sock = MEM_callocN(sizeof(bNodeSocket), "sock");
145         
146         BLI_strncpy(sock->name, name, NODE_MAXSTR);
147         sock->limit = (in_out == SOCK_IN ? 1 : 0xFFF);
148         sock->type = type;
149         sock->storage = NULL;
150         sock->flag |= SOCK_COLLAPSED;
151         
152         sock->default_value = node_socket_make_default_value(type);
153         node_socket_init_default_value(type, sock->default_value);
154         
155         return sock;
156 }
157
158 bNodeSocket *nodeAddSocket(bNodeTree *ntree, bNode *node, int in_out, const char *name, int type)
159 {
160         bNodeSocket *sock = make_socket(ntree, in_out, name, type);
161         if (in_out == SOCK_IN)
162                 BLI_addtail(&node->inputs, sock);
163         else if (in_out == SOCK_OUT)
164                 BLI_addtail(&node->outputs, sock);
165         
166         node->update |= NODE_UPDATE;
167         
168         return sock;
169 }
170
171 bNodeSocket *nodeInsertSocket(bNodeTree *ntree, bNode *node, int in_out, bNodeSocket *next_sock, const char *name, int type)
172 {
173         bNodeSocket *sock = make_socket(ntree, in_out, name, type);
174         if (in_out == SOCK_IN)
175                 BLI_insertlinkbefore(&node->inputs, next_sock, sock);
176         else if (in_out == SOCK_OUT)
177                 BLI_insertlinkbefore(&node->outputs, next_sock, sock);
178         
179         node->update |= NODE_UPDATE;
180         
181         return sock;
182 }
183
184 void nodeRemoveSocket(bNodeTree *ntree, bNode *node, bNodeSocket *sock)
185 {
186         bNodeLink *link, *next;
187         
188         for (link = ntree->links.first; link; link = next) {
189                 next = link->next;
190                 if (link->fromsock == sock || link->tosock == sock) {
191                         nodeRemLink(ntree, link);
192                 }
193         }
194         
195         /* this is fast, this way we don't need an in_out argument */
196         BLI_remlink(&node->inputs, sock);
197         BLI_remlink(&node->outputs, sock);
198         
199         node_socket_free_default_value(sock->type, sock->default_value);
200         MEM_freeN(sock);
201         
202         node->update |= NODE_UPDATE;
203 }
204
205 void nodeRemoveAllSockets(bNodeTree *ntree, bNode *node)
206 {
207         bNodeSocket *sock;
208         bNodeLink *link, *next;
209         
210         for (link = ntree->links.first; link; link = next) {
211                 next = link->next;
212                 if (link->fromnode == node || link->tonode == node) {
213                         nodeRemLink(ntree, link);
214                 }
215         }
216         
217         for (sock = node->inputs.first; sock; sock = sock->next)
218                 node_socket_free_default_value(sock->type, sock->default_value);
219         BLI_freelistN(&node->inputs);
220         for (sock = node->outputs.first; sock; sock = sock->next)
221                 node_socket_free_default_value(sock->type, sock->default_value);
222         BLI_freelistN(&node->outputs);
223         
224         node->update |= NODE_UPDATE;
225 }
226
227 /* finds a node based on its name */
228 bNode *nodeFindNodebyName(bNodeTree *ntree, const char *name)
229 {
230         return BLI_findstring(&ntree->nodes, name, offsetof(bNode, name));
231 }
232
233 /* finds a node based on given socket */
234 int nodeFindNode(bNodeTree *ntree, bNodeSocket *sock, bNode **nodep, int *sockindex, int *in_out)
235 {
236         bNode *node;
237         bNodeSocket *tsock;
238         int index = 0;
239         
240         for (node = ntree->nodes.first; node; node = node->next) {
241                 for (index = 0, tsock = node->inputs.first; tsock; tsock = tsock->next, index++) {
242                         if (tsock == sock) {
243                                 if (in_out) *in_out = SOCK_IN;
244                                 break;
245                         }
246                 }
247                 if (tsock)
248                         break;
249                 for (index = 0, tsock = node->outputs.first; tsock; tsock = tsock->next, index++) {
250                         if (tsock == sock) {
251                                 if (in_out) *in_out = SOCK_OUT;
252                                 break;
253                         }
254                 }
255                 if (tsock)
256                         break;
257         }
258
259         if (node) {
260                 *nodep = node;
261                 if (sockindex) *sockindex = index;
262                 return 1;
263         }
264         
265         *nodep = NULL;
266         return 0;
267 }
268
269 /* ************** Add stuff ********** */
270 static void node_add_sockets_from_type(bNodeTree *ntree, bNode *node, bNodeType *ntype)
271 {
272         bNodeSocketTemplate *sockdef;
273         /* bNodeSocket *sock; */ /* UNUSED */
274
275         if (ntype->inputs) {
276                 sockdef = ntype->inputs;
277                 while (sockdef->type != -1) {
278                         /* sock = */ node_add_input_from_template(ntree, node, sockdef);
279                         
280                         sockdef++;
281                 }
282         }
283         if (ntype->outputs) {
284                 sockdef = ntype->outputs;
285                 while (sockdef->type != -1) {
286                         /* sock = */ node_add_output_from_template(ntree, node, sockdef);
287                         
288                         sockdef++;
289                 }
290         }
291 }
292
293 /* Find the first available, non-duplicate name for a given node */
294 void nodeUniqueName(bNodeTree *ntree, bNode *node)
295 {
296         BLI_uniquename(&ntree->nodes, node, "Node", '.', offsetof(bNode, name), sizeof(node->name));
297 }
298
299 bNode *nodeAddNode(bNodeTree *ntree, struct bNodeTemplate *ntemp)
300 {
301         bNode *node;
302         bNodeType *ntype;
303         
304         ntype = node_get_type(ntree, ntemp->type);
305         if (ntype == NULL) {
306                 printf("nodeAddNodeType() error: '%d' type invalid\n", ntemp->type);
307                 return NULL;
308         }
309         /* validity check */
310         if (!nodeValid(ntree, ntemp))
311                 return NULL;
312         
313         node = MEM_callocN(sizeof(bNode), "new node");
314         node->type = ntype->type;
315         node->typeinfo = ntype;
316         node->flag = NODE_SELECT | ntype->flag;
317         node->width = ntype->width;
318         node->miniwidth = 42.0f;
319         node->height = ntype->height;
320         node->color[0] = node->color[1] = node->color[2] = 0.608;   /* default theme color */
321         
322         node_add_sockets_from_type(ntree, node, ntype);
323
324         BLI_addtail(&ntree->nodes, node);
325         
326         if (ntype->initfunc != NULL)
327                 ntype->initfunc(ntree, node, ntemp);
328
329         /* initialize the node name with the node label.
330          * note: do this after the initfunc so nodes get their data set which may be used in naming
331          * (node groups for example) */
332         /* XXX Do not use nodeLabel() here, it returns translated content, which should *only* be used
333          *     in UI, *never* in data...
334          *     This solution may be a bit rougher than nodeLabel()'s returned string, but it's simpler
335          *     than adding a "no translate" flag to this func (and labelfunc() as well). */
336         BLI_strncpy(node->name, node->typeinfo->name, NODE_MAXSTR);
337         nodeUniqueName(ntree, node);
338         
339         ntree->update |= NTREE_UPDATE_NODES;
340         
341         return node;
342 }
343
344 /* keep socket listorder identical, for copying links */
345 /* ntree is the target tree */
346 bNode *nodeCopyNode(struct bNodeTree *ntree, struct bNode *node)
347 {
348         bNode *nnode = MEM_callocN(sizeof(bNode), "dupli node");
349         bNodeSocket *sock, *oldsock;
350         bNodeLink *link, *oldlink;
351
352         *nnode = *node;
353         /* can be called for nodes outside a node tree (e.g. clipboard) */
354         if (ntree) {
355                 nodeUniqueName(ntree, nnode);
356
357                 BLI_addtail(&ntree->nodes, nnode);
358         }
359
360         BLI_duplicatelist(&nnode->inputs, &node->inputs);
361         oldsock = node->inputs.first;
362         for (sock = nnode->inputs.first; sock; sock = sock->next, oldsock = oldsock->next) {
363                 oldsock->new_sock = sock;
364                 sock->stack_index = 0;
365                 
366                 sock->default_value = node_socket_make_default_value(oldsock->type);
367                 node_socket_copy_default_value(oldsock->type, sock->default_value, oldsock->default_value);
368                 
369                 /* XXX some compositor node (e.g. image, render layers) still store
370                  * some persistent buffer data here, need to clear this to avoid dangling pointers.
371                  */
372                 sock->cache = NULL;
373         }
374         
375         BLI_duplicatelist(&nnode->outputs, &node->outputs);
376         oldsock = node->outputs.first;
377         for (sock = nnode->outputs.first; sock; sock = sock->next, oldsock = oldsock->next) {
378                 oldsock->new_sock = sock;
379                 sock->stack_index = 0;
380                 
381                 sock->default_value = node_socket_make_default_value(oldsock->type);
382                 node_socket_copy_default_value(oldsock->type, sock->default_value, oldsock->default_value);
383                 
384                 /* XXX some compositor node (e.g. image, render layers) still store
385                  * some persistent buffer data here, need to clear this to avoid dangling pointers.
386                  */
387                 sock->cache = NULL;
388         }
389         
390         BLI_duplicatelist(&nnode->internal_links, &node->internal_links);
391         oldlink = node->internal_links.first;
392         for (link = nnode->internal_links.first; link; link = link->next, oldlink = oldlink->next) {
393                 link->fromnode = nnode;
394                 link->tonode = nnode;
395                 link->fromsock = link->fromsock->new_sock;
396                 link->tosock = link->tosock->new_sock;
397         }
398         
399         /* don't increase node->id users, freenode doesn't decrement either */
400         
401         if (node->typeinfo->copystoragefunc)
402                 node->typeinfo->copystoragefunc(node, nnode);
403         
404         node->new_node = nnode;
405         nnode->new_node = NULL;
406         
407         /* only shader nodes get pleasant preview updating this way, compo uses own system */
408         if (node->preview) {
409                 if (ntree->type == NTREE_SHADER) {
410                         nnode->preview = MEM_dupallocN(node->preview);
411                         if (node->preview->rect)
412                                 nnode->preview->rect = MEM_dupallocN(node->preview->rect);
413                 }
414                 else 
415                         nnode->preview = NULL;
416         }
417         
418         if (ntree)
419                 ntree->update |= NTREE_UPDATE_NODES;
420         
421         return nnode;
422 }
423
424 /* also used via rna api, so we check for proper input output direction */
425 bNodeLink *nodeAddLink(bNodeTree *ntree, bNode *fromnode, bNodeSocket *fromsock, bNode *tonode, bNodeSocket *tosock)
426 {
427         bNodeSocket *sock;
428         bNodeLink *link = NULL;
429         int from = 0, to = 0;
430         
431         if (fromnode) {
432                 /* test valid input */
433                 for (sock = fromnode->outputs.first; sock; sock = sock->next)
434                         if (sock == fromsock)
435                                 break;
436                 if (sock)
437                         from = 1;  /* OK */
438                 else {
439                         for (sock = fromnode->inputs.first; sock; sock = sock->next)
440                                 if (sock == fromsock)
441                                         break;
442                         if (sock)
443                                 from = -1;  /* OK but flip */
444                 }
445         }
446         else if (ntree) {
447                 /* check tree sockets */
448                 for (sock = ntree->inputs.first; sock; sock = sock->next)
449                         if (sock == fromsock)
450                                 break;
451                 if (sock)
452                         from = 1;  /* OK */
453                 else {
454                         for (sock = ntree->outputs.first; sock; sock = sock->next)
455                                 if (sock == fromsock)
456                                         break;
457                         if (sock)
458                                 from = -1;  /* OK but flip */
459                 }
460         }
461         if (tonode) {
462                 for (sock = tonode->inputs.first; sock; sock = sock->next)
463                         if (sock == tosock)
464                                 break;
465                 if (sock)
466                         to = 1;  /* OK */
467                 else {
468                         for (sock = tonode->outputs.first; sock; sock = sock->next)
469                                 if (sock == tosock)
470                                         break;
471                         if (sock)
472                                 to = -1;  /* OK but flip */
473                 }
474         }
475         else if (ntree) {
476                 /* check tree sockets */
477                 for (sock = ntree->outputs.first; sock; sock = sock->next)
478                         if (sock == tosock)
479                                 break;
480                 if (sock)
481                         to = 1;  /* OK */
482                 else {
483                         for (sock = ntree->inputs.first; sock; sock = sock->next)
484                                 if (sock == tosock)
485                                         break;
486                         if (sock)
487                                 to = -1;  /* OK but flip */
488                 }
489         }
490         
491         if (from >= 0 && to >= 0) {
492                 link = MEM_callocN(sizeof(bNodeLink), "link");
493                 if (ntree)
494                         BLI_addtail(&ntree->links, link);
495                 link->fromnode = fromnode;
496                 link->fromsock = fromsock;
497                 link->tonode = tonode;
498                 link->tosock = tosock;
499         }
500         else if (from <= 0 && to <= 0) {
501                 link = MEM_callocN(sizeof(bNodeLink), "link");
502                 if (ntree)
503                         BLI_addtail(&ntree->links, link);
504                 link->fromnode = tonode;
505                 link->fromsock = tosock;
506                 link->tonode = fromnode;
507                 link->tosock = fromsock;
508         }
509         
510         if (ntree)
511                 ntree->update |= NTREE_UPDATE_LINKS;
512         
513         return link;
514 }
515
516 void nodeRemLink(bNodeTree *ntree, bNodeLink *link)
517 {
518         /* can be called for links outside a node tree (e.g. clipboard) */
519         if (ntree)
520                 BLI_remlink(&ntree->links, link);
521
522         if (link->tosock)
523                 link->tosock->link = NULL;
524         MEM_freeN(link);
525         
526         if (ntree)
527                 ntree->update |= NTREE_UPDATE_LINKS;
528 }
529
530 void nodeRemSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
531 {
532         bNodeLink *link, *next;
533         
534         for (link = ntree->links.first; link; link = next) {
535                 next = link->next;
536                 if (link->fromsock == sock || link->tosock == sock) {
537                         nodeRemLink(ntree, link);
538                 }
539         }
540         
541         ntree->update |= NTREE_UPDATE_LINKS;
542 }
543
544 void nodeInternalRelink(bNodeTree *ntree, bNode *node)
545 {
546         bNodeLink *link, *link_next;
547         
548         if (node->internal_links.first == NULL)
549                 return;
550         
551         /* store link pointers in output sockets, for efficient lookup */
552         for (link = node->internal_links.first; link; link = link->next)
553                 link->tosock->link = link;
554         
555         /* redirect downstream links */
556         for (link = ntree->links.first; link; link = link_next) {
557                 link_next = link->next;
558                 
559                 /* do we have internal link? */
560                 if (link->fromnode == node) {
561                         if (link->fromsock->link) {
562                                 /* get the upstream input link */
563                                 bNodeLink *fromlink = link->fromsock->link->fromsock->link;
564                                 /* skip the node */
565                                 if (fromlink) {
566                                         link->fromnode = fromlink->fromnode;
567                                         link->fromsock = fromlink->fromsock;
568                                         
569                                         ntree->update |= NTREE_UPDATE_LINKS;
570                                 }
571                                 else
572                                         nodeRemLink(ntree, link);
573                         }
574                         else
575                                 nodeRemLink(ntree, link);
576                 }
577         }
578         
579         /* remove remaining upstream links */
580         for (link = ntree->links.first; link; link = link_next) {
581                 link_next = link->next;
582                 
583                 if (link->tonode == node)
584                         nodeRemLink(ntree, link);
585         }
586 }
587
588 void nodeToView(bNode *node, float x, float y, float *rx, float *ry)
589 {
590         if (node->parent) {
591                 nodeToView(node->parent, x + node->locx, y + node->locy, rx, ry);
592         }
593         else {
594                 *rx = x + node->locx;
595                 *ry = y + node->locy;
596         }
597 }
598
599 void nodeFromView(bNode *node, float x, float y, float *rx, float *ry)
600 {
601         if (node->parent) {
602                 nodeFromView(node->parent, x, y, rx, ry);
603                 *rx -= node->locx;
604                 *ry -= node->locy;
605         }
606         else {
607                 *rx = x - node->locx;
608                 *ry = y - node->locy;
609         }
610 }
611
612 int nodeAttachNodeCheck(bNode *node, bNode *parent)
613 {
614         bNode *parent_recurse;
615         for (parent_recurse = node; parent_recurse; parent_recurse = parent_recurse->parent) {
616                 if (parent_recurse == parent) {
617                         return TRUE;
618                 }
619         }
620
621         return FALSE;
622 }
623
624 void nodeAttachNode(bNode *node, bNode *parent)
625 {
626         float locx, locy;
627
628         BLI_assert(parent->type == NODE_FRAME);
629         BLI_assert(nodeAttachNodeCheck(parent, node) == FALSE);
630
631         nodeToView(node, 0.0f, 0.0f, &locx, &locy);
632         
633         node->parent = parent;
634         /* transform to parent space */
635         nodeFromView(parent, locx, locy, &node->locx, &node->locy);
636 }
637
638 void nodeDetachNode(struct bNode *node)
639 {
640         float locx, locy;
641         
642         if (node->parent) {
643
644                 BLI_assert(node->parent->type == NODE_FRAME);
645
646                 /* transform to view space */
647                 nodeToView(node, 0.0f, 0.0f, &locx, &locy);
648                 node->locx = locx;
649                 node->locy = locy;
650                 node->parent = NULL;
651         }
652 }
653
654 bNodeTree *ntreeAddTree(const char *name, int type, int nodetype)
655 {
656         bNodeTree *ntree;
657         bNodeType *ntype;
658         
659         /* trees are created as local trees if they of compositor, material or texture type,
660          * node groups and other tree types are created as library data.
661          */
662         if (ELEM3(type, NTREE_COMPOSIT, NTREE_SHADER, NTREE_TEXTURE) && nodetype == 0) {
663                 ntree = MEM_callocN(sizeof(bNodeTree), "new node tree");
664                 *( (short *)ntree->id.name) = ID_NT; /* not "type", as that is ntree->type */
665                 BLI_strncpy(ntree->id.name + 2, name, sizeof(ntree->id.name));
666         }
667         else
668                 ntree = BKE_libblock_alloc(&G.main->nodetree, ID_NT, name);
669         
670         ntree->type = type;
671         ntree->nodetype = nodetype;
672         
673         ntreeInitTypes(ntree);
674         
675         ntype = node_get_type(ntree, ntree->nodetype);
676         if (ntype && ntype->inittreefunc)
677                 ntype->inittreefunc(ntree);
678         
679         return ntree;
680 }
681
682 /* Warning: this function gets called during some rather unexpected times
683  *      - this gets called when executing compositing updates (for threaded previews)
684  *      - when the nodetree datablock needs to be copied (i.e. when users get copied)
685  *      - for scene duplication use ntreeSwapID() after so we don't have stale pointers.
686  *
687  * do_make_extern: keep enabled for general use, only reason _not_ to enable is when
688  * copying for internal use (threads for eg), where you wont want it to modify the
689  * scene data.
690  */
691 static bNodeTree *ntreeCopyTree_internal(bNodeTree *ntree, const short do_id_user, const short do_make_extern)
692 {
693         bNodeTree *newtree;
694         bNode *node /*, *nnode */ /* UNUSED */, *last;
695         bNodeLink *link;
696         bNodeSocket *gsock, *oldgsock;
697         
698         if (ntree == NULL) return NULL;
699         
700         /* is ntree part of library? */
701         for (newtree = G.main->nodetree.first; newtree; newtree = newtree->id.next)
702                 if (newtree == ntree) break;
703         if (newtree) {
704                 newtree = BKE_libblock_copy(&ntree->id);
705         }
706         else {
707                 newtree = MEM_dupallocN(ntree);
708                 BKE_libblock_copy_data(&newtree->id, &ntree->id, TRUE); /* copy animdata and ID props */
709         }
710
711         id_us_plus((ID *)newtree->gpd);
712
713         /* in case a running nodetree is copied */
714         newtree->execdata = NULL;
715         
716         newtree->nodes.first = newtree->nodes.last = NULL;
717         newtree->links.first = newtree->links.last = NULL;
718         
719         last = ntree->nodes.last;
720         for (node = ntree->nodes.first; node; node = node->next) {
721
722                 /* ntreeUserDecrefID inline */
723                 if (do_id_user) {
724                         id_us_plus(node->id);
725                 }
726
727                 if (do_make_extern) {
728                         id_lib_extern(node->id);
729                 }
730
731                 node->new_node = NULL;
732                 /* nnode = */ nodeCopyNode(newtree, node);   /* sets node->new */
733                 
734                 /* make sure we don't copy new nodes again! */
735                 if (node == last)
736                         break;
737         }
738         
739         /* socket definition for group usage */
740         BLI_duplicatelist(&newtree->inputs, &ntree->inputs);
741         for (gsock = newtree->inputs.first, oldgsock = ntree->inputs.first; gsock; gsock = gsock->next, oldgsock = oldgsock->next) {
742                 oldgsock->new_sock = gsock;
743                 gsock->groupsock = (oldgsock->groupsock ? oldgsock->groupsock->new_sock : NULL);
744                 gsock->default_value = node_socket_make_default_value(oldgsock->type);
745                 node_socket_copy_default_value(oldgsock->type, gsock->default_value, oldgsock->default_value);
746         }
747         BLI_duplicatelist(&newtree->outputs, &ntree->outputs);
748         for (gsock = newtree->outputs.first, oldgsock = ntree->outputs.first; gsock; gsock = gsock->next, oldgsock = oldgsock->next) {
749                 oldgsock->new_sock = gsock;
750                 gsock->groupsock = (oldgsock->groupsock ? oldgsock->groupsock->new_sock : NULL);
751                 gsock->default_value = node_socket_make_default_value(oldgsock->type);
752                 node_socket_copy_default_value(oldgsock->type, gsock->default_value, oldgsock->default_value);
753         }
754         
755         /* copy links */
756         BLI_duplicatelist(&newtree->links, &ntree->links);
757         for (link = newtree->links.first; link; link = link->next) {
758                 link->fromnode = (link->fromnode ? link->fromnode->new_node : NULL);
759                 link->fromsock = (link->fromsock ? link->fromsock->new_sock : NULL);
760                 link->tonode = (link->tonode ? link->tonode->new_node : NULL);
761                 link->tosock = (link->tosock ? link->tosock->new_sock : NULL);
762                 /* update the link socket's pointer */
763                 if (link->tosock)
764                         link->tosock->link = link;
765         }
766         
767         /* update node->parent pointers */
768         for (node = newtree->nodes.first; node; node = node->next) {
769                 if (node->parent)
770                         node->parent = node->parent->new_node;
771         }
772         
773         return newtree;
774 }
775
776 bNodeTree *ntreeCopyTree_ex(bNodeTree *ntree, const short do_id_user)
777 {
778         return ntreeCopyTree_internal(ntree, do_id_user, TRUE);
779 }
780 bNodeTree *ntreeCopyTree(bNodeTree *ntree)
781 {
782         return ntreeCopyTree_ex(ntree, TRUE);
783 }
784
785 /* use when duplicating scenes */
786 void ntreeSwitchID_ex(bNodeTree *ntree, ID *id_from, ID *id_to, const short do_id_user)
787 {
788         bNode *node;
789
790         if (id_from == id_to) {
791                 /* should never happen but may as well skip if it does */
792                 return;
793         }
794
795         /* for scene duplication only */
796         for (node = ntree->nodes.first; node; node = node->next) {
797                 if (node->id == id_from) {
798                         if (do_id_user) {
799                                 id_us_min(id_from);
800                                 id_us_plus(id_to);
801                         }
802
803                         node->id = id_to;
804                 }
805         }
806 }
807 void ntreeSwitchID(bNodeTree *ntree, ID *id_from, ID *id_to)
808 {
809         ntreeSwitchID_ex(ntree, id_from, id_to, TRUE);
810 }
811
812 void ntreeUserIncrefID(bNodeTree *ntree)
813 {
814         bNode *node;
815         for (node = ntree->nodes.first; node; node = node->next) {
816                 id_us_plus(node->id);
817         }
818 }
819 void ntreeUserDecrefID(bNodeTree *ntree)
820 {
821         bNode *node;
822         for (node = ntree->nodes.first; node; node = node->next) {
823                 id_us_min(node->id);
824         }
825 }
826
827 /* *************** preview *********** */
828 /* if node->preview, then we assume the rect to exist */
829
830 void nodeFreePreview(bNode *node)
831 {
832         if (node->preview) {
833                 if (node->preview->rect)
834                         MEM_freeN(node->preview->rect);
835                 MEM_freeN(node->preview);
836                 node->preview = NULL;
837         }
838 }
839
840 static void node_init_preview(bNode *node, int xsize, int ysize)
841 {
842         
843         if (node->preview == NULL) {
844                 node->preview = MEM_callocN(sizeof(bNodePreview), "node preview");
845                 //              printf("added preview %s\n", node->name);
846         }
847         
848         /* node previews can get added with variable size this way */
849         if (xsize == 0 || ysize == 0)
850                 return;
851         
852         /* sanity checks & initialize */
853         if (node->preview->rect) {
854                 if (node->preview->xsize != xsize && node->preview->ysize != ysize) {
855                         MEM_freeN(node->preview->rect);
856                         node->preview->rect = NULL;
857                 }
858         }
859         
860         if (node->preview->rect == NULL) {
861                 node->preview->rect = MEM_callocN(4 * xsize + xsize * ysize * sizeof(char) * 4, "node preview rect");
862                 node->preview->xsize = xsize;
863                 node->preview->ysize = ysize;
864         }
865         /* no clear, makes nicer previews */
866 }
867
868 void ntreeInitPreview(bNodeTree *ntree, int xsize, int ysize)
869 {
870         bNode *node;
871         
872         if (ntree == NULL)
873                 return;
874         
875         for (node = ntree->nodes.first; node; node = node->next) {
876                 if (node->typeinfo->flag & NODE_PREVIEW)    /* hrms, check for closed nodes? */
877                         node_init_preview(node, xsize, ysize);
878                 if (node->type == NODE_GROUP && (node->flag & NODE_GROUP_EDIT))
879                         ntreeInitPreview((bNodeTree *)node->id, xsize, ysize);
880         }
881 }
882
883 static void nodeClearPreview(bNode *node)
884 {
885         if (node->preview && node->preview->rect)
886                 memset(node->preview->rect, 0, MEM_allocN_len(node->preview->rect));
887 }
888
889 /* use it to enforce clear */
890 void ntreeClearPreview(bNodeTree *ntree)
891 {
892         bNode *node;
893         
894         if (ntree == NULL)
895                 return;
896         
897         for (node = ntree->nodes.first; node; node = node->next) {
898                 if (node->typeinfo->flag & NODE_PREVIEW)
899                         nodeClearPreview(node);
900                 if (node->type == NODE_GROUP && (node->flag & NODE_GROUP_EDIT))
901                         ntreeClearPreview((bNodeTree *)node->id);
902         }
903 }
904
905 /* hack warning! this function is only used for shader previews, and 
906  * since it gets called multiple times per pixel for Ztransp we only
907  * add the color once. Preview gets cleared before it starts render though */
908 void nodeAddToPreview(bNode *node, const float col[4], int x, int y, int do_manage)
909 {
910         bNodePreview *preview = node->preview;
911         if (preview) {
912                 if (x >= 0 && y >= 0) {
913                         if (x < preview->xsize && y < preview->ysize) {
914                                 unsigned char *tar = preview->rect + 4 * ((preview->xsize * y) + x);
915                                 
916                                 if (do_manage) {
917                                         linearrgb_to_srgb_uchar4(tar, col);
918                                 }
919                                 else {
920                                         rgba_float_to_uchar(tar, col);
921                                 }
922                         }
923                         //else printf("prv out bound x y %d %d\n", x, y);
924                 }
925                 //else printf("prv out bound x y %d %d\n", x, y);
926         }
927 }
928
929 /* ************** Free stuff ********** */
930
931 /* goes over entire tree */
932 void nodeUnlinkNode(bNodeTree *ntree, bNode *node)
933 {
934         bNodeLink *link, *next;
935         bNodeSocket *sock;
936         ListBase *lb;
937         
938         for (link = ntree->links.first; link; link = next) {
939                 next = link->next;
940                 
941                 if (link->fromnode == node) {
942                         lb = &node->outputs;
943                         if (link->tonode)
944                                 link->tonode->update |= NODE_UPDATE;
945                 }
946                 else if (link->tonode == node)
947                         lb = &node->inputs;
948                 else
949                         lb = NULL;
950
951                 if (lb) {
952                         for (sock = lb->first; sock; sock = sock->next) {
953                                 if (link->fromsock == sock || link->tosock == sock)
954                                         break;
955                         }
956                         if (sock) {
957                                 nodeRemLink(ntree, link);
958                         }
959                 }
960         }
961 }
962
963 static void node_unlink_attached(bNodeTree *ntree, bNode *parent)
964 {
965         bNode *node;
966         for (node = ntree->nodes.first; node; node = node->next) {
967                 if (node->parent == parent)
968                         nodeDetachNode(node);
969         }
970 }
971
972 /** \note caller needs to manage node->id user */
973 void nodeFreeNode(bNodeTree *ntree, bNode *node)
974 {
975         bNodeSocket *sock, *nextsock;
976         
977         /* can be called for nodes outside a node tree (e.g. clipboard) */
978         if (ntree) {
979                 bNodeTreeType *treetype = ntreeGetType(ntree->type);
980
981                 /* remove all references to this node */
982                 nodeUnlinkNode(ntree, node);
983                 node_unlink_attached(ntree, node);
984
985                 BLI_remlink(&ntree->nodes, node);
986
987                 if (treetype->free_node_cache)
988                         treetype->free_node_cache(ntree, node);
989         }
990         
991         /* since it is called while free database, node->id is undefined */
992         
993         if (node->typeinfo && node->typeinfo->freestoragefunc)
994                 node->typeinfo->freestoragefunc(node);
995         
996         for (sock = node->inputs.first; sock; sock = nextsock) {
997                 nextsock = sock->next;
998                 node_socket_free_default_value(sock->type, sock->default_value);
999                 MEM_freeN(sock);
1000         }
1001         for (sock = node->outputs.first; sock; sock = nextsock) {
1002                 nextsock = sock->next;
1003                 node_socket_free_default_value(sock->type, sock->default_value);
1004                 MEM_freeN(sock);
1005         }
1006
1007         BLI_freelistN(&node->internal_links);
1008
1009         nodeFreePreview(node);
1010
1011         MEM_freeN(node);
1012         
1013         if (ntree)
1014                 ntree->update |= NTREE_UPDATE_NODES;
1015 }
1016
1017 /* do not free ntree itself here, BKE_libblock_free calls this function too */
1018 void ntreeFreeTree_ex(bNodeTree *ntree, const short do_id_user)
1019 {
1020         bNodeTree *tntree;
1021         bNode *node, *next;
1022         bNodeSocket *sock;
1023         
1024         if (ntree == NULL) return;
1025         
1026         /* XXX hack! node trees should not store execution graphs at all.
1027          * This should be removed when old tree types no longer require it.
1028          * Currently the execution data for texture nodes remains in the tree
1029          * after execution, until the node tree is updated or freed.
1030          */
1031         if (ntree->execdata) {
1032                 switch (ntree->type) {
1033                         case NTREE_COMPOSIT:
1034                                 ntreeCompositEndExecTree(ntree->execdata, 1);
1035                                 break;
1036                         case NTREE_SHADER:
1037                                 ntreeShaderEndExecTree(ntree->execdata, 1);
1038                                 break;
1039                         case NTREE_TEXTURE:
1040                                 ntreeTexEndExecTree(ntree->execdata, 1);
1041                                 break;
1042                 }
1043         }
1044         
1045         BKE_free_animdata((ID *)ntree);
1046         
1047         id_us_min((ID *)ntree->gpd);
1048
1049         BLI_freelistN(&ntree->links);   /* do first, then unlink_node goes fast */
1050         
1051         for (node = ntree->nodes.first; node; node = next) {
1052                 next = node->next;
1053
1054                 /* ntreeUserIncrefID inline */
1055
1056                 /* XXX, this is correct, however when freeing the entire database
1057                  * this ends up accessing freed data which isn't properly unlinking
1058                  * its self from scene nodes, SO - for now prefer invalid usercounts
1059                  * on free rather then bad memory access - Campbell */
1060 #if 0
1061                 if (do_id_user) {
1062                         id_us_min(node->id);
1063                 }
1064 #else
1065                 (void)do_id_user;
1066 #endif
1067
1068                 nodeFreeNode(ntree, node);
1069         }
1070         
1071         for (sock = ntree->inputs.first; sock; sock = sock->next)
1072                 node_socket_free_default_value(sock->type, sock->default_value);
1073         BLI_freelistN(&ntree->inputs);
1074         for (sock = ntree->outputs.first; sock; sock = sock->next)
1075                 node_socket_free_default_value(sock->type, sock->default_value);
1076         BLI_freelistN(&ntree->outputs);
1077         
1078         /* if ntree is not part of library, free the libblock data explicitly */
1079         for (tntree = G.main->nodetree.first; tntree; tntree = tntree->id.next)
1080                 if (tntree == ntree)
1081                         break;
1082         if (tntree == NULL) {
1083                 BKE_libblock_free_data(&ntree->id);
1084         }
1085 }
1086 /* same as ntreeFreeTree_ex but always manage users */
1087 void ntreeFreeTree(bNodeTree *ntree)
1088 {
1089         ntreeFreeTree_ex(ntree, TRUE);
1090 }
1091
1092 void ntreeFreeCache(bNodeTree *ntree)
1093 {
1094         bNodeTreeType *treetype;
1095         
1096         if (ntree == NULL) return;
1097         
1098         treetype = ntreeGetType(ntree->type);
1099         if (treetype->free_cache)
1100                 treetype->free_cache(ntree);
1101 }
1102
1103 void ntreeSetOutput(bNodeTree *ntree)
1104 {
1105         bNode *node;
1106
1107         /* find the active outputs, might become tree type dependent handler */
1108         for (node = ntree->nodes.first; node; node = node->next) {
1109                 if (node->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1110                         bNode *tnode;
1111                         int output = 0;
1112                         
1113                         /* we need a check for which output node should be tagged like this, below an exception */
1114                         if (node->type == CMP_NODE_OUTPUT_FILE)
1115                                 continue;
1116
1117                         /* there is more types having output class, each one is checked */
1118                         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1119                                 if (tnode->typeinfo->nclass == NODE_CLASS_OUTPUT) {
1120                                         
1121                                         if (ntree->type == NTREE_COMPOSIT) {
1122                                                         
1123                                                 /* same type, exception for viewer */
1124                                                 if (tnode->type == node->type ||
1125                                                     (ELEM(tnode->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER) &&
1126                                                      ELEM(node->type, CMP_NODE_VIEWER, CMP_NODE_SPLITVIEWER)))
1127                                                 {
1128                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1129                                                                 output++;
1130                                                                 if (output > 1)
1131                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1132                                                         }
1133                                                 }
1134                                         }
1135                                         else {
1136                                                 /* same type */
1137                                                 if (tnode->type == node->type) {
1138                                                         if (tnode->flag & NODE_DO_OUTPUT) {
1139                                                                 output++;
1140                                                                 if (output > 1)
1141                                                                         tnode->flag &= ~NODE_DO_OUTPUT;
1142                                                         }
1143                                                 }
1144                                         }
1145                                 }
1146                         }
1147                         if (output == 0)
1148                                 node->flag |= NODE_DO_OUTPUT;
1149                 }
1150         }
1151         
1152         /* here we could recursively set which nodes have to be done,
1153          * might be different for editor or for "real" use... */
1154 }
1155
1156 typedef struct MakeLocalCallData {
1157         ID *group_id;
1158         ID *new_id;
1159         int lib, local;
1160 } MakeLocalCallData;
1161
1162 static void ntreeMakeLocal_CheckLocal(void *calldata, ID *owner_id, bNodeTree *ntree)
1163 {
1164         MakeLocalCallData *cd = (MakeLocalCallData *)calldata;
1165         bNode *node;
1166         
1167         /* find if group is in tree */
1168         for (node = ntree->nodes.first; node; node = node->next) {
1169                 if (node->id == cd->group_id) {
1170                         if (owner_id->lib) {
1171                                 cd->lib = TRUE;
1172                         }
1173                         else {
1174                                 cd->local = TRUE;
1175                         }
1176                 }
1177         }
1178 }
1179
1180 static void ntreeMakeLocal_LinkNew(void *calldata, ID *owner_id, bNodeTree *ntree)
1181 {
1182         MakeLocalCallData *cd = (MakeLocalCallData *)calldata;
1183         bNode *node;
1184         
1185         /* find if group is in tree */
1186         for (node = ntree->nodes.first; node; node = node->next) {
1187                 if (node->id == cd->group_id) {
1188                         if (owner_id->lib == NULL) {
1189                                 node->id = cd->new_id;
1190                                 cd->new_id->us++;
1191                                 cd->group_id->us--;
1192                         }
1193                 }
1194         }
1195 }
1196
1197 void ntreeMakeLocal(bNodeTree *ntree)
1198 {
1199         Main *bmain = G.main;
1200         bNodeTreeType *treetype = ntreeGetType(ntree->type);
1201         MakeLocalCallData cd;
1202         
1203         /* - only lib users: do nothing
1204          * - only local users: set flag
1205          * - mixed: make copy
1206          */
1207         
1208         if (ntree->id.lib == NULL) return;
1209         if (ntree->id.us == 1) {
1210                 id_clear_lib_data(bmain, (ID *)ntree);
1211                 return;
1212         }
1213         
1214         /* now check users of groups... again typedepending, callback... */
1215         cd.group_id = &ntree->id;
1216         cd.new_id = NULL;
1217         cd.local = 0;
1218         cd.lib = 0;
1219         
1220         treetype->foreach_nodetree(G.main, &cd, &ntreeMakeLocal_CheckLocal);
1221         
1222         /* if all users are local, we simply make tree local */
1223         if (cd.local && cd.lib == 0) {
1224                 id_clear_lib_data(bmain, (ID *)ntree);
1225         }
1226         else if (cd.local && cd.lib) {
1227                 /* this is the mixed case, we copy the tree and assign it to local users */
1228                 bNodeTree *newtree = ntreeCopyTree(ntree);
1229                 
1230                 newtree->id.us = 0;
1231                 
1232
1233                 cd.new_id = &newtree->id;
1234                 treetype->foreach_nodetree(G.main, &cd, &ntreeMakeLocal_LinkNew);
1235         }
1236 }
1237
1238 int ntreeNodeExists(bNodeTree *ntree, bNode *testnode)
1239 {
1240         bNode *node = ntree->nodes.first;
1241         for (; node; node = node->next)
1242                 if (node == testnode)
1243                         return 1;
1244         return 0;
1245 }
1246
1247 int ntreeOutputExists(bNode *node, bNodeSocket *testsock)
1248 {
1249         bNodeSocket *sock = node->outputs.first;
1250         for (; sock; sock = sock->next)
1251                 if (sock == testsock)
1252                         return 1;
1253         return 0;
1254 }
1255
1256 /* returns localized tree for execution in threads */
1257 bNodeTree *ntreeLocalize(bNodeTree *ntree)
1258 {
1259         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1260
1261         bNodeTree *ltree;
1262         bNode *node;
1263         
1264         bAction *action_backup = NULL, *tmpact_backup = NULL;
1265         
1266         /* Workaround for copying an action on each render!
1267          * set action to NULL so animdata actions don't get copied */
1268         AnimData *adt = BKE_animdata_from_id(&ntree->id);
1269
1270         if (adt) {
1271                 action_backup = adt->action;
1272                 tmpact_backup = adt->tmpact;
1273
1274                 adt->action = NULL;
1275                 adt->tmpact = NULL;
1276         }
1277
1278         /* node copy func */
1279         ltree = ntreeCopyTree_internal(ntree, FALSE, FALSE);
1280
1281         if (adt) {
1282                 AnimData *ladt = BKE_animdata_from_id(&ltree->id);
1283
1284                 adt->action = ladt->action = action_backup;
1285                 adt->tmpact = ladt->tmpact = tmpact_backup;
1286
1287                 if (action_backup) action_backup->id.us++;
1288                 if (tmpact_backup) tmpact_backup->id.us++;
1289                 
1290         }
1291         /* end animdata uglyness */
1292
1293         /* ensures only a single output node is enabled */
1294         ntreeSetOutput(ntree);
1295
1296         for (node = ntree->nodes.first; node; node = node->next) {
1297                 /* store new_node pointer to original */
1298                 node->new_node->new_node = node;
1299         }
1300
1301         if (ntreetype->localize)
1302                 ntreetype->localize(ltree, ntree);
1303
1304         return ltree;
1305 }
1306
1307 /* sync local composite with real tree */
1308 /* local tree is supposed to be running, be careful moving previews! */
1309 /* is called by jobs manager, outside threads, so it doesnt happen during draw */
1310 void ntreeLocalSync(bNodeTree *localtree, bNodeTree *ntree)
1311 {
1312         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1313
1314         if (ntreetype->local_sync)
1315                 ntreetype->local_sync(localtree, ntree);
1316 }
1317
1318 /* merge local tree results back, and free local tree */
1319 /* we have to assume the editor already changed completely */
1320 void ntreeLocalMerge(bNodeTree *localtree, bNodeTree *ntree)
1321 {
1322         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1323         bNode *lnode;
1324         
1325         /* move over the compbufs and previews */
1326         for (lnode = localtree->nodes.first; lnode; lnode = lnode->next) {
1327                 if (ntreeNodeExists(ntree, lnode->new_node)) {
1328                         if (lnode->preview && lnode->preview->rect) {
1329                                 nodeFreePreview(lnode->new_node);
1330                                 lnode->new_node->preview = lnode->preview;
1331                                 lnode->preview = NULL;
1332                         }
1333                 }
1334         }
1335
1336         if (ntreetype->local_merge)
1337                 ntreetype->local_merge(localtree, ntree);
1338
1339         ntreeFreeTree_ex(localtree, FALSE);
1340         MEM_freeN(localtree);
1341 }
1342
1343 /* ************ find stuff *************** */
1344
1345 int ntreeHasType(bNodeTree *ntree, int type)
1346 {
1347         bNode *node;
1348         
1349         if (ntree)
1350                 for (node = ntree->nodes.first; node; node = node->next)
1351                         if (node->type == type)
1352                                 return 1;
1353         return 0;
1354 }
1355
1356 bNodeLink *nodeFindLink(bNodeTree *ntree, bNodeSocket *from, bNodeSocket *to)
1357 {
1358         bNodeLink *link;
1359         
1360         for (link = ntree->links.first; link; link = link->next) {
1361                 if (link->fromsock == from && link->tosock == to)
1362                         return link;
1363                 if (link->fromsock == to && link->tosock == from) /* hrms? */
1364                         return link;
1365         }
1366         return NULL;
1367 }
1368
1369 int nodeCountSocketLinks(bNodeTree *ntree, bNodeSocket *sock)
1370 {
1371         bNodeLink *link;
1372         int tot = 0;
1373         
1374         for (link = ntree->links.first; link; link = link->next) {
1375                 if (link->fromsock == sock || link->tosock == sock)
1376                         tot++;
1377         }
1378         return tot;
1379 }
1380
1381 bNode *nodeGetActive(bNodeTree *ntree)
1382 {
1383         bNode *node;
1384         
1385         if (ntree == NULL) return NULL;
1386         
1387         for (node = ntree->nodes.first; node; node = node->next)
1388                 if (node->flag & NODE_ACTIVE)
1389                         break;
1390         return node;
1391 }
1392
1393 /* two active flags, ID nodes have special flag for buttons display */
1394 bNode *nodeGetActiveID(bNodeTree *ntree, short idtype)
1395 {
1396         bNode *node;
1397         
1398         if (ntree == NULL) return NULL;
1399
1400         /* check for group edit */
1401         for (node = ntree->nodes.first; node; node = node->next)
1402                 if (node->flag & NODE_GROUP_EDIT)
1403                         break;
1404
1405         if (node)
1406                 ntree = (bNodeTree *)node->id;
1407         
1408         /* now find active node with this id */
1409         for (node = ntree->nodes.first; node; node = node->next)
1410                 if (node->id && GS(node->id->name) == idtype)
1411                         if (node->flag & NODE_ACTIVE_ID)
1412                                 break;
1413
1414         return node;
1415 }
1416
1417 int nodeSetActiveID(bNodeTree *ntree, short idtype, ID *id)
1418 {
1419         bNode *node;
1420         int ok = FALSE;
1421
1422         if (ntree == NULL) return ok;
1423
1424         /* check for group edit */
1425         for (node = ntree->nodes.first; node; node = node->next)
1426                 if (node->flag & NODE_GROUP_EDIT)
1427                         break;
1428
1429         if (node)
1430                 ntree = (bNodeTree *)node->id;
1431
1432         /* now find active node with this id */
1433         for (node = ntree->nodes.first; node; node = node->next) {
1434                 if (node->id && GS(node->id->name) == idtype) {
1435                         if (id && ok == FALSE && node->id == id) {
1436                                 node->flag |= NODE_ACTIVE_ID;
1437                                 ok = TRUE;
1438                         }
1439                         else {
1440                                 node->flag &= ~NODE_ACTIVE_ID;
1441                         }
1442                 }
1443         }
1444
1445         return ok;
1446 }
1447
1448
1449 /* two active flags, ID nodes have special flag for buttons display */
1450 void nodeClearActiveID(bNodeTree *ntree, short idtype)
1451 {
1452         bNode *node;
1453         
1454         if (ntree == NULL) return;
1455         
1456         for (node = ntree->nodes.first; node; node = node->next)
1457                 if (node->id && GS(node->id->name) == idtype)
1458                         node->flag &= ~NODE_ACTIVE_ID;
1459 }
1460
1461 void nodeClearActive(bNodeTree *ntree)
1462 {
1463         bNode *node;
1464
1465         if (ntree == NULL) return;
1466
1467         for (node = ntree->nodes.first; node; node = node->next)
1468                 node->flag &= ~(NODE_ACTIVE | NODE_ACTIVE_ID);
1469 }
1470
1471
1472 /* two active flags, ID nodes have special flag for buttons display */
1473 void nodeSetActive(bNodeTree *ntree, bNode *node)
1474 {
1475         bNode *tnode;
1476         
1477         /* make sure only one node is active, and only one per ID type */
1478         for (tnode = ntree->nodes.first; tnode; tnode = tnode->next) {
1479                 tnode->flag &= ~NODE_ACTIVE;
1480                 
1481                 if (node->id && tnode->id) {
1482                         if (GS(node->id->name) == GS(tnode->id->name))
1483                                 tnode->flag &= ~NODE_ACTIVE_ID;
1484                 }
1485                 if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
1486                         tnode->flag &= ~NODE_ACTIVE_TEXTURE;
1487         }
1488         
1489         node->flag |= NODE_ACTIVE;
1490         if (node->id)
1491                 node->flag |= NODE_ACTIVE_ID;
1492         if (node->typeinfo->nclass == NODE_CLASS_TEXTURE)
1493                 node->flag |= NODE_ACTIVE_TEXTURE;
1494 }
1495
1496 int nodeSocketIsHidden(bNodeSocket *sock)
1497 {
1498         return ((sock->flag & (SOCK_HIDDEN | SOCK_UNAVAIL)) != 0);
1499 }
1500
1501 void nodeSocketSetType(bNodeSocket *sock, int type)
1502 {
1503         int old_type = sock->type;
1504         void *old_default_value = sock->default_value;
1505         
1506         sock->type = type;
1507         
1508         sock->default_value = node_socket_make_default_value(sock->type);
1509         node_socket_init_default_value(type, sock->default_value);
1510         node_socket_convert_default_value(sock->type, sock->default_value, old_type, old_default_value);
1511         node_socket_free_default_value(old_type, old_default_value);
1512 }
1513
1514 /* ************** Node Clipboard *********** */
1515
1516 #define USE_NODE_CB_VALIDATE
1517
1518 #ifdef USE_NODE_CB_VALIDATE
1519 /**
1520  * This data structure is to validate the node on creation,
1521  * otherwise we may reference missing data.
1522  *
1523  * Currently its only used for ID's, but nodes may one day
1524  * reference other pointers which need validation.
1525  */
1526 typedef struct bNodeClipboardExtraInfo {
1527         struct bNodeClipboardExtraInfo *next, *prev;
1528         ID  *id;
1529         char id_name[MAX_ID_NAME];
1530         char library_name[FILE_MAX];
1531 } bNodeClipboardExtraInfo;
1532 #endif  /* USE_NODE_CB_VALIDATE */
1533
1534
1535 typedef struct bNodeClipboard {
1536         ListBase nodes;
1537
1538 #ifdef USE_NODE_CB_VALIDATE
1539         ListBase nodes_extra_info;
1540 #endif
1541
1542         ListBase links;
1543         int type;
1544 } bNodeClipboard;
1545
1546 bNodeClipboard node_clipboard = {{0}};
1547
1548 void BKE_node_clipboard_init(struct bNodeTree *ntree)
1549 {
1550         node_clipboard.type = ntree->type;
1551 }
1552
1553 void BKE_node_clipboard_clear(void)
1554 {
1555         bNode *node, *node_next;
1556         bNodeLink *link, *link_next;
1557         
1558         for (link = node_clipboard.links.first; link; link = link_next) {
1559                 link_next = link->next;
1560                 nodeRemLink(NULL, link);
1561         }
1562         node_clipboard.links.first = node_clipboard.links.last = NULL;
1563         
1564         for (node = node_clipboard.nodes.first; node; node = node_next) {
1565                 node_next = node->next;
1566                 nodeFreeNode(NULL, node);
1567         }
1568         node_clipboard.nodes.first = node_clipboard.nodes.last = NULL;
1569
1570 #ifdef USE_NODE_CB_VALIDATE
1571         BLI_freelistN(&node_clipboard.nodes_extra_info);
1572 #endif
1573 }
1574
1575 /* return FALSE when one or more ID's are lost */
1576 int BKE_node_clipboard_validate(void)
1577 {
1578         int ok = TRUE;
1579
1580 #ifdef USE_NODE_CB_VALIDATE
1581         bNodeClipboardExtraInfo *node_info;
1582         bNode *node;
1583
1584
1585         /* lists must be aligned */
1586         BLI_assert(BLI_countlist(&node_clipboard.nodes) ==
1587                    BLI_countlist(&node_clipboard.nodes_extra_info));
1588
1589         for (node = node_clipboard.nodes.first, node_info = node_clipboard.nodes_extra_info.first;
1590              node;
1591              node = node->next, node_info = node_info->next)
1592         {
1593                 /* validate the node against the stored node info */
1594
1595                 /* re-assign each loop since we may clear,
1596                  * open a new file where the ID is valid, and paste again */
1597                 node->id = node_info->id;
1598
1599                 /* currently only validate the ID */
1600                 if (node->id) {
1601                         ListBase *lb = which_libbase(G.main, GS(node_info->id_name));
1602                         BLI_assert(lb != NULL);
1603
1604                         if (BLI_findindex(lb, node_info->id) == -1) {
1605                                 /* may assign NULL */
1606                                 node->id = BLI_findstring(lb, node_info->id_name + 2, offsetof(ID, name) + 2);
1607
1608                                 if (node->id == NULL) {
1609                                         ok = FALSE;
1610                                 }
1611                         }
1612                 }
1613         }
1614 #endif  /* USE_NODE_CB_VALIDATE */
1615
1616         return ok;
1617 }
1618
1619 void BKE_node_clipboard_add_node(bNode *node)
1620 {
1621 #ifdef USE_NODE_CB_VALIDATE
1622         /* add extra info */
1623         bNodeClipboardExtraInfo *node_info = MEM_mallocN(sizeof(bNodeClipboardExtraInfo), STRINGIFY(bNodeClipboardExtraInfo));
1624
1625         node_info->id = node->id;
1626         if (node->id) {
1627                 BLI_strncpy(node_info->id_name, node->id->name, sizeof(node_info->id_name));
1628                 if (node->id->lib) {
1629                         BLI_strncpy(node_info->library_name, node->id->lib->filepath, sizeof(node_info->library_name));
1630                 }
1631                 else {
1632                         node_info->library_name[0] = '\0';
1633                 }
1634         }
1635         else {
1636                 node_info->id_name[0] = '\0';
1637                 node_info->library_name[0] = '\0';
1638         }
1639         BLI_addtail(&node_clipboard.nodes_extra_info, node_info);
1640         /* end extra info */
1641 #endif  /* USE_NODE_CB_VALIDATE */
1642
1643         /* add node */
1644         BLI_addtail(&node_clipboard.nodes, node);
1645
1646 }
1647
1648 void BKE_node_clipboard_add_link(bNodeLink *link)
1649 {
1650         BLI_addtail(&node_clipboard.links, link);
1651 }
1652
1653 const ListBase *BKE_node_clipboard_get_nodes(void)
1654 {
1655         return &node_clipboard.nodes;
1656 }
1657
1658 const ListBase *BKE_node_clipboard_get_links(void)
1659 {
1660         return &node_clipboard.links;
1661 }
1662
1663 int BKE_node_clipboard_get_type(void)
1664 {
1665         return node_clipboard.type;
1666 }
1667
1668 /* ************** dependency stuff *********** */
1669
1670 /* node is guaranteed to be not checked before */
1671 static int node_get_deplist_recurs(bNodeTree *ntree, bNode *node, bNode ***nsort)
1672 {
1673         bNode *fromnode;
1674         bNodeLink *link;
1675         int level = 0xFFF;
1676         
1677         node->done = TRUE;
1678         
1679         /* check linked nodes */
1680         for (link = ntree->links.first; link; link = link->next) {
1681                 if (link->tonode == node) {
1682                         fromnode = link->fromnode;
1683                         if (fromnode) {
1684                                 if (fromnode->done == 0)
1685                                         fromnode->level = node_get_deplist_recurs(ntree, fromnode, nsort);
1686                                 if (fromnode->level <= level)
1687                                         level = fromnode->level - 1;
1688                         }
1689                 }
1690         }
1691         
1692         /* check parent node */
1693         if (node->parent) {
1694                 if (node->parent->done == 0)
1695                         node->parent->level = node_get_deplist_recurs(ntree, node->parent, nsort);
1696                 if (node->parent->level <= level)
1697                         level = node->parent->level - 1;
1698         }
1699         
1700         if (nsort) {
1701                 **nsort = node;
1702                 (*nsort)++;
1703         }
1704         
1705         return level;
1706 }
1707
1708 void ntreeGetDependencyList(struct bNodeTree *ntree, struct bNode ***deplist, int *totnodes)
1709 {
1710         bNode *node, **nsort;
1711         
1712         *totnodes = 0;
1713         
1714         /* first clear data */
1715         for (node = ntree->nodes.first; node; node = node->next) {
1716                 node->done = FALSE;
1717                 (*totnodes)++;
1718         }
1719         if (*totnodes == 0) {
1720                 *deplist = NULL;
1721                 return;
1722         }
1723         
1724         nsort = *deplist = MEM_callocN((*totnodes) * sizeof(bNode *), "sorted node array");
1725         
1726         /* recursive check */
1727         for (node = ntree->nodes.first; node; node = node->next) {
1728                 if (node->done == 0) {
1729                         node->level = node_get_deplist_recurs(ntree, node, &nsort);
1730                 }
1731         }
1732 }
1733
1734 /* only updates node->level for detecting cycles links */
1735 static void ntree_update_node_level(bNodeTree *ntree)
1736 {
1737         bNode *node;
1738         
1739         /* first clear tag */
1740         for (node = ntree->nodes.first; node; node = node->next) {
1741                 node->done = FALSE;
1742         }
1743         
1744         /* recursive check */
1745         for (node = ntree->nodes.first; node; node = node->next) {
1746                 if (node->done == 0) {
1747                         node->level = node_get_deplist_recurs(ntree, node, NULL);
1748                 }
1749         }
1750 }
1751
1752 static void ntree_update_link_pointers(bNodeTree *ntree)
1753 {
1754         bNode *node;
1755         bNodeSocket *sock;
1756         bNodeLink *link;
1757         
1758         /* first clear data */
1759         for (node = ntree->nodes.first; node; node = node->next) {
1760                 for (sock = node->inputs.first; sock; sock = sock->next) {
1761                         sock->link = NULL;
1762                         sock->flag &= ~SOCK_IN_USE;
1763                 }
1764                 for (sock = node->outputs.first; sock; sock = sock->next) {
1765                         sock->flag &= ~SOCK_IN_USE;
1766                 }
1767         }
1768         for (sock = ntree->inputs.first; sock; sock = sock->next) {
1769                 sock->flag &= ~SOCK_IN_USE;
1770         }
1771         for (sock = ntree->outputs.first; sock; sock = sock->next) {
1772                 sock->link = NULL;
1773                 sock->flag &= ~SOCK_IN_USE;
1774         }
1775
1776         for (link = ntree->links.first; link; link = link->next) {
1777                 link->tosock->link = link;
1778                 
1779                 link->fromsock->flag |= SOCK_IN_USE;
1780                 link->tosock->flag |= SOCK_IN_USE;
1781         }
1782 }
1783
1784 static void ntree_validate_links(bNodeTree *ntree)
1785 {
1786         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1787         bNodeLink *link;
1788         
1789         for (link = ntree->links.first; link; link = link->next) {
1790                 link->flag |= NODE_LINK_VALID;
1791                 if (link->fromnode && link->tonode && link->fromnode->level <= link->tonode->level)
1792                         link->flag &= ~NODE_LINK_VALID;
1793                 else if (ntreetype->validate_link) {
1794                         if (!ntreetype->validate_link(ntree, link))
1795                                 link->flag &= ~NODE_LINK_VALID;
1796                 }
1797         }
1798 }
1799
1800 static void ntree_verify_nodes_cb(void *calldata, struct ID *UNUSED(owner_id), struct bNodeTree *ntree)
1801 {
1802         ID *id = (ID *)calldata;
1803         bNode *node;
1804         
1805         for (node = ntree->nodes.first; node; node = node->next)
1806                 if (node->typeinfo->verifyfunc)
1807                         node->typeinfo->verifyfunc(ntree, node, id);
1808 }
1809
1810 void ntreeVerifyNodes(struct Main *main, struct ID *id)
1811 {
1812         bNodeTreeType *ntreetype;
1813         bNodeTree *ntree;
1814         int n;
1815         
1816         for (n = 0; n < NUM_NTREE_TYPES; ++n) {
1817                 ntreetype = ntreeGetType(n);
1818                 if (ntreetype && ntreetype->foreach_nodetree)
1819                         ntreetype->foreach_nodetree(main, id, ntree_verify_nodes_cb);
1820         }
1821         for (ntree = main->nodetree.first; ntree; ntree = ntree->id.next)
1822                 ntree_verify_nodes_cb(id, NULL, ntree);
1823 }
1824
1825 void ntreeUpdateTree(bNodeTree *ntree)
1826 {
1827         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1828         bNode *node;
1829         
1830         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES)) {
1831                 /* set the bNodeSocket->link pointers */
1832                 ntree_update_link_pointers(ntree);
1833                 
1834                 /* update the node level from link dependencies */
1835                 ntree_update_node_level(ntree);
1836         }
1837         
1838         /* update individual nodes */
1839         for (node = ntree->nodes.first; node; node = node->next) {
1840                 /* node tree update tags override individual node update flags */
1841                 if ((node->update & NODE_UPDATE) || (ntree->update & NTREE_UPDATE)) {
1842                         if (ntreetype->update_node)
1843                                 ntreetype->update_node(ntree, node);
1844                         else if (node->typeinfo->updatefunc)
1845                                 node->typeinfo->updatefunc(ntree, node);
1846                         
1847                         nodeUpdateInternalLinks(ntree, node);
1848                 }
1849         }
1850         
1851         /* check link validity */
1852         if (ntree->update & (NTREE_UPDATE_LINKS | NTREE_UPDATE_NODES))
1853                 ntree_validate_links(ntree);
1854         
1855         /* generic tree update callback */
1856         if (ntreetype->update)
1857                 ntreetype->update(ntree);
1858         else {
1859                 /* Trees can be associated with a specific node type (i.e. group nodes),
1860                  * in that case a tree update function may be defined by that node type.
1861                  */
1862                 bNodeType *ntype = node_get_type(ntree, ntree->nodetype);
1863                 if (ntype && ntype->updatetreefunc)
1864                         ntype->updatetreefunc(ntree);
1865         }
1866         
1867         /* XXX hack, should be done by depsgraph!! */
1868         ntreeVerifyNodes(G.main, &ntree->id);
1869         
1870         /* clear update flags */
1871         for (node = ntree->nodes.first; node; node = node->next) {
1872                 node->update = 0;
1873         }
1874         ntree->update = 0;
1875 }
1876
1877 void nodeUpdate(bNodeTree *ntree, bNode *node)
1878 {
1879         bNodeTreeType *ntreetype = ntreeGetType(ntree->type);
1880         
1881         if (ntreetype->update_node)
1882                 ntreetype->update_node(ntree, node);
1883         else if (node->typeinfo->updatefunc)
1884                 node->typeinfo->updatefunc(ntree, node);
1885         
1886         nodeUpdateInternalLinks(ntree, node);
1887         
1888         /* clear update flag */
1889         node->update = 0;
1890 }
1891
1892 int nodeUpdateID(bNodeTree *ntree, ID *id)
1893 {
1894         bNodeTreeType *ntreetype;
1895         bNode *node;
1896         int change = FALSE;
1897         
1898         if (ELEM(NULL, id, ntree))
1899                 return change;
1900         
1901         ntreetype = ntreeGetType(ntree->type);
1902         
1903         if (ntreetype->update_node) {
1904                 for (node = ntree->nodes.first; node; node = node->next) {
1905                         if (node->id == id) {
1906                                 change = TRUE;
1907                                 node->update |= NODE_UPDATE_ID;
1908                                 ntreetype->update_node(ntree, node);
1909                                 /* clear update flag */
1910                                 node->update = 0;
1911                         }
1912                 }
1913         }
1914         else {
1915                 for (node = ntree->nodes.first; node; node = node->next) {
1916                         if (node->id == id) {
1917                                 change = TRUE;
1918                                 node->update |= NODE_UPDATE_ID;
1919                                 if (node->typeinfo->updatefunc)
1920                                         node->typeinfo->updatefunc(ntree, node);
1921                                 /* clear update flag */
1922                                 node->update = 0;
1923                         }
1924                 }
1925         }
1926         
1927         for (node = ntree->nodes.first; node; node = node->next) {
1928                 nodeUpdateInternalLinks(ntree, node);
1929         }
1930         
1931         return change;
1932 }
1933
1934 void nodeUpdateInternalLinks(bNodeTree *ntree, bNode *node)
1935 {
1936         BLI_freelistN(&node->internal_links);
1937         
1938         if (node->typeinfo && node->typeinfo->update_internal_links)
1939                 node->typeinfo->update_internal_links(ntree, node);
1940 }
1941
1942
1943 /* ************* node type access ********** */
1944
1945 int nodeValid(bNodeTree *ntree, bNodeTemplate *ntemp)
1946 {
1947         bNodeType *ntype = node_get_type(ntree, ntemp->type);
1948         if (ntype) {
1949                 if (ntype->validfunc)
1950                         return ntype->validfunc(ntree, ntemp);
1951                 else
1952                         return 1;
1953         }
1954         else
1955                 return 0;
1956 }
1957
1958 const char *nodeLabel(bNode *node)
1959 {
1960         if (node->label[0] != '\0')
1961                 return node->label;
1962         else if (node->typeinfo->labelfunc)
1963                 return node->typeinfo->labelfunc(node);
1964         else
1965                 return IFACE_(node->typeinfo->name);
1966 }
1967
1968 struct bNodeTree *nodeGroupEditGet(struct bNode *node)
1969 {
1970         if (node->typeinfo->group_edit_get)
1971                 return node->typeinfo->group_edit_get(node);
1972         else
1973                 return NULL;
1974 }
1975
1976 struct bNodeTree *nodeGroupEditSet(struct bNode *node, int edit)
1977 {
1978         if (node->typeinfo->group_edit_set)
1979                 return node->typeinfo->group_edit_set(node, edit);
1980         else if (node->typeinfo->group_edit_get)
1981                 return node->typeinfo->group_edit_get(node);
1982         else
1983                 return NULL;
1984 }
1985
1986 void nodeGroupEditClear(struct bNode *node)
1987 {
1988         if (node->typeinfo->group_edit_clear)
1989                 node->typeinfo->group_edit_clear(node);
1990 }
1991
1992 struct bNodeTemplate nodeMakeTemplate(struct bNode *node)
1993 {
1994         bNodeTemplate ntemp;
1995         if (node->typeinfo->templatefunc)
1996                 return node->typeinfo->templatefunc(node);
1997         else {
1998                 ntemp.type = node->type;
1999                 return ntemp;
2000         }
2001 }
2002
2003 void node_type_base(bNodeTreeType *ttype, bNodeType *ntype, int type, const char *name, short nclass, short flag)
2004 {
2005         memset(ntype, 0, sizeof(bNodeType));
2006
2007         ntype->type = type;
2008         BLI_strncpy(ntype->name, name, sizeof(ntype->name));
2009         ntype->nclass = nclass;
2010         ntype->flag = flag;
2011
2012         /* Default muting stuff. */
2013         if (ttype)
2014                 ntype->update_internal_links = ttype->update_internal_links;
2015
2016         /* default size values */
2017         ntype->width = 140;
2018         ntype->minwidth = 100;
2019         ntype->maxwidth = 320;
2020         ntype->height = 100;
2021         ntype->minheight = 30;
2022         ntype->maxheight = FLT_MAX;
2023 }
2024
2025 void node_type_socket_templates(struct bNodeType *ntype, struct bNodeSocketTemplate *inputs, struct bNodeSocketTemplate *outputs)
2026 {
2027         ntype->inputs = inputs;
2028         ntype->outputs = outputs;
2029 }
2030
2031 void node_type_init(struct bNodeType *ntype, void (*initfunc)(struct bNodeTree *ntree, struct bNode *node, struct bNodeTemplate *ntemp))
2032 {
2033         ntype->initfunc = initfunc;
2034 }
2035
2036 void node_type_valid(struct bNodeType *ntype, int (*validfunc)(struct bNodeTree *ntree, struct bNodeTemplate *ntemp))
2037 {
2038         ntype->validfunc = validfunc;
2039 }
2040
2041 void node_type_size(struct bNodeType *ntype, int width, int minwidth, int maxwidth)
2042 {
2043         ntype->width = width;
2044         ntype->minwidth = minwidth;
2045         if (maxwidth <= minwidth)
2046                 ntype->maxwidth = FLT_MAX;
2047         else
2048                 ntype->maxwidth = maxwidth;
2049 }
2050
2051 void node_type_storage(bNodeType *ntype, const char *storagename, void (*freestoragefunc)(struct bNode *), void (*copystoragefunc)(struct bNode *, struct bNode *))
2052 {
2053         if (storagename)
2054                 BLI_strncpy(ntype->storagename, storagename, sizeof(ntype->storagename));
2055         else
2056                 ntype->storagename[0] = '\0';
2057         ntype->copystoragefunc = copystoragefunc;
2058         ntype->freestoragefunc = freestoragefunc;
2059 }
2060
2061 void node_type_label(struct bNodeType *ntype, const char *(*labelfunc)(struct bNode *))
2062 {
2063         ntype->labelfunc = labelfunc;
2064 }
2065
2066 void node_type_template(struct bNodeType *ntype, struct bNodeTemplate (*templatefunc)(struct bNode *))
2067 {
2068         ntype->templatefunc = templatefunc;
2069 }
2070
2071 void node_type_update(struct bNodeType *ntype,
2072                       void (*updatefunc)(struct bNodeTree *ntree, struct bNode *node),
2073                       void (*verifyfunc)(struct bNodeTree *ntree, struct bNode *node, struct ID *id))
2074 {
2075         ntype->updatefunc = updatefunc;
2076         ntype->verifyfunc = verifyfunc;
2077 }
2078
2079 void node_type_tree(struct bNodeType *ntype, void (*inittreefunc)(struct bNodeTree *), void (*updatetreefunc)(struct bNodeTree *))
2080 {
2081         ntype->inittreefunc = inittreefunc;
2082         ntype->updatetreefunc = updatetreefunc;
2083 }
2084
2085 void node_type_group_edit(struct bNodeType *ntype,
2086                           struct bNodeTree *(*group_edit_get)(struct bNode *node),
2087                           struct bNodeTree *(*group_edit_set)(struct bNode *node, int edit),
2088                           void (*group_edit_clear)(struct bNode *node))
2089 {
2090         ntype->group_edit_get = group_edit_get;
2091         ntype->group_edit_set = group_edit_set;
2092         ntype->group_edit_clear = group_edit_clear;
2093 }
2094
2095 void node_type_exec(struct bNodeType *ntype, void (*execfunc)(void *data, struct bNode *, struct bNodeStack **, struct bNodeStack **))
2096 {
2097         ntype->execfunc = execfunc;
2098 }
2099
2100 void node_type_exec_new(struct bNodeType *ntype,
2101                         void *(*initexecfunc)(struct bNode *node),
2102                         void (*freeexecfunc)(struct bNode *node, void *nodedata),
2103                         void (*newexecfunc)(void *data, int thread, struct bNode *, void *nodedata, struct bNodeStack **, struct bNodeStack **))
2104 {
2105         ntype->initexecfunc = initexecfunc;
2106         ntype->freeexecfunc = freeexecfunc;
2107         ntype->newexecfunc = newexecfunc;
2108 }
2109
2110 void node_type_internal_links(bNodeType *ntype, void (*update_internal_links)(bNodeTree *, bNode *))
2111 {
2112         ntype->update_internal_links = update_internal_links;
2113 }
2114
2115 void node_type_gpu(struct bNodeType *ntype, int (*gpufunc)(struct GPUMaterial *mat, struct bNode *node, struct GPUNodeStack *in, struct GPUNodeStack *out))
2116 {
2117         ntype->gpufunc = gpufunc;
2118 }
2119
2120 void node_type_gpu_ext(struct bNodeType *ntype, int (*gpuextfunc)(struct GPUMaterial *mat, struct bNode *node, void *nodedata, struct GPUNodeStack *in, struct GPUNodeStack *out))
2121 {
2122         ntype->gpuextfunc = gpuextfunc;
2123 }
2124
2125 void node_type_compatibility(struct bNodeType *ntype, short compatibility)
2126 {
2127         ntype->compatibility = compatibility;
2128 }
2129
2130 static bNodeType *is_nodetype_registered(ListBase *typelist, int type) 
2131 {
2132         bNodeType *ntype = typelist->first;
2133         
2134         for (; ntype; ntype = ntype->next)
2135                 if (ntype->type == type)
2136                         return ntype;
2137         
2138         return NULL;
2139 }
2140
2141 void nodeRegisterType(bNodeTreeType *ttype, bNodeType *ntype) 
2142 {
2143         ListBase *typelist = &(ttype->node_types);
2144         bNodeType *found = is_nodetype_registered(typelist, ntype->type);
2145         
2146         if (found == NULL)
2147                 BLI_addtail(typelist, ntype);
2148 }
2149
2150 static void registerCompositNodes(bNodeTreeType *ttype)
2151 {
2152         register_node_type_frame(ttype);
2153         register_node_type_reroute(ttype);
2154         
2155         register_node_type_cmp_group(ttype);
2156 //      register_node_type_cmp_forloop(ttype);
2157 //      register_node_type_cmp_whileloop(ttype);
2158         
2159         register_node_type_cmp_rlayers(ttype);
2160         register_node_type_cmp_image(ttype);
2161         register_node_type_cmp_texture(ttype);
2162         register_node_type_cmp_value(ttype);
2163         register_node_type_cmp_rgb(ttype);
2164         register_node_type_cmp_curve_time(ttype);
2165         register_node_type_cmp_movieclip(ttype);
2166         
2167         register_node_type_cmp_composite(ttype);
2168         register_node_type_cmp_viewer(ttype);
2169         register_node_type_cmp_splitviewer(ttype);
2170         register_node_type_cmp_output_file(ttype);
2171         register_node_type_cmp_view_levels(ttype);
2172         
2173         register_node_type_cmp_curve_rgb(ttype);
2174         register_node_type_cmp_mix_rgb(ttype);
2175         register_node_type_cmp_hue_sat(ttype);
2176         register_node_type_cmp_brightcontrast(ttype);
2177         register_node_type_cmp_gamma(ttype);
2178         register_node_type_cmp_invert(ttype);
2179         register_node_type_cmp_alphaover(ttype);
2180         register_node_type_cmp_zcombine(ttype);
2181         register_node_type_cmp_colorbalance(ttype);
2182         register_node_type_cmp_huecorrect(ttype);
2183         
2184         register_node_type_cmp_normal(ttype);
2185         register_node_type_cmp_curve_vec(ttype);
2186         register_node_type_cmp_map_value(ttype);
2187         register_node_type_cmp_normalize(ttype);
2188         
2189         register_node_type_cmp_filter(ttype);
2190         register_node_type_cmp_blur(ttype);
2191         register_node_type_cmp_dblur(ttype);
2192         register_node_type_cmp_bilateralblur(ttype);
2193         register_node_type_cmp_vecblur(ttype);
2194         register_node_type_cmp_dilateerode(ttype);
2195         register_node_type_cmp_inpaint(ttype);
2196         register_node_type_cmp_despeckle(ttype);
2197         register_node_type_cmp_defocus(ttype);
2198         
2199         register_node_type_cmp_valtorgb(ttype);
2200         register_node_type_cmp_rgbtobw(ttype);
2201         register_node_type_cmp_setalpha(ttype);
2202         register_node_type_cmp_idmask(ttype);
2203         register_node_type_cmp_math(ttype);
2204         register_node_type_cmp_seprgba(ttype);
2205         register_node_type_cmp_combrgba(ttype);
2206         register_node_type_cmp_sephsva(ttype);
2207         register_node_type_cmp_combhsva(ttype);
2208         register_node_type_cmp_sepyuva(ttype);
2209         register_node_type_cmp_combyuva(ttype);
2210         register_node_type_cmp_sepycca(ttype);
2211         register_node_type_cmp_combycca(ttype);
2212         register_node_type_cmp_premulkey(ttype);
2213         
2214         register_node_type_cmp_diff_matte(ttype);
2215         register_node_type_cmp_distance_matte(ttype);
2216         register_node_type_cmp_chroma_matte(ttype);
2217         register_node_type_cmp_color_matte(ttype);
2218         register_node_type_cmp_channel_matte(ttype);
2219         register_node_type_cmp_color_spill(ttype);
2220         register_node_type_cmp_luma_matte(ttype);
2221         register_node_type_cmp_doubleedgemask(ttype);
2222         register_node_type_cmp_keyingscreen(ttype);
2223         register_node_type_cmp_keying(ttype);
2224
2225         register_node_type_cmp_translate(ttype);
2226         register_node_type_cmp_rotate(ttype);
2227         register_node_type_cmp_scale(ttype);
2228         register_node_type_cmp_flip(ttype);
2229         register_node_type_cmp_crop(ttype);
2230         register_node_type_cmp_displace(ttype);
2231         register_node_type_cmp_mapuv(ttype);
2232         register_node_type_cmp_glare(ttype);
2233         register_node_type_cmp_tonemap(ttype);
2234         register_node_type_cmp_lensdist(ttype);
2235         register_node_type_cmp_transform(ttype);
2236         register_node_type_cmp_stabilize2d(ttype);
2237         register_node_type_cmp_moviedistortion(ttype);
2238
2239         register_node_type_cmp_colorcorrection(ttype);
2240         register_node_type_cmp_boxmask(ttype);
2241         register_node_type_cmp_ellipsemask(ttype);
2242         register_node_type_cmp_bokehimage(ttype);
2243         register_node_type_cmp_bokehblur(ttype);
2244         register_node_type_cmp_switch(ttype);
2245         register_node_type_cmp_pixelate(ttype);
2246
2247         register_node_type_cmp_mask(ttype);
2248         register_node_type_cmp_trackpos(ttype);
2249 }
2250
2251 static void registerShaderNodes(bNodeTreeType *ttype) 
2252 {
2253         register_node_type_frame(ttype);
2254         register_node_type_reroute(ttype);
2255         
2256         register_node_type_sh_group(ttype);
2257         //register_node_type_sh_forloop(ttype);
2258         //register_node_type_sh_whileloop(ttype);
2259
2260         register_node_type_sh_output(ttype);
2261         register_node_type_sh_material(ttype);
2262         register_node_type_sh_camera(ttype);
2263         register_node_type_sh_gamma(ttype);
2264         register_node_type_sh_brightcontrast(ttype);
2265         register_node_type_sh_value(ttype);
2266         register_node_type_sh_rgb(ttype);
2267         register_node_type_sh_mix_rgb(ttype);
2268         register_node_type_sh_valtorgb(ttype);
2269         register_node_type_sh_rgbtobw(ttype);
2270         register_node_type_sh_texture(ttype);
2271         register_node_type_sh_normal(ttype);
2272         register_node_type_sh_geom(ttype);
2273         register_node_type_sh_mapping(ttype);
2274         register_node_type_sh_curve_vec(ttype);
2275         register_node_type_sh_curve_rgb(ttype);
2276         register_node_type_sh_math(ttype);
2277         register_node_type_sh_vect_math(ttype);
2278         register_node_type_sh_squeeze(ttype);
2279         register_node_type_sh_material_ext(ttype);
2280         register_node_type_sh_invert(ttype);
2281         register_node_type_sh_seprgb(ttype);
2282         register_node_type_sh_combrgb(ttype);
2283         register_node_type_sh_hue_sat(ttype);
2284
2285         register_node_type_sh_attribute(ttype);
2286         register_node_type_sh_geometry(ttype);
2287         register_node_type_sh_light_path(ttype);
2288         register_node_type_sh_light_falloff(ttype);
2289         register_node_type_sh_object_info(ttype);
2290         register_node_type_sh_fresnel(ttype);
2291         register_node_type_sh_layer_weight(ttype);
2292         register_node_type_sh_tex_coord(ttype);
2293         register_node_type_sh_particle_info(ttype);
2294         register_node_type_sh_bump(ttype);
2295         register_node_type_sh_script(ttype);
2296
2297         register_node_type_sh_background(ttype);
2298         register_node_type_sh_bsdf_anisotropic(ttype);
2299         register_node_type_sh_bsdf_diffuse(ttype);
2300         register_node_type_sh_bsdf_glossy(ttype);
2301         register_node_type_sh_bsdf_glass(ttype);
2302         register_node_type_sh_bsdf_translucent(ttype);
2303         register_node_type_sh_bsdf_transparent(ttype);
2304         register_node_type_sh_bsdf_velvet(ttype);
2305         register_node_type_sh_emission(ttype);
2306         register_node_type_sh_holdout(ttype);
2307         //register_node_type_sh_volume_transparent(ttype);
2308         //register_node_type_sh_volume_isotropic(ttype);
2309         register_node_type_sh_mix_shader(ttype);
2310         register_node_type_sh_add_shader(ttype);
2311
2312         register_node_type_sh_output_lamp(ttype);
2313         register_node_type_sh_output_material(ttype);
2314         register_node_type_sh_output_world(ttype);
2315
2316         register_node_type_sh_tex_image(ttype);
2317         register_node_type_sh_tex_environment(ttype);
2318         register_node_type_sh_tex_sky(ttype);
2319         register_node_type_sh_tex_noise(ttype);
2320         register_node_type_sh_tex_wave(ttype);
2321         register_node_type_sh_tex_voronoi(ttype);
2322         register_node_type_sh_tex_musgrave(ttype);
2323         register_node_type_sh_tex_gradient(ttype);
2324         register_node_type_sh_tex_magic(ttype);
2325         register_node_type_sh_tex_checker(ttype);
2326         register_node_type_sh_tex_brick(ttype);
2327 }
2328
2329 static void registerTextureNodes(bNodeTreeType *ttype)
2330 {
2331         register_node_type_frame(ttype);
2332         register_node_type_reroute(ttype);
2333         
2334         register_node_type_tex_group(ttype);
2335 //      register_node_type_tex_forloop(ttype);
2336 //      register_node_type_tex_whileloop(ttype);
2337         
2338         register_node_type_tex_math(ttype);
2339         register_node_type_tex_mix_rgb(ttype);
2340         register_node_type_tex_valtorgb(ttype);
2341         register_node_type_tex_rgbtobw(ttype);
2342         register_node_type_tex_valtonor(ttype);
2343         register_node_type_tex_curve_rgb(ttype);
2344         register_node_type_tex_curve_time(ttype);
2345         register_node_type_tex_invert(ttype);
2346         register_node_type_tex_hue_sat(ttype);
2347         register_node_type_tex_coord(ttype);
2348         register_node_type_tex_distance(ttype);
2349         register_node_type_tex_compose(ttype);
2350         register_node_type_tex_decompose(ttype);
2351         
2352         register_node_type_tex_output(ttype);
2353         register_node_type_tex_viewer(ttype);
2354         
2355         register_node_type_tex_checker(ttype);
2356         register_node_type_tex_texture(ttype);
2357         register_node_type_tex_bricks(ttype);
2358         register_node_type_tex_image(ttype);
2359         
2360         register_node_type_tex_rotate(ttype);
2361         register_node_type_tex_translate(ttype);
2362         register_node_type_tex_scale(ttype);
2363         register_node_type_tex_at(ttype);
2364         
2365         register_node_type_tex_proc_voronoi(ttype);
2366         register_node_type_tex_proc_blend(ttype);
2367         register_node_type_tex_proc_magic(ttype);
2368         register_node_type_tex_proc_marble(ttype);
2369         register_node_type_tex_proc_clouds(ttype);
2370         register_node_type_tex_proc_wood(ttype);
2371         register_node_type_tex_proc_musgrave(ttype);
2372         register_node_type_tex_proc_noise(ttype);
2373         register_node_type_tex_proc_stucci(ttype);
2374         register_node_type_tex_proc_distnoise(ttype);
2375 }
2376
2377 static void free_typeinfos(ListBase *list)
2378 {
2379         bNodeType *ntype, *next;
2380         for (ntype = list->first; ntype; ntype = next) {
2381                 next = ntype->next;
2382
2383                 if (ntype->needs_free)
2384                         MEM_freeN(ntype);
2385         }
2386 }
2387
2388 void init_nodesystem(void) 
2389 {
2390         /* init clipboard */
2391         node_clipboard.nodes.first = node_clipboard.nodes.last = NULL;
2392         node_clipboard.links.first = node_clipboard.links.last = NULL;
2393         
2394         registerCompositNodes(ntreeGetType(NTREE_COMPOSIT));
2395         registerShaderNodes(ntreeGetType(NTREE_SHADER));
2396         registerTextureNodes(ntreeGetType(NTREE_TEXTURE));
2397 }
2398
2399 void free_nodesystem(void) 
2400 {
2401         free_typeinfos(&ntreeGetType(NTREE_COMPOSIT)->node_types);
2402         free_typeinfos(&ntreeGetType(NTREE_SHADER)->node_types);
2403         free_typeinfos(&ntreeGetType(NTREE_TEXTURE)->node_types);
2404 }
2405
2406 /* called from BKE_scene_unlink, when deleting a scene goes over all scenes
2407  * other than the input, checks if they have render layer nodes referencing
2408  * the to-be-deleted scene, and resets them to NULL. */
2409
2410 /* XXX needs to get current scene then! */
2411 void clear_scene_in_nodes(Main *bmain, Scene *sce)
2412 {
2413         Scene *sce1;
2414         bNode *node;
2415
2416         for (sce1 = bmain->scene.first; sce1; sce1 = sce1->id.next) {
2417                 if (sce1 != sce) {
2418                         if (sce1->nodetree) {
2419                                 for (node = sce1->nodetree->nodes.first; node; node = node->next) {
2420                                         if (node->type == CMP_NODE_R_LAYERS) {
2421                                                 Scene *nodesce = (Scene *)node->id;
2422                                                 
2423                                                 if (nodesce == sce) node->id = NULL;
2424                                         }
2425                                 }
2426                         }
2427                 }
2428         }
2429 }