53e1f49d54421f9371a9c26daca5e746645c0175
[blender.git] / source / blender / editors / render / render_shading.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  * but WITHOUT ANY WARRANTY; without even the implied warranty of
10  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11  * GNU General Public License for more details.
12  *
13  * You should have received a copy of the GNU General Public License
14  * along with this program; if not, write to the Free Software Foundation,
15  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
16  *
17  * The Original Code is Copyright (C) 2009 Blender Foundation.
18  * All rights reserved.
19  *
20  * Contributor(s): Blender Foundation
21  *
22  * ***** END GPL LICENSE BLOCK *****
23  */
24
25 /** \file blender/editors/render/render_shading.c
26  *  \ingroup edrend
27  */
28
29 #include <stdlib.h>
30 #include <string.h>
31
32 #include "MEM_guardedalloc.h"
33
34 #include "DNA_mesh_types.h"
35 #include "DNA_curve_types.h"
36 #include "DNA_lamp_types.h"
37 #include "DNA_material_types.h"
38 #include "DNA_node_types.h"
39 #include "DNA_object_types.h"
40 #include "DNA_particle_types.h"
41 #include "DNA_scene_types.h"
42 #include "DNA_space_types.h"
43 #include "DNA_world_types.h"
44
45 #include "BLI_blenlib.h"
46 #include "BLI_math.h"
47 #include "BLI_utildefines.h"
48
49 #include "BKE_animsys.h"
50 #include "BKE_context.h"
51 #include "BKE_curve.h"
52 #include "BKE_depsgraph.h"
53 #include "BKE_font.h"
54 #include "BKE_global.h"
55 #include "BKE_icons.h"
56 #include "BKE_image.h"
57 #include "BKE_library.h"
58 #include "BKE_main.h"
59 #include "BKE_material.h"
60 #include "BKE_node.h"
61 #include "BKE_report.h"
62 #include "BKE_scene.h"
63 #include "BKE_texture.h"
64 #include "BKE_world.h"
65 #include "BKE_tessmesh.h"
66
67 #include "IMB_imbuf.h"
68 #include "IMB_imbuf_types.h"
69
70 #include "GPU_material.h"
71
72 #include "RNA_access.h"
73
74 #include "WM_api.h"
75 #include "WM_types.h"
76
77 #include "ED_object.h"
78 #include "ED_curve.h"
79 #include "ED_mesh.h"
80 #include "ED_node.h"
81 #include "ED_render.h"
82 #include "ED_screen.h"
83
84 #include "RNA_define.h"
85
86 #include "UI_interface.h"
87
88 #include "RE_pipeline.h"
89
90 #include "render_intern.h"  // own include
91
92 /********************** material slot operators *********************/
93
94 static int material_slot_add_exec(bContext *C, wmOperator *UNUSED(op))
95 {
96         Object *ob = ED_object_context(C);
97
98         if (!ob)
99                 return OPERATOR_CANCELLED;
100
101         object_add_material_slot(ob);
102         WM_event_add_notifier(C, NC_OBJECT | ND_DRAW, ob);
103         WM_event_add_notifier(C, NC_OBJECT | ND_OB_SHADING, ob);
104         
105         return OPERATOR_FINISHED;
106 }
107
108 void OBJECT_OT_material_slot_add(wmOperatorType *ot)
109 {
110         /* identifiers */
111         ot->name = "Add Material Slot";
112         ot->idname = "OBJECT_OT_material_slot_add";
113         ot->description = "Add a new material slot";
114         
115         /* api callbacks */
116         ot->exec = material_slot_add_exec;
117         ot->poll = ED_operator_object_active_editable;
118
119         /* flags */
120         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
121 }
122
123 static int material_slot_remove_exec(bContext *C, wmOperator *op)
124 {
125         Object *ob = ED_object_context(C);
126
127         if (!ob)
128                 return OPERATOR_CANCELLED;
129
130         /* Removing material slots in edit mode screws things up, see bug #21822.*/
131         if (ob == CTX_data_edit_object(C)) {
132                 BKE_report(op->reports, RPT_ERROR, "Unable to remove material slot in edit mode");
133                 return OPERATOR_CANCELLED;
134         }
135
136         object_remove_material_slot(ob);
137         DAG_id_tag_update(&ob->id, OB_RECALC_DATA);
138         WM_event_add_notifier(C, NC_OBJECT | ND_DRAW, ob);
139         WM_event_add_notifier(C, NC_OBJECT | ND_OB_SHADING, ob);
140         
141         return OPERATOR_FINISHED;
142 }
143
144 void OBJECT_OT_material_slot_remove(wmOperatorType *ot)
145 {
146         /* identifiers */
147         ot->name = "Remove Material Slot";
148         ot->idname = "OBJECT_OT_material_slot_remove";
149         ot->description = "Remove the selected material slot";
150         
151         /* api callbacks */
152         ot->exec = material_slot_remove_exec;
153         ot->poll = ED_operator_object_active_editable;
154
155         /* flags */
156         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
157 }
158
159 static int material_slot_assign_exec(bContext *C, wmOperator *UNUSED(op))
160 {
161         Object *ob = ED_object_context(C);
162
163         if (!ob)
164                 return OPERATOR_CANCELLED;
165
166         if (ob && ob->actcol > 0) {
167                 if (ob->type == OB_MESH) {
168                         BMEditMesh *em = BMEdit_FromObject(ob);
169                         BMFace *efa;
170                         BMIter iter;
171
172                         if (em) {
173                                 BM_ITER_MESH (efa, &iter, em->bm, BM_FACES_OF_MESH) {
174                                         if (BM_elem_flag_test(efa, BM_ELEM_SELECT))
175                                                 efa->mat_nr = ob->actcol - 1;
176                                 }
177                         }
178                 }
179                 else if (ELEM(ob->type, OB_CURVE, OB_SURF)) {
180                         Nurb *nu;
181                         ListBase *nurbs = BKE_curve_editNurbs_get((Curve *)ob->data);
182
183                         if (nurbs) {
184                                 for (nu = nurbs->first; nu; nu = nu->next)
185                                         if (isNurbsel(nu))
186                                                 nu->mat_nr = nu->charidx = ob->actcol - 1;
187                         }
188                 }
189                 else if (ob->type == OB_FONT) {
190                         EditFont *ef = ((Curve *)ob->data)->editfont;
191                         int i, selstart, selend;
192
193                         if (ef && BKE_vfont_select_get(ob, &selstart, &selend)) {
194                                 for (i = selstart; i <= selend; i++)
195                                         ef->textbufinfo[i].mat_nr = ob->actcol;
196                         }
197                 }
198         }
199
200         DAG_id_tag_update(&ob->id, OB_RECALC_DATA);
201         WM_event_add_notifier(C, NC_GEOM | ND_DATA, ob->data);
202         
203         return OPERATOR_FINISHED;
204 }
205
206 void OBJECT_OT_material_slot_assign(wmOperatorType *ot)
207 {
208         /* identifiers */
209         ot->name = "Assign Material Slot";
210         ot->idname = "OBJECT_OT_material_slot_assign";
211         ot->description = "Assign active material slot to selection";
212         
213         /* api callbacks */
214         ot->exec = material_slot_assign_exec;
215         ot->poll = ED_operator_object_active_editable;
216
217         /* flags */
218         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
219 }
220
221 static int material_slot_de_select(bContext *C, int select)
222 {
223         Object *ob = ED_object_context(C);
224
225         if (!ob)
226                 return OPERATOR_CANCELLED;
227
228         if (ob->type == OB_MESH) {
229                 BMEditMesh *em = BMEdit_FromObject(ob);
230
231                 if (em) {
232                         EDBM_deselect_by_material(em, ob->actcol - 1, select);
233                 }
234         }
235         else if (ELEM(ob->type, OB_CURVE, OB_SURF)) {
236                 ListBase *nurbs = BKE_curve_editNurbs_get((Curve *)ob->data);
237                 Nurb *nu;
238                 BPoint *bp;
239                 BezTriple *bezt;
240                 int a;
241
242                 if (nurbs) {
243                         for (nu = nurbs->first; nu; nu = nu->next) {
244                                 if (nu->mat_nr == ob->actcol - 1) {
245                                         if (nu->bezt) {
246                                                 a = nu->pntsu;
247                                                 bezt = nu->bezt;
248                                                 while (a--) {
249                                                         if (bezt->hide == 0) {
250                                                                 if (select) {
251                                                                         bezt->f1 |= SELECT;
252                                                                         bezt->f2 |= SELECT;
253                                                                         bezt->f3 |= SELECT;
254                                                                 }
255                                                                 else {
256                                                                         bezt->f1 &= ~SELECT;
257                                                                         bezt->f2 &= ~SELECT;
258                                                                         bezt->f3 &= ~SELECT;
259                                                                 }
260                                                         }
261                                                         bezt++;
262                                                 }
263                                         }
264                                         else if (nu->bp) {
265                                                 a = nu->pntsu * nu->pntsv;
266                                                 bp = nu->bp;
267                                                 while (a--) {
268                                                         if (bp->hide == 0) {
269                                                                 if (select) bp->f1 |= SELECT;
270                                                                 else bp->f1 &= ~SELECT;
271                                                         }
272                                                         bp++;
273                                                 }
274                                         }
275                                 }
276                         }
277                 }
278         }
279
280         WM_event_add_notifier(C, NC_GEOM | ND_SELECT, ob->data);
281
282         return OPERATOR_FINISHED;
283 }
284
285 static int material_slot_select_exec(bContext *C, wmOperator *UNUSED(op))
286 {
287         return material_slot_de_select(C, 1);
288 }
289
290 void OBJECT_OT_material_slot_select(wmOperatorType *ot)
291 {
292         /* identifiers */
293         ot->name = "Select Material Slot";
294         ot->idname = "OBJECT_OT_material_slot_select";
295         ot->description = "Select by active material slot";
296         
297         /* api callbacks */
298         ot->exec = material_slot_select_exec;
299
300         /* flags */
301         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
302 }
303
304 static int material_slot_deselect_exec(bContext *C, wmOperator *UNUSED(op))
305 {
306         return material_slot_de_select(C, 0);
307 }
308
309 void OBJECT_OT_material_slot_deselect(wmOperatorType *ot)
310 {
311         /* identifiers */
312         ot->name = "Deselect Material Slot";
313         ot->idname = "OBJECT_OT_material_slot_deselect";
314         ot->description = "Deselect by active material slot";
315         
316         /* api callbacks */
317         ot->exec = material_slot_deselect_exec;
318
319         /* flags */
320         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
321 }
322
323
324 static int material_slot_copy_exec(bContext *C, wmOperator *UNUSED(op))
325 {
326         Object *ob = ED_object_context(C);
327         Material ***matar;
328
329         if (!ob || !(matar = give_matarar(ob)))
330                 return OPERATOR_CANCELLED;
331
332         CTX_DATA_BEGIN (C, Object *, ob_iter, selected_editable_objects)
333         {
334                 if (ob != ob_iter && give_matarar(ob_iter)) {
335                         if (ob->data != ob_iter->data)
336                                 assign_matarar(ob_iter, matar, ob->totcol);
337                         
338                         if (ob_iter->totcol == ob->totcol) {
339                                 ob_iter->actcol = ob->actcol;
340                                 WM_event_add_notifier(C, NC_OBJECT | ND_DRAW, ob_iter);
341                         }
342                 }
343         }
344         CTX_DATA_END;
345
346         return OPERATOR_FINISHED;
347 }
348
349
350 void OBJECT_OT_material_slot_copy(wmOperatorType *ot)
351 {
352         /* identifiers */
353         ot->name = "Copy Material to Others";
354         ot->idname = "OBJECT_OT_material_slot_copy";
355         ot->description = "Copies materials to other selected objects";
356
357         /* api callbacks */
358         ot->exec = material_slot_copy_exec;
359
360         /* flags */
361         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
362 }
363
364 /********************** new material operator *********************/
365
366 static int new_material_exec(bContext *C, wmOperator *UNUSED(op))
367 {
368         Scene *scene = CTX_data_scene(C);
369         Material *ma = CTX_data_pointer_get_type(C, "material", &RNA_Material).data;
370         PointerRNA ptr, idptr;
371         PropertyRNA *prop;
372
373         /* add or copy material */
374         if (ma) {
375                 ma = BKE_material_copy(ma);
376         }
377         else {
378                 ma = BKE_material_add("Material");
379
380                 if (BKE_scene_use_new_shading_nodes(scene)) {
381                         ED_node_shader_default(scene, &ma->id);
382                         ma->use_nodes = TRUE;
383                 }
384         }
385
386         /* hook into UI */
387         uiIDContextProperty(C, &ptr, &prop);
388
389         if (prop) {
390                 /* when creating new ID blocks, use is already 1, but RNA
391                  * pointer se also increases user, so this compensates it */
392                 ma->id.us--;
393
394                 RNA_id_pointer_create(&ma->id, &idptr);
395                 RNA_property_pointer_set(&ptr, prop, idptr);
396                 RNA_property_update(C, &ptr, prop);
397         }
398
399         WM_event_add_notifier(C, NC_MATERIAL | NA_ADDED, ma);
400         
401         return OPERATOR_FINISHED;
402 }
403
404 void MATERIAL_OT_new(wmOperatorType *ot)
405 {
406         /* identifiers */
407         ot->name = "New Material";
408         ot->idname = "MATERIAL_OT_new";
409         ot->description = "Add a new material";
410         
411         /* api callbacks */
412         ot->exec = new_material_exec;
413
414         /* flags */
415         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
416 }
417
418 /********************** new texture operator *********************/
419
420 static int new_texture_exec(bContext *C, wmOperator *UNUSED(op))
421 {
422         Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
423         PointerRNA ptr, idptr;
424         PropertyRNA *prop;
425
426         /* add or copy texture */
427         if (tex)
428                 tex = BKE_texture_copy(tex);
429         else
430                 tex = add_texture("Texture");
431
432         /* hook into UI */
433         uiIDContextProperty(C, &ptr, &prop);
434
435         if (prop) {
436                 /* when creating new ID blocks, use is already 1, but RNA
437                  * pointer se also increases user, so this compensates it */
438                 tex->id.us--;
439
440                 RNA_id_pointer_create(&tex->id, &idptr);
441                 RNA_property_pointer_set(&ptr, prop, idptr);
442                 RNA_property_update(C, &ptr, prop);
443         }
444
445         WM_event_add_notifier(C, NC_TEXTURE | NA_ADDED, tex);
446         
447         return OPERATOR_FINISHED;
448 }
449
450 void TEXTURE_OT_new(wmOperatorType *ot)
451 {
452         /* identifiers */
453         ot->name = "New Texture";
454         ot->idname = "TEXTURE_OT_new";
455         ot->description = "Add a new texture";
456         
457         /* api callbacks */
458         ot->exec = new_texture_exec;
459
460         /* flags */
461         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
462 }
463
464 /********************** new world operator *********************/
465
466 static int new_world_exec(bContext *C, wmOperator *UNUSED(op))
467 {
468         Scene *scene = CTX_data_scene(C);
469         World *wo = CTX_data_pointer_get_type(C, "world", &RNA_World).data;
470         PointerRNA ptr, idptr;
471         PropertyRNA *prop;
472
473         /* add or copy world */
474         if (wo) {
475                 wo = BKE_world_copy(wo);
476         }
477         else {
478                 wo = add_world("World");
479
480                 if (BKE_scene_use_new_shading_nodes(scene)) {
481                         ED_node_shader_default(scene, &wo->id);
482                         wo->use_nodes = TRUE;
483                 }
484         }
485
486         /* hook into UI */
487         uiIDContextProperty(C, &ptr, &prop);
488
489         if (prop) {
490                 /* when creating new ID blocks, use is already 1, but RNA
491                  * pointer se also increases user, so this compensates it */
492                 wo->id.us--;
493
494                 RNA_id_pointer_create(&wo->id, &idptr);
495                 RNA_property_pointer_set(&ptr, prop, idptr);
496                 RNA_property_update(C, &ptr, prop);
497         }
498
499         WM_event_add_notifier(C, NC_WORLD | NA_ADDED, wo);
500         
501         return OPERATOR_FINISHED;
502 }
503
504 void WORLD_OT_new(wmOperatorType *ot)
505 {
506         /* identifiers */
507         ot->name = "New World";
508         ot->idname = "WORLD_OT_new";
509         ot->description = "Add a new world";
510         
511         /* api callbacks */
512         ot->exec = new_world_exec;
513
514         /* flags */
515         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
516 }
517
518 /********************** render layer operators *********************/
519
520 static int render_layer_add_exec(bContext *C, wmOperator *UNUSED(op))
521 {
522         Scene *scene = CTX_data_scene(C);
523
524         BKE_scene_add_render_layer(scene, NULL);
525         scene->r.actlay = BLI_countlist(&scene->r.layers) - 1;
526
527         WM_event_add_notifier(C, NC_SCENE | ND_RENDER_OPTIONS, scene);
528         
529         return OPERATOR_FINISHED;
530 }
531
532 void SCENE_OT_render_layer_add(wmOperatorType *ot)
533 {
534         /* identifiers */
535         ot->name = "Add Render Layer";
536         ot->idname = "SCENE_OT_render_layer_add";
537         ot->description = "Add a render layer";
538         
539         /* api callbacks */
540         ot->exec = render_layer_add_exec;
541
542         /* flags */
543         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
544 }
545
546 static int render_layer_remove_exec(bContext *C, wmOperator *UNUSED(op))
547 {
548         Scene *scene = CTX_data_scene(C);
549         SceneRenderLayer *rl = BLI_findlink(&scene->r.layers, scene->r.actlay);
550
551         if (!BKE_scene_remove_render_layer(CTX_data_main(C), scene, rl))
552                 return OPERATOR_CANCELLED;
553
554         WM_event_add_notifier(C, NC_SCENE | ND_RENDER_OPTIONS, scene);
555         
556         return OPERATOR_FINISHED;
557 }
558
559 void SCENE_OT_render_layer_remove(wmOperatorType *ot)
560 {
561         /* identifiers */
562         ot->name = "Remove Render Layer";
563         ot->idname = "SCENE_OT_render_layer_remove";
564         ot->description = "Remove the selected render layer";
565         
566         /* api callbacks */
567         ot->exec = render_layer_remove_exec;
568
569         /* flags */
570         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
571 }
572
573 static int texture_slot_move(bContext *C, wmOperator *op)
574 {
575         ID *id = CTX_data_pointer_get_type(C, "texture_slot", &RNA_TextureSlot).id.data;
576
577         if (id) {
578                 MTex **mtex_ar, *mtexswap;
579                 short act;
580                 int type = RNA_enum_get(op->ptr, "type");
581                 struct AnimData *adt = BKE_animdata_from_id(id);
582
583                 give_active_mtex(id, &mtex_ar, &act);
584
585                 if (type == -1) { /* Up */
586                         if (act > 0) {
587                                 mtexswap = mtex_ar[act];
588                                 mtex_ar[act] = mtex_ar[act - 1];
589                                 mtex_ar[act - 1] = mtexswap;
590                                 
591                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, act - 1, -1, 0);
592                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, act, act - 1, 0);
593                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, -1, act, 0);
594
595                                 if (GS(id->name) == ID_MA) {
596                                         Material *ma = (Material *)id;
597                                         int mtexuse = ma->septex & (1 << act);
598                                         ma->septex &= ~(1 << act);
599                                         ma->septex |= (ma->septex & (1 << (act - 1))) << 1;
600                                         ma->septex &= ~(1 << (act - 1));
601                                         ma->septex |= mtexuse >> 1;
602                                 }
603                                 
604                                 set_active_mtex(id, act - 1);
605                         }
606                 }
607                 else { /* Down */
608                         if (act < MAX_MTEX - 1) {
609                                 mtexswap = mtex_ar[act];
610                                 mtex_ar[act] = mtex_ar[act + 1];
611                                 mtex_ar[act + 1] = mtexswap;
612                                 
613                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, act + 1, -1, 0);
614                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, act, act + 1, 0);
615                                 BKE_animdata_fix_paths_rename(id, adt, NULL, "texture_slots", NULL, NULL, -1, act, 0);
616
617                                 if (GS(id->name) == ID_MA) {
618                                         Material *ma = (Material *)id;
619                                         int mtexuse = ma->septex & (1 << act);
620                                         ma->septex &= ~(1 << act);
621                                         ma->septex |= (ma->septex & (1 << (act + 1))) >> 1;
622                                         ma->septex &= ~(1 << (act + 1));
623                                         ma->septex |= mtexuse << 1;
624                                 }
625                                 
626                                 set_active_mtex(id, act + 1);
627                         }
628                 }
629
630                 DAG_id_tag_update(id, 0);
631                 WM_event_add_notifier(C, NC_TEXTURE, CTX_data_scene(C));
632         }
633
634         return OPERATOR_FINISHED;
635 }
636
637 void TEXTURE_OT_slot_move(wmOperatorType *ot)
638 {
639         static EnumPropertyItem slot_move[] = {
640                 {-1, "UP", 0, "Up", ""},
641                 {1, "DOWN", 0, "Down", ""},
642                 {0, NULL, 0, NULL, NULL}
643         };
644
645         /* identifiers */
646         ot->name = "Move Texture Slot";
647         ot->idname = "TEXTURE_OT_slot_move";
648         ot->description = "Move texture slots up and down";
649
650         /* api callbacks */
651         ot->exec = texture_slot_move;
652
653         /* flags */
654         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
655
656         RNA_def_enum(ot->srna, "type", slot_move, 0, "Type", "");
657 }
658
659
660
661 /********************** environment map operators *********************/
662
663 static int save_envmap(wmOperator *op, Scene *scene, EnvMap *env, char *path, const char imtype)
664 {
665         float layout[12];
666         if (RNA_struct_find_property(op->ptr, "layout") )
667                 RNA_float_get_array(op->ptr, "layout", layout);
668         else
669                 memcpy(layout, default_envmap_layout, sizeof(layout));
670
671         if (RE_WriteEnvmapResult(op->reports, scene, env, path, imtype, layout)) {
672                 return OPERATOR_FINISHED;
673         }
674         else {
675                 return OPERATOR_CANCELLED;
676         }
677
678 }
679
680 static int envmap_save_exec(bContext *C, wmOperator *op)
681 {
682         Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
683         Scene *scene = CTX_data_scene(C);
684         //int imtype = RNA_enum_get(op->ptr, "file_type");
685         char imtype = scene->r.im_format.imtype;
686         char path[FILE_MAX];
687         
688         RNA_string_get(op->ptr, "filepath", path);
689         
690         if (scene->r.scemode & R_EXTENSION) {
691                 BKE_add_image_extension(path, &scene->r.im_format);
692         }
693         
694         WM_cursor_wait(1);
695         
696         save_envmap(op, scene, tex->env, path, imtype);
697         
698         WM_cursor_wait(0);
699         
700         WM_event_add_notifier(C, NC_TEXTURE, tex);
701         
702         return OPERATOR_FINISHED;
703 }
704
705 static int envmap_save_invoke(bContext *C, wmOperator *op, wmEvent *UNUSED(event))
706 {
707         //Scene *scene= CTX_data_scene(C);
708         
709         if (RNA_struct_property_is_set(op->ptr, "filepath"))
710                 return envmap_save_exec(C, op);
711
712         //RNA_enum_set(op->ptr, "file_type", scene->r.im_format.imtype);
713         RNA_string_set(op->ptr, "filepath", G.main->name);
714         WM_event_add_fileselect(C, op);
715         
716         return OPERATOR_RUNNING_MODAL;
717 }
718
719 static int envmap_save_poll(bContext *C)
720 {
721         Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
722
723         if (!tex) 
724                 return 0;
725         if (!tex->env || !tex->env->ok)
726                 return 0;
727         if (tex->env->cube[1] == NULL)
728                 return 0;
729         
730         return 1;
731 }
732
733 void TEXTURE_OT_envmap_save(wmOperatorType *ot)
734 {
735         PropertyRNA *prop;
736         /* identifiers */
737         ot->name = "Save Environment Map";
738         ot->idname = "TEXTURE_OT_envmap_save";
739         ot->description = "Save the current generated Environment map to an image file";
740         
741         /* api callbacks */
742         ot->exec = envmap_save_exec;
743         ot->invoke = envmap_save_invoke;
744         ot->poll = envmap_save_poll;
745         
746         /* flags */
747         ot->flag = OPTYPE_REGISTER; /* no undo since this doesnt modify the env-map */
748         
749         /* properties */
750         prop = RNA_def_float_array(ot->srna, "layout", 12, default_envmap_layout, 0.0f, 0.0f,
751                                    "File layout",
752                                    "Flat array describing the X,Y position of each cube face in the output image, "
753                                    "where 1 is the size of a face - order is [+Z -Z +Y -X -Y +X] "
754                                    "(use -1 to skip a face)", 0.0f, 0.0f);
755         RNA_def_property_flag(prop, PROP_HIDDEN);
756
757         WM_operator_properties_filesel(ot, FOLDERFILE | IMAGEFILE | MOVIEFILE, FILE_SPECIAL, FILE_SAVE,
758                                        WM_FILESEL_FILEPATH, FILE_DEFAULTDISPLAY);
759 }
760
761 static int envmap_clear_exec(bContext *C, wmOperator *UNUSED(op))
762 {
763         Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
764         
765         BKE_free_envmapdata(tex->env);
766         
767         WM_event_add_notifier(C, NC_TEXTURE | NA_EDITED, tex);
768         
769         return OPERATOR_FINISHED;
770 }
771
772 static int envmap_clear_poll(bContext *C)
773 {
774         Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
775         
776         if (!tex) 
777                 return 0;
778         if (!tex->env || !tex->env->ok)
779                 return 0;
780         if (tex->env->cube[1] == NULL)
781                 return 0;
782         
783         return 1;
784 }
785
786 void TEXTURE_OT_envmap_clear(wmOperatorType *ot)
787 {
788         /* identifiers */
789         ot->name = "Clear Environment Map";
790         ot->idname = "TEXTURE_OT_envmap_clear";
791         ot->description = "Discard the environment map and free it from memory";
792         
793         /* api callbacks */
794         ot->exec = envmap_clear_exec;
795         ot->poll = envmap_clear_poll;
796         
797         /* flags */
798         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
799 }
800
801 static int envmap_clear_all_exec(bContext *C, wmOperator *UNUSED(op))
802 {
803         Main *bmain = CTX_data_main(C);
804         Tex *tex;
805         
806         for (tex = bmain->tex.first; tex; tex = tex->id.next)
807                 if (tex->env)
808                         BKE_free_envmapdata(tex->env);
809         
810         WM_event_add_notifier(C, NC_TEXTURE | NA_EDITED, tex);
811         
812         return OPERATOR_FINISHED;
813 }
814
815 void TEXTURE_OT_envmap_clear_all(wmOperatorType *ot)
816 {
817         /* identifiers */
818         ot->name = "Clear All Environment Maps";
819         ot->idname = "TEXTURE_OT_envmap_clear_all";
820         ot->description = "Discard all environment maps in the .blend file and free them from memory";
821         
822         /* api callbacks */
823         ot->exec = envmap_clear_all_exec;
824         ot->poll = envmap_clear_poll;
825         
826         /* flags */
827         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
828 }
829
830 /********************** material operators *********************/
831
832 /* material copy/paste */
833 static int copy_material_exec(bContext *C, wmOperator *UNUSED(op))
834 {
835         Material *ma = CTX_data_pointer_get_type(C, "material", &RNA_Material).data;
836
837         if (ma == NULL)
838                 return OPERATOR_CANCELLED;
839
840         copy_matcopybuf(ma);
841
842         return OPERATOR_FINISHED;
843 }
844
845 void MATERIAL_OT_copy(wmOperatorType *ot)
846 {
847         /* identifiers */
848         ot->name = "Copy Material";
849         ot->idname = "MATERIAL_OT_copy";
850         ot->description = "Copy the material settings and nodes";
851
852         /* api callbacks */
853         ot->exec = copy_material_exec;
854
855         /* flags */
856         ot->flag = OPTYPE_REGISTER; /* no undo needed since no changes are made to the material */
857 }
858
859 static int paste_material_exec(bContext *C, wmOperator *UNUSED(op))
860 {
861         Material *ma = CTX_data_pointer_get_type(C, "material", &RNA_Material).data;
862
863         if (ma == NULL)
864                 return OPERATOR_CANCELLED;
865
866         paste_matcopybuf(ma);
867
868         WM_event_add_notifier(C, NC_MATERIAL | ND_SHADING_LINKS, ma);
869
870         return OPERATOR_FINISHED;
871 }
872
873 void MATERIAL_OT_paste(wmOperatorType *ot)
874 {
875         /* identifiers */
876         ot->name = "Paste Material";
877         ot->idname = "MATERIAL_OT_paste";
878         ot->description = "Paste the material settings and nodes";
879
880         /* api callbacks */
881         ot->exec = paste_material_exec;
882
883         /* flags */
884         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
885 }
886
887
888 static short mtexcopied = 0; /* must be reset on file load */
889 static MTex mtexcopybuf;
890
891 void ED_render_clear_mtex_copybuf(void)
892 {   /* use for file reload */
893         mtexcopied = 0;
894 }
895
896 static void copy_mtex_copybuf(ID *id)
897 {
898         MTex **mtex = NULL;
899         
900         switch (GS(id->name)) {
901                 case ID_MA:
902                         mtex = &(((Material *)id)->mtex[(int)((Material *)id)->texact]);
903                         break;
904                 case ID_LA:
905                         mtex = &(((Lamp *)id)->mtex[(int)((Lamp *)id)->texact]);
906                         // la->mtex[(int)la->texact] // TODO
907                         break;
908                 case ID_WO:
909                         mtex = &(((World *)id)->mtex[(int)((World *)id)->texact]);
910                         // mtex= wrld->mtex[(int)wrld->texact]; // TODO
911                         break;
912                 case ID_PA:
913                         mtex = &(((ParticleSettings *)id)->mtex[(int)((ParticleSettings *)id)->texact]);
914                         break;
915         }
916         
917         if (mtex && *mtex) {
918                 memcpy(&mtexcopybuf, *mtex, sizeof(MTex));
919                 mtexcopied = 1;
920         }
921         else {
922                 mtexcopied = 0;
923         }
924 }
925
926 static void paste_mtex_copybuf(ID *id)
927 {
928         MTex **mtex = NULL;
929         
930         if (mtexcopied == 0 || mtexcopybuf.tex == NULL)
931                 return;
932         
933         switch (GS(id->name)) {
934                 case ID_MA:
935                         mtex = &(((Material *)id)->mtex[(int)((Material *)id)->texact]);
936                         break;
937                 case ID_LA:
938                         mtex = &(((Lamp *)id)->mtex[(int)((Lamp *)id)->texact]);
939                         // la->mtex[(int)la->texact] // TODO
940                         break;
941                 case ID_WO:
942                         mtex = &(((World *)id)->mtex[(int)((World *)id)->texact]);
943                         // mtex= wrld->mtex[(int)wrld->texact]; // TODO
944                         break;
945                 case ID_PA:
946                         mtex = &(((ParticleSettings *)id)->mtex[(int)((ParticleSettings *)id)->texact]);
947                         break;
948                 default:
949                         BLI_assert("invalid id type");
950                         return;
951         }
952         
953         if (mtex) {
954                 if (*mtex == NULL) {
955                         *mtex = MEM_mallocN(sizeof(MTex), "mtex copy");
956                 }
957                 else if ((*mtex)->tex) {
958                         (*mtex)->tex->id.us--;
959                 }
960                 
961                 memcpy(*mtex, &mtexcopybuf, sizeof(MTex));
962                 
963                 id_us_plus((ID *)mtexcopybuf.tex);
964         }
965 }
966
967
968 static int copy_mtex_exec(bContext *C, wmOperator *UNUSED(op))
969 {
970         ID *id = CTX_data_pointer_get_type(C, "texture_slot", &RNA_TextureSlot).id.data;
971
972         if (id == NULL) {
973                 /* copying empty slot */
974                 ED_render_clear_mtex_copybuf();
975                 return OPERATOR_CANCELLED;
976         }
977
978         copy_mtex_copybuf(id);
979
980         return OPERATOR_FINISHED;
981 }
982
983 static int copy_mtex_poll(bContext *C)
984 {
985         ID *id = CTX_data_pointer_get_type(C, "texture_slot", &RNA_TextureSlot).id.data;
986         
987         return (id != NULL);
988 }
989
990 void TEXTURE_OT_slot_copy(wmOperatorType *ot)
991 {
992         /* identifiers */
993         ot->name = "Copy Texture Slot Settings";
994         ot->idname = "TEXTURE_OT_slot_copy";
995         ot->description = "Copy the material texture settings and nodes";
996
997         /* api callbacks */
998         ot->exec = copy_mtex_exec;
999         ot->poll = copy_mtex_poll;
1000         
1001         /* flags */
1002         ot->flag = OPTYPE_REGISTER; /* no undo needed since no changes are made to the mtex */
1003 }
1004
1005 static int paste_mtex_exec(bContext *C, wmOperator *UNUSED(op))
1006 {
1007         ID *id = CTX_data_pointer_get_type(C, "texture_slot", &RNA_TextureSlot).id.data;
1008
1009         if (id == NULL) {
1010                 Material *ma = CTX_data_pointer_get_type(C, "material", &RNA_Material).data;
1011                 Lamp *la = CTX_data_pointer_get_type(C, "lamp", &RNA_Lamp).data;
1012                 World *wo = CTX_data_pointer_get_type(C, "world", &RNA_World).data;
1013                 ParticleSystem *psys = CTX_data_pointer_get_type(C, "particle_system", &RNA_ParticleSystem).data;
1014                 
1015                 if (ma)
1016                         id = &ma->id;
1017                 else if (la)
1018                         id = &la->id;
1019                 else if (wo)
1020                         id = &wo->id;
1021                 else if (psys)
1022                         id = &psys->part->id;
1023                 
1024                 if (id == NULL)
1025                         return OPERATOR_CANCELLED;
1026         }
1027
1028         paste_mtex_copybuf(id);
1029
1030         WM_event_add_notifier(C, NC_TEXTURE | ND_SHADING_LINKS, NULL);
1031
1032         return OPERATOR_FINISHED;
1033 }
1034
1035 void TEXTURE_OT_slot_paste(wmOperatorType *ot)
1036 {
1037         /* identifiers */
1038         ot->name = "Paste Texture Slot Settings";
1039         ot->idname = "TEXTURE_OT_slot_paste";
1040         ot->description = "Copy the texture settings and nodes";
1041
1042         /* api callbacks */
1043         ot->exec = paste_mtex_exec;
1044
1045         /* flags */
1046         ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1047 }
1048