Patch #34204: [Render Animation] Fails with "Error: Specified sample_fmt is not suppo...
[blender.git] / source / blender / blenkernel / intern / lamp.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/lamp.c
29  *  \ingroup bke
30  */
31
32 #include <stdlib.h>
33
34 #include "MEM_guardedalloc.h"
35
36 #include "DNA_anim_types.h"
37 #include "DNA_lamp_types.h"
38 #include "DNA_material_types.h"
39 #include "DNA_node_types.h"
40 #include "DNA_object_types.h"
41 #include "DNA_scene_types.h"
42 #include "DNA_texture_types.h"
43
44 #include "BLI_listbase.h"
45 #include "BLI_math.h"
46 #include "BLI_utildefines.h"
47
48 #include "BKE_animsys.h"
49 #include "BKE_colortools.h"
50 #include "BKE_icons.h"
51 #include "BKE_global.h"
52 #include "BKE_lamp.h"
53 #include "BKE_library.h"
54 #include "BKE_main.h"
55 #include "BKE_node.h"
56
57 Lamp *BKE_lamp_add(Main *bmain, const char *name)
58 {
59         Lamp *la;
60         
61         la =  BKE_libblock_alloc(&bmain->lamp, ID_LA, name);
62         
63         la->r = la->g = la->b = la->k = 1.0f;
64         la->haint = la->energy = 1.0f;
65         la->dist = 25.0f;
66         la->spotsize = 45.0f;
67         la->spotblend = 0.15f;
68         la->att2 = 1.0f;
69         la->mode = LA_SHAD_BUF;
70         la->bufsize = 512;
71         la->clipsta = 0.5f;
72         la->clipend = 40.0f;
73         la->shadspotsize = 45.0f;
74         la->samp = 3;
75         la->bias = 1.0f;
76         la->soft = 3.0f;
77         la->compressthresh = 0.05f;
78         la->ray_samp = la->ray_sampy = la->ray_sampz = 1;
79         la->area_size = la->area_sizey = la->area_sizez = 0.1f;
80         la->buffers = 1;
81         la->buftype = LA_SHADBUF_HALFWAY;
82         la->ray_samp_method = LA_SAMP_HALTON;
83         la->adapt_thresh = 0.001f;
84         la->preview = NULL;
85         la->falloff_type = LA_FALLOFF_INVSQUARE;
86         la->curfalloff = curvemapping_add(1, 0.0f, 1.0f, 1.0f, 0.0f);
87         la->sun_effect_type = 0;
88         la->horizon_brightness = 1.0;
89         la->spread = 1.0;
90         la->sun_brightness = 1.0;
91         la->sun_size = 1.0;
92         la->backscattered_light = 1.0f;
93         la->atm_turbidity = 2.0f;
94         la->atm_inscattering_factor = 1.0f;
95         la->atm_extinction_factor = 1.0f;
96         la->atm_distance_factor = 1.0f;
97         la->sun_intensity = 1.0f;
98         la->skyblendtype = MA_RAMP_ADD;
99         la->skyblendfac = 1.0f;
100         la->sky_colorspace = BLI_XYZ_CIE;
101         la->sky_exposure = 1.0f;
102         la->shadow_frustum_size = 10.0f;
103         
104         curvemapping_initialize(la->curfalloff);
105         return la;
106 }
107
108 Lamp *BKE_lamp_copy(Lamp *la)
109 {
110         Lamp *lan;
111         int a;
112         
113         lan = BKE_libblock_copy(&la->id);
114
115         for (a = 0; a < MAX_MTEX; a++) {
116                 if (lan->mtex[a]) {
117                         lan->mtex[a] = MEM_mallocN(sizeof(MTex), "copylamptex");
118                         memcpy(lan->mtex[a], la->mtex[a], sizeof(MTex));
119                         id_us_plus((ID *)lan->mtex[a]->tex);
120                 }
121         }
122         
123         lan->curfalloff = curvemapping_copy(la->curfalloff);
124
125         if (la->nodetree)
126                 lan->nodetree = ntreeCopyTree(la->nodetree);
127         
128         if (la->preview)
129                 lan->preview = BKE_previewimg_copy(la->preview);
130         
131         return lan;
132 }
133
134 Lamp *localize_lamp(Lamp *la)
135 {
136         Lamp *lan;
137         int a;
138         
139         lan = BKE_libblock_copy(&la->id);
140         BLI_remlink(&G.main->lamp, lan);
141
142         for (a = 0; a < MAX_MTEX; a++) {
143                 if (lan->mtex[a]) {
144                         lan->mtex[a] = MEM_mallocN(sizeof(MTex), "localize_lamp");
145                         memcpy(lan->mtex[a], la->mtex[a], sizeof(MTex));
146                         /* free lamp decrements */
147                         id_us_plus((ID *)lan->mtex[a]->tex);
148                 }
149         }
150         
151         lan->curfalloff = curvemapping_copy(la->curfalloff);
152
153         if (la->nodetree)
154                 lan->nodetree = ntreeLocalize(la->nodetree);
155         
156         lan->preview = NULL;
157         
158         return lan;
159 }
160
161 void BKE_lamp_make_local(Lamp *la)
162 {
163         Main *bmain = G.main;
164         Object *ob;
165         int is_local = FALSE, is_lib = FALSE;
166
167         /* - only lib users: do nothing
168          * - only local users: set flag
169          * - mixed: make copy
170          */
171         
172         if (la->id.lib == NULL) return;
173         if (la->id.us == 1) {
174                 id_clear_lib_data(bmain, &la->id);
175                 return;
176         }
177         
178         ob = bmain->object.first;
179         while (ob) {
180                 if (ob->data == la) {
181                         if (ob->id.lib) is_lib = TRUE;
182                         else is_local = TRUE;
183                 }
184                 ob = ob->id.next;
185         }
186         
187         if (is_local && is_lib == FALSE) {
188                 id_clear_lib_data(bmain, &la->id);
189         }
190         else if (is_local && is_lib) {
191                 Lamp *la_new = BKE_lamp_copy(la);
192                 la_new->id.us = 0;
193
194                 /* Remap paths of new ID using old library as base. */
195                 BKE_id_lib_local_paths(bmain, la->id.lib, &la_new->id);
196
197                 ob = bmain->object.first;
198                 while (ob) {
199                         if (ob->data == la) {
200                                 
201                                 if (ob->id.lib == NULL) {
202                                         ob->data = la_new;
203                                         la_new->id.us++;
204                                         la->id.us--;
205                                 }
206                         }
207                         ob = ob->id.next;
208                 }
209         }
210 }
211
212 void BKE_lamp_free(Lamp *la)
213 {
214         MTex *mtex;
215         int a;
216
217         for (a = 0; a < MAX_MTEX; a++) {
218                 mtex = la->mtex[a];
219                 if (mtex && mtex->tex) mtex->tex->id.us--;
220                 if (mtex) MEM_freeN(mtex);
221         }
222         
223         BKE_free_animdata((ID *)la);
224
225         curvemapping_free(la->curfalloff);
226
227         /* is no lib link block, but lamp extension */
228         if (la->nodetree) {
229                 ntreeFreeTree(la->nodetree);
230                 MEM_freeN(la->nodetree);
231         }
232         
233         BKE_previewimg_free(&la->preview);
234         BKE_icon_delete(&la->id);
235         la->id.icon_id = 0;
236 }
237
238 /* Calculate all drivers for lamps, see material_drivers_update for why this is a bad hack */
239
240 static void lamp_node_drivers_update(Scene *scene, bNodeTree *ntree, float ctime)
241 {
242         bNode *node;
243
244         /* nodetree itself */
245         if (ntree->adt && ntree->adt->drivers.first)
246                 BKE_animsys_evaluate_animdata(scene, &ntree->id, ntree->adt, ctime, ADT_RECALC_DRIVERS);
247         
248         /* nodes */
249         for (node = ntree->nodes.first; node; node = node->next)
250                 if (node->id && node->type == NODE_GROUP)
251                         lamp_node_drivers_update(scene, (bNodeTree *)node->id, ctime);
252 }
253
254 void lamp_drivers_update(Scene *scene, Lamp *la, float ctime)
255 {
256         /* Prevent infinite recursion by checking (and tagging the lamp) as having been visited already
257          * (see BKE_scene_update_tagged()). This assumes la->id.flag & LIB_DOIT isn't set by anything else
258          * in the meantime... [#32017] */
259         if (la->id.flag & LIB_DOIT)
260                 return;
261         else
262                 la->id.flag |= LIB_DOIT;
263         
264         /* lamp itself */
265         if (la->adt && la->adt->drivers.first)
266                 BKE_animsys_evaluate_animdata(scene, &la->id, la->adt, ctime, ADT_RECALC_DRIVERS);
267         
268         /* nodes */
269         if (la->nodetree)
270                 lamp_node_drivers_update(scene, la->nodetree, ctime);
271 }
272