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