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