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