39f7bf001f3265968e66f3c610373b3ee04c1e78
[blender.git] / source / blender / editors / space_image / image_ops.c
1 /*
2  * This program is free software; you can redistribute it and/or
3  * modify it under the terms of the GNU General Public License
4  * as published by the Free Software Foundation; either version 2
5  * of the License, or (at your option) any later version.
6  *
7  * This program is distributed in the hope that it will be useful,
8  * but WITHOUT ANY WARRANTY; without even the implied warranty of
9  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
10  * GNU General Public License for more details.
11  *
12  * You should have received a copy of the GNU General Public License
13  * along with this program; if not, write to the Free Software Foundation,
14  * Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
15  *
16  * The Original Code is Copyright (C) 2001-2002 by NaN Holding BV.
17  * All rights reserved.
18  */
19
20 /** \file
21  * \ingroup spimage
22  */
23
24 #include <stddef.h>
25 #include <string.h>
26 #include <fcntl.h>
27 #include <stdlib.h>
28 #include <errno.h>
29 #ifndef WIN32
30 #  include <unistd.h>
31 #else
32 #  include <io.h>
33 #endif
34
35 #include "MEM_guardedalloc.h"
36
37 #include "BLI_blenlib.h"
38 #include "BLI_ghash.h"
39 #include "BLI_math.h"
40 #include "BLI_string.h"
41 #include "BLI_utildefines.h"
42
43 #include "BLT_translation.h"
44
45 #include "DNA_camera_types.h"
46 #include "DNA_object_types.h"
47 #include "DNA_node_types.h"
48 #include "DNA_packedFile_types.h"
49 #include "DNA_scene_types.h"
50 #include "DNA_screen_types.h"
51
52 #include "BKE_colortools.h"
53 #include "BKE_context.h"
54 #include "BKE_icons.h"
55 #include "BKE_image.h"
56 #include "BKE_image_save.h"
57 #include "BKE_global.h"
58 #include "BKE_library.h"
59 #include "BKE_main.h"
60 #include "BKE_packedFile.h"
61 #include "BKE_paint.h"
62 #include "BKE_report.h"
63 #include "BKE_screen.h"
64 #include "BKE_scene.h"
65
66 #include "DEG_depsgraph.h"
67
68 #include "GPU_draw.h"
69 #include "GPU_state.h"
70 #include "GPU_immediate.h"
71
72 #include "IMB_colormanagement.h"
73 #include "IMB_imbuf.h"
74 #include "IMB_imbuf_types.h"
75 #include "IMB_moviecache.h"
76 #include "intern/openexr/openexr_multi.h"
77
78 #include "RE_pipeline.h"
79
80 #include "RNA_access.h"
81 #include "RNA_define.h"
82 #include "RNA_enum_types.h"
83
84 #include "ED_image.h"
85 #include "ED_mask.h"
86 #include "ED_paint.h"
87 #include "ED_render.h"
88 #include "ED_screen.h"
89 #include "ED_space_api.h"
90 #include "ED_uvedit.h"
91 #include "ED_util.h"
92
93 #include "UI_interface.h"
94 #include "UI_resources.h"
95 #include "UI_view2d.h"
96
97 #include "WM_api.h"
98 #include "WM_types.h"
99
100 #include "PIL_time.h"
101
102 #include "RE_engine.h"
103
104 #include "image_intern.h"
105
106 /* -------------------------------------------------------------------- */
107 /** \name View Navigation Utilities
108  * \{ */
109
110 static void sima_zoom_set(
111     SpaceImage *sima, ARegion *ar, float zoom, const float location[2], const bool zoom_to_pos)
112 {
113   float oldzoom = sima->zoom;
114   int width, height;
115
116   sima->zoom = zoom;
117
118   if (sima->zoom < 0.1f || sima->zoom > 4.0f) {
119     /* check zoom limits */
120     ED_space_image_get_size(sima, &width, &height);
121
122     width *= sima->zoom;
123     height *= sima->zoom;
124
125     if ((width < 4) && (height < 4) && sima->zoom < oldzoom) {
126       sima->zoom = oldzoom;
127     }
128     else if (BLI_rcti_size_x(&ar->winrct) <= sima->zoom) {
129       sima->zoom = oldzoom;
130     }
131     else if (BLI_rcti_size_y(&ar->winrct) <= sima->zoom) {
132       sima->zoom = oldzoom;
133     }
134   }
135
136   if (zoom_to_pos && location) {
137     float aspx, aspy, w, h;
138
139     ED_space_image_get_size(sima, &width, &height);
140     ED_space_image_get_aspect(sima, &aspx, &aspy);
141
142     w = width * aspx;
143     h = height * aspy;
144
145     sima->xof += ((location[0] - 0.5f) * w - sima->xof) * (sima->zoom - oldzoom) / sima->zoom;
146     sima->yof += ((location[1] - 0.5f) * h - sima->yof) * (sima->zoom - oldzoom) / sima->zoom;
147   }
148 }
149
150 static void sima_zoom_set_factor(
151     SpaceImage *sima, ARegion *ar, float zoomfac, const float location[2], const bool zoom_to_pos)
152 {
153   sima_zoom_set(sima, ar, sima->zoom * zoomfac, location, zoom_to_pos);
154 }
155
156 /**
157  * Fits the view to the bounds exactly, caller should add margin if needed.
158  */
159 static void sima_zoom_set_from_bounds(SpaceImage *sima, ARegion *ar, const rctf *bounds)
160 {
161   int image_size[2];
162   float aspx, aspy;
163
164   ED_space_image_get_size(sima, &image_size[0], &image_size[1]);
165   ED_space_image_get_aspect(sima, &aspx, &aspy);
166
167   image_size[0] = image_size[0] * aspx;
168   image_size[1] = image_size[1] * aspy;
169
170   /* adjust offset and zoom */
171   sima->xof = roundf((BLI_rctf_cent_x(bounds) - 0.5f) * image_size[0]);
172   sima->yof = roundf((BLI_rctf_cent_y(bounds) - 0.5f) * image_size[1]);
173
174   float size_xy[2], size;
175   size_xy[0] = BLI_rcti_size_x(&ar->winrct) / (BLI_rctf_size_x(bounds) * image_size[0]);
176   size_xy[1] = BLI_rcti_size_y(&ar->winrct) / (BLI_rctf_size_y(bounds) * image_size[1]);
177
178   size = min_ff(size_xy[0], size_xy[1]);
179   CLAMP_MAX(size, 100.0f);
180
181   sima_zoom_set(sima, ar, size, NULL, false);
182 }
183
184 static Image *image_from_context(const bContext *C)
185 {
186   /* Edit image is set by templates used throughout the interface, so image
187    * operations work outside the image editor. */
188   Image *ima = CTX_data_pointer_get_type(C, "edit_image", &RNA_Image).data;
189
190   if (ima) {
191     return ima;
192   }
193   else {
194     /* Image editor. */
195     SpaceImage *sima = CTX_wm_space_image(C);
196     return (sima) ? sima->image : NULL;
197   }
198 }
199
200 static ImageUser *image_user_from_context(const bContext *C)
201 {
202   /* Edit image user is set by templates used throughout the interface, so
203    * image operations work outside the image editor. */
204   ImageUser *iuser = CTX_data_pointer_get_type(C, "edit_image_user", &RNA_ImageUser).data;
205
206   if (iuser) {
207     return iuser;
208   }
209   else {
210     /* Image editor. */
211     SpaceImage *sima = CTX_wm_space_image(C);
212     return (sima) ? &sima->iuser : NULL;
213   }
214 }
215
216 static bool image_from_context_has_data_poll(bContext *C)
217 {
218   Image *ima = image_from_context(C);
219   ImageUser *iuser = image_user_from_context(C);
220
221   if (ima == NULL) {
222     return false;
223   }
224
225   void *lock;
226   ImBuf *ibuf = BKE_image_acquire_ibuf(ima, iuser, &lock);
227   const bool has_buffer = (ibuf && (ibuf->rect || ibuf->rect_float));
228   BKE_image_release_ibuf(ima, ibuf, lock);
229   return has_buffer;
230 }
231
232 /**
233  * Use this when the image buffer is accessed without the image user.
234  */
235 static bool image_from_contect_has_data_poll_no_image_user(bContext *C)
236 {
237   Image *ima = image_from_context(C);
238
239   return BKE_image_has_ibuf(ima, NULL);
240 }
241
242 static bool image_not_packed_poll(bContext *C)
243 {
244   /* Do not run 'replace' on packed images, it does not give user expected results at all. */
245   Image *ima = image_from_context(C);
246   return (ima && BLI_listbase_is_empty(&ima->packedfiles));
247 }
248
249 bool space_image_main_region_poll(bContext *C)
250 {
251   SpaceImage *sima = CTX_wm_space_image(C);
252   /* XXX ARegion *ar = CTX_wm_region(C); */
253
254   if (sima) {
255     return true; /* XXX (ar && ar->type->regionid == RGN_TYPE_WINDOW); */
256   }
257   return false;
258 }
259
260 /* For IMAGE_OT_curves_point_set to avoid sampling when in uv smooth mode or editmode */
261 static bool space_image_main_area_not_uv_brush_poll(bContext *C)
262 {
263   SpaceImage *sima = CTX_wm_space_image(C);
264   Scene *scene = CTX_data_scene(C);
265   ToolSettings *toolsettings = scene->toolsettings;
266
267   if (sima && !toolsettings->uvsculpt && (CTX_data_edit_object(C) == NULL)) {
268     return 1;
269   }
270
271   return 0;
272 }
273
274 static bool image_sample_poll(bContext *C)
275 {
276   SpaceImage *sima = CTX_wm_space_image(C);
277   if (sima == NULL) {
278     return false;
279   }
280
281   Object *obedit = CTX_data_edit_object(C);
282   if (obedit) {
283     /* Disable when UV editing so it doesn't swallow all click events
284      * (use for setting cursor). */
285     if (ED_space_image_show_uvedit(sima, obedit)) {
286       return false;
287     }
288   }
289   else if (sima->mode != SI_MODE_VIEW) {
290     return false;
291   }
292
293   return true;
294 }
295
296 /** \} */
297
298 /* -------------------------------------------------------------------- */
299 /** \name View Pan Operator
300  * \{ */
301
302 typedef struct ViewPanData {
303   float x, y;
304   float xof, yof;
305   int event_type;
306   bool own_cursor;
307 } ViewPanData;
308
309 static void image_view_pan_init(bContext *C, wmOperator *op, const wmEvent *event)
310 {
311   wmWindow *win = CTX_wm_window(C);
312   SpaceImage *sima = CTX_wm_space_image(C);
313   ViewPanData *vpd;
314
315   op->customdata = vpd = MEM_callocN(sizeof(ViewPanData), "ImageViewPanData");
316
317   /* Grab will be set when running from gizmo. */
318   vpd->own_cursor = (win->grabcursor == 0);
319   if (vpd->own_cursor) {
320     WM_cursor_modal_set(win, WM_CURSOR_NSEW_SCROLL);
321   }
322
323   vpd->x = event->x;
324   vpd->y = event->y;
325   vpd->xof = sima->xof;
326   vpd->yof = sima->yof;
327   vpd->event_type = event->type;
328
329   WM_event_add_modal_handler(C, op);
330 }
331
332 static void image_view_pan_exit(bContext *C, wmOperator *op, bool cancel)
333 {
334   SpaceImage *sima = CTX_wm_space_image(C);
335   ViewPanData *vpd = op->customdata;
336
337   if (cancel) {
338     sima->xof = vpd->xof;
339     sima->yof = vpd->yof;
340     ED_region_tag_redraw(CTX_wm_region(C));
341   }
342
343   if (vpd->own_cursor) {
344     WM_cursor_modal_restore(CTX_wm_window(C));
345   }
346   MEM_freeN(op->customdata);
347 }
348
349 static int image_view_pan_exec(bContext *C, wmOperator *op)
350 {
351   SpaceImage *sima = CTX_wm_space_image(C);
352   float offset[2];
353
354   RNA_float_get_array(op->ptr, "offset", offset);
355   sima->xof += offset[0];
356   sima->yof += offset[1];
357
358   ED_region_tag_redraw(CTX_wm_region(C));
359
360   return OPERATOR_FINISHED;
361 }
362
363 static int image_view_pan_invoke(bContext *C, wmOperator *op, const wmEvent *event)
364 {
365   if (event->type == MOUSEPAN) {
366     SpaceImage *sima = CTX_wm_space_image(C);
367     float offset[2];
368
369     offset[0] = (event->prevx - event->x) / sima->zoom;
370     offset[1] = (event->prevy - event->y) / sima->zoom;
371     RNA_float_set_array(op->ptr, "offset", offset);
372
373     image_view_pan_exec(C, op);
374     return OPERATOR_FINISHED;
375   }
376   else {
377     image_view_pan_init(C, op, event);
378     return OPERATOR_RUNNING_MODAL;
379   }
380 }
381
382 static int image_view_pan_modal(bContext *C, wmOperator *op, const wmEvent *event)
383 {
384   SpaceImage *sima = CTX_wm_space_image(C);
385   ViewPanData *vpd = op->customdata;
386   float offset[2];
387
388   switch (event->type) {
389     case MOUSEMOVE:
390       sima->xof = vpd->xof;
391       sima->yof = vpd->yof;
392       offset[0] = (vpd->x - event->x) / sima->zoom;
393       offset[1] = (vpd->y - event->y) / sima->zoom;
394       RNA_float_set_array(op->ptr, "offset", offset);
395       image_view_pan_exec(C, op);
396       break;
397     default:
398       if (event->type == vpd->event_type && event->val == KM_RELEASE) {
399         image_view_pan_exit(C, op, false);
400         return OPERATOR_FINISHED;
401       }
402       break;
403   }
404
405   return OPERATOR_RUNNING_MODAL;
406 }
407
408 static void image_view_pan_cancel(bContext *C, wmOperator *op)
409 {
410   image_view_pan_exit(C, op, true);
411 }
412
413 void IMAGE_OT_view_pan(wmOperatorType *ot)
414 {
415   /* identifiers */
416   ot->name = "Pan View";
417   ot->idname = "IMAGE_OT_view_pan";
418   ot->description = "Pan the view";
419
420   /* api callbacks */
421   ot->exec = image_view_pan_exec;
422   ot->invoke = image_view_pan_invoke;
423   ot->modal = image_view_pan_modal;
424   ot->cancel = image_view_pan_cancel;
425   ot->poll = space_image_main_region_poll;
426
427   /* flags */
428   ot->flag = OPTYPE_BLOCKING | OPTYPE_GRAB_CURSOR_XY | OPTYPE_LOCK_BYPASS;
429
430   /* properties */
431   RNA_def_float_vector(ot->srna,
432                        "offset",
433                        2,
434                        NULL,
435                        -FLT_MAX,
436                        FLT_MAX,
437                        "Offset",
438                        "Offset in floating point units, 1.0 is the width and height of the image",
439                        -FLT_MAX,
440                        FLT_MAX);
441 }
442
443 /** \} */
444
445 /* -------------------------------------------------------------------- */
446 /** \name View Zoom Operator
447  * \{ */
448
449 typedef struct ViewZoomData {
450   float origx, origy;
451   float zoom;
452   int event_type;
453   float location[2];
454
455   /* needed for continuous zoom */
456   wmTimer *timer;
457   double timer_lastdraw;
458   bool own_cursor;
459
460   /* */
461   SpaceImage *sima;
462   ARegion *ar;
463 } ViewZoomData;
464
465 static void image_view_zoom_init(bContext *C, wmOperator *op, const wmEvent *event)
466 {
467   wmWindow *win = CTX_wm_window(C);
468   SpaceImage *sima = CTX_wm_space_image(C);
469   ARegion *ar = CTX_wm_region(C);
470   ViewZoomData *vpd;
471
472   op->customdata = vpd = MEM_callocN(sizeof(ViewZoomData), "ImageViewZoomData");
473
474   /* Grab will be set when running from gizmo. */
475   vpd->own_cursor = (win->grabcursor == 0);
476   if (vpd->own_cursor) {
477     WM_cursor_modal_set(win, WM_CURSOR_NSEW_SCROLL);
478   }
479
480   vpd->origx = event->x;
481   vpd->origy = event->y;
482   vpd->zoom = sima->zoom;
483   vpd->event_type = event->type;
484
485   UI_view2d_region_to_view(
486       &ar->v2d, event->mval[0], event->mval[1], &vpd->location[0], &vpd->location[1]);
487
488   if (U.viewzoom == USER_ZOOM_CONT) {
489     /* needs a timer to continue redrawing */
490     vpd->timer = WM_event_add_timer(CTX_wm_manager(C), CTX_wm_window(C), TIMER, 0.01f);
491     vpd->timer_lastdraw = PIL_check_seconds_timer();
492   }
493
494   vpd->sima = sima;
495   vpd->ar = ar;
496
497   WM_event_add_modal_handler(C, op);
498 }
499
500 static void image_view_zoom_exit(bContext *C, wmOperator *op, bool cancel)
501 {
502   SpaceImage *sima = CTX_wm_space_image(C);
503   ViewZoomData *vpd = op->customdata;
504
505   if (cancel) {
506     sima->zoom = vpd->zoom;
507     ED_region_tag_redraw(CTX_wm_region(C));
508   }
509
510   if (vpd->timer) {
511     WM_event_remove_timer(CTX_wm_manager(C), vpd->timer->win, vpd->timer);
512   }
513
514   if (vpd->own_cursor) {
515     WM_cursor_modal_restore(CTX_wm_window(C));
516   }
517   MEM_freeN(op->customdata);
518 }
519
520 static int image_view_zoom_exec(bContext *C, wmOperator *op)
521 {
522   SpaceImage *sima = CTX_wm_space_image(C);
523   ARegion *ar = CTX_wm_region(C);
524
525   sima_zoom_set_factor(sima, ar, RNA_float_get(op->ptr, "factor"), NULL, false);
526
527   ED_region_tag_redraw(ar);
528
529   return OPERATOR_FINISHED;
530 }
531
532 enum {
533   VIEW_PASS = 0,
534   VIEW_APPLY,
535   VIEW_CONFIRM,
536 };
537
538 static int image_view_zoom_invoke(bContext *C, wmOperator *op, const wmEvent *event)
539 {
540   if (event->type == MOUSEZOOM || event->type == MOUSEPAN) {
541     SpaceImage *sima = CTX_wm_space_image(C);
542     ARegion *ar = CTX_wm_region(C);
543     float delta, factor, location[2];
544
545     UI_view2d_region_to_view(&ar->v2d, event->mval[0], event->mval[1], &location[0], &location[1]);
546
547     delta = event->prevx - event->x + event->prevy - event->y;
548
549     if (U.uiflag & USER_ZOOM_INVERT) {
550       delta *= -1;
551     }
552
553     factor = 1.0f + delta / 300.0f;
554     RNA_float_set(op->ptr, "factor", factor);
555     const bool use_cursor_init = RNA_boolean_get(op->ptr, "use_cursor_init");
556     sima_zoom_set(sima,
557                   ar,
558                   sima->zoom * factor,
559                   location,
560                   (use_cursor_init && (U.uiflag & USER_ZOOM_TO_MOUSEPOS)));
561     ED_region_tag_redraw(ar);
562
563     return OPERATOR_FINISHED;
564   }
565   else {
566     image_view_zoom_init(C, op, event);
567     return OPERATOR_RUNNING_MODAL;
568   }
569 }
570
571 static void image_zoom_apply(ViewZoomData *vpd,
572                              wmOperator *op,
573                              const int x,
574                              const int y,
575                              const short viewzoom,
576                              const short zoom_invert,
577                              const bool zoom_to_pos)
578 {
579   float factor;
580   float delta;
581
582   if (viewzoom != USER_ZOOM_SCALE) {
583     if (U.uiflag & USER_ZOOM_HORIZ) {
584       delta = (float)(x - vpd->origx);
585     }
586     else {
587       delta = (float)(y - vpd->origy);
588     }
589   }
590   else {
591     delta = x - vpd->origx + y - vpd->origy;
592   }
593
594   delta /= U.pixelsize;
595
596   if (zoom_invert) {
597     delta = -delta;
598   }
599
600   if (viewzoom == USER_ZOOM_CONT) {
601     double time = PIL_check_seconds_timer();
602     float time_step = (float)(time - vpd->timer_lastdraw);
603     float zfac;
604
605     /* oldstyle zoom */
606     zfac = 1.0f + ((delta / 20.0f) * time_step);
607     vpd->timer_lastdraw = time;
608     /* this is the final zoom, but instead make it into a factor */
609     factor = (vpd->sima->zoom * zfac) / vpd->zoom;
610   }
611   else {
612     factor = 1.0f + delta / 300.0f;
613   }
614
615   RNA_float_set(op->ptr, "factor", factor);
616   sima_zoom_set(vpd->sima, vpd->ar, vpd->zoom * factor, vpd->location, zoom_to_pos);
617   ED_region_tag_redraw(vpd->ar);
618 }
619
620 static int image_view_zoom_modal(bContext *C, wmOperator *op, const wmEvent *event)
621 {
622   ViewZoomData *vpd = op->customdata;
623   short event_code = VIEW_PASS;
624
625   /* execute the events */
626   if (event->type == TIMER && event->customdata == vpd->timer) {
627     /* continuous zoom */
628     event_code = VIEW_APPLY;
629   }
630   else if (event->type == MOUSEMOVE) {
631     event_code = VIEW_APPLY;
632   }
633   else if (event->type == vpd->event_type && event->val == KM_RELEASE) {
634     event_code = VIEW_CONFIRM;
635   }
636
637   if (event_code == VIEW_APPLY) {
638     const bool use_cursor_init = RNA_boolean_get(op->ptr, "use_cursor_init");
639     image_zoom_apply(vpd,
640                      op,
641                      event->x,
642                      event->y,
643                      U.viewzoom,
644                      (U.uiflag & USER_ZOOM_INVERT) != 0,
645                      (use_cursor_init && (U.uiflag & USER_ZOOM_TO_MOUSEPOS)));
646   }
647   else if (event_code == VIEW_CONFIRM) {
648     image_view_zoom_exit(C, op, false);
649     return OPERATOR_FINISHED;
650   }
651
652   return OPERATOR_RUNNING_MODAL;
653 }
654
655 static void image_view_zoom_cancel(bContext *C, wmOperator *op)
656 {
657   image_view_zoom_exit(C, op, true);
658 }
659
660 void IMAGE_OT_view_zoom(wmOperatorType *ot)
661 {
662   PropertyRNA *prop;
663
664   /* identifiers */
665   ot->name = "Zoom View";
666   ot->idname = "IMAGE_OT_view_zoom";
667   ot->description = "Zoom in/out the image";
668
669   /* api callbacks */
670   ot->exec = image_view_zoom_exec;
671   ot->invoke = image_view_zoom_invoke;
672   ot->modal = image_view_zoom_modal;
673   ot->cancel = image_view_zoom_cancel;
674   ot->poll = space_image_main_region_poll;
675
676   /* flags */
677   ot->flag = OPTYPE_BLOCKING | OPTYPE_GRAB_CURSOR_XY | OPTYPE_LOCK_BYPASS;
678
679   /* properties */
680   prop = RNA_def_float(ot->srna,
681                        "factor",
682                        0.0f,
683                        -FLT_MAX,
684                        FLT_MAX,
685                        "Factor",
686                        "Zoom factor, values higher than 1.0 zoom in, lower values zoom out",
687                        -FLT_MAX,
688                        FLT_MAX);
689   RNA_def_property_flag(prop, PROP_HIDDEN);
690
691   WM_operator_properties_use_cursor_init(ot);
692 }
693
694 #ifdef WITH_INPUT_NDOF
695
696 /** \} */
697
698 /* -------------------------------------------------------------------- */
699 /** \name NDOF Operator
700  * \{ */
701
702 /* Combined pan/zoom from a 3D mouse device.
703  * Z zooms, XY pans
704  * "view" (not "paper") control -- user moves the viewpoint, not the image being viewed
705  * that explains the negative signs in the code below
706  */
707
708 static int image_view_ndof_invoke(bContext *C, wmOperator *UNUSED(op), const wmEvent *event)
709 {
710   if (event->type != NDOF_MOTION) {
711     return OPERATOR_CANCELLED;
712   }
713   else {
714     SpaceImage *sima = CTX_wm_space_image(C);
715     ARegion *ar = CTX_wm_region(C);
716     float pan_vec[3];
717
718     const wmNDOFMotionData *ndof = event->customdata;
719     const float speed = NDOF_PIXELS_PER_SECOND;
720
721     WM_event_ndof_pan_get(ndof, pan_vec, true);
722
723     mul_v2_fl(pan_vec, (speed * ndof->dt) / sima->zoom);
724     pan_vec[2] *= -ndof->dt;
725
726     sima_zoom_set_factor(sima, ar, 1.0f + pan_vec[2], NULL, false);
727     sima->xof += pan_vec[0];
728     sima->yof += pan_vec[1];
729
730     ED_region_tag_redraw(ar);
731
732     return OPERATOR_FINISHED;
733   }
734 }
735
736 void IMAGE_OT_view_ndof(wmOperatorType *ot)
737 {
738   /* identifiers */
739   ot->name = "NDOF Pan/Zoom";
740   ot->idname = "IMAGE_OT_view_ndof";
741   ot->description = "Use a 3D mouse device to pan/zoom the view";
742
743   /* api callbacks */
744   ot->invoke = image_view_ndof_invoke;
745   ot->poll = space_image_main_region_poll;
746
747   /* flags */
748   ot->flag = OPTYPE_LOCK_BYPASS;
749 }
750
751 /** \} */
752
753 #endif /* WITH_INPUT_NDOF */
754
755 /* -------------------------------------------------------------------- */
756 /** \name View All Operator
757  * \{ */
758
759 /* Updates the fields of the View2D member of the SpaceImage struct.
760  * Default behavior is to reset the position of the image and set the zoom to 1
761  * If the image will not fit within the window rectangle, the zoom is adjusted */
762
763 static int image_view_all_exec(bContext *C, wmOperator *op)
764 {
765   SpaceImage *sima;
766   ARegion *ar;
767   float aspx, aspy, zoomx, zoomy, w, h;
768   int width, height;
769   const bool fit_view = RNA_boolean_get(op->ptr, "fit_view");
770
771   /* retrieve state */
772   sima = CTX_wm_space_image(C);
773   ar = CTX_wm_region(C);
774
775   ED_space_image_get_size(sima, &width, &height);
776   ED_space_image_get_aspect(sima, &aspx, &aspy);
777
778   w = width * aspx;
779   h = height * aspy;
780
781   /* check if the image will fit in the image with (zoom == 1) */
782   width = BLI_rcti_size_x(&ar->winrct) + 1;
783   height = BLI_rcti_size_y(&ar->winrct) + 1;
784
785   if (fit_view) {
786     const int margin = 5; /* margin from border */
787
788     zoomx = (float)width / (w + 2 * margin);
789     zoomy = (float)height / (h + 2 * margin);
790
791     sima_zoom_set(sima, ar, min_ff(zoomx, zoomy), NULL, false);
792   }
793   else {
794     if ((w >= width || h >= height) && (width > 0 && height > 0)) {
795       zoomx = (float)width / w;
796       zoomy = (float)height / h;
797
798       /* find the zoom value that will fit the image in the image space */
799       sima_zoom_set(sima, ar, 1.0f / power_of_2(1.0f / min_ff(zoomx, zoomy)), NULL, false);
800     }
801     else {
802       sima_zoom_set(sima, ar, 1.0f, NULL, false);
803     }
804   }
805
806   sima->xof = sima->yof = 0.0f;
807
808   ED_region_tag_redraw(ar);
809
810   return OPERATOR_FINISHED;
811 }
812
813 void IMAGE_OT_view_all(wmOperatorType *ot)
814 {
815   PropertyRNA *prop;
816
817   /* identifiers */
818   ot->name = "View All";
819   ot->idname = "IMAGE_OT_view_all";
820   ot->description = "View the entire image";
821
822   /* api callbacks */
823   ot->exec = image_view_all_exec;
824   ot->poll = space_image_main_region_poll;
825
826   /* flags */
827   ot->flag = OPTYPE_LOCK_BYPASS;
828
829   /* properties */
830   prop = RNA_def_boolean(ot->srna, "fit_view", 0, "Fit View", "Fit frame to the viewport");
831   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
832 }
833
834 /** \} */
835
836 /* -------------------------------------------------------------------- */
837 /** \name Center View To Cursor Operator
838  * \{ */
839
840 static int view_center_cursor_exec(bContext *C, wmOperator *UNUSED(op))
841 {
842   SpaceImage *sima = CTX_wm_space_image(C);
843   ARegion *ar = CTX_wm_region(C);
844
845   ED_image_view_center_to_point(sima, sima->cursor[0], sima->cursor[1]);
846
847   ED_region_tag_redraw(ar);
848
849   return OPERATOR_FINISHED;
850 }
851
852 void IMAGE_OT_view_center_cursor(wmOperatorType *ot)
853 {
854   /* identifiers */
855   ot->name = "Center View to Cursor";
856   ot->description = "Center the view so that the cursor is in the middle of the view";
857   ot->idname = "IMAGE_OT_view_center_cursor";
858
859   /* api callbacks */
860   ot->exec = view_center_cursor_exec;
861   ot->poll = ED_space_image_cursor_poll;
862 }
863
864 /** \} */
865
866 /* -------------------------------------------------------------------- */
867 /** \name View Selected Operator
868  * \{ */
869
870 static int image_view_selected_exec(bContext *C, wmOperator *UNUSED(op))
871 {
872   SpaceImage *sima;
873   ARegion *ar;
874   Scene *scene;
875   ViewLayer *view_layer;
876   Object *obedit;
877   Image *ima;
878
879   /* retrieve state */
880   sima = CTX_wm_space_image(C);
881   ar = CTX_wm_region(C);
882   scene = CTX_data_scene(C);
883   view_layer = CTX_data_view_layer(C);
884   obedit = CTX_data_edit_object(C);
885
886   ima = ED_space_image(sima);
887
888   /* get bounds */
889   float min[2], max[2];
890   if (ED_space_image_show_uvedit(sima, obedit)) {
891     if (!ED_uvedit_minmax(scene, ima, obedit, min, max)) {
892       return OPERATOR_CANCELLED;
893     }
894   }
895   else if (ED_space_image_check_show_maskedit(sima, view_layer)) {
896     if (!ED_mask_selected_minmax(C, min, max)) {
897       return OPERATOR_CANCELLED;
898     }
899   }
900   rctf bounds = {
901       .xmin = min[0],
902       .ymin = min[1],
903       .xmax = max[0],
904       .ymax = max[1],
905   };
906
907   /* add some margin */
908   BLI_rctf_scale(&bounds, 1.4f);
909
910   sima_zoom_set_from_bounds(sima, ar, &bounds);
911
912   ED_region_tag_redraw(ar);
913
914   return OPERATOR_FINISHED;
915 }
916
917 static bool image_view_selected_poll(bContext *C)
918 {
919   return (space_image_main_region_poll(C) && (ED_operator_uvedit(C) || ED_operator_mask(C)));
920 }
921
922 void IMAGE_OT_view_selected(wmOperatorType *ot)
923 {
924   /* identifiers */
925   ot->name = "View Center";
926   ot->idname = "IMAGE_OT_view_selected";
927   ot->description = "View all selected UVs";
928
929   /* api callbacks */
930   ot->exec = image_view_selected_exec;
931   ot->poll = image_view_selected_poll;
932 }
933
934 /** \} */
935
936 /* -------------------------------------------------------------------- */
937 /** \name View Zoom In/Out Operator
938  * \{ */
939
940 static int image_view_zoom_in_exec(bContext *C, wmOperator *op)
941 {
942   SpaceImage *sima = CTX_wm_space_image(C);
943   ARegion *ar = CTX_wm_region(C);
944   float location[2];
945
946   RNA_float_get_array(op->ptr, "location", location);
947
948   sima_zoom_set_factor(
949       sima, ar, powf(2.0f, 1.0f / 3.0f), location, U.uiflag & USER_ZOOM_TO_MOUSEPOS);
950
951   ED_region_tag_redraw(ar);
952
953   return OPERATOR_FINISHED;
954 }
955
956 static int image_view_zoom_in_invoke(bContext *C, wmOperator *op, const wmEvent *event)
957 {
958   ARegion *ar = CTX_wm_region(C);
959   float location[2];
960
961   UI_view2d_region_to_view(&ar->v2d, event->mval[0], event->mval[1], &location[0], &location[1]);
962   RNA_float_set_array(op->ptr, "location", location);
963
964   return image_view_zoom_in_exec(C, op);
965 }
966
967 void IMAGE_OT_view_zoom_in(wmOperatorType *ot)
968 {
969   PropertyRNA *prop;
970
971   /* identifiers */
972   ot->name = "View Zoom In";
973   ot->idname = "IMAGE_OT_view_zoom_in";
974   ot->description = "Zoom in the image (centered around 2D cursor)";
975
976   /* api callbacks */
977   ot->invoke = image_view_zoom_in_invoke;
978   ot->exec = image_view_zoom_in_exec;
979   ot->poll = space_image_main_region_poll;
980
981   /* flags */
982   ot->flag = OPTYPE_LOCK_BYPASS;
983
984   /* properties */
985   prop = RNA_def_float_vector(ot->srna,
986                               "location",
987                               2,
988                               NULL,
989                               -FLT_MAX,
990                               FLT_MAX,
991                               "Location",
992                               "Cursor location in screen coordinates",
993                               -10.0f,
994                               10.0f);
995   RNA_def_property_flag(prop, PROP_HIDDEN);
996 }
997
998 static int image_view_zoom_out_exec(bContext *C, wmOperator *op)
999 {
1000   SpaceImage *sima = CTX_wm_space_image(C);
1001   ARegion *ar = CTX_wm_region(C);
1002   float location[2];
1003
1004   RNA_float_get_array(op->ptr, "location", location);
1005
1006   sima_zoom_set_factor(
1007       sima, ar, powf(0.5f, 1.0f / 3.0f), location, U.uiflag & USER_ZOOM_TO_MOUSEPOS);
1008
1009   ED_region_tag_redraw(ar);
1010
1011   return OPERATOR_FINISHED;
1012 }
1013
1014 static int image_view_zoom_out_invoke(bContext *C, wmOperator *op, const wmEvent *event)
1015 {
1016   ARegion *ar = CTX_wm_region(C);
1017   float location[2];
1018
1019   UI_view2d_region_to_view(&ar->v2d, event->mval[0], event->mval[1], &location[0], &location[1]);
1020   RNA_float_set_array(op->ptr, "location", location);
1021
1022   return image_view_zoom_out_exec(C, op);
1023 }
1024
1025 void IMAGE_OT_view_zoom_out(wmOperatorType *ot)
1026 {
1027   PropertyRNA *prop;
1028
1029   /* identifiers */
1030   ot->name = "View Zoom Out";
1031   ot->idname = "IMAGE_OT_view_zoom_out";
1032   ot->description = "Zoom out the image (centered around 2D cursor)";
1033
1034   /* api callbacks */
1035   ot->invoke = image_view_zoom_out_invoke;
1036   ot->exec = image_view_zoom_out_exec;
1037   ot->poll = space_image_main_region_poll;
1038
1039   /* flags */
1040   ot->flag = OPTYPE_LOCK_BYPASS;
1041
1042   /* properties */
1043   prop = RNA_def_float_vector(ot->srna,
1044                               "location",
1045                               2,
1046                               NULL,
1047                               -FLT_MAX,
1048                               FLT_MAX,
1049                               "Location",
1050                               "Cursor location in screen coordinates",
1051                               -10.0f,
1052                               10.0f);
1053   RNA_def_property_flag(prop, PROP_HIDDEN);
1054 }
1055
1056 /** \} */
1057
1058 /* -------------------------------------------------------------------- */
1059 /** \name View Zoom Ratio Operator
1060  * \{ */
1061
1062 static int image_view_zoom_ratio_exec(bContext *C, wmOperator *op)
1063 {
1064   SpaceImage *sima = CTX_wm_space_image(C);
1065   ARegion *ar = CTX_wm_region(C);
1066
1067   sima_zoom_set(sima, ar, RNA_float_get(op->ptr, "ratio"), NULL, false);
1068
1069   /* ensure pixel exact locations for draw */
1070   sima->xof = (int)sima->xof;
1071   sima->yof = (int)sima->yof;
1072
1073   ED_region_tag_redraw(ar);
1074
1075   return OPERATOR_FINISHED;
1076 }
1077
1078 void IMAGE_OT_view_zoom_ratio(wmOperatorType *ot)
1079 {
1080   /* identifiers */
1081   ot->name = "View Zoom Ratio";
1082   ot->idname = "IMAGE_OT_view_zoom_ratio";
1083   ot->description = "Set zoom ratio of the view";
1084
1085   /* api callbacks */
1086   ot->exec = image_view_zoom_ratio_exec;
1087   ot->poll = space_image_main_region_poll;
1088
1089   /* flags */
1090   ot->flag = OPTYPE_LOCK_BYPASS;
1091
1092   /* properties */
1093   RNA_def_float(ot->srna,
1094                 "ratio",
1095                 0.0f,
1096                 -FLT_MAX,
1097                 FLT_MAX,
1098                 "Ratio",
1099                 "Zoom ratio, 1.0 is 1:1, higher is zoomed in, lower is zoomed out",
1100                 -FLT_MAX,
1101                 FLT_MAX);
1102 }
1103
1104 /** \} */
1105
1106 /* -------------------------------------------------------------------- */
1107 /** \name View Border-Zoom Operator
1108  * \{ */
1109
1110 static int image_view_zoom_border_exec(bContext *C, wmOperator *op)
1111 {
1112   SpaceImage *sima = CTX_wm_space_image(C);
1113   ARegion *ar = CTX_wm_region(C);
1114   rctf bounds;
1115   const bool zoom_in = !RNA_boolean_get(op->ptr, "zoom_out");
1116
1117   WM_operator_properties_border_to_rctf(op, &bounds);
1118
1119   UI_view2d_region_to_view_rctf(&ar->v2d, &bounds, &bounds);
1120
1121   const struct {
1122     float xof;
1123     float yof;
1124     float zoom;
1125   } sima_view_prev = {
1126       .xof = sima->xof,
1127       .yof = sima->yof,
1128       .zoom = sima->zoom,
1129   };
1130
1131   sima_zoom_set_from_bounds(sima, ar, &bounds);
1132
1133   /* zoom out */
1134   if (!zoom_in) {
1135     sima->xof = sima_view_prev.xof + (sima->xof - sima_view_prev.xof);
1136     sima->yof = sima_view_prev.yof + (sima->yof - sima_view_prev.yof);
1137     sima->zoom = sima_view_prev.zoom * (sima_view_prev.zoom / sima->zoom);
1138   }
1139
1140   ED_region_tag_redraw(ar);
1141
1142   return OPERATOR_FINISHED;
1143 }
1144
1145 void IMAGE_OT_view_zoom_border(wmOperatorType *ot)
1146 {
1147   /* identifiers */
1148   ot->name = "Zoom to Border";
1149   ot->description = "Zoom in the view to the nearest item contained in the border";
1150   ot->idname = "IMAGE_OT_view_zoom_border";
1151
1152   /* api callbacks */
1153   ot->invoke = WM_gesture_box_invoke;
1154   ot->exec = image_view_zoom_border_exec;
1155   ot->modal = WM_gesture_box_modal;
1156   ot->cancel = WM_gesture_box_cancel;
1157
1158   ot->poll = space_image_main_region_poll;
1159
1160   /* rna */
1161   WM_operator_properties_gesture_box_zoom(ot);
1162 }
1163
1164 /* load/replace/save callbacks */
1165 static void image_filesel(bContext *C, wmOperator *op, const char *path)
1166 {
1167   RNA_string_set(op->ptr, "filepath", path);
1168   WM_event_add_fileselect(C, op);
1169 }
1170
1171 /** \} */
1172
1173 /* -------------------------------------------------------------------- */
1174 /** \name Open Image Operator
1175  * \{ */
1176
1177 typedef struct ImageOpenData {
1178   PropertyPointerRNA pprop;
1179   ImageUser *iuser;
1180   ImageFormatData im_format;
1181 } ImageOpenData;
1182
1183 typedef struct ImageFrameRange {
1184   struct ImageFrameRange *next, *prev;
1185   ListBase frames;
1186   /**  The full path of the first file in the list of image files */
1187   char filepath[FILE_MAX];
1188 } ImageFrameRange;
1189
1190 typedef struct ImageFrame {
1191   struct ImageFrame *next, *prev;
1192   int framenr;
1193 } ImageFrame;
1194
1195 static void image_open_init(bContext *C, wmOperator *op)
1196 {
1197   ImageOpenData *iod;
1198   op->customdata = iod = MEM_callocN(sizeof(ImageOpenData), __func__);
1199   iod->iuser = CTX_data_pointer_get_type(C, "image_user", &RNA_ImageUser).data;
1200   UI_context_active_but_prop_get_templateID(C, &iod->pprop.ptr, &iod->pprop.prop);
1201 }
1202
1203 static void image_open_cancel(bContext *UNUSED(C), wmOperator *op)
1204 {
1205   MEM_freeN(op->customdata);
1206   op->customdata = NULL;
1207 }
1208
1209 /**
1210  * Get a list of frames from the list of image files matching the first file name sequence pattern.
1211  * \param ptr[in]: The RNA pointer containing the "directory" entry and "files" collection.
1212  * \param frames_all[out]: the list of frame numbers found in the files matching
1213  * the first one by name.
1214  */
1215 static void image_sequence_get_frame_ranges(PointerRNA *ptr, ListBase *frames_all)
1216 {
1217   char dir[FILE_MAXDIR];
1218   const bool do_frame_range = RNA_boolean_get(ptr, "use_sequence_detection");
1219   ImageFrameRange *frame_range = NULL;
1220
1221   RNA_string_get(ptr, "directory", dir);
1222   RNA_BEGIN (ptr, itemptr, "files") {
1223     char base_head[FILE_MAX], base_tail[FILE_MAX];
1224     char head[FILE_MAX], tail[FILE_MAX];
1225     unsigned short digits;
1226     char *filename = RNA_string_get_alloc(&itemptr, "name", NULL, 0);
1227     ImageFrame *frame = MEM_callocN(sizeof(ImageFrame), "image_frame");
1228
1229     /* use the first file in the list as base filename */
1230     frame->framenr = BLI_stringdec(filename, head, tail, &digits);
1231
1232     /* still in the same sequence */
1233     if (do_frame_range && (frame_range != NULL) && (STREQLEN(base_head, head, FILE_MAX)) &&
1234         (STREQLEN(base_tail, tail, FILE_MAX))) {
1235       /* pass */
1236     }
1237     else {
1238       /* start a new frame range */
1239       frame_range = MEM_callocN(sizeof(*frame_range), __func__);
1240       BLI_join_dirfile(frame_range->filepath, sizeof(frame_range->filepath), dir, filename);
1241       BLI_addtail(frames_all, frame_range);
1242
1243       BLI_strncpy(base_head, head, sizeof(base_head));
1244       BLI_strncpy(base_tail, tail, sizeof(base_tail));
1245     }
1246
1247     BLI_addtail(&frame_range->frames, frame);
1248     MEM_freeN(filename);
1249   }
1250   RNA_END;
1251 }
1252
1253 static int image_cmp_frame(const void *a, const void *b)
1254 {
1255   const ImageFrame *frame_a = a;
1256   const ImageFrame *frame_b = b;
1257
1258   if (frame_a->framenr < frame_b->framenr) {
1259     return -1;
1260   }
1261   if (frame_a->framenr > frame_b->framenr) {
1262     return 1;
1263   }
1264   return 0;
1265 }
1266
1267 /**
1268  * Return the start (offset) and the length of the sequence of
1269  * continuous frames in the list of frames.
1270  *
1271  * \param frames: [in] the list of frame numbers, as a side-effect the list is sorted.
1272  * \param ofs: [out] offset the first frame number in the sequence.
1273  * \return the number of contiguous frames in the sequence
1274  */
1275 static int image_sequence_get_len(ListBase *frames, int *ofs)
1276 {
1277   ImageFrame *frame;
1278
1279   BLI_listbase_sort(frames, image_cmp_frame);
1280
1281   frame = frames->first;
1282   if (frame) {
1283     int frame_curr = frame->framenr;
1284     (*ofs) = frame_curr;
1285     while (frame && (frame->framenr == frame_curr)) {
1286       frame_curr++;
1287       frame = frame->next;
1288     }
1289     return frame_curr - (*ofs);
1290   }
1291   *ofs = 0;
1292   return 0;
1293 }
1294
1295 static Image *image_open_single(Main *bmain,
1296                                 wmOperator *op,
1297                                 const char *filepath,
1298                                 const char *relbase,
1299                                 bool is_relative_path,
1300                                 bool use_multiview,
1301                                 int frame_seq_len)
1302 {
1303   bool exists = false;
1304   Image *ima = NULL;
1305
1306   errno = 0;
1307   ima = BKE_image_load_exists_ex(bmain, filepath, &exists);
1308
1309   if (!ima) {
1310     if (op->customdata) {
1311       MEM_freeN(op->customdata);
1312     }
1313     BKE_reportf(op->reports,
1314                 RPT_ERROR,
1315                 "Cannot read '%s': %s",
1316                 filepath,
1317                 errno ? strerror(errno) : TIP_("unsupported image format"));
1318     return NULL;
1319   }
1320
1321   if (!exists) {
1322     /* only image path after save, never ibuf */
1323     if (is_relative_path) {
1324       BLI_path_rel(ima->name, relbase);
1325     }
1326
1327     /* handle multiview images */
1328     if (use_multiview) {
1329       ImageOpenData *iod = op->customdata;
1330       ImageFormatData *imf = &iod->im_format;
1331
1332       ima->flag |= IMA_USE_VIEWS;
1333       ima->views_format = imf->views_format;
1334       *ima->stereo3d_format = imf->stereo3d_format;
1335     }
1336     else {
1337       ima->flag &= ~IMA_USE_VIEWS;
1338       BKE_image_free_views(ima);
1339     }
1340
1341     if ((frame_seq_len > 1) && (ima->source == IMA_SRC_FILE)) {
1342       ima->source = IMA_SRC_SEQUENCE;
1343     }
1344   }
1345
1346   return ima;
1347 }
1348
1349 static int image_open_exec(bContext *C, wmOperator *op)
1350 {
1351   Main *bmain = CTX_data_main(C);
1352   ScrArea *sa = CTX_wm_area(C);
1353   Scene *scene = CTX_data_scene(C);
1354   Object *obedit = CTX_data_edit_object(C);
1355   ImageUser *iuser = NULL;
1356   ImageOpenData *iod = op->customdata;
1357   Image *ima = NULL;
1358   char filepath[FILE_MAX];
1359   int frame_seq_len = 0;
1360   int frame_ofs = 1;
1361
1362   const bool is_relative_path = RNA_boolean_get(op->ptr, "relative_path");
1363   const bool use_multiview = RNA_boolean_get(op->ptr, "use_multiview");
1364
1365   if (!op->customdata) {
1366     image_open_init(C, op);
1367   }
1368
1369   RNA_string_get(op->ptr, "filepath", filepath);
1370
1371   if (RNA_struct_property_is_set(op->ptr, "directory") &&
1372       RNA_struct_property_is_set(op->ptr, "files")) {
1373     bool was_relative = BLI_path_is_rel(filepath);
1374     ListBase frame_ranges_all;
1375
1376     BLI_listbase_clear(&frame_ranges_all);
1377     image_sequence_get_frame_ranges(op->ptr, &frame_ranges_all);
1378     for (ImageFrameRange *frame_range = frame_ranges_all.first; frame_range;
1379          frame_range = frame_range->next) {
1380       int frame_range_ofs;
1381       int frame_range_seq_len = image_sequence_get_len(&frame_range->frames, &frame_range_ofs);
1382       BLI_freelistN(&frame_range->frames);
1383
1384       char filepath_range[FILE_MAX];
1385       BLI_strncpy(filepath_range, frame_range->filepath, sizeof(filepath_range));
1386
1387       if (was_relative) {
1388         BLI_path_rel(filepath_range, BKE_main_blendfile_path(bmain));
1389       }
1390
1391       Image *ima_range = image_open_single(bmain,
1392                                            op,
1393                                            filepath_range,
1394                                            BKE_main_blendfile_path(bmain),
1395                                            is_relative_path,
1396                                            use_multiview,
1397                                            frame_range_seq_len);
1398
1399       /* take the first image */
1400       if ((ima == NULL) && ima_range) {
1401         ima = ima_range;
1402         frame_seq_len = frame_range_seq_len;
1403         frame_ofs = frame_range_ofs;
1404       }
1405     }
1406     BLI_freelistN(&frame_ranges_all);
1407   }
1408   else {
1409     /* for drag & drop etc. */
1410     ima = image_open_single(
1411         bmain, op, filepath, BKE_main_blendfile_path(bmain), is_relative_path, use_multiview, 1);
1412   }
1413
1414   if (ima == NULL) {
1415     return OPERATOR_CANCELLED;
1416   }
1417
1418   /* hook into UI */
1419   iod = op->customdata;
1420
1421   if (iod->pprop.prop) {
1422     /* when creating new ID blocks, use is already 1, but RNA
1423      * pointer use also increases user, so this compensates it */
1424     id_us_min(&ima->id);
1425
1426     PointerRNA imaptr;
1427     RNA_id_pointer_create(&ima->id, &imaptr);
1428     RNA_property_pointer_set(&iod->pprop.ptr, iod->pprop.prop, imaptr, NULL);
1429     RNA_property_update(C, &iod->pprop.ptr, iod->pprop.prop);
1430   }
1431
1432   if (iod->iuser) {
1433     iuser = iod->iuser;
1434   }
1435   else if (sa && sa->spacetype == SPACE_IMAGE) {
1436     SpaceImage *sima = sa->spacedata.first;
1437     ED_space_image_set(bmain, sima, obedit, ima, false);
1438     iuser = &sima->iuser;
1439   }
1440   else {
1441     Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
1442     if (tex && tex->type == TEX_IMAGE) {
1443       iuser = &tex->iuser;
1444     }
1445
1446     if (iuser == NULL) {
1447       Camera *cam = CTX_data_pointer_get_type(C, "camera", &RNA_Camera).data;
1448       if (cam) {
1449         for (CameraBGImage *bgpic = cam->bg_images.first; bgpic; bgpic = bgpic->next) {
1450           if (bgpic->ima == ima) {
1451             iuser = &bgpic->iuser;
1452             break;
1453           }
1454         }
1455       }
1456     }
1457   }
1458
1459   /* initialize because of new image */
1460   if (iuser) {
1461     iuser->frames = frame_seq_len;
1462     iuser->sfra = 1;
1463     iuser->framenr = 1;
1464     if (ima->source == IMA_SRC_MOVIE) {
1465       iuser->offset = 0;
1466     }
1467     else {
1468       iuser->offset = frame_ofs - 1;
1469     }
1470     iuser->scene = scene;
1471     BKE_image_init_imageuser(ima, iuser);
1472   }
1473
1474   /* XXX BKE_packedfile_unpack_image frees image buffers */
1475   ED_preview_kill_jobs(CTX_wm_manager(C), bmain);
1476
1477   BKE_image_signal(bmain, ima, iuser, IMA_SIGNAL_RELOAD);
1478   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
1479
1480   MEM_freeN(op->customdata);
1481
1482   return OPERATOR_FINISHED;
1483 }
1484
1485 static int image_open_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
1486 {
1487   SpaceImage *sima = CTX_wm_space_image(C); /* XXX other space types can call */
1488   const char *path = U.textudir;
1489   Image *ima = NULL;
1490   Scene *scene = CTX_data_scene(C);
1491
1492   if (sima) {
1493     ima = sima->image;
1494   }
1495
1496   if (ima == NULL) {
1497     Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
1498     if (tex && tex->type == TEX_IMAGE) {
1499       ima = tex->ima;
1500     }
1501   }
1502
1503   if (ima == NULL) {
1504     PointerRNA ptr;
1505     PropertyRNA *prop;
1506
1507     /* hook into UI */
1508     UI_context_active_but_prop_get_templateID(C, &ptr, &prop);
1509
1510     if (prop) {
1511       PointerRNA oldptr;
1512       Image *oldima;
1513
1514       oldptr = RNA_property_pointer_get(&ptr, prop);
1515       oldima = (Image *)oldptr.owner_id;
1516       /* unlikely to fail but better avoid strange crash */
1517       if (oldima && GS(oldima->id.name) == ID_IM) {
1518         ima = oldima;
1519       }
1520     }
1521   }
1522
1523   if (ima) {
1524     path = ima->name;
1525   }
1526
1527   if (RNA_struct_property_is_set(op->ptr, "filepath")) {
1528     return image_open_exec(C, op);
1529   }
1530
1531   image_open_init(C, op);
1532
1533   /* show multiview save options only if scene has multiviews */
1534   PropertyRNA *prop;
1535   prop = RNA_struct_find_property(op->ptr, "show_multiview");
1536   RNA_property_boolean_set(op->ptr, prop, (scene->r.scemode & R_MULTIVIEW) != 0);
1537
1538   image_filesel(C, op, path);
1539
1540   return OPERATOR_RUNNING_MODAL;
1541 }
1542
1543 static bool image_open_draw_check_prop(PointerRNA *UNUSED(ptr),
1544                                        PropertyRNA *prop,
1545                                        void *UNUSED(user_data))
1546 {
1547   const char *prop_id = RNA_property_identifier(prop);
1548
1549   return !(STREQ(prop_id, "filepath") || STREQ(prop_id, "directory") ||
1550            STREQ(prop_id, "filename"));
1551 }
1552
1553 static void image_open_draw(bContext *UNUSED(C), wmOperator *op)
1554 {
1555   uiLayout *layout = op->layout;
1556   ImageOpenData *iod = op->customdata;
1557   ImageFormatData *imf = &iod->im_format;
1558   PointerRNA imf_ptr, ptr;
1559
1560   /* main draw call */
1561   RNA_pointer_create(NULL, op->type->srna, op->properties, &ptr);
1562   uiDefAutoButsRNA(
1563       layout, &ptr, image_open_draw_check_prop, NULL, NULL, UI_BUT_LABEL_ALIGN_NONE, false);
1564
1565   /* image template */
1566   RNA_pointer_create(NULL, &RNA_ImageFormatSettings, imf, &imf_ptr);
1567
1568   /* multiview template */
1569   if (RNA_boolean_get(op->ptr, "show_multiview")) {
1570     uiTemplateImageFormatViews(layout, &imf_ptr, op->ptr);
1571   }
1572 }
1573
1574 /* called by other space types too */
1575 void IMAGE_OT_open(wmOperatorType *ot)
1576 {
1577   /* identifiers */
1578   ot->name = "Open Image";
1579   ot->description = "Open image";
1580   ot->idname = "IMAGE_OT_open";
1581
1582   /* api callbacks */
1583   ot->exec = image_open_exec;
1584   ot->invoke = image_open_invoke;
1585   ot->cancel = image_open_cancel;
1586   ot->ui = image_open_draw;
1587
1588   /* flags */
1589   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1590
1591   /* properties */
1592   WM_operator_properties_filesel(ot,
1593                                  FILE_TYPE_FOLDER | FILE_TYPE_IMAGE | FILE_TYPE_MOVIE,
1594                                  FILE_SPECIAL,
1595                                  FILE_OPENFILE,
1596                                  WM_FILESEL_FILEPATH | WM_FILESEL_DIRECTORY | WM_FILESEL_FILES |
1597                                      WM_FILESEL_RELPATH,
1598                                  FILE_DEFAULTDISPLAY,
1599                                  FILE_SORT_ALPHA);
1600
1601   RNA_def_boolean(
1602       ot->srna,
1603       "use_sequence_detection",
1604       true,
1605       "Detect Sequences",
1606       "Automatically detect animated sequences in selected images (based on file names)");
1607 }
1608
1609 /** \} */
1610
1611 /* -------------------------------------------------------------------- */
1612 /** \name Match Movie Length Operator
1613  * \{ */
1614
1615 static int image_match_len_exec(bContext *C, wmOperator *UNUSED(op))
1616 {
1617   Scene *scene = CTX_data_scene(C);
1618   Image *ima = image_from_context(C);
1619   ImageUser *iuser = image_user_from_context(C);
1620
1621   if (!ima || !iuser) {
1622     /* Try to get a Texture, or a SpaceImage from context... */
1623     Tex *tex = CTX_data_pointer_get_type(C, "texture", &RNA_Texture).data;
1624     if (tex && tex->type == TEX_IMAGE) {
1625       ima = tex->ima;
1626       iuser = &tex->iuser;
1627     }
1628   }
1629
1630   if (!ima || !iuser || !BKE_image_has_anim(ima)) {
1631     return OPERATOR_CANCELLED;
1632   }
1633
1634   struct anim *anim = ((ImageAnim *)ima->anims.first)->anim;
1635   if (!anim) {
1636     return OPERATOR_CANCELLED;
1637   }
1638   iuser->frames = IMB_anim_get_duration(anim, IMB_TC_RECORD_RUN);
1639   BKE_image_user_frame_calc(ima, iuser, scene->r.cfra);
1640
1641   return OPERATOR_FINISHED;
1642 }
1643
1644 /* called by other space types too */
1645 void IMAGE_OT_match_movie_length(wmOperatorType *ot)
1646 {
1647   /* identifiers */
1648   ot->name = "Match Movie Length";
1649   ot->description = "Set image's user's length to the one of this video";
1650   ot->idname = "IMAGE_OT_match_movie_length";
1651
1652   /* api callbacks */
1653   ot->exec = image_match_len_exec;
1654
1655   /* flags */
1656   /* Don't think we need undo for that. */
1657   ot->flag = OPTYPE_REGISTER | OPTYPE_INTERNAL /* | OPTYPE_UNDO */;
1658 }
1659
1660 /** \} */
1661
1662 /* -------------------------------------------------------------------- */
1663 /** \name Replace Image Operator
1664  * \{ */
1665
1666 static int image_replace_exec(bContext *C, wmOperator *op)
1667 {
1668   Main *bmain = CTX_data_main(C);
1669   SpaceImage *sima = CTX_wm_space_image(C);
1670   char str[FILE_MAX];
1671
1672   if (!sima->image) {
1673     return OPERATOR_CANCELLED;
1674   }
1675
1676   RNA_string_get(op->ptr, "filepath", str);
1677
1678   /* we cant do much if the str is longer then FILE_MAX :/ */
1679   BLI_strncpy(sima->image->name, str, sizeof(sima->image->name));
1680
1681   if (sima->image->source == IMA_SRC_GENERATED) {
1682     sima->image->source = IMA_SRC_FILE;
1683     BKE_image_signal(bmain, sima->image, &sima->iuser, IMA_SIGNAL_SRC_CHANGE);
1684   }
1685
1686   if (BLI_path_extension_check_array(str, imb_ext_movie)) {
1687     sima->image->source = IMA_SRC_MOVIE;
1688   }
1689   else {
1690     sima->image->source = IMA_SRC_FILE;
1691   }
1692
1693   /* XXX BKE_packedfile_unpack_image frees image buffers */
1694   ED_preview_kill_jobs(CTX_wm_manager(C), CTX_data_main(C));
1695
1696   BKE_icon_changed(BKE_icon_id_ensure(&sima->image->id));
1697   BKE_image_signal(bmain, sima->image, &sima->iuser, IMA_SIGNAL_RELOAD);
1698   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, sima->image);
1699
1700   return OPERATOR_FINISHED;
1701 }
1702
1703 static int image_replace_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
1704 {
1705   SpaceImage *sima = CTX_wm_space_image(C);
1706
1707   if (!sima->image) {
1708     return OPERATOR_CANCELLED;
1709   }
1710
1711   if (RNA_struct_property_is_set(op->ptr, "filepath")) {
1712     return image_replace_exec(C, op);
1713   }
1714
1715   if (!RNA_struct_property_is_set(op->ptr, "relative_path")) {
1716     RNA_boolean_set(op->ptr, "relative_path", BLI_path_is_rel(sima->image->name));
1717   }
1718
1719   image_filesel(C, op, sima->image->name);
1720
1721   return OPERATOR_RUNNING_MODAL;
1722 }
1723
1724 void IMAGE_OT_replace(wmOperatorType *ot)
1725 {
1726   /* identifiers */
1727   ot->name = "Replace Image";
1728   ot->idname = "IMAGE_OT_replace";
1729   ot->description = "Replace current image by another one from disk";
1730
1731   /* api callbacks */
1732   ot->exec = image_replace_exec;
1733   ot->invoke = image_replace_invoke;
1734   ot->poll = image_not_packed_poll;
1735
1736   /* flags */
1737   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
1738
1739   /* properties */
1740   WM_operator_properties_filesel(ot,
1741                                  FILE_TYPE_FOLDER | FILE_TYPE_IMAGE | FILE_TYPE_MOVIE,
1742                                  FILE_SPECIAL,
1743                                  FILE_OPENFILE,
1744                                  WM_FILESEL_FILEPATH | WM_FILESEL_RELPATH,
1745                                  FILE_DEFAULTDISPLAY,
1746                                  FILE_SORT_ALPHA);
1747 }
1748
1749 /** \} */
1750
1751 /* -------------------------------------------------------------------- */
1752 /** \name Save Image As Operator
1753  * \{ */
1754
1755 static char imtype_best_depth(ImBuf *ibuf, const char imtype)
1756 {
1757   const char depth_ok = BKE_imtype_valid_depths(imtype);
1758
1759   if (ibuf->rect_float) {
1760     if (depth_ok & R_IMF_CHAN_DEPTH_32) {
1761       return R_IMF_CHAN_DEPTH_32;
1762     }
1763     if (depth_ok & R_IMF_CHAN_DEPTH_24) {
1764       return R_IMF_CHAN_DEPTH_24;
1765     }
1766     if (depth_ok & R_IMF_CHAN_DEPTH_16) {
1767       return R_IMF_CHAN_DEPTH_16;
1768     }
1769     if (depth_ok & R_IMF_CHAN_DEPTH_12) {
1770       return R_IMF_CHAN_DEPTH_12;
1771     }
1772     return R_IMF_CHAN_DEPTH_8;
1773   }
1774   else {
1775     if (depth_ok & R_IMF_CHAN_DEPTH_8) {
1776       return R_IMF_CHAN_DEPTH_8;
1777     }
1778     if (depth_ok & R_IMF_CHAN_DEPTH_12) {
1779       return R_IMF_CHAN_DEPTH_12;
1780     }
1781     if (depth_ok & R_IMF_CHAN_DEPTH_16) {
1782       return R_IMF_CHAN_DEPTH_16;
1783     }
1784     if (depth_ok & R_IMF_CHAN_DEPTH_24) {
1785       return R_IMF_CHAN_DEPTH_24;
1786     }
1787     if (depth_ok & R_IMF_CHAN_DEPTH_32) {
1788       return R_IMF_CHAN_DEPTH_32;
1789     }
1790     return R_IMF_CHAN_DEPTH_8; /* fallback, should not get here */
1791   }
1792 }
1793
1794 static int image_save_options_init(Main *bmain,
1795                                    ImageSaveOptions *opts,
1796                                    Image *ima,
1797                                    ImageUser *iuser,
1798                                    const bool guess_path,
1799                                    const bool save_as_render)
1800 {
1801   void *lock;
1802   ImBuf *ibuf = BKE_image_acquire_ibuf(ima, iuser, &lock);
1803
1804   if (ibuf) {
1805     Scene *scene = opts->scene;
1806     bool is_depth_set = false;
1807
1808     if (ELEM(ima->type, IMA_TYPE_R_RESULT, IMA_TYPE_COMPOSITE)) {
1809       /* imtype */
1810       opts->im_format = scene->r.im_format;
1811       is_depth_set = true;
1812       if (!BKE_image_is_multiview(ima)) {
1813         /* In case multiview is disabled,
1814          * render settings would be invalid for render result in this area. */
1815         opts->im_format.stereo3d_format = *ima->stereo3d_format;
1816         opts->im_format.views_format = ima->views_format;
1817       }
1818     }
1819     else {
1820       if (ima->source == IMA_SRC_GENERATED) {
1821         opts->im_format.imtype = R_IMF_IMTYPE_PNG;
1822         opts->im_format.compress = ibuf->foptions.quality;
1823         opts->im_format.planes = ibuf->planes;
1824       }
1825       else {
1826         BKE_imbuf_to_image_format(&opts->im_format, ibuf);
1827       }
1828
1829       /* use the multiview image settings as the default */
1830       opts->im_format.stereo3d_format = *ima->stereo3d_format;
1831       opts->im_format.views_format = ima->views_format;
1832     }
1833
1834     ///* XXX - this is lame, we need to make these available too! */
1835     // opts->subimtype = scene->r.subimtype;
1836
1837     BLI_strncpy(opts->filepath, ibuf->name, sizeof(opts->filepath));
1838
1839     /* sanitize all settings */
1840
1841     /* unlikely but just in case */
1842     if (ELEM(opts->im_format.planes, R_IMF_PLANES_BW, R_IMF_PLANES_RGB, R_IMF_PLANES_RGBA) == 0) {
1843       opts->im_format.planes = R_IMF_PLANES_RGBA;
1844     }
1845
1846     /* depth, account for float buffer and format support */
1847     if (is_depth_set == false) {
1848       opts->im_format.depth = imtype_best_depth(ibuf, opts->im_format.imtype);
1849     }
1850
1851     /* some formats don't use quality so fallback to scenes quality */
1852     if (opts->im_format.quality == 0) {
1853       opts->im_format.quality = scene->r.im_format.quality;
1854     }
1855
1856     /* check for empty path */
1857     if (guess_path && opts->filepath[0] == 0) {
1858       const bool is_prev_save = !STREQ(G.ima, "//");
1859       if (save_as_render) {
1860         if (is_prev_save) {
1861           BLI_strncpy(opts->filepath, G.ima, sizeof(opts->filepath));
1862         }
1863         else {
1864           BLI_strncpy(opts->filepath, "//untitled", sizeof(opts->filepath));
1865           BLI_path_abs(opts->filepath, BKE_main_blendfile_path(bmain));
1866         }
1867       }
1868       else {
1869         BLI_snprintf(opts->filepath, sizeof(opts->filepath), "//%s", ima->id.name + 2);
1870         BLI_path_make_safe(opts->filepath);
1871         BLI_path_abs(opts->filepath, is_prev_save ? G.ima : BKE_main_blendfile_path(bmain));
1872       }
1873     }
1874
1875     /* color management */
1876     BKE_color_managed_display_settings_copy(&opts->im_format.display_settings,
1877                                             &scene->display_settings);
1878     BKE_color_managed_view_settings_copy(&opts->im_format.view_settings, &scene->view_settings);
1879   }
1880
1881   BKE_image_release_ibuf(ima, ibuf, lock);
1882
1883   return (ibuf != NULL);
1884 }
1885
1886 static void image_save_options_from_op(Main *bmain, ImageSaveOptions *opts, wmOperator *op)
1887 {
1888   if (op->customdata) {
1889     BKE_color_managed_view_settings_free(&opts->im_format.view_settings);
1890
1891     opts->im_format = *(ImageFormatData *)op->customdata;
1892   }
1893
1894   if (RNA_struct_property_is_set(op->ptr, "filepath")) {
1895     RNA_string_get(op->ptr, "filepath", opts->filepath);
1896     BLI_path_abs(opts->filepath, BKE_main_blendfile_path(bmain));
1897   }
1898 }
1899
1900 static void image_save_options_to_op(ImageSaveOptions *opts, wmOperator *op)
1901 {
1902   if (op->customdata) {
1903     BKE_color_managed_view_settings_free(&((ImageFormatData *)op->customdata)->view_settings);
1904
1905     *(ImageFormatData *)op->customdata = opts->im_format;
1906   }
1907
1908   RNA_string_set(op->ptr, "filepath", opts->filepath);
1909 }
1910
1911 static bool save_image_op(const bContext *C, wmOperator *op, ImageSaveOptions *opts)
1912 {
1913   Main *bmain = CTX_data_main(C);
1914   Image *ima = image_from_context(C);
1915   ImageUser *iuser = image_user_from_context(C);
1916
1917   opts->relative = (RNA_struct_find_property(op->ptr, "relative_path") &&
1918                     RNA_boolean_get(op->ptr, "relative_path"));
1919   opts->save_copy = (RNA_struct_find_property(op->ptr, "copy") &&
1920                      RNA_boolean_get(op->ptr, "copy"));
1921   opts->save_as_render = (RNA_struct_find_property(op->ptr, "save_as_render") &&
1922                           RNA_boolean_get(op->ptr, "save_as_render"));
1923
1924   WM_cursor_wait(1);
1925
1926   bool ok = BKE_image_save(op->reports, bmain, ima, iuser, opts);
1927
1928   WM_cursor_wait(0);
1929
1930   /* Remember file path for next save. */
1931   BLI_strncpy(G.ima, opts->filepath, sizeof(G.ima));
1932
1933   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
1934
1935   return ok;
1936 }
1937
1938 static void image_save_as_free(wmOperator *op)
1939 {
1940   if (op->customdata) {
1941     ImageFormatData *im_format = (ImageFormatData *)op->customdata;
1942     BKE_color_managed_view_settings_free(&im_format->view_settings);
1943
1944     MEM_freeN(op->customdata);
1945     op->customdata = NULL;
1946   }
1947 }
1948
1949 static int image_save_as_exec(bContext *C, wmOperator *op)
1950 {
1951   Main *bmain = CTX_data_main(C);
1952   Scene *scene = CTX_data_scene(C);
1953   Image *image = image_from_context(C);
1954   ImageUser *iuser = image_user_from_context(C);
1955   ImageSaveOptions opts;
1956
1957   BKE_image_save_options_init(&opts, bmain, scene);
1958
1959   /* just in case to initialize values,
1960    * these should be set on invoke or by the caller. */
1961   image_save_options_init(bmain, &opts, image, iuser, false, false);
1962
1963   image_save_options_from_op(bmain, &opts, op);
1964   opts.do_newpath = true;
1965
1966   save_image_op(C, op, &opts);
1967
1968   if (opts.save_copy == false) {
1969     BKE_image_free_packedfiles(image);
1970   }
1971
1972   image_save_as_free(op);
1973
1974   return OPERATOR_FINISHED;
1975 }
1976
1977 static bool image_save_as_check(bContext *UNUSED(C), wmOperator *op)
1978 {
1979   ImageFormatData *imf = op->customdata;
1980   return WM_operator_filesel_ensure_ext_imtype(op, imf);
1981 }
1982
1983 static int image_save_as_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
1984 {
1985   Main *bmain = CTX_data_main(C);
1986   Image *ima = image_from_context(C);
1987   ImageUser *iuser = image_user_from_context(C);
1988   Scene *scene = CTX_data_scene(C);
1989   ImageSaveOptions opts;
1990   PropertyRNA *prop;
1991   const bool save_as_render = (ima->source == IMA_SRC_VIEWER);
1992
1993   if (RNA_struct_property_is_set(op->ptr, "filepath")) {
1994     return image_save_as_exec(C, op);
1995   }
1996
1997   BKE_image_save_options_init(&opts, bmain, scene);
1998
1999   if (image_save_options_init(bmain, &opts, ima, iuser, true, save_as_render) == 0) {
2000     return OPERATOR_CANCELLED;
2001   }
2002   image_save_options_to_op(&opts, op);
2003
2004   /* enable save_copy by default for render results */
2005   if (ELEM(ima->type, IMA_TYPE_R_RESULT, IMA_TYPE_COMPOSITE) &&
2006       !RNA_struct_property_is_set(op->ptr, "copy")) {
2007     RNA_boolean_set(op->ptr, "copy", true);
2008   }
2009
2010   RNA_boolean_set(op->ptr, "save_as_render", save_as_render);
2011
2012   op->customdata = MEM_mallocN(sizeof(opts.im_format), __func__);
2013   memcpy(op->customdata, &opts.im_format, sizeof(opts.im_format));
2014
2015   /* show multiview save options only if image has multiviews */
2016   prop = RNA_struct_find_property(op->ptr, "show_multiview");
2017   RNA_property_boolean_set(op->ptr, prop, BKE_image_is_multiview(ima));
2018   prop = RNA_struct_find_property(op->ptr, "use_multiview");
2019   RNA_property_boolean_set(op->ptr, prop, BKE_image_is_multiview(ima));
2020
2021   image_filesel(C, op, opts.filepath);
2022
2023   return OPERATOR_RUNNING_MODAL;
2024 }
2025
2026 static void image_save_as_cancel(bContext *UNUSED(C), wmOperator *op)
2027 {
2028   image_save_as_free(op);
2029 }
2030
2031 static bool image_save_as_draw_check_prop(PointerRNA *ptr,
2032                                           PropertyRNA *prop,
2033                                           void *UNUSED(user_data))
2034 {
2035   const char *prop_id = RNA_property_identifier(prop);
2036
2037   return !(STREQ(prop_id, "filepath") || STREQ(prop_id, "directory") ||
2038            STREQ(prop_id, "filename") ||
2039            /* when saving a copy, relative path has no effect */
2040            ((STREQ(prop_id, "relative_path")) && RNA_boolean_get(ptr, "copy")));
2041 }
2042
2043 static void image_save_as_draw(bContext *UNUSED(C), wmOperator *op)
2044 {
2045   uiLayout *layout = op->layout;
2046   ImageFormatData *imf = op->customdata;
2047   PointerRNA imf_ptr, ptr;
2048   const bool is_multiview = RNA_boolean_get(op->ptr, "show_multiview");
2049
2050   /* image template */
2051   RNA_pointer_create(NULL, &RNA_ImageFormatSettings, imf, &imf_ptr);
2052   uiTemplateImageSettings(layout, &imf_ptr, false);
2053
2054   /* main draw call */
2055   RNA_pointer_create(NULL, op->type->srna, op->properties, &ptr);
2056   uiDefAutoButsRNA(
2057       layout, &ptr, image_save_as_draw_check_prop, NULL, NULL, UI_BUT_LABEL_ALIGN_NONE, false);
2058
2059   /* multiview template */
2060   if (is_multiview) {
2061     uiTemplateImageFormatViews(layout, &imf_ptr, op->ptr);
2062   }
2063 }
2064
2065 static bool image_save_as_poll(bContext *C)
2066 {
2067   if (!image_from_context_has_data_poll(C)) {
2068     return false;
2069   }
2070
2071   if (G.is_rendering) {
2072     /* no need to NULL check here */
2073     Image *ima = image_from_context(C);
2074
2075     if (ima->source == IMA_SRC_VIEWER) {
2076       CTX_wm_operator_poll_msg_set(C, "can't save image while rendering");
2077       return false;
2078     }
2079   }
2080
2081   return true;
2082 }
2083
2084 void IMAGE_OT_save_as(wmOperatorType *ot)
2085 {
2086   /* identifiers */
2087   ot->name = "Save As Image";
2088   ot->idname = "IMAGE_OT_save_as";
2089   ot->description = "Save the image with another name and/or settings";
2090
2091   /* api callbacks */
2092   ot->exec = image_save_as_exec;
2093   ot->check = image_save_as_check;
2094   ot->invoke = image_save_as_invoke;
2095   ot->cancel = image_save_as_cancel;
2096   ot->ui = image_save_as_draw;
2097   ot->poll = image_save_as_poll;
2098
2099   /* flags */
2100   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2101
2102   /* properties */
2103   RNA_def_boolean(ot->srna,
2104                   "save_as_render",
2105                   0,
2106                   "Save As Render",
2107                   "Apply render part of display transform when saving byte image");
2108   RNA_def_boolean(ot->srna,
2109                   "copy",
2110                   0,
2111                   "Copy",
2112                   "Create a new image file without modifying the current image in blender");
2113
2114   WM_operator_properties_filesel(ot,
2115                                  FILE_TYPE_FOLDER | FILE_TYPE_IMAGE | FILE_TYPE_MOVIE,
2116                                  FILE_SPECIAL,
2117                                  FILE_SAVE,
2118                                  WM_FILESEL_FILEPATH | WM_FILESEL_RELPATH | WM_FILESEL_SHOW_PROPS,
2119                                  FILE_DEFAULTDISPLAY,
2120                                  FILE_SORT_ALPHA);
2121 }
2122
2123 /** \} */
2124
2125 /* -------------------------------------------------------------------- */
2126 /** \name Save Image Operator
2127  * \{ */
2128
2129 static bool image_file_path_saveable(bContext *C, Image *ima, ImageUser *iuser)
2130 {
2131   /* Can always repack images. */
2132   if (BKE_image_has_packedfile(ima)) {
2133     return true;
2134   }
2135
2136   /* Test for valid filepath. */
2137   void *lock;
2138   ImBuf *ibuf = BKE_image_acquire_ibuf(ima, iuser, &lock);
2139   bool ret = false;
2140
2141   if (ibuf) {
2142     Main *bmain = CTX_data_main(C);
2143     char name[FILE_MAX];
2144     BLI_strncpy(name, ibuf->name, FILE_MAX);
2145     BLI_path_abs(name, BKE_main_blendfile_path(bmain));
2146
2147     if (BLI_exists(name) == false) {
2148       CTX_wm_operator_poll_msg_set(C, "image file not found");
2149     }
2150     else if (!BLI_file_is_writable(name)) {
2151       CTX_wm_operator_poll_msg_set(C, "image path can't be written to");
2152     }
2153     else if (!BKE_image_buffer_format_writable(ibuf)) {
2154       CTX_wm_operator_poll_msg_set(C, "image format is read-only");
2155     }
2156     else {
2157       ret = true;
2158     }
2159   }
2160
2161   BKE_image_release_ibuf(ima, ibuf, lock);
2162   return ret;
2163 }
2164
2165 static bool image_save_poll(bContext *C)
2166 {
2167   /* Can't save if there are no pixels. */
2168   if (image_from_context_has_data_poll(C) == false) {
2169     return false;
2170   }
2171
2172   Image *ima = image_from_context(C);
2173   ImageUser *iuser = image_user_from_context(C);
2174
2175   /* Images without a filepath will go to save as. */
2176   if (!BKE_image_has_filepath(ima)) {
2177     return true;
2178   }
2179
2180   /* Check if there is a valid file path and image format we can write. */
2181   return image_file_path_saveable(C, ima, iuser);
2182 }
2183
2184 static int image_save_exec(bContext *C, wmOperator *op)
2185 {
2186   Main *bmain = CTX_data_main(C);
2187   Image *image = image_from_context(C);
2188   ImageUser *iuser = image_user_from_context(C);
2189   Scene *scene = CTX_data_scene(C);
2190   ImageSaveOptions opts;
2191
2192   if (BKE_image_has_packedfile(image)) {
2193     /* Save packed files to memory. */
2194     BKE_image_memorypack(image);
2195     return OPERATOR_FINISHED;
2196   }
2197
2198   BKE_image_save_options_init(&opts, bmain, scene);
2199   if (image_save_options_init(bmain, &opts, image, iuser, false, false) == 0) {
2200     return OPERATOR_CANCELLED;
2201   }
2202   image_save_options_from_op(bmain, &opts, op);
2203
2204   if (BLI_exists(opts.filepath) && BLI_file_is_writable(opts.filepath)) {
2205     if (save_image_op(C, op, &opts)) {
2206       /* report since this can be called from key-shortcuts */
2207       BKE_reportf(op->reports, RPT_INFO, "Saved Image '%s'", opts.filepath);
2208     }
2209   }
2210   else {
2211     BKE_reportf(
2212         op->reports, RPT_ERROR, "Cannot save image, path '%s' is not writable", opts.filepath);
2213     return OPERATOR_CANCELLED;
2214   }
2215
2216   return OPERATOR_FINISHED;
2217 }
2218
2219 static int image_save_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
2220 {
2221   Image *ima = image_from_context(C);
2222
2223   if (!BKE_image_has_packedfile(ima) && !BKE_image_has_filepath(ima)) {
2224     WM_operator_name_call(C, "IMAGE_OT_save_as", WM_OP_INVOKE_DEFAULT, NULL);
2225     return OPERATOR_CANCELLED;
2226   }
2227   else {
2228     return image_save_exec(C, op);
2229   }
2230 }
2231
2232 void IMAGE_OT_save(wmOperatorType *ot)
2233 {
2234   /* identifiers */
2235   ot->name = "Save Image";
2236   ot->idname = "IMAGE_OT_save";
2237   ot->description = "Save the image with current name and settings";
2238
2239   /* api callbacks */
2240   ot->exec = image_save_exec;
2241   ot->invoke = image_save_invoke;
2242   ot->poll = image_save_poll;
2243
2244   /* flags */
2245   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2246 }
2247
2248 /** \} */
2249
2250 /* -------------------------------------------------------------------- */
2251 /** \name Save Sequence Operator
2252  * \{ */
2253
2254 static int image_save_sequence_exec(bContext *C, wmOperator *op)
2255 {
2256   Main *bmain = CTX_data_main(C);
2257   Image *image = image_from_context(C);
2258   ImBuf *ibuf, *first_ibuf = NULL;
2259   int tot = 0;
2260   char di[FILE_MAX];
2261   struct MovieCacheIter *iter;
2262
2263   if (image == NULL) {
2264     return OPERATOR_CANCELLED;
2265   }
2266
2267   if (image->source != IMA_SRC_SEQUENCE) {
2268     BKE_report(op->reports, RPT_ERROR, "Can only save sequence on image sequences");
2269     return OPERATOR_CANCELLED;
2270   }
2271
2272   if (image->type == IMA_TYPE_MULTILAYER) {
2273     BKE_report(op->reports, RPT_ERROR, "Cannot save multilayer sequences");
2274     return OPERATOR_CANCELLED;
2275   }
2276
2277   /* get total dirty buffers and first dirty buffer which is used for menu */
2278   ibuf = NULL;
2279   if (image->cache != NULL) {
2280     iter = IMB_moviecacheIter_new(image->cache);
2281     while (!IMB_moviecacheIter_done(iter)) {
2282       ibuf = IMB_moviecacheIter_getImBuf(iter);
2283       if (ibuf->userflags & IB_BITMAPDIRTY) {
2284         if (first_ibuf == NULL) {
2285           first_ibuf = ibuf;
2286         }
2287         tot++;
2288       }
2289       IMB_moviecacheIter_step(iter);
2290     }
2291     IMB_moviecacheIter_free(iter);
2292   }
2293
2294   if (tot == 0) {
2295     BKE_report(op->reports, RPT_WARNING, "No images have been changed");
2296     return OPERATOR_CANCELLED;
2297   }
2298
2299   /* get a filename for menu */
2300   BLI_split_dir_part(first_ibuf->name, di, sizeof(di));
2301   BKE_reportf(op->reports,
2302               RPT_INFO,
2303               tot == 1 ? "%d image will be saved in %s" :
2304                          "%d images will be saved in %s",
2305               tot,
2306               di);
2307
2308   iter = IMB_moviecacheIter_new(image->cache);
2309   while (!IMB_moviecacheIter_done(iter)) {
2310     ibuf = IMB_moviecacheIter_getImBuf(iter);
2311
2312     if (ibuf->userflags & IB_BITMAPDIRTY) {
2313       char name[FILE_MAX];
2314       BLI_strncpy(name, ibuf->name, sizeof(name));
2315
2316       BLI_path_abs(name, BKE_main_blendfile_path(bmain));
2317
2318       if (0 == IMB_saveiff(ibuf, name, IB_rect | IB_zbuf | IB_zbuffloat)) {
2319         BKE_reportf(op->reports, RPT_ERROR, "Could not write image: %s", strerror(errno));
2320         break;
2321       }
2322
2323       BKE_reportf(op->reports, RPT_INFO, "Saved %s", ibuf->name);
2324       ibuf->userflags &= ~IB_BITMAPDIRTY;
2325     }
2326
2327     IMB_moviecacheIter_step(iter);
2328   }
2329   IMB_moviecacheIter_free(iter);
2330
2331   return OPERATOR_FINISHED;
2332 }
2333
2334 void IMAGE_OT_save_sequence(wmOperatorType *ot)
2335 {
2336   /* identifiers */
2337   ot->name = "Save Sequence";
2338   ot->idname = "IMAGE_OT_save_sequence";
2339   ot->description = "Save a sequence of images";
2340
2341   /* api callbacks */
2342   ot->exec = image_save_sequence_exec;
2343   ot->poll = image_from_context_has_data_poll;
2344
2345   /* flags */
2346   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2347 }
2348
2349 /** \} */
2350
2351 /* -------------------------------------------------------------------- */
2352 /** \name Save All Operator
2353  * \{ */
2354
2355 static bool image_should_be_saved_when_modified(Image *ima)
2356 {
2357   return !ELEM(ima->type, IMA_TYPE_R_RESULT, IMA_TYPE_COMPOSITE);
2358 }
2359
2360 static bool image_should_be_saved(Image *ima, bool *is_format_writable)
2361 {
2362   if (BKE_image_is_dirty_writable(ima, is_format_writable) &&
2363       (ima->source == IMA_SRC_FILE || ima->source == IMA_SRC_GENERATED)) {
2364     return image_should_be_saved_when_modified(ima);
2365   }
2366   else {
2367     return false;
2368   }
2369 }
2370
2371 static bool image_has_valid_path(Image *ima)
2372 {
2373   return strchr(ima->name, '\\') || strchr(ima->name, '/');
2374 }
2375
2376 bool ED_image_should_save_modified(const bContext *C)
2377 {
2378   ReportList reports;
2379   BKE_reports_init(&reports, RPT_STORE);
2380
2381   uint modified_images_count = ED_image_save_all_modified_info(C, &reports);
2382   bool should_save = modified_images_count || !BLI_listbase_is_empty(&reports.list);
2383
2384   BKE_reports_clear(&reports);
2385
2386   return should_save;
2387 }
2388
2389 int ED_image_save_all_modified_info(const bContext *C, ReportList *reports)
2390 {
2391   Main *bmain = CTX_data_main(C);
2392   GSet *unique_paths = BLI_gset_str_new(__func__);
2393
2394   int num_saveable_images = 0;
2395
2396   for (Image *ima = bmain->images.first; ima; ima = ima->id.next) {
2397     bool is_format_writable;
2398
2399     if (image_should_be_saved(ima, &is_format_writable)) {
2400       if (BKE_image_has_packedfile(ima) || (ima->source == IMA_SRC_GENERATED)) {
2401         if (ima->id.lib == NULL) {
2402           num_saveable_images++;
2403         }
2404         else {
2405           BKE_reportf(reports,
2406                       RPT_WARNING,
2407                       "Packed library image: %s from library %s can't be saved",
2408                       ima->id.name + 2,
2409                       ima->id.lib->name);
2410         }
2411       }
2412       else if (!is_format_writable) {
2413         BKE_reportf(reports,
2414                     RPT_WARNING,
2415                     "Image %s can't be saved automatically, must use a different file format",
2416                     ima->id.name + 2);
2417       }
2418       else {
2419         if (image_has_valid_path(ima)) {
2420           num_saveable_images++;
2421           if (BLI_gset_haskey(unique_paths, ima->name)) {
2422             BKE_reportf(reports,
2423                         RPT_WARNING,
2424                         "File path used by more than one saved image: %s",
2425                         ima->name);
2426           }
2427           else {
2428             BLI_gset_insert(unique_paths, BLI_strdup(ima->name));
2429           }
2430         }
2431         else {
2432           BKE_reportf(reports,
2433                       RPT_WARNING,
2434                       "Image %s can't be saved, no valid file path: %s",
2435                       ima->id.name + 2,
2436                       ima->name);
2437         }
2438       }
2439     }
2440   }
2441
2442   BLI_gset_free(unique_paths, MEM_freeN);
2443   return num_saveable_images;
2444 }
2445
2446 bool ED_image_save_all_modified(const bContext *C, ReportList *reports)
2447 {
2448   ED_image_save_all_modified_info(C, reports);
2449
2450   Main *bmain = CTX_data_main(C);
2451   bool ok = true;
2452
2453   for (Image *ima = bmain->images.first; ima; ima = ima->id.next) {
2454     bool is_format_writable;
2455
2456     if (image_should_be_saved(ima, &is_format_writable)) {
2457       if (BKE_image_has_packedfile(ima) || (ima->source == IMA_SRC_GENERATED)) {
2458         BKE_image_memorypack(ima);
2459       }
2460       else if (is_format_writable) {
2461         if (image_has_valid_path(ima)) {
2462           ImageSaveOptions opts;
2463           Scene *scene = CTX_data_scene(C);
2464           BKE_image_save_options_init(&opts, bmain, scene);
2465           if (image_save_options_init(bmain, &opts, ima, NULL, false, false)) {
2466             bool saved_successfully = BKE_image_save(reports, bmain, ima, NULL, &opts);
2467             ok = ok && saved_successfully;
2468           }
2469         }
2470       }
2471     }
2472   }
2473   return ok;
2474 }
2475
2476 static bool image_save_all_modified_poll(bContext *C)
2477 {
2478   int num_files = ED_image_save_all_modified_info(C, NULL);
2479   return num_files > 0;
2480 }
2481
2482 static int image_save_all_modified_exec(bContext *C, wmOperator *op)
2483 {
2484   ED_image_save_all_modified(C, op->reports);
2485   return OPERATOR_FINISHED;
2486 }
2487
2488 void IMAGE_OT_save_all_modified(wmOperatorType *ot)
2489 {
2490   /* identifiers */
2491   ot->name = "Save All Modified";
2492   ot->idname = "IMAGE_OT_save_all_modified";
2493   ot->description = "Save all modified images";
2494
2495   /* api callbacks */
2496   ot->exec = image_save_all_modified_exec;
2497   ot->poll = image_save_all_modified_poll;
2498
2499   /* flags */
2500   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
2501 }
2502
2503 /** \} */
2504
2505 /* -------------------------------------------------------------------- */
2506 /** \name Reload Image Operator
2507  * \{ */
2508
2509 static int image_reload_exec(bContext *C, wmOperator *UNUSED(op))
2510 {
2511   Main *bmain = CTX_data_main(C);
2512   Image *ima = image_from_context(C);
2513   ImageUser *iuser = image_user_from_context(C);
2514
2515   if (!ima) {
2516     return OPERATOR_CANCELLED;
2517   }
2518
2519   /* XXX BKE_packedfile_unpack_image frees image buffers */
2520   ED_preview_kill_jobs(CTX_wm_manager(C), CTX_data_main(C));
2521
2522   BKE_image_signal(bmain, ima, iuser, IMA_SIGNAL_RELOAD);
2523   DEG_id_tag_update(&ima->id, 0);
2524
2525   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
2526
2527   return OPERATOR_FINISHED;
2528 }
2529
2530 void IMAGE_OT_reload(wmOperatorType *ot)
2531 {
2532   /* identifiers */
2533   ot->name = "Reload Image";
2534   ot->idname = "IMAGE_OT_reload";
2535   ot->description = "Reload current image from disk";
2536
2537   /* api callbacks */
2538   ot->exec = image_reload_exec;
2539
2540   /* flags */
2541   ot->flag = OPTYPE_REGISTER; /* no undo, image buffer is not handled by undo */
2542 }
2543
2544 /** \} */
2545
2546 /* -------------------------------------------------------------------- */
2547 /** \name New Image Operator
2548  * \{ */
2549
2550 #define IMA_DEF_NAME N_("Untitled")
2551
2552 enum {
2553   GEN_CONTEXT_NONE = 0,
2554   GEN_CONTEXT_PAINT_CANVAS = 1,
2555   GEN_CONTEXT_PAINT_STENCIL = 2,
2556 };
2557
2558 typedef struct ImageNewData {
2559   PropertyPointerRNA pprop;
2560 } ImageNewData;
2561
2562 static ImageNewData *image_new_init(bContext *C, wmOperator *op)
2563 {
2564   if (op->customdata) {
2565     return op->customdata;
2566   }
2567
2568   ImageNewData *data = MEM_callocN(sizeof(ImageNewData), __func__);
2569   UI_context_active_but_prop_get_templateID(C, &data->pprop.ptr, &data->pprop.prop);
2570   op->customdata = data;
2571   return data;
2572 }
2573
2574 static void image_new_free(wmOperator *op)
2575 {
2576   if (op->customdata) {
2577     MEM_freeN(op->customdata);
2578     op->customdata = NULL;
2579   }
2580 }
2581
2582 static int image_new_exec(bContext *C, wmOperator *op)
2583 {
2584   SpaceImage *sima;
2585   Object *obedit;
2586   Image *ima;
2587   Main *bmain;
2588   PropertyRNA *prop;
2589   char name_buffer[MAX_ID_NAME - 2];
2590   const char *name;
2591   float color[4];
2592   int width, height, floatbuf, gen_type, alpha;
2593   int stereo3d;
2594
2595   /* retrieve state */
2596   sima = CTX_wm_space_image(C);
2597   obedit = CTX_data_edit_object(C);
2598   bmain = CTX_data_main(C);
2599
2600   prop = RNA_struct_find_property(op->ptr, "name");
2601   RNA_property_string_get(op->ptr, prop, name_buffer);
2602   if (!RNA_property_is_set(op->ptr, prop)) {
2603     /* Default value, we can translate! */
2604     name = DATA_(name_buffer);
2605   }
2606   else {
2607     name = name_buffer;
2608   }
2609   width = RNA_int_get(op->ptr, "width");
2610   height = RNA_int_get(op->ptr, "height");
2611   floatbuf = RNA_boolean_get(op->ptr, "float");
2612   gen_type = RNA_enum_get(op->ptr, "generated_type");
2613   RNA_float_get_array(op->ptr, "color", color);
2614   alpha = RNA_boolean_get(op->ptr, "alpha");
2615   stereo3d = RNA_boolean_get(op->ptr, "use_stereo_3d");
2616
2617   if (!alpha) {
2618     color[3] = 1.0f;
2619   }
2620
2621   ima = BKE_image_add_generated(
2622       bmain, width, height, name, alpha ? 32 : 24, floatbuf, gen_type, color, stereo3d, false);
2623
2624   if (!ima) {
2625     image_new_free(op);
2626     return OPERATOR_CANCELLED;
2627   }
2628
2629   /* hook into UI */
2630   ImageNewData *data = image_new_init(C, op);
2631
2632   if (data->pprop.prop) {
2633     /* when creating new ID blocks, use is already 1, but RNA
2634      * pointer use also increases user, so this compensates it */
2635     id_us_min(&ima->id);
2636
2637     PointerRNA imaptr;
2638     RNA_id_pointer_create(&ima->id, &imaptr);
2639     RNA_property_pointer_set(&data->pprop.ptr, data->pprop.prop, imaptr, NULL);
2640     RNA_property_update(C, &data->pprop.ptr, data->pprop.prop);
2641   }
2642   else if (sima) {
2643     ED_space_image_set(bmain, sima, obedit, ima, false);
2644   }
2645
2646   BKE_image_signal(bmain, ima, (sima) ? &sima->iuser : NULL, IMA_SIGNAL_USER_NEW_IMAGE);
2647
2648   WM_event_add_notifier(C, NC_IMAGE | NA_ADDED, ima);
2649
2650   image_new_free(op);
2651
2652   return OPERATOR_FINISHED;
2653 }
2654
2655 static int image_new_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
2656 {
2657   /* Get property in advance, it doesn't work after WM_operator_props_dialog_popup. */
2658   ImageNewData *data;
2659   op->customdata = data = MEM_callocN(sizeof(ImageNewData), __func__);
2660   UI_context_active_but_prop_get_templateID(C, &data->pprop.ptr, &data->pprop.prop);
2661
2662   /* Better for user feedback. */
2663   RNA_string_set(op->ptr, "name", DATA_(IMA_DEF_NAME));
2664   return WM_operator_props_dialog_popup(C, op, 300, 100);
2665 }
2666
2667 static void image_new_draw(bContext *UNUSED(C), wmOperator *op)
2668 {
2669   uiLayout *split, *col[2];
2670   uiLayout *layout = op->layout;
2671   PointerRNA ptr;
2672 #if 0
2673   Scene *scene = CTX_data_scene(C);
2674   const bool is_multiview = (scene->r.scemode & R_MULTIVIEW) != 0;
2675 #endif
2676
2677   RNA_pointer_create(NULL, op->type->srna, op->properties, &ptr);
2678
2679   /* copy of WM_operator_props_dialog_popup() layout */
2680
2681   split = uiLayoutSplit(layout, 0.5f, false);
2682   col[0] = uiLayoutColumn(split, false);
2683   col[1] = uiLayoutColumn(split, false);
2684
2685   uiItemL(col[0], IFACE_("Name"), ICON_NONE);
2686   uiItemR(col[1], &ptr, "name", 0, "", ICON_NONE);
2687
2688   uiItemL(col[0], IFACE_("Width"), ICON_NONE);
2689   uiItemR(col[1], &ptr, "width", 0, "", ICON_NONE);
2690
2691   uiItemL(col[0], IFACE_("Height"), ICON_NONE);
2692   uiItemR(col[1], &ptr, "height", 0, "", ICON_NONE);
2693
2694   uiItemL(col[0], IFACE_("Color"), ICON_NONE);
2695   uiItemR(col[1], &ptr, "color", 0, "", ICON_NONE);
2696
2697   uiItemL(col[0], "", ICON_NONE);
2698   uiItemR(col[1], &ptr, "alpha", 0, NULL, ICON_NONE);
2699
2700   uiItemL(col[0], IFACE_("Generated Type"), ICON_NONE);
2701   uiItemR(col[1], &ptr, "generated_type", 0, "", ICON_NONE);
2702
2703   uiItemL(col[0], "", ICON_NONE);
2704   uiItemR(col[1], &ptr, "float", 0, NULL, ICON_NONE);
2705
2706 #if 0
2707   if (is_multiview) {
2708     uiItemL(col[0], "", ICON_NONE);
2709     uiItemR(col[1], &ptr, "use_stereo_3d", 0, NULL, ICON_NONE);
2710   }
2711 #endif
2712 }
2713
2714 static void image_new_cancel(bContext *UNUSED(C), wmOperator *op)
2715 {
2716   image_new_free(op);
2717 }
2718
2719 void IMAGE_OT_new(wmOperatorType *ot)
2720 {
2721   PropertyRNA *prop;
2722   static float default_color[4] = {0.0f, 0.0f, 0.0f, 1.0f};
2723
2724   /* identifiers */
2725   ot->name = "New Image";
2726   ot->description = "Create a new image";
2727   ot->idname = "IMAGE_OT_new";
2728
2729   /* api callbacks */
2730   ot->exec = image_new_exec;
2731   ot->invoke = image_new_invoke;
2732   ot->ui = image_new_draw;
2733   ot->cancel = image_new_cancel;
2734
2735   /* flags */
2736   ot->flag = OPTYPE_UNDO;
2737
2738   /* properties */
2739   RNA_def_string(ot->srna, "name", IMA_DEF_NAME, MAX_ID_NAME - 2, "Name", "Image data-block name");
2740   prop = RNA_def_int(ot->srna, "width", 1024, 1, INT_MAX, "Width", "Image width", 1, 16384);
2741   RNA_def_property_subtype(prop, PROP_PIXEL);
2742   prop = RNA_def_int(ot->srna, "height", 1024, 1, INT_MAX, "Height", "Image height", 1, 16384);
2743   RNA_def_property_subtype(prop, PROP_PIXEL);
2744   prop = RNA_def_float_color(
2745       ot->srna, "color", 4, NULL, 0.0f, FLT_MAX, "Color", "Default fill color", 0.0f, 1.0f);
2746   RNA_def_property_subtype(prop, PROP_COLOR_GAMMA);
2747   RNA_def_property_float_array_default(prop, default_color);
2748   RNA_def_boolean(ot->srna, "alpha", 1, "Alpha", "Create an image with an alpha channel");
2749   RNA_def_enum(ot->srna,
2750                "generated_type",
2751                rna_enum_image_generated_type_items,
2752                IMA_GENTYPE_BLANK,
2753                "Generated Type",
2754                "Fill the image with a grid for UV map testing");
2755   RNA_def_boolean(
2756       ot->srna, "float", 0, "32 bit Float", "Create image with 32 bit floating point bit depth");
2757   RNA_def_property_flag(prop, PROP_HIDDEN);
2758   prop = RNA_def_boolean(
2759       ot->srna, "use_stereo_3d", 0, "Stereo 3D", "Create an image with left and right views");
2760   RNA_def_property_flag(prop, PROP_SKIP_SAVE | PROP_HIDDEN);
2761 }
2762
2763 #undef IMA_DEF_NAME
2764
2765 /** \} */
2766
2767 /* -------------------------------------------------------------------- */
2768 /** \name Invert Operators
2769  * \{ */
2770
2771 static int image_invert_exec(bContext *C, wmOperator *op)
2772 {
2773   Image *ima = image_from_context(C);
2774   ImBuf *ibuf = BKE_image_acquire_ibuf(ima, NULL, NULL);
2775   SpaceImage *sima = CTX_wm_space_image(C);
2776   const bool is_paint = ((sima != NULL) && (sima->mode == SI_MODE_PAINT));
2777
2778   /* flags indicate if this channel should be inverted */
2779   const bool r = RNA_boolean_get(op->ptr, "invert_r");
2780   const bool g = RNA_boolean_get(op->ptr, "invert_g");
2781   const bool b = RNA_boolean_get(op->ptr, "invert_b");
2782   const bool a = RNA_boolean_get(op->ptr, "invert_a");
2783
2784   size_t i;
2785
2786   if (ibuf == NULL) {
2787     /* TODO: this should actually never happen, but does for render-results -> cleanup */
2788     return OPERATOR_CANCELLED;
2789   }
2790
2791   ED_image_undo_push_begin_with_image(op->type->name, ima, ibuf);
2792
2793   if (is_paint) {
2794     ED_imapaint_clear_partial_redraw();
2795   }
2796
2797   /* TODO: make this into an IMB_invert_channels(ibuf,r,g,b,a) method!? */
2798   if (ibuf->rect_float) {
2799
2800     float *fp = (float *)ibuf->rect_float;
2801     for (i = ((size_t)ibuf->x) * ibuf->y; i > 0; i--, fp += 4) {
2802       if (r) {
2803         fp[0] = 1.0f - fp[0];
2804       }
2805       if (g) {
2806         fp[1] = 1.0f - fp[1];
2807       }
2808       if (b) {
2809         fp[2] = 1.0f - fp[2];
2810       }
2811       if (a) {
2812         fp[3] = 1.0f - fp[3];
2813       }
2814     }
2815
2816     if (ibuf->rect) {
2817       IMB_rect_from_float(ibuf);
2818     }
2819   }
2820   else if (ibuf->rect) {
2821
2822     char *cp = (char *)ibuf->rect;
2823     for (i = ((size_t)ibuf->x) * ibuf->y; i > 0; i--, cp += 4) {
2824       if (r) {
2825         cp[0] = 255 - cp[0];
2826       }
2827       if (g) {
2828         cp[1] = 255 - cp[1];
2829       }
2830       if (b) {
2831         cp[2] = 255 - cp[2];
2832       }
2833       if (a) {
2834         cp[3] = 255 - cp[3];
2835       }
2836     }
2837   }
2838   else {
2839     BKE_image_release_ibuf(ima, ibuf, NULL);
2840     return OPERATOR_CANCELLED;
2841   }
2842
2843   ibuf->userflags |= IB_DISPLAY_BUFFER_INVALID;
2844   BKE_image_mark_dirty(ima, ibuf);
2845
2846   if (ibuf->mipmap[0]) {
2847     ibuf->userflags |= IB_MIPMAP_INVALID;
2848   }
2849
2850   ED_image_undo_push_end();
2851
2852   /* force GPU reupload, all image is invalid */
2853   GPU_free_image(ima);
2854
2855   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
2856
2857   BKE_image_release_ibuf(ima, ibuf, NULL);
2858
2859   return OPERATOR_FINISHED;
2860 }
2861
2862 void IMAGE_OT_invert(wmOperatorType *ot)
2863 {
2864   PropertyRNA *prop;
2865
2866   /* identifiers */
2867   ot->name = "Invert Channels";
2868   ot->idname = "IMAGE_OT_invert";
2869   ot->description = "Invert image's channels";
2870
2871   /* api callbacks */
2872   ot->exec = image_invert_exec;
2873   ot->poll = image_from_contect_has_data_poll_no_image_user;
2874
2875   /* properties */
2876   prop = RNA_def_boolean(ot->srna, "invert_r", 0, "Red", "Invert Red Channel");
2877   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
2878   prop = RNA_def_boolean(ot->srna, "invert_g", 0, "Green", "Invert Green Channel");
2879   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
2880   prop = RNA_def_boolean(ot->srna, "invert_b", 0, "Blue", "Invert Blue Channel");
2881   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
2882   prop = RNA_def_boolean(ot->srna, "invert_a", 0, "Alpha", "Invert Alpha Channel");
2883   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
2884
2885   /* flags */
2886   ot->flag = OPTYPE_REGISTER;
2887 }
2888
2889 /** \} */
2890
2891 /* -------------------------------------------------------------------- */
2892 /** \name Scale Operator
2893  * \{ */
2894
2895 static int image_scale_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
2896 {
2897   Image *ima = image_from_context(C);
2898   PropertyRNA *prop = RNA_struct_find_property(op->ptr, "size");
2899   if (!RNA_property_is_set(op->ptr, prop)) {
2900     ImBuf *ibuf = BKE_image_acquire_ibuf(ima, NULL, NULL);
2901     const int size[2] = {ibuf->x, ibuf->y};
2902     RNA_property_int_set_array(op->ptr, prop, size);
2903     BKE_image_release_ibuf(ima, ibuf, NULL);
2904   }
2905   return WM_operator_props_dialog_popup(C, op, 200, 200);
2906 }
2907
2908 static int image_scale_exec(bContext *C, wmOperator *op)
2909 {
2910   Image *ima = image_from_context(C);
2911   ImBuf *ibuf = BKE_image_acquire_ibuf(ima, NULL, NULL);
2912   SpaceImage *sima = CTX_wm_space_image(C);
2913   const bool is_paint = ((sima != NULL) && (sima->mode == SI_MODE_PAINT));
2914
2915   if (ibuf == NULL) {
2916     /* TODO: this should actually never happen, but does for render-results -> cleanup */
2917     return OPERATOR_CANCELLED;
2918   }
2919
2920   if (is_paint) {
2921     ED_imapaint_clear_partial_redraw();
2922   }
2923
2924   PropertyRNA *prop = RNA_struct_find_property(op->ptr, "size");
2925   int size[2];
2926   if (RNA_property_is_set(op->ptr, prop)) {
2927     RNA_property_int_get_array(op->ptr, prop, size);
2928   }
2929   else {
2930     size[0] = ibuf->x;
2931     size[1] = ibuf->y;
2932     RNA_property_int_set_array(op->ptr, prop, size);
2933   }
2934
2935   ED_image_undo_push_begin_with_image(op->type->name, ima, ibuf);
2936
2937   ibuf->userflags |= IB_DISPLAY_BUFFER_INVALID;
2938   IMB_scaleImBuf(ibuf, size[0], size[1]);
2939   BKE_image_release_ibuf(ima, ibuf, NULL);
2940
2941   ED_image_undo_push_end();
2942
2943   /* force GPU reupload, all image is invalid */
2944   GPU_free_image(ima);
2945
2946   DEG_id_tag_update(&ima->id, 0);
2947   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
2948
2949   return OPERATOR_FINISHED;
2950 }
2951
2952 void IMAGE_OT_resize(wmOperatorType *ot)
2953 {
2954   /* identifiers */
2955   ot->name = "Resize Image";
2956   ot->idname = "IMAGE_OT_resize";
2957   ot->description = "Resize the image";
2958
2959   /* api callbacks */
2960   ot->invoke = image_scale_invoke;
2961   ot->exec = image_scale_exec;
2962   ot->poll = image_from_contect_has_data_poll_no_image_user;
2963
2964   /* properties */
2965   RNA_def_int_vector(ot->srna, "size", 2, NULL, 1, INT_MAX, "Size", "", 1, SHRT_MAX);
2966
2967   /* flags */
2968   ot->flag = OPTYPE_REGISTER;
2969 }
2970
2971 /** \} */
2972
2973 /* -------------------------------------------------------------------- */
2974 /** \name Pack Operator
2975  * \{ */
2976
2977 static bool image_pack_test(bContext *C, wmOperator *op)
2978 {
2979   Image *ima = image_from_context(C);
2980
2981   if (!ima) {
2982     return 0;
2983   }
2984
2985   if (ima->source == IMA_SRC_SEQUENCE || ima->source == IMA_SRC_MOVIE) {
2986     BKE_report(op->reports, RPT_ERROR, "Packing movies or image sequences not supported");
2987     return 0;
2988   }
2989
2990   return 1;
2991 }
2992
2993 static int image_pack_exec(bContext *C, wmOperator *op)
2994 {
2995   struct Main *bmain = CTX_data_main(C);
2996   Image *ima = image_from_context(C);
2997
2998   if (!image_pack_test(C, op)) {
2999     return OPERATOR_CANCELLED;
3000   }
3001
3002   if (BKE_image_is_dirty(ima)) {
3003     BKE_image_memorypack(ima);
3004   }
3005   else {
3006     BKE_image_packfiles(op->reports, ima, ID_BLEND_PATH(bmain, &ima->id));
3007   }
3008
3009   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
3010
3011   return OPERATOR_FINISHED;
3012 }
3013
3014 void IMAGE_OT_pack(wmOperatorType *ot)
3015 {
3016   /* identifiers */
3017   ot->name = "Pack Image";
3018   ot->description = "Pack an image as embedded data into the .blend file";
3019   ot->idname = "IMAGE_OT_pack";
3020
3021   /* api callbacks */
3022   ot->exec = image_pack_exec;
3023
3024   /* flags */
3025   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
3026 }
3027
3028 /** \} */
3029
3030 /* -------------------------------------------------------------------- */
3031 /** \name Unpack Operator
3032  * \{ */
3033
3034 static int image_unpack_exec(bContext *C, wmOperator *op)
3035 {
3036   Image *ima = image_from_context(C);
3037   int method = RNA_enum_get(op->ptr, "method");
3038
3039   /* find the suppplied image by name */
3040   if (RNA_struct_property_is_set(op->ptr, "id")) {
3041     char imaname[MAX_ID_NAME - 2];
3042     RNA_string_get(op->ptr, "id", imaname);
3043     ima = BLI_findstring(&CTX_data_main(C)->images, imaname, offsetof(ID, name) + 2);
3044     if (!ima) {
3045       ima = image_from_context(C);
3046     }
3047   }
3048
3049   if (!ima || !BKE_image_has_packedfile(ima)) {
3050     return OPERATOR_CANCELLED;
3051   }
3052
3053   if (ima->source == IMA_SRC_SEQUENCE || ima->source == IMA_SRC_MOVIE) {
3054     BKE_report(op->reports, RPT_ERROR, "Unpacking movies or image sequences not supported");
3055     return OPERATOR_CANCELLED;
3056   }
3057
3058   if (G.fileflags & G_FILE_AUTOPACK) {
3059     BKE_report(op->reports,
3060                RPT_WARNING,
3061                "AutoPack is enabled, so image will be packed again on file save");
3062   }
3063
3064   /* XXX BKE_packedfile_unpack_image frees image buffers */
3065   ED_preview_kill_jobs(CTX_wm_manager(C), CTX_data_main(C));
3066
3067   BKE_packedfile_unpack_image(CTX_data_main(C), op->reports, ima, method);
3068
3069   WM_event_add_notifier(C, NC_IMAGE | NA_EDITED, ima);
3070
3071   return OPERATOR_FINISHED;
3072 }
3073
3074 static int image_unpack_invoke(bContext *C, wmOperator *op, const wmEvent *UNUSED(event))
3075 {
3076   Image *ima = image_from_context(C);
3077
3078   if (RNA_struct_property_is_set(op->ptr, "id")) {
3079     return image_unpack_exec(C, op);
3080   }
3081
3082   if (!ima || !BKE_image_has_packedfile(ima)) {
3083     return OPERATOR_CANCELLED;
3084   }
3085
3086   if (ima->source == IMA_SRC_SEQUENCE || ima->source == IMA_SRC_MOVIE) {
3087     BKE_report(op->reports, RPT_ERROR, "Unpacking movies or image sequences not supported");
3088     return OPERATOR_CANCELLED;
3089   }
3090
3091   if (G.fileflags & G_FILE_AUTOPACK) {
3092     BKE_report(op->reports,
3093                RPT_WARNING,
3094                "AutoPack is enabled, so image will be packed again on file save");
3095   }
3096
3097   unpack_menu(C,
3098               "IMAGE_OT_unpack",
3099               ima->id.name + 2,
3100               ima->name,
3101               "textures",
3102               BKE_image_has_packedfile(ima) ?
3103                   ((ImagePackedFile *)ima->packedfiles.first)->packedfile :
3104                   NULL);
3105
3106   return OPERATOR_FINISHED;
3107 }
3108
3109 void IMAGE_OT_unpack(wmOperatorType *ot)
3110 {
3111   /* identifiers */
3112   ot->name = "Unpack Image";
3113   ot->description = "Save an image packed in the .blend file to disk";
3114   ot->idname = "IMAGE_OT_unpack";
3115
3116   /* api callbacks */
3117   ot->exec = image_unpack_exec;
3118   ot->invoke = image_unpack_invoke;
3119
3120   /* flags */
3121   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
3122
3123   /* properties */
3124   RNA_def_enum(
3125       ot->srna, "method", rna_enum_unpack_method_items, PF_USE_LOCAL, "Method", "How to unpack");
3126   /* XXX, weak!, will fail with library, name collisions */
3127   RNA_def_string(
3128       ot->srna, "id", NULL, MAX_ID_NAME - 2, "Image Name", "Image data-block name to unpack");
3129 }
3130
3131 /** \} */
3132
3133 /* -------------------------------------------------------------------- */
3134 /** \name Sample Image Operator
3135  * \{ */
3136
3137 typedef struct ImageSampleInfo {
3138   ARegionType *art;
3139   void *draw_handle;
3140   int x, y;
3141   int channels;
3142
3143   int width, height;
3144   int sample_size;
3145
3146   unsigned char col[4];
3147   float colf[4];
3148   float linearcol[4];
3149   int z;
3150   float zf;
3151
3152   unsigned char *colp;
3153   const float *colfp;
3154   int *zp;
3155   float *zfp;
3156
3157   bool draw;
3158   bool color_manage;
3159   int use_default_view;
3160 } ImageSampleInfo;
3161
3162 static void image_sample_draw(const bContext *C, ARegion *ar, void *arg_info)
3163 {
3164   ImageSampleInfo *info = arg_info;
3165   if (!info->draw) {
3166     return;
3167   }
3168
3169   Scene *scene = CTX_data_scene(C);
3170   ED_image_draw_info(scene,
3171                      ar,
3172                      info->color_manage,
3173                      info->use_default_view,
3174                      info->channels,
3175                      info->x,
3176                      info->y,
3177                      info->colp,
3178                      info->colfp,
3179                      info->linearcol,
3180                      info->zp,
3181                      info->zfp);
3182
3183   if (info->sample_size > 1) {
3184     const wmWindow *win = CTX_wm_window(C);
3185     const wmEvent *event = win->eventstate;
3186
3187     SpaceImage *sima = CTX_wm_space_image(C);
3188     GPUVertFormat *format = immVertexFormat();
3189     uint pos = GPU_vertformat_attr_add(format, "pos", GPU_COMP_F32, 2, GPU_FETCH_FLOAT);
3190
3191     const float color[3] = {1, 1, 1};
3192     immBindBuiltinProgram(GPU_SHADER_2D_UNIFORM_COLOR);
3193     immUniformColor3fv(color);
3194
3195     /* TODO(campbell): lock to pixels. */
3196     rctf sample_rect_fl;
3197     BLI_rctf_init_pt_radius(&sample_rect_fl,
3198                             (float[2]){event->x - ar->winrct.xmin, event->y - ar->winrct.ymin},
3199                             (float)(info->sample_size / 2.0f) * sima->zoom);
3200
3201     glEnable(GL_COLOR_LOGIC_OP);
3202     glLogicOp(GL_XOR);
3203     GPU_line_width(1.0f);
3204     imm_draw_box_wire_2d(pos,
3205                          (float)sample_rect_fl.xmin,
3206                          (float)sample_rect_fl.ymin,
3207                          (float)sample_rect_fl.xmax,
3208                          (float)sample_rect_fl.ymax);
3209     glDisable(GL_COLOR_LOGIC_OP);
3210
3211     immUnbindProgram();
3212   }
3213 }
3214
3215 /* Returns color in linear space, matching ED_space_node_color_sample(). */
3216 bool ED_space_image_color_sample(SpaceImage *sima, ARegion *ar, int mval[2], float r_col[3])
3217 {
3218   void *lock;
3219   ImBuf *ibuf = ED_space_image_acquire_buffer(sima, &lock);
3220   float fx, fy;
3221   bool ret = false;
3222
3223   if (ibuf == NULL) {
3224     ED_space_image_release_buffer(sima, ibuf, lock);
3225     return false;
3226   }
3227
3228   UI_view2d_region_to_view(&ar->v2d, mval[0], mval[1], &fx, &fy);
3229
3230   if (fx >= 0.0f && fy >= 0.0f && fx < 1.0f && fy < 1.0f) {
3231     const float *fp;
3232     unsigned char *cp;
3233     int x = (int)(fx * ibuf->x), y = (int)(fy * ibuf->y);
3234
3235     CLAMP(x, 0, ibuf->x - 1);
3236     CLAMP(y, 0, ibuf->y - 1);
3237
3238     if (ibuf->rect_float) {
3239       fp = (ibuf->rect_float + (ibuf->channels) * (y * ibuf->x + x));
3240       copy_v3_v3(r_col, fp);
3241       ret = true;
3242     }
3243     else if (ibuf->rect) {
3244       cp = (unsigned char *)(ibuf->rect + y * ibuf->x + x);
3245       rgb_uchar_to_float(r_col, cp);
3246       IMB_colormanagement_colorspace_to_scene_linear_v3(r_col, ibuf->rect_colorspace);
3247       ret = true;
3248     }
3249   }
3250
3251   ED_space_image_release_buffer(sima, ibuf, lock);
3252   return ret;
3253 }
3254
3255 /* -------------------------------------------------------------------- */
3256 /** \name Image Pixel Sample
3257  * \{ */
3258
3259 static void image_sample_pixel_color_ubyte(const ImBuf *ibuf,
3260                                            const int coord[2],
3261                                            uchar r_col[4],
3262                                            float r_col_linear[4])
3263 {
3264   const uchar *cp = (unsigned char *)(ibuf->rect + coord[1] * ibuf->x + coord[0]);
3265   copy_v4_v4_uchar(r_col, cp);
3266   rgba_uchar_to_float(r_col_linear, r_col);
3267   IMB_colormanagement_colorspace_to_scene_linear_v4(r_col_linear, false, ibuf->rect_colorspace);
3268 }
3269
3270 static void image_sample_pixel_color_float(ImBuf *ibuf, const int coord[2], float r_col[4])
3271 {
3272   const float *cp = ibuf->rect_float + (ibuf->channels) * (coord[1] * ibuf->x + coord[0]);
3273   copy_v4_v4(r_col, cp);
3274 }
3275
3276 /** \} */
3277
3278 /* -------------------------------------------------------------------- */
3279 /** \name Image Pixel Region Sample
3280  * \{ */
3281
3282 static void image_sample_rect_color_ubyte(const ImBuf *ibuf,
3283                                           const rcti *rect,
3284                                           uchar r_col[4],
3285                                           float r_col_linear[4])
3286 {
3287   uint col_accum_ub[4] = {0, 0, 0, 0};
3288   zero_v4(r_col_linear);
3289   int col_tot = 0;
3290   int coord[2];
3291   for (coord[0] = rect->xmin; coord[0] <= rect->xmax; coord[0]++) {
3292     for (coord[1] = rect->ymin; coord[1] <= rect->ymax; coord[1]++) {
3293       float col_temp_fl[4];
3294       uchar col_temp_ub[4];
3295       image_sample_pixel_color_ubyte(ibuf, coord, col_temp_ub, col_temp_fl);
3296       add_v4_v4(r_col_linear, col_temp_fl);
3297       col_accum_ub[0] += (uint)col_temp_ub[0];
3298       col_accum_ub[1] += (uint)col_temp_ub[1];
3299       col_accum_ub[2] += (uint)col_temp_ub[2];
3300       col_accum_ub[3] += (uint)col_temp_ub[3];
3301       col_tot += 1;
3302     }
3303   }
3304   mul_v4_fl(r_col_linear, 1.0 / (float)col_tot);
3305
3306   r_col[0] = MIN2(col_accum_ub[0] / col_tot, 255);
3307   r_col[1] = MIN2(col_accum_ub[1] / col_tot, 255);
3308   r_col[2] = MIN2(col_accum_ub[2] / col_tot, 255);
3309   r_col[3] = MIN2(col_accum_ub[3] / col_tot, 255);
3310 }
3311
3312 static void image_sample_rect_color_float(ImBuf *ibuf, const rcti *rect, float r_col[4])
3313 {
3314   zero_v4(r_col);
3315   int col_tot = 0;
3316   int coord[2];
3317   for (coord[0] = rect->xmin; coord[0] <= rect->xmax; coord[0]++) {
3318     for (coord[1] = rect->ymin; coord[1] <= rect->ymax; coord[1]++) {
3319       float col_temp_fl[4];
3320       image_sample_pixel_color_float(ibuf, coord, col_temp_fl);
3321       add_v4_v4(r_col, col_temp_fl);
3322       col_tot += 1;
3323     }
3324   }
3325   mul_v4_fl(r_col, 1.0 / (float)col_tot);
3326 }
3327
3328 /** \} */
3329
3330 static void image_sample_apply(bContext *C, wmOperator *op, const wmEvent *event)
3331 {
3332   SpaceImage *sima = CTX_wm_space_image(C);
3333   ARegion *ar = CTX_wm_region(C);
3334   void *lock;
3335   ImBuf *ibuf = ED_space_image_acquire_buffer(sima, &lock);
3336   ImageSampleInfo *info = op->customdata;
3337   float fx, fy;
3338   Scene *scene = CTX_data_scene(C);
3339   CurveMapping *curve_mapping = scene->view_settings.curve_mapping;
3340
3341   if (ibuf == NULL) {
3342     ED_space_image_release_buffer(sima, ibuf, lock);
3343     info->draw = false;
3344     return;
3345   }
3346
3347   UI_view2d_region_to_view(&ar->v2d, event->mval[0], event->mval[1], &fx, &fy);
3348
3349   if (fx >= 0.0f && fy >= 0.0f && fx < 1.0f && fy < 1.0f) {
3350     int x = (int)(fx * ibuf->x), y = (int)(fy * ibuf->y);
3351     Image *image = ED_space_image(sima);
3352
3353     CLAMP(x, 0, ibuf->x - 1);
3354     CLAMP(y, 0, ibuf->y - 1);
3355
3356     info->width = ibuf->x;
3357     info->height = ibuf->y;
3358     info->x = x;
3359     info->y = y;
3360
3361     info->draw = true;
3362     info->channels = ibuf->channels;
3363
3364     info->colp = NULL;
3365     info->colfp = NULL;
3366     info->zp = NULL;
3367     info->zfp = NULL;
3368
3369     info->use_default_view = (image->flag & IMA_VIEW_AS_RENDER) ? false : true;
3370
3371     rcti sample_rect;
3372     sample_rect.xmin = max_ii(0, x - info->sample_size / 2);
3373     sample_rect.ymin = max_ii(0, y - info->sample_size / 2);
3374     sample_rect.xmax = min_ii(ibuf->x, sample_rect.xmin + info->sample_size) - 1;
3375     sample_rect.ymax = min_ii(ibuf->y, sample_rect.ymin + info->sample_size) - 1;
3376
3377     if (ibuf->rect) {
3378       image_sample_rect_color_ubyte(ibuf, &sample_rect, info->col, info->linearcol);
3379       rgba_uchar_to_float(info->colf, info->col);
3380
3381       info->colp = info->col;
3382       info->colfp = info->colf;
3383       info->color_manage = true;
3384     }
3385     if (ibuf->rect_float) {
3386       image_sample_rect_color_float(ibuf, &sample_rect, info->colf);
3387
3388       if (ibuf->channels == 4) {
3389         /* pass */
3390       }
3391       else if (ibuf->channels == 3) {
3392         info->colf[3] = 1.0f;
3393       }
3394       else {
3395         info->colf[1] = info->colf[0];
3396         info->colf[2] = info->colf[0];
3397         info->colf[3] = 1.0f;
3398       }
3399       info->colfp = info->colf;
3400
3401       copy_v4_v4(info->linearcol, info->colf);
3402
3403       info->color_manage = true;
3404     }
3405
3406     if (ibuf->zbuf) {
3407       /* TODO, blend depth (not urgent). */
3408       info->z = ibuf->zbuf[y * ibuf->x + x];
3409       info->zp = &info->z;
3410       if (ibuf->zbuf == (int *)ibuf->rect) {
3411         info->colp = NULL;
3412       }
3413     }
3414     if (ibuf->zbuf_float) {
3415       /* TODO, blend depth (not urgent). */
3416       info->zf = ibuf->zbuf_float[y * ibuf->x + x];
3417       info->zfp = &info->zf;
3418       if (ibuf->zbuf_float == ibuf->rect_float) {
3419         info->colfp = NULL;
3420       }
3421     }
3422
3423     if (curve_mapping && ibuf->channels == 4) {
3424       /* we reuse this callback for set curves point operators */
3425       if (RNA_struct_find_property(op->ptr, "point")) {
3426         int point = RNA_enum_get(op->ptr, "point");
3427
3428         if (point == 1) {
3429           BKE_curvemapping_set_black_white(curve_mapping, NULL, info->linearcol);
3430         }
3431         else if (point == 0) {
3432           BKE_curvemapping_set_black_white(curve_mapping, info->linearcol, NULL);
3433         }
3434         WM_event_add_notifier(C, NC_WINDOW, NULL);
3435       }
3436     }
3437
3438     // XXX node curve integration ..
3439 #if 0
3440     {
3441       ScrArea *sa, *cur = curarea;
3442
3443       node_curvemap_sample(fp); /* sends global to node editor */
3444       for (sa = G.curscreen->areabase.first; sa; sa = sa->next) {
3445         if (sa->spacetype == SPACE_NODE) {
3446           areawinset(sa->win);
3447           scrarea_do_windraw(sa);
3448         }
3449       }
3450       node_curvemap_sample(NULL); /* clears global in node editor */
3451       curarea = cur;
3452     }
3453 #endif
3454   }
3455   else {
3456     info->draw = 0;
3457   }
3458
3459   ED_space_image_release_buffer(sima, ibuf, lock);
3460   ED_area_tag_redraw(CTX_wm_area(C));
3461 }
3462
3463 static void image_sample_exit(bContext *C, wmOperator *op)
3464 {
3465   ImageSampleInfo *info = op->customdata;
3466
3467   ED_region_draw_cb_exit(info->art, info->draw_handle);
3468   ED_area_tag_redraw(CTX_wm_area(C));
3469   MEM_freeN(info);
3470 }
3471
3472 static int image_sample_invoke(bContext *C, wmOperator *op, const wmEvent *event)
3473 {
3474   SpaceImage *sima = CTX_wm_space_image(C);
3475   ARegion *ar = CTX_wm_region(C);
3476   ImageSampleInfo *info;
3477
3478   if (ar->regiontype == RGN_TYPE_WINDOW) {
3479     if (event->mval[1] <= 16 && ED_space_image_show_cache(sima)) {
3480       return OPERATOR_PASS_THROUGH;
3481     }
3482   }
3483
3484   if (!ED_space_image_has_buffer(sima)) {
3485     return OPERATOR_CANCELLED;
3486   }
3487
3488   info = MEM_callocN(sizeof(ImageSampleInfo), "ImageSampleInfo");
3489
3490   info->art = ar->type;
3491   info->draw_handle = ED_region_draw_cb_activate(
3492       ar->type, image_sample_draw, info, REGION_DRAW_POST_PIXEL);
3493   info->sample_size = RNA_int_get(op->ptr, "size");
3494   op->customdata = info;
3495
3496   image_sample_apply(C, op, event);
3497
3498   WM_event_add_modal_handler(C, op);
3499
3500   return OPERATOR_RUNNING_MODAL;
3501 }
3502
3503 static int image_sample_modal(bContext *C, wmOperator *op, const wmEvent *event)
3504 {
3505   switch (event->type) {
3506     case LEFTMOUSE:
3507     case RIGHTMOUSE:  // XXX hardcoded
3508       if (event->val == KM_RELEASE) {
3509         image_sample_exit(C, op);
3510         return OPERATOR_CANCELLED;
3511       }
3512       break;
3513     case MOUSEMOVE:
3514       image_sample_apply(C, op, event);
3515       break;
3516   }
3517
3518   return OPERATOR_RUNNING_MODAL;
3519 }
3520
3521 static void image_sample_cancel(bContext *C, wmOperator *op)
3522 {
3523   image_sample_exit(C, op);
3524 }
3525
3526 void IMAGE_OT_sample(wmOperatorType *ot)
3527 {
3528   /* identifiers */
3529   ot->name = "Sample Color";
3530   ot->idname = "IMAGE_OT_sample";
3531   ot->description = "Use mouse to sample a color in current image";
3532
3533   /* api callbacks */
3534   ot->invoke = image_sample_invoke;
3535   ot->modal = image_sample_modal;
3536   ot->cancel = image_sample_cancel;
3537   ot->poll = image_sample_poll;
3538
3539   /* flags */
3540   ot->flag = OPTYPE_BLOCKING;
3541
3542   PropertyRNA *prop;
3543   prop = RNA_def_int(ot->srna, "size", 1, 1, 128, "Sample Size", "", 1, 64);
3544   RNA_def_property_subtype(prop, PROP_PIXEL);
3545   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
3546 }
3547
3548 /** \} */
3549
3550 /* -------------------------------------------------------------------- */
3551 /** \name Sample Line Operator
3552  * \{ */
3553
3554 static int image_sample_line_exec(bContext *C, wmOperator *op)
3555 {
3556   SpaceImage *sima = CTX_wm_space_image(C);
3557   ARegion *ar = CTX_wm_region(C);
3558   Scene *scene = CTX_data_scene(C);
3559
3560   int x_start = RNA_int_get(op->ptr, "xstart");
3561   int y_start = RNA_int_get(op->ptr, "ystart");
3562   int x_end = RNA_int_get(op->ptr, "xend");
3563   int y_end = RNA_int_get(op->ptr, "yend");
3564
3565   void *lock;
3566   ImBuf *ibuf = ED_space_image_acquire_buffer(sima, &lock);
3567   Histogram *hist = &sima->sample_line_hist;
3568
3569   float x1f, y1f, x2f, y2f;
3570
3571   if (ibuf == NULL) {
3572     ED_space_image_release_buffer(sima, ibuf, lock);
3573     return OPERATOR_CANCELLED;
3574   }
3575   /* hmmmm */
3576   if (ibuf->channels < 3) {
3577     ED_space_image_release_buffer(sima, ibuf, lock);
3578     return OPERATOR_CANCELLED;
3579   }
3580
3581   UI_view2d_region_to_view(&ar->v2d, x_start, y_start, &x1f, &y1f);
3582   UI_view2d_region_to_view(&ar->v2d, x_end, y_end, &x2f, &y2f);
3583
3584   hist->co[0][0] = x1f;
3585   hist->co[0][1] = y1f;
3586   hist->co[1][0] = x2f;
3587   hist->co[1][1] = y2f;
3588
3589   /* enable line drawing */
3590   hist->flag |= HISTO_FLAG_SAMPLELINE;
3591
3592   BKE_histogram_update_sample_line(hist, ibuf, &scene->view_settings, &scene->display_settings);
3593
3594   /* reset y zoom */
3595   hist->ymax = 1.0f;
3596
3597   ED_space_image_release_buffer(sima, ibuf, lock);
3598
3599   ED_area_tag_redraw(CTX_wm_area(C));
3600
3601   return OPERATOR_FINISHED;
3602 }
3603
3604 static int image_sample_line_invoke(bContext *C, wmOperator *op, const wmEvent *event)
3605 {
3606   SpaceImage *sima = CTX_wm_space_image(C);
3607
3608   Histogram *hist = &sima->sample_line_hist;
3609   hist->flag &= ~HISTO_FLAG_SAMPLELINE;
3610
3611   if (!ED_space_image_has_buffer(sima)) {
3612     return OPERATOR_CANCELLED;
3613   }
3614
3615   return WM_gesture_straightline_invoke(C, op, event);
3616 }
3617
3618 void IMAGE_OT_sample_line(wmOperatorType *ot)
3619 {
3620   /* identifiers */
3621   ot->name = "Sample Line";
3622   ot->idname = "IMAGE_OT_sample_line";
3623   ot->description = "Sample a line and show it in Scope panels";
3624
3625   /* api callbacks */
3626   ot->invoke = image_sample_line_invoke;
3627   ot->modal = WM_gesture_straightline_modal;
3628   ot->exec = image_sample_line_exec;
3629   ot->poll = space_image_main_region_poll;
3630   ot->cancel = WM_gesture_straightline_cancel;
3631
3632   /* flags */
3633   ot->flag = 0; /* no undo/register since this operates on the space */
3634
3635   WM_operator_properties_gesture_straightline(ot, WM_CURSOR_EDIT);
3636 }
3637
3638 /** \} */
3639
3640 /* -------------------------------------------------------------------- */
3641 /** \name Set Curve Point Operator
3642  * \{ */
3643
3644 void IMAGE_OT_curves_point_set(wmOperatorType *ot)
3645 {
3646   static const EnumPropertyItem point_items[] = {
3647       {0, "BLACK_POINT", 0, "Black Point", ""},
3648       {1, "WHITE_POINT", 0, "White Point", ""},
3649       {0, NULL, 0, NULL, NULL},
3650   };
3651
3652   /* identifiers */
3653   ot->name = "Set Curves Point";
3654   ot->idname = "IMAGE_OT_curves_point_set";
3655   ot->description = "Set black point or white point for curves";
3656
3657   /* flags */
3658   ot->flag = OPTYPE_REGISTER | OPTYPE_UNDO;
3659
3660   /* api callbacks */
3661   ot->invoke = image_sample_invoke;
3662   ot->modal = image_sample_modal;
3663   ot->cancel = image_sample_cancel;
3664   ot->poll = space_image_main_area_not_uv_brush_poll;
3665
3666   /* properties */
3667   RNA_def_enum(
3668       ot->srna, "point", point_items, 0, "Point", "Set black point or white point for curves");
3669
3670   PropertyRNA *prop;
3671   prop = RNA_def_int(ot->srna, "size", 1, 1, 128, "Sample Size", "", 1, 64);
3672   RNA_def_property_subtype(prop, PROP_PIXEL);
3673   RNA_def_property_flag(prop, PROP_SKIP_SAVE);
3674 }
3675
3676 /** \} */
3677
3678 /* -------------------------------------------------------------------- */
3679 /** \name Cycle Render Slot Operator
3680  * \{ */
3681
3682 static bool image_cycle_render_slot_poll(bContext *C)
3683 {
3684   Image *ima = image_from_context(C);
3685
3686   return (ima && ima->type == IMA_TYPE_R_RESULT);
3687 }
3688
3689 static int image_cycle_render_slot_exec(bContext *C, wmOperator *op)
3690 {
3691   Image *ima = image_from_context(C);
3692   const int direction = RNA_boolean_get(op->ptr, "reverse") ? -1 : 1;
3693
3694   if (!ED_image_slot_cycle(ima, direction)) {
3695     return OPERATOR_CANCELLED;
3696   }
3697
3698   WM_event_add_notifier(C, NC_IMAGE | ND_DRAW, NULL);
3699
3700   /* no undo push for browsing existing */
3701   RenderSlot *slot = BKE_image_get_renderslot(ima, ima->render_slot);
3702   if ((slot && slot->render) || ima->render_slot == ima->last_render_slot) {
3703     return OPERATOR_CANCELLED;
3704   }
3705
3706   return OPERATOR_FINISHED;
3707 }
3708
3709 void IMAGE_OT_cycle_render_slot(wmOperatorType *ot)
3710 {
3711   /* identifiers */
3712   ot->name = "Cycle Render Slot";
3713   ot->idname = "IMAGE_OT_cycle_render_slot";
3714   ot->description = "Cycle through all non-void render slots";
3715
3716   /* api callbacks */
3717   ot->exec = image_cycle_render_slot_exec;
3718   ot->poll = image_cycle_render_slot_poll;
3719
3720   /* flags */
3721   ot->flag = OPTYPE_REGISTER;
3722
3723   RNA_def_boolean(ot->srna, "reverse", 0, "Cycle in Reverse", "");
3724 }
3725
3726 /** \} */
3727
3728 /* -------------------------------------------------------------------- */
3729 /** \name Clear Render Slot Operator
3730  * \{ */
3731
3732 static int image_clear_render_slot_exec(bContext *C, wmOperator *UNUSED(op))
3733 {
3734   SpaceImage *sima = CTX_wm_space_image(C);
3735   Image *ima = image_from_context(C);
3736
3737   if (!BKE_image_clear_renderslot(ima, &sima->iuser, ima->render_slot)) {
3738     return OPERATOR_CANCELLED;
3739   }
3740
3741   WM_event_add_notifier(C, NC_IMAGE | ND_DRAW, NULL);
3742
3743   return OPERATOR_FINISHED;
3744 }
3745
3746 void IMAGE_OT_clear_render_slot(wmOperatorType *ot)
3747 {
3748   /* identifiers */
3749   ot->name = "Clear Render Slot";
3750   ot->idname = "IMAGE_OT_clear_render_slot";
3751   ot->description = "Clear the currently selected render slot";
3752
3753   /* api callbacks */
3754   ot->exec = image_clear_render_slot_exec;
3755   ot->poll = image_cycle_render_slot_poll;
3756
3757   /* flags */
3758   ot->flag = OPTYPE_REGISTER;
3759 }
3760
3761 /** \} */
3762
3763 /* -------------------------------------------------------------------- */
3764 /** \name Add Render Slot Operator
3765  * \{ */
3766
3767 static int image_add_render_slot_exec(bContext *C, wmOperator *UNUSED(op))
3768 {