Fix #34040: Moving Normal Node with enabled Cycles Material Preview crashes
[blender.git] / source / blender / blenkernel / intern / texture.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) 2001-2002 by NaN Holding BV.
19  * All rights reserved.
20  *
21  * The Original Code is: all of this file.
22  *
23  * Contributor(s): none yet.
24  *
25  * ***** END GPL LICENSE BLOCK *****
26  */
27
28 /** \file blender/blenkernel/intern/texture.c
29  *  \ingroup bke
30  */
31
32
33 #include <stdio.h>
34 #include <stdlib.h>
35 #include <string.h>
36 #include <math.h>
37
38 #include "MEM_guardedalloc.h"
39
40 #include "BLI_blenlib.h"
41 #include "BLI_dynlib.h"
42 #include "BLI_math.h"
43 #include "BLI_kdopbvh.h"
44 #include "BLI_utildefines.h"
45
46 #include "DNA_key_types.h"
47 #include "DNA_object_types.h"
48 #include "DNA_lamp_types.h"
49 #include "DNA_material_types.h"
50 #include "DNA_world_types.h"
51 #include "DNA_brush_types.h"
52 #include "DNA_node_types.h"
53 #include "DNA_color_types.h"
54 #include "DNA_particle_types.h"
55
56 #include "IMB_imbuf.h"
57
58 #include "BKE_global.h"
59 #include "BKE_main.h"
60 #include "BKE_ocean.h"
61
62 #include "BKE_library.h"
63 #include "BKE_image.h"
64 #include "BKE_material.h"
65 #include "BKE_texture.h"
66 #include "BKE_key.h"
67 #include "BKE_icons.h"
68 #include "BKE_node.h"
69 #include "BKE_animsys.h"
70 #include "BKE_colortools.h"
71
72 /* ****************** Mapping ******************* */
73
74 TexMapping *add_tex_mapping(void)
75 {
76         TexMapping *texmap = MEM_callocN(sizeof(TexMapping), "TexMapping");
77         
78         default_tex_mapping(texmap);
79         
80         return texmap;
81 }
82
83 void default_tex_mapping(TexMapping *texmap)
84 {
85         memset(texmap, 0, sizeof(TexMapping));
86
87         texmap->size[0] = texmap->size[1] = texmap->size[2] = 1.0f;
88         texmap->max[0] = texmap->max[1] = texmap->max[2] = 1.0f;
89         unit_m4(texmap->mat);
90
91         texmap->projx = PROJ_X;
92         texmap->projy = PROJ_Y;
93         texmap->projz = PROJ_Z;
94         texmap->mapping = MTEX_FLAT;
95 }
96
97 void init_tex_mapping(TexMapping *texmap)
98 {
99         float smat[3][3], rmat[3][3], mat[3][3], proj[3][3];
100
101         if (texmap->projx == PROJ_X && texmap->projy == PROJ_Y && texmap->projz == PROJ_Z &&
102             is_zero_v3(texmap->loc) && is_zero_v3(texmap->rot) && is_one_v3(texmap->size))
103         {
104                 unit_m4(texmap->mat);
105
106                 texmap->flag |= TEXMAP_UNIT_MATRIX;
107         }
108         else {
109                 /* axis projection */
110                 zero_m3(proj);
111
112                 if (texmap->projx != PROJ_N)
113                         proj[texmap->projx - 1][0] = 1.0f;
114                 if (texmap->projy != PROJ_N)
115                         proj[texmap->projy - 1][1] = 1.0f;
116                 if (texmap->projz != PROJ_N)
117                         proj[texmap->projz - 1][2] = 1.0f;
118
119                 /* scale */
120                 size_to_mat3(smat, texmap->size);
121                 
122                 /* rotation */
123                 /* TexMapping rotation are now in radians. */
124                 eul_to_mat3(rmat, texmap->rot);
125                 
126                 /* compose it all */
127                 mul_m3_m3m3(mat, rmat, smat);
128                 mul_m3_m3m3(mat, proj, mat);
129                 
130                 /* translation */
131                 copy_m4_m3(texmap->mat, mat);
132                 copy_v3_v3(texmap->mat[3], texmap->loc);
133
134                 texmap->flag &= ~TEXMAP_UNIT_MATRIX;
135         }
136 }
137
138 ColorMapping *add_color_mapping(void)
139 {
140         ColorMapping *colormap = MEM_callocN(sizeof(ColorMapping), "ColorMapping");
141         
142         default_color_mapping(colormap);
143         
144         return colormap;
145 }
146
147 void default_color_mapping(ColorMapping *colormap)
148 {
149         memset(colormap, 0, sizeof(ColorMapping));
150
151         init_colorband(&colormap->coba, 1);
152
153         colormap->bright = 1.0;
154         colormap->contrast = 1.0;
155         colormap->saturation = 1.0;
156
157         colormap->blend_color[0] = 0.8f;
158         colormap->blend_color[1] = 0.8f;
159         colormap->blend_color[2] = 0.8f;
160         colormap->blend_type = MA_RAMP_BLEND;
161         colormap->blend_factor = 0.0f;
162 }
163
164 /* ****************** COLORBAND ******************* */
165
166 void init_colorband(ColorBand *coba, int rangetype)
167 {
168         int a;
169         
170         coba->data[0].pos = 0.0;
171         coba->data[1].pos = 1.0;
172         
173         if (rangetype == 0) {
174                 coba->data[0].r = 0.0;
175                 coba->data[0].g = 0.0;
176                 coba->data[0].b = 0.0;
177                 coba->data[0].a = 0.0;
178
179                 coba->data[1].r = 1.0;
180                 coba->data[1].g = 1.0;
181                 coba->data[1].b = 1.0;
182                 coba->data[1].a = 1.0;
183         }
184         else {
185                 coba->data[0].r = 0.0;
186                 coba->data[0].g = 0.0;
187                 coba->data[0].b = 0.0;
188                 coba->data[0].a = 1.0;
189
190                 coba->data[1].r = 1.0;
191                 coba->data[1].g = 1.0;
192                 coba->data[1].b = 1.0;
193                 coba->data[1].a = 1.0;
194         }
195
196         for (a = 2; a < MAXCOLORBAND; a++) {
197                 coba->data[a].r = 0.5;
198                 coba->data[a].g = 0.5;
199                 coba->data[a].b = 0.5;
200                 coba->data[a].a = 1.0;
201                 coba->data[a].pos = 0.5;
202         }
203         
204         coba->tot = 2;
205         
206 }
207
208 ColorBand *add_colorband(int rangetype)
209 {
210         ColorBand *coba;
211         
212         coba = MEM_callocN(sizeof(ColorBand), "colorband");
213         init_colorband(coba, rangetype);
214         
215         return coba;
216 }
217
218 /* ------------------------------------------------------------------------- */
219
220 int do_colorband(const ColorBand *coba, float in, float out[4])
221 {
222         const CBData *cbd1, *cbd2, *cbd0, *cbd3;
223         float fac, mfac, t[4];
224         int a;
225         
226         if (coba == NULL || coba->tot == 0) return 0;
227         
228         cbd1 = coba->data;
229         if (coba->tot == 1) {
230                 out[0] = cbd1->r;
231                 out[1] = cbd1->g;
232                 out[2] = cbd1->b;
233                 out[3] = cbd1->a;
234         }
235         else {
236                 if (in <= cbd1->pos && coba->ipotype < 2) {
237                         out[0] = cbd1->r;
238                         out[1] = cbd1->g;
239                         out[2] = cbd1->b;
240                         out[3] = cbd1->a;
241                 }
242                 else {
243                         CBData left, right;
244                         
245                         /* we're looking for first pos > in */
246                         for (a = 0; a < coba->tot; a++, cbd1++) if (cbd1->pos > in) break;
247                                 
248                         if (a == coba->tot) {
249                                 cbd2 = cbd1 - 1;
250                                 right = *cbd2;
251                                 right.pos = 1.0f;
252                                 cbd1 = &right;
253                         }
254                         else if (a == 0) {
255                                 left = *cbd1;
256                                 left.pos = 0.0f;
257                                 cbd2 = &left;
258                         }
259                         else cbd2 = cbd1 - 1;
260                         
261                         if (in >= cbd1->pos && coba->ipotype < 2) {
262                                 out[0] = cbd1->r;
263                                 out[1] = cbd1->g;
264                                 out[2] = cbd1->b;
265                                 out[3] = cbd1->a;
266                         }
267                         else {
268                 
269                                 if (cbd2->pos != cbd1->pos)
270                                         fac = (in - cbd1->pos) / (cbd2->pos - cbd1->pos);
271                                 else {
272                                         /* was setting to 0.0 in 2.56 & previous, but this
273                                          * is incorrect for the last element, see [#26732] */
274                                         fac = (a != coba->tot) ? 0.0f : 1.0f;
275                                 }
276                                 
277                                 if (coba->ipotype == 4) {
278                                         /* constant */
279                                         out[0] = cbd2->r;
280                                         out[1] = cbd2->g;
281                                         out[2] = cbd2->b;
282                                         out[3] = cbd2->a;
283                                         return 1;
284                                 }
285                                 
286                                 if (coba->ipotype >= 2) {
287                                         /* ipo from right to left: 3 2 1 0 */
288                                         
289                                         if (a >= coba->tot - 1) cbd0 = cbd1;
290                                         else cbd0 = cbd1 + 1;
291                                         if (a < 2) cbd3 = cbd2;
292                                         else cbd3 = cbd2 - 1;
293                                         
294                                         CLAMP(fac, 0.0f, 1.0f);
295                                         
296                                         if (coba->ipotype == 3)
297                                                 key_curve_position_weights(fac, t, KEY_CARDINAL);
298                                         else
299                                                 key_curve_position_weights(fac, t, KEY_BSPLINE);
300
301                                         out[0] = t[3] * cbd3->r + t[2] * cbd2->r + t[1] * cbd1->r + t[0] * cbd0->r;
302                                         out[1] = t[3] * cbd3->g + t[2] * cbd2->g + t[1] * cbd1->g + t[0] * cbd0->g;
303                                         out[2] = t[3] * cbd3->b + t[2] * cbd2->b + t[1] * cbd1->b + t[0] * cbd0->b;
304                                         out[3] = t[3] * cbd3->a + t[2] * cbd2->a + t[1] * cbd1->a + t[0] * cbd0->a;
305                                         CLAMP(out[0], 0.0f, 1.0f);
306                                         CLAMP(out[1], 0.0f, 1.0f);
307                                         CLAMP(out[2], 0.0f, 1.0f);
308                                         CLAMP(out[3], 0.0f, 1.0f);
309                                 }
310                                 else {
311                                 
312                                         if (coba->ipotype == 1) { /* EASE */
313                                                 mfac = fac * fac;
314                                                 fac = 3.0f * mfac - 2.0f * mfac * fac;
315                                         }
316                                         mfac = 1.0f - fac;
317                                         
318                                         out[0] = mfac * cbd1->r + fac * cbd2->r;
319                                         out[1] = mfac * cbd1->g + fac * cbd2->g;
320                                         out[2] = mfac * cbd1->b + fac * cbd2->b;
321                                         out[3] = mfac * cbd1->a + fac * cbd2->a;
322                                 }
323                         }
324                 }
325         }
326         return 1;   /* OK */
327 }
328
329 void colorband_table_RGBA(ColorBand *coba, float **array, int *size)
330 {
331         int a;
332         
333         *size = CM_TABLE + 1;
334         *array = MEM_callocN(sizeof(float) * (*size) * 4, "ColorBand");
335
336         for (a = 0; a < *size; a++)
337                 do_colorband(coba, (float)a / (float)CM_TABLE, &(*array)[a * 4]);
338 }
339
340 static int vergcband(const void *a1, const void *a2)
341 {
342         const CBData *x1 = a1, *x2 = a2;
343
344         if (x1->pos > x2->pos) return 1;
345         else if (x1->pos < x2->pos) return -1;
346         return 0;
347 }
348
349 void colorband_update_sort(ColorBand *coba)
350 {
351         int a;
352         
353         if (coba->tot < 2)
354                 return;
355         
356         for (a = 0; a < coba->tot; a++)
357                 coba->data[a].cur = a;
358
359         qsort(coba->data, coba->tot, sizeof(CBData), vergcband);
360
361         for (a = 0; a < coba->tot; a++) {
362                 if (coba->data[a].cur == coba->cur) {
363                         coba->cur = a;
364                         break;
365                 }
366         }
367 }
368
369 CBData *colorband_element_add(struct ColorBand *coba, float position)
370 {
371         if (coba->tot == MAXCOLORBAND) {
372                 return NULL;
373         }
374         else if (coba->tot > 0) {
375                 CBData *xnew;
376                 float col[4];
377
378                 do_colorband(coba, position, col);
379
380                 xnew = &coba->data[coba->tot];
381                 xnew->pos = position;
382
383                 xnew->r = col[0];
384                 xnew->g = col[1];
385                 xnew->b = col[2];
386                 xnew->a = col[3];
387         }
388
389         coba->tot++;
390         coba->cur = coba->tot - 1;
391
392         colorband_update_sort(coba);
393
394         return coba->data + coba->cur;
395 }
396
397 int colorband_element_remove(struct ColorBand *coba, int index)
398 {
399         int a;
400
401         if (coba->tot < 2)
402                 return 0;
403
404         if (index < 0 || index >= coba->tot)
405                 return 0;
406
407         for (a = index; a < coba->tot; a++) {
408                 coba->data[a] = coba->data[a + 1];
409         }
410         if (coba->cur) coba->cur--;
411         coba->tot--;
412         return 1;
413 }
414
415 /* ******************* TEX ************************ */
416
417 void BKE_texture_free(Tex *tex)
418 {
419         if (tex->coba) MEM_freeN(tex->coba);
420         if (tex->env) BKE_free_envmap(tex->env);
421         if (tex->pd) BKE_free_pointdensity(tex->pd);
422         if (tex->vd) BKE_free_voxeldata(tex->vd);
423         if (tex->ot) BKE_free_oceantex(tex->ot);
424         BKE_free_animdata((struct ID *)tex);
425         
426         BKE_previewimg_free(&tex->preview);
427         BKE_icon_delete((struct ID *)tex);
428         tex->id.icon_id = 0;
429         
430         if (tex->nodetree) {
431                 ntreeFreeTree(tex->nodetree);
432                 MEM_freeN(tex->nodetree);
433         }
434 }
435
436 /* ------------------------------------------------------------------------- */
437
438 void default_tex(Tex *tex)
439 {
440         tex->type = TEX_CLOUDS;
441         tex->stype = 0;
442         tex->flag = TEX_CHECKER_ODD;
443         tex->imaflag = TEX_INTERPOL | TEX_MIPMAP;
444         tex->extend = TEX_REPEAT;
445         tex->cropxmin = tex->cropymin = 0.0;
446         tex->cropxmax = tex->cropymax = 1.0;
447         tex->texfilter = TXF_EWA;
448         tex->afmax = 8;
449         tex->xrepeat = tex->yrepeat = 1;
450         tex->fie_ima = 2;
451         tex->sfra = 1;
452         tex->frames = 0;
453         tex->offset = 0;
454         tex->noisesize = 0.25;
455         tex->noisedepth = 2;
456         tex->turbul = 5.0;
457         tex->nabla = 0.025;  // also in do_versions
458         tex->bright = 1.0;
459         tex->contrast = 1.0;
460         tex->saturation = 1.0;
461         tex->filtersize = 1.0;
462         tex->rfac = 1.0;
463         tex->gfac = 1.0;
464         tex->bfac = 1.0;
465         /* newnoise: init. */
466         tex->noisebasis = 0;
467         tex->noisebasis2 = 0;
468         /* musgrave */
469         tex->mg_H = 1.0;
470         tex->mg_lacunarity = 2.0;
471         tex->mg_octaves = 2.0;
472         tex->mg_offset = 1.0;
473         tex->mg_gain = 1.0;
474         tex->ns_outscale = 1.0;
475         /* distnoise */
476         tex->dist_amount = 1.0;
477         /* voronoi */
478         tex->vn_w1 = 1.0;
479         tex->vn_w2 = tex->vn_w3 = tex->vn_w4 = 0.0;
480         tex->vn_mexp = 2.5;
481         tex->vn_distm = 0;
482         tex->vn_coltype = 0;
483
484         if (tex->env) {
485                 tex->env->stype = ENV_ANIM;
486                 tex->env->clipsta = 0.1;
487                 tex->env->clipend = 100;
488                 tex->env->cuberes = 600;
489                 tex->env->depth = 0;
490         }
491
492         if (tex->pd) {
493                 tex->pd->radius = 0.3f;
494                 tex->pd->falloff_type = TEX_PD_FALLOFF_STD;
495         }
496         
497         if (tex->vd) {
498                 tex->vd->resol[0] = tex->vd->resol[1] = tex->vd->resol[2] = 0;
499                 tex->vd->interp_type = TEX_VD_LINEAR;
500                 tex->vd->file_format = TEX_VD_SMOKE;
501         }
502         
503         if (tex->ot) {
504                 tex->ot->output = TEX_OCN_DISPLACEMENT;
505                 tex->ot->object = NULL;
506         }
507         
508         tex->iuser.fie_ima = 2;
509         tex->iuser.ok = 1;
510         tex->iuser.frames = 100;
511         tex->iuser.sfra = 1;
512         
513         tex->preview = NULL;
514 }
515
516 void tex_set_type(Tex *tex, int type)
517 {
518         switch (type) {
519                         
520                 case TEX_VOXELDATA:
521                         if (tex->vd == NULL)
522                                 tex->vd = BKE_add_voxeldata();
523                         break;
524                 case TEX_POINTDENSITY:
525                         if (tex->pd == NULL)
526                                 tex->pd = BKE_add_pointdensity();
527                         break;
528                 case TEX_ENVMAP:
529                         if (tex->env == NULL)
530                                 tex->env = BKE_add_envmap();
531                         break;
532                 case TEX_OCEAN:
533                         if (tex->ot == NULL)
534                                 tex->ot = BKE_add_oceantex();
535                         break;
536         }
537         
538         tex->type = type;
539 }
540
541 /* ------------------------------------------------------------------------- */
542
543 Tex *add_texture(Main *bmain, const char *name)
544 {
545         Tex *tex;
546
547         tex = BKE_libblock_alloc(&bmain->tex, ID_TE, name);
548         
549         default_tex(tex);
550         
551         return tex;
552 }
553
554 /* ------------------------------------------------------------------------- */
555
556 void default_mtex(MTex *mtex)
557 {
558         mtex->texco = TEXCO_ORCO;
559         mtex->mapto = MAP_COL;
560         mtex->object = NULL;
561         mtex->projx = PROJ_X;
562         mtex->projy = PROJ_Y;
563         mtex->projz = PROJ_Z;
564         mtex->mapping = MTEX_FLAT;
565         mtex->ofs[0] = 0.0;
566         mtex->ofs[1] = 0.0;
567         mtex->ofs[2] = 0.0;
568         mtex->size[0] = 1.0;
569         mtex->size[1] = 1.0;
570         mtex->size[2] = 1.0;
571         mtex->tex = NULL;
572         mtex->texflag = MTEX_3TAP_BUMP | MTEX_BUMP_OBJECTSPACE | MTEX_MAPTO_BOUNDS;
573         mtex->colormodel = 0;
574         mtex->r = 1.0;
575         mtex->g = 0.0;
576         mtex->b = 1.0;
577         mtex->k = 1.0;
578         mtex->def_var = 1.0;
579         mtex->blendtype = MTEX_BLEND;
580         mtex->colfac = 1.0;
581         mtex->norfac = 1.0;
582         mtex->varfac = 1.0;
583         mtex->dispfac = 0.2;
584         mtex->colspecfac = 1.0f;
585         mtex->mirrfac = 1.0f;
586         mtex->alphafac = 1.0f;
587         mtex->difffac = 1.0f;
588         mtex->specfac = 1.0f;
589         mtex->emitfac = 1.0f;
590         mtex->hardfac = 1.0f;
591         mtex->raymirrfac = 1.0f;
592         mtex->translfac = 1.0f;
593         mtex->ambfac = 1.0f;
594         mtex->colemitfac = 1.0f;
595         mtex->colreflfac = 1.0f;
596         mtex->coltransfac = 1.0f;
597         mtex->densfac = 1.0f;
598         mtex->scatterfac = 1.0f;
599         mtex->reflfac = 1.0f;
600         mtex->shadowfac = 1.0f;
601         mtex->zenupfac = 1.0f;
602         mtex->zendownfac = 1.0f;
603         mtex->blendfac = 1.0f;
604         mtex->timefac = 1.0f;
605         mtex->lengthfac = 1.0f;
606         mtex->clumpfac = 1.0f;
607         mtex->kinkfac = 1.0f;
608         mtex->roughfac = 1.0f;
609         mtex->padensfac = 1.0f;
610         mtex->lifefac = 1.0f;
611         mtex->sizefac = 1.0f;
612         mtex->ivelfac = 1.0f;
613         mtex->dampfac = 1.0f;
614         mtex->gravityfac = 1.0f;
615         mtex->fieldfac = 1.0f;
616         mtex->normapspace = MTEX_NSPACE_TANGENT;
617         mtex->brush_map_mode = MTEX_MAP_MODE_TILED;
618 }
619
620
621 /* ------------------------------------------------------------------------- */
622
623 MTex *add_mtex(void)
624 {
625         MTex *mtex;
626         
627         mtex = MEM_callocN(sizeof(MTex), "add_mtex");
628         
629         default_mtex(mtex);
630         
631         return mtex;
632 }
633
634 /* slot -1 for first free ID */
635 MTex *add_mtex_id(ID *id, int slot)
636 {
637         MTex **mtex_ar;
638         short act;
639
640         give_active_mtex(id, &mtex_ar, &act);
641
642         if (mtex_ar == NULL) {
643                 return NULL;
644         }
645         
646         if (slot == -1) {
647                 /* find first free */
648                 int i;
649                 for (i = 0; i < MAX_MTEX; i++) {
650                         if (!mtex_ar[i]) {
651                                 slot = i;
652                                 break;
653                         }
654                 }
655                 if (slot == -1) {
656                         return NULL;
657                 }
658         }
659         else {
660                 /* make sure slot is valid */
661                 if (slot < 0 || slot >= MAX_MTEX) {
662                         return NULL;
663                 }
664         }
665
666         if (mtex_ar[slot]) {
667                 id_us_min((ID *)mtex_ar[slot]->tex);
668                 MEM_freeN(mtex_ar[slot]);
669                 mtex_ar[slot] = NULL;
670         }
671
672         mtex_ar[slot] = add_mtex();
673
674         return mtex_ar[slot];
675 }
676
677 /* ------------------------------------------------------------------------- */
678
679 Tex *BKE_texture_copy(Tex *tex)
680 {
681         Tex *texn;
682         
683         texn = BKE_libblock_copy(&tex->id);
684         if (texn->type == TEX_IMAGE) id_us_plus((ID *)texn->ima);
685         else texn->ima = NULL;
686         
687         if (texn->coba) texn->coba = MEM_dupallocN(texn->coba);
688         if (texn->env) texn->env = BKE_copy_envmap(texn->env);
689         if (texn->pd) texn->pd = BKE_copy_pointdensity(texn->pd);
690         if (texn->vd) texn->vd = MEM_dupallocN(texn->vd);
691         if (texn->ot) texn->ot = BKE_copy_oceantex(texn->ot);
692         if (tex->preview) texn->preview = BKE_previewimg_copy(tex->preview);
693
694         if (tex->nodetree) {
695                 if (tex->nodetree->execdata) {
696                         ntreeTexEndExecTree(tex->nodetree->execdata, 1);
697                 }
698                 texn->nodetree = ntreeCopyTree(tex->nodetree);
699         }
700         
701         return texn;
702 }
703
704 /* texture copy without adding to main dbase */
705 Tex *localize_texture(Tex *tex)
706 {
707         Tex *texn;
708         
709         texn = BKE_libblock_copy(&tex->id);
710         BLI_remlink(&G.main->tex, texn);
711         
712         /* image texture: BKE_texture_free also doesn't decrease */
713         
714         if (texn->coba) texn->coba = MEM_dupallocN(texn->coba);
715         if (texn->env) {
716                 texn->env = BKE_copy_envmap(texn->env);
717                 id_us_min(&texn->env->ima->id);
718         }
719         if (texn->pd) texn->pd = BKE_copy_pointdensity(texn->pd);
720         if (texn->vd) {
721                 texn->vd = MEM_dupallocN(texn->vd);
722                 if (texn->vd->dataset)
723                         texn->vd->dataset = MEM_dupallocN(texn->vd->dataset);
724         }
725         if (texn->ot) {
726                 texn->ot = BKE_copy_oceantex(tex->ot);
727         }
728         
729         texn->preview = NULL;
730         
731         if (tex->nodetree) {
732                 texn->nodetree = ntreeLocalize(tex->nodetree);
733         }
734         
735         return texn;
736 }
737
738
739 /* ------------------------------------------------------------------------- */
740
741 static void extern_local_texture(Tex *tex)
742 {
743         id_lib_extern((ID *)tex->ima);
744 }
745
746 void BKE_texture_make_local(Tex *tex)
747 {
748         Main *bmain = G.main;
749         Material *ma;
750         World *wrld;
751         Lamp *la;
752         Brush *br;
753         ParticleSettings *pa;
754         int a, is_local = FALSE, is_lib = FALSE;
755
756         /* - only lib users: do nothing
757          * - only local users: set flag
758          * - mixed: make copy
759          */
760         
761         if (tex->id.lib == NULL) return;
762
763         if (tex->id.us == 1) {
764                 id_clear_lib_data(bmain, &tex->id);
765                 extern_local_texture(tex);
766                 return;
767         }
768         
769         ma = bmain->mat.first;
770         while (ma) {
771                 for (a = 0; a < MAX_MTEX; a++) {
772                         if (ma->mtex[a] && ma->mtex[a]->tex == tex) {
773                                 if (ma->id.lib) is_lib = TRUE;
774                                 else is_local = TRUE;
775                         }
776                 }
777                 ma = ma->id.next;
778         }
779         la = bmain->lamp.first;
780         while (la) {
781                 for (a = 0; a < MAX_MTEX; a++) {
782                         if (la->mtex[a] && la->mtex[a]->tex == tex) {
783                                 if (la->id.lib) is_lib = TRUE;
784                                 else is_local = TRUE;
785                         }
786                 }
787                 la = la->id.next;
788         }
789         wrld = bmain->world.first;
790         while (wrld) {
791                 for (a = 0; a < MAX_MTEX; a++) {
792                         if (wrld->mtex[a] && wrld->mtex[a]->tex == tex) {
793                                 if (wrld->id.lib) is_lib = TRUE;
794                                 else is_local = TRUE;
795                         }
796                 }
797                 wrld = wrld->id.next;
798         }
799         br = bmain->brush.first;
800         while (br) {
801                 if (br->mtex.tex == tex) {
802                         if (br->id.lib) is_lib = TRUE;
803                         else is_local = TRUE;
804                 }
805                 br = br->id.next;
806         }
807         pa = bmain->particle.first;
808         while (pa) {
809                 for (a = 0; a < MAX_MTEX; a++) {
810                         if (pa->mtex[a] && pa->mtex[a]->tex == tex) {
811                                 if (pa->id.lib) is_lib = TRUE;
812                                 else is_local = TRUE;
813                         }
814                 }
815                 pa = pa->id.next;
816         }
817         
818         if (is_local && is_lib == FALSE) {
819                 id_clear_lib_data(bmain, &tex->id);
820                 extern_local_texture(tex);
821         }
822         else if (is_local && is_lib) {
823                 Tex *tex_new = BKE_texture_copy(tex);
824
825                 tex_new->id.us = 0;
826
827                 /* Remap paths of new ID using old library as base. */
828                 BKE_id_lib_local_paths(bmain, tex->id.lib, &tex_new->id);
829                 
830                 ma = bmain->mat.first;
831                 while (ma) {
832                         for (a = 0; a < MAX_MTEX; a++) {
833                                 if (ma->mtex[a] && ma->mtex[a]->tex == tex) {
834                                         if (ma->id.lib == NULL) {
835                                                 ma->mtex[a]->tex = tex_new;
836                                                 tex_new->id.us++;
837                                                 tex->id.us--;
838                                         }
839                                 }
840                         }
841                         ma = ma->id.next;
842                 }
843                 la = bmain->lamp.first;
844                 while (la) {
845                         for (a = 0; a < MAX_MTEX; a++) {
846                                 if (la->mtex[a] && la->mtex[a]->tex == tex) {
847                                         if (la->id.lib == NULL) {
848                                                 la->mtex[a]->tex = tex_new;
849                                                 tex_new->id.us++;
850                                                 tex->id.us--;
851                                         }
852                                 }
853                         }
854                         la = la->id.next;
855                 }
856                 wrld = bmain->world.first;
857                 while (wrld) {
858                         for (a = 0; a < MAX_MTEX; a++) {
859                                 if (wrld->mtex[a] && wrld->mtex[a]->tex == tex) {
860                                         if (wrld->id.lib == NULL) {
861                                                 wrld->mtex[a]->tex = tex_new;
862                                                 tex_new->id.us++;
863                                                 tex->id.us--;
864                                         }
865                                 }
866                         }
867                         wrld = wrld->id.next;
868                 }
869                 br = bmain->brush.first;
870                 while (br) {
871                         if (br->mtex.tex == tex) {
872                                 if (br->id.lib == NULL) {
873                                         br->mtex.tex = tex_new;
874                                         tex_new->id.us++;
875                                         tex->id.us--;
876                                 }
877                         }
878                         br = br->id.next;
879                 }
880                 pa = bmain->particle.first;
881                 while (pa) {
882                         for (a = 0; a < MAX_MTEX; a++) {
883                                 if (pa->mtex[a] && pa->mtex[a]->tex == tex) {
884                                         if (pa->id.lib == NULL) {
885                                                 pa->mtex[a]->tex = tex_new;
886                                                 tex_new->id.us++;
887                                                 tex->id.us--;
888                                         }
889                                 }
890                         }
891                         pa = pa->id.next;
892                 }
893         }
894 }
895
896 /* ------------------------------------------------------------------------- */
897 #if 0 /* UNUSED */
898 void autotexname(Tex *tex)
899 {
900         Main *bmain = G.main;
901         char texstr[20][15] = {"None", "Clouds", "Wood", "Marble", "Magic", "Blend",
902                                    "Stucci", "Noise", "Image", "EnvMap", "Musgrave",
903                                    "Voronoi", "DistNoise", "Point Density", "Voxel Data", "Ocean", "", "", ""};
904         Image *ima;
905         char di[FILE_MAXDIR], fi[FILE_MAXFILE];
906         
907         if (tex) {
908                 if (tex->use_nodes) {
909                         new_id(&bmain->tex, (ID *)tex, "Noddy");
910                 }
911                 else if (tex->type == TEX_IMAGE) {
912                         ima = tex->ima;
913                         if (ima) {
914                                 BLI_strncpy(di, ima->name, sizeof(di));
915                                 BLI_splitdirstring(di, fi);
916                                 strcpy(di, "I.");
917                                 strcat(di, fi);
918                                 new_id(&bmain->tex, (ID *)tex, di);
919                         }
920                         else new_id(&bmain->tex, (ID *)tex, texstr[tex->type]);
921                 }
922                 else new_id(&bmain->tex, (ID *)tex, texstr[tex->type]);
923         }
924 }
925 #endif
926
927 /* ------------------------------------------------------------------------- */
928
929 Tex *give_current_object_texture(Object *ob)
930 {
931         Material *ma, *node_ma;
932         Tex *tex = NULL;
933         
934         if (ob == NULL) return NULL;
935         if (ob->totcol == 0 && !(ob->type == OB_LAMP)) return NULL;
936         
937         if (ob->type == OB_LAMP) {
938                 tex = give_current_lamp_texture(ob->data);
939         }
940         else {
941                 ma = give_current_material(ob, ob->actcol);
942
943                 if ((node_ma = give_node_material(ma)))
944                         ma = node_ma;
945
946                 tex = give_current_material_texture(ma);
947         }
948         
949         return tex;
950 }
951
952 Tex *give_current_lamp_texture(Lamp *la)
953 {
954         MTex *mtex = NULL;
955         Tex *tex = NULL;
956
957         if (la) {
958                 mtex = la->mtex[(int)(la->texact)];
959                 if (mtex) tex = mtex->tex;
960         }
961
962         return tex;
963 }
964
965 void set_current_lamp_texture(Lamp *la, Tex *newtex)
966 {
967         int act = la->texact;
968
969         if (la->mtex[act] && la->mtex[act]->tex)
970                 id_us_min(&la->mtex[act]->tex->id);
971
972         if (newtex) {
973                 if (!la->mtex[act]) {
974                         la->mtex[act] = add_mtex();
975                         la->mtex[act]->texco = TEXCO_GLOB;
976                 }
977                 
978                 la->mtex[act]->tex = newtex;
979                 id_us_plus(&newtex->id);
980         }
981         else if (la->mtex[act]) {
982                 MEM_freeN(la->mtex[act]);
983                 la->mtex[act] = NULL;
984         }
985 }
986
987 bNode *give_current_material_texture_node(Material *ma)
988 {
989         if (ma && ma->use_nodes && ma->nodetree)
990                 return nodeGetActiveID(ma->nodetree, ID_TE);
991         
992         return NULL;
993 }
994
995 Tex *give_current_material_texture(Material *ma)
996 {
997         MTex *mtex = NULL;
998         Tex *tex = NULL;
999         bNode *node;
1000         
1001         if (ma && ma->use_nodes && ma->nodetree) {
1002                 /* first check texture, then material, this works together
1003                  * with a hack that clears the active ID flag for textures on
1004                  * making a material node active */
1005                 node = nodeGetActiveID(ma->nodetree, ID_TE);
1006
1007                 if (node) {
1008                         tex = (Tex *)node->id;
1009                         ma = NULL;
1010                 }
1011         }
1012
1013         if (ma) {
1014                 mtex = ma->mtex[(int)(ma->texact)];
1015                 if (mtex) tex = mtex->tex;
1016         }
1017         
1018         return tex;
1019 }
1020
1021 int give_active_mtex(ID *id, MTex ***mtex_ar, short *act)
1022 {
1023         switch (GS(id->name)) {
1024                 case ID_MA:
1025                         *mtex_ar =       ((Material *)id)->mtex;
1026                         if (act) *act =  (((Material *)id)->texact);
1027                         break;
1028                 case ID_WO:
1029                         *mtex_ar =       ((World *)id)->mtex;
1030                         if (act) *act =  (((World *)id)->texact);
1031                         break;
1032                 case ID_LA:
1033                         *mtex_ar =       ((Lamp *)id)->mtex;
1034                         if (act) *act =  (((Lamp *)id)->texact);
1035                         break;
1036                 case ID_PA:
1037                         *mtex_ar =       ((ParticleSettings *)id)->mtex;
1038                         if (act) *act =  (((ParticleSettings *)id)->texact);
1039                         break;
1040                 default:
1041                         *mtex_ar = NULL;
1042                         if (act) *act =  0;
1043                         return FALSE;
1044         }
1045
1046         return TRUE;
1047 }
1048
1049 void set_active_mtex(ID *id, short act)
1050 {
1051         if (act < 0) act = 0;
1052         else if (act >= MAX_MTEX) act = MAX_MTEX - 1;
1053
1054         switch (GS(id->name)) {
1055                 case ID_MA:
1056                         ((Material *)id)->texact = act;
1057                         break;
1058                 case ID_WO:
1059                         ((World *)id)->texact = act;
1060                         break;
1061                 case ID_LA:
1062                         ((Lamp *)id)->texact = act;
1063                         break;
1064                 case ID_PA:
1065                         ((ParticleSettings *)id)->texact = act;
1066                         break;
1067         }
1068 }
1069
1070 void set_current_material_texture(Material *ma, Tex *newtex)
1071 {
1072         Tex *tex = NULL;
1073         bNode *node;
1074
1075         if ((ma->use_nodes && ma->nodetree) &&
1076             (node = nodeGetActiveID(ma->nodetree, ID_TE)))
1077         {
1078                 tex = (Tex *)node->id;
1079                 id_us_min(&tex->id);
1080                 if (newtex) {
1081                         node->id = &newtex->id;
1082                         id_us_plus(&newtex->id);
1083                 }
1084                 else {
1085                         node->id = NULL;
1086                 }
1087         }
1088         else {
1089                 int act = (int)ma->texact;
1090
1091                 tex = (ma->mtex[act]) ? ma->mtex[act]->tex : NULL;
1092                 id_us_min(&tex->id);
1093
1094                 if (newtex) {
1095                         if (!ma->mtex[act])
1096                                 ma->mtex[act] = add_mtex();
1097                         
1098                         ma->mtex[act]->tex = newtex;
1099                         id_us_plus(&newtex->id);
1100                 }
1101                 else if (ma->mtex[act]) {
1102                         MEM_freeN(ma->mtex[act]);
1103                         ma->mtex[act] = NULL;
1104                 }
1105         }
1106 }
1107
1108 int has_current_material_texture(Material *ma)
1109 {
1110         bNode *node;
1111
1112         if (ma && ma->use_nodes && ma->nodetree) {
1113                 node = nodeGetActiveID(ma->nodetree, ID_TE);
1114
1115                 if (node)
1116                         return 1;
1117         }
1118
1119         return (ma != NULL);
1120 }
1121
1122 Tex *give_current_world_texture(World *world)
1123 {
1124         MTex *mtex = NULL;
1125         Tex *tex = NULL;
1126         
1127         if (!world) return NULL;
1128         
1129         mtex = world->mtex[(int)(world->texact)];
1130         if (mtex) tex = mtex->tex;
1131         
1132         return tex;
1133 }
1134
1135 void set_current_world_texture(World *wo, Tex *newtex)
1136 {
1137         int act = wo->texact;
1138
1139         if (wo->mtex[act] && wo->mtex[act]->tex)
1140                 id_us_min(&wo->mtex[act]->tex->id);
1141
1142         if (newtex) {
1143                 if (!wo->mtex[act]) {
1144                         wo->mtex[act] = add_mtex();
1145                         wo->mtex[act]->texco = TEXCO_VIEW;
1146                 }
1147                 
1148                 wo->mtex[act]->tex = newtex;
1149                 id_us_plus(&newtex->id);
1150         }
1151         else if (wo->mtex[act]) {
1152                 MEM_freeN(wo->mtex[act]);
1153                 wo->mtex[act] = NULL;
1154         }
1155 }
1156
1157 Tex *give_current_brush_texture(Brush *br)
1158 {
1159         return br->mtex.tex;
1160 }
1161
1162 void set_current_brush_texture(Brush *br, Tex *newtex)
1163 {
1164         if (br->mtex.tex)
1165                 id_us_min(&br->mtex.tex->id);
1166
1167         if (newtex) {
1168                 br->mtex.tex = newtex;
1169                 id_us_plus(&newtex->id);
1170         }
1171 }
1172
1173 Tex *give_current_particle_texture(ParticleSettings *part)
1174 {
1175         MTex *mtex = NULL;
1176         Tex *tex = NULL;
1177         
1178         if (!part) return NULL;
1179         
1180         mtex = part->mtex[(int)(part->texact)];
1181         if (mtex) tex = mtex->tex;
1182         
1183         return tex;
1184 }
1185
1186 void set_current_particle_texture(ParticleSettings *part, Tex *newtex)
1187 {
1188         int act = part->texact;
1189
1190         if (part->mtex[act] && part->mtex[act]->tex)
1191                 id_us_min(&part->mtex[act]->tex->id);
1192
1193         if (newtex) {
1194                 if (!part->mtex[act]) {
1195                         part->mtex[act] = add_mtex();
1196                         part->mtex[act]->texco = TEXCO_ORCO;
1197                         part->mtex[act]->blendtype = MTEX_MUL;
1198                 }
1199                 
1200                 part->mtex[act]->tex = newtex;
1201                 id_us_plus(&newtex->id);
1202         }
1203         else if (part->mtex[act]) {
1204                 MEM_freeN(part->mtex[act]);
1205                 part->mtex[act] = NULL;
1206         }
1207 }
1208
1209 /* ------------------------------------------------------------------------- */
1210
1211 EnvMap *BKE_add_envmap(void)
1212 {
1213         EnvMap *env;
1214         
1215         env = MEM_callocN(sizeof(EnvMap), "envmap");
1216         env->type = ENV_CUBE;
1217         env->stype = ENV_ANIM;
1218         env->clipsta = 0.1;
1219         env->clipend = 100.0;
1220         env->cuberes = 600;
1221         env->viewscale = 0.5;
1222         
1223         return env;
1224
1225
1226 /* ------------------------------------------------------------------------- */
1227
1228 EnvMap *BKE_copy_envmap(EnvMap *env)
1229 {
1230         EnvMap *envn;
1231         int a;
1232         
1233         envn = MEM_dupallocN(env);
1234         envn->ok = 0;
1235         for (a = 0; a < 6; a++) envn->cube[a] = NULL;
1236         if (envn->ima) id_us_plus((ID *)envn->ima);
1237         
1238         return envn;
1239 }
1240
1241 /* ------------------------------------------------------------------------- */
1242
1243 void BKE_free_envmapdata(EnvMap *env)
1244 {
1245         unsigned int part;
1246         
1247         for (part = 0; part < 6; part++) {
1248                 if (env->cube[part])
1249                         IMB_freeImBuf(env->cube[part]);
1250                 env->cube[part] = NULL;
1251         }
1252         env->ok = 0;
1253 }
1254
1255 /* ------------------------------------------------------------------------- */
1256
1257 void BKE_free_envmap(EnvMap *env)
1258 {
1259         
1260         BKE_free_envmapdata(env);
1261         MEM_freeN(env);
1262         
1263 }
1264
1265 /* ------------------------------------------------------------------------- */
1266
1267 PointDensity *BKE_add_pointdensity(void)
1268 {
1269         PointDensity *pd;
1270         
1271         pd = MEM_callocN(sizeof(PointDensity), "pointdensity");
1272         pd->flag = 0;
1273         pd->radius = 0.3f;
1274         pd->falloff_type = TEX_PD_FALLOFF_STD;
1275         pd->falloff_softness = 2.0;
1276         pd->source = TEX_PD_PSYS;
1277         pd->point_tree = NULL;
1278         pd->point_data = NULL;
1279         pd->noise_size = 0.5f;
1280         pd->noise_depth = 1;
1281         pd->noise_fac = 1.0f;
1282         pd->noise_influence = TEX_PD_NOISE_STATIC;
1283         pd->coba = add_colorband(1);
1284         pd->speed_scale = 1.0f;
1285         pd->totpoints = 0;
1286         pd->object = NULL;
1287         pd->psys = 0;
1288         pd->psys_cache_space = TEX_PD_WORLDSPACE;
1289         pd->falloff_curve = curvemapping_add(1, 0, 0, 1, 1);
1290
1291         pd->falloff_curve->preset = CURVE_PRESET_LINE;
1292         pd->falloff_curve->cm->flag &= ~CUMA_EXTEND_EXTRAPOLATE;
1293         curvemap_reset(pd->falloff_curve->cm, &pd->falloff_curve->clipr, pd->falloff_curve->preset, CURVEMAP_SLOPE_POSITIVE);
1294         curvemapping_changed(pd->falloff_curve, FALSE);
1295
1296         return pd;
1297
1298
1299 PointDensity *BKE_copy_pointdensity(PointDensity *pd)
1300 {
1301         PointDensity *pdn;
1302
1303         pdn = MEM_dupallocN(pd);
1304         pdn->point_tree = NULL;
1305         pdn->point_data = NULL;
1306         if (pdn->coba) pdn->coba = MEM_dupallocN(pdn->coba);
1307         pdn->falloff_curve = curvemapping_copy(pdn->falloff_curve); /* can be NULL */
1308         return pdn;
1309 }
1310
1311 void BKE_free_pointdensitydata(PointDensity *pd)
1312 {
1313         if (pd->point_tree) {
1314                 BLI_bvhtree_free(pd->point_tree);
1315                 pd->point_tree = NULL;
1316         }
1317         if (pd->point_data) {
1318                 MEM_freeN(pd->point_data);
1319                 pd->point_data = NULL;
1320         }
1321         if (pd->coba) {
1322                 MEM_freeN(pd->coba);
1323                 pd->coba = NULL;
1324         }
1325
1326         curvemapping_free(pd->falloff_curve); /* can be NULL */
1327 }
1328
1329 void BKE_free_pointdensity(PointDensity *pd)
1330 {
1331         BKE_free_pointdensitydata(pd);
1332         MEM_freeN(pd);
1333 }
1334
1335 /* ------------------------------------------------------------------------- */
1336
1337 void BKE_free_voxeldatadata(VoxelData *vd)
1338 {
1339         if (vd->dataset) {
1340                 MEM_freeN(vd->dataset);
1341                 vd->dataset = NULL;
1342         }
1343
1344 }
1345  
1346 void BKE_free_voxeldata(VoxelData *vd)
1347 {
1348         BKE_free_voxeldatadata(vd);
1349         MEM_freeN(vd);
1350 }
1351  
1352 VoxelData *BKE_add_voxeldata(void)
1353 {
1354         VoxelData *vd;
1355
1356         vd = MEM_callocN(sizeof(VoxelData), "voxeldata");
1357         vd->dataset = NULL;
1358         vd->resol[0] = vd->resol[1] = vd->resol[2] = 1;
1359         vd->interp_type = TEX_VD_LINEAR;
1360         vd->file_format = TEX_VD_SMOKE;
1361         vd->int_multiplier = 1.0;
1362         vd->extend = TEX_CLIP;
1363         vd->object = NULL;
1364         vd->cachedframe = -1;
1365         vd->ok = 0;
1366         
1367         return vd;
1368 }
1369  
1370 VoxelData *BKE_copy_voxeldata(VoxelData *vd)
1371 {
1372         VoxelData *vdn;
1373
1374         vdn = MEM_dupallocN(vd);
1375         vdn->dataset = NULL;
1376
1377         return vdn;
1378 }
1379
1380 /* ------------------------------------------------------------------------- */
1381
1382 OceanTex *BKE_add_oceantex(void)
1383 {
1384         OceanTex *ot;
1385         
1386         ot = MEM_callocN(sizeof(struct OceanTex), "ocean texture");
1387         ot->output = TEX_OCN_DISPLACEMENT;
1388         ot->object = NULL;
1389         
1390         return ot;
1391 }
1392
1393 OceanTex *BKE_copy_oceantex(struct OceanTex *ot)
1394 {
1395         OceanTex *otn = MEM_dupallocN(ot);
1396         
1397         return otn;
1398 }
1399
1400 void BKE_free_oceantex(struct OceanTex *ot)
1401 {
1402         MEM_freeN(ot);
1403 }
1404
1405
1406 /* ------------------------------------------------------------------------- */
1407 int BKE_texture_dependsOnTime(const struct Tex *texture)
1408 {
1409         if (texture->ima &&
1410                  ELEM(texture->ima->source, IMA_SRC_SEQUENCE, IMA_SRC_MOVIE))
1411         {
1412                 return 1;
1413         }
1414         else if (texture->adt) {
1415                 /* assume anything in adt means the texture is animated */
1416                 return 1;
1417         }
1418         else if (texture->type == TEX_NOISE) {
1419                 /* noise always varies with time */
1420                 return 1;
1421         }
1422         return 0;
1423 }
1424
1425 /* ------------------------------------------------------------------------- */