From 30b61e501e73be59e0850fd9e3b8516af01a4dc4 Mon Sep 17 00:00:00 2001
From: David Capello <david@igarastudio.com>
Date: Tue, 14 Jun 2022 10:04:54 -0300
Subject: [PATCH] [lua] New Image(Image, Rectangle) ctor

---
 src/app/script/image_class.cpp | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/src/app/script/image_class.cpp b/src/app/script/image_class.cpp
index 1b3becacc..eb811de5d 100644
--- a/src/app/script/image_class.cpp
+++ b/src/app/script/image_class.cpp
@@ -1,5 +1,5 @@
 // Aseprite
-// Copyright (C) 2018-2021  Igara Studio S.A.
+// Copyright (C) 2018-2022  Igara Studio S.A.
 // Copyright (C) 2015-2018  David Capello
 //
 // This program is distributed under the terms of
@@ -100,8 +100,29 @@ int Image_new(lua_State* L)
   if (auto spec2 = may_get_obj<doc::ImageSpec>(L, 1)) {
     spec = *spec2;
   }
-  else if (may_get_obj<ImageObj>(L, 1)) {
-    return Image_clone(L);
+  else if (auto imgObj = may_get_obj<ImageObj>(L, 1)) {
+    // Copy a region of the image
+    if (auto rc = may_get_obj<gfx::Rect>(L, 2)) {
+      doc::Image* crop = nullptr;
+      try {
+        auto docImg = imgObj->image(L);
+        crop = doc::crop_image(docImg, *rc, docImg->maskColor());
+      }
+      catch (const std::invalid_argument&) {
+        // Do nothing (will return nil)
+      }
+      if (crop) {
+        push_new<ImageObj>(L, crop);
+        return 1;
+      }
+      else {
+        return 0;
+      }
+    }
+    // Copy the whole image
+    else {
+      return Image_clone(L);
+    }
   }
   else if (auto spr = may_get_docobj<doc::Sprite>(L, 1)) {
     image = doc::Image::create(spr->spec());