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