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