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