source/blender/blenkernel/intern/node.c

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