diff --git a/libs/ardour/ardour/audioregion.h b/libs/ardour/ardour/audioregion.h
index 38f4cd9dbb..a8ad2785c3 100644
--- a/libs/ardour/ardour/audioregion.h
+++ b/libs/ardour/ardour/audioregion.h
@@ -142,6 +142,8 @@ class LIBARDOUR_API AudioRegion : public Region, public AudioReadable
 
 	bool fade_in_is_default () const;
 	bool fade_out_is_default () const;
+	Temporal::timepos_t fade_in_length ();
+	Temporal::timepos_t fade_out_length ();
 
 	void set_fade_in_active (bool yn);
 	void set_fade_in_shape (FadeShape);
diff --git a/libs/ardour/audioregion.cc b/libs/ardour/audioregion.cc
index 1f31a527a7..3010687d38 100644
--- a/libs/ardour/audioregion.cc
+++ b/libs/ardour/audioregion.cc
@@ -1601,6 +1601,18 @@ AudioRegion::fade_out_is_default () const
 	return _fade_out->size() == 2 && _fade_out->when(true) == 0 && _fade_out->when(false).samples () == 64;
 }
 
+Temporal::timepos_t
+AudioRegion::fade_in_length ()
+{
+	return _fade_in->when(false);
+}
+
+Temporal::timepos_t
+AudioRegion::fade_out_length ()
+{
+	return _fade_out->when(false);
+}
+
 void
 AudioRegion::set_default_fade_in ()
 {
diff --git a/libs/ardour/luabindings.cc b/libs/ardour/luabindings.cc
index bf1500cd24..fd4dc7a075 100644
--- a/libs/ardour/luabindings.cc
+++ b/libs/ardour/luabindings.cc
@@ -1727,6 +1727,8 @@ LuaBindings::common (lua_State* L)
 		.addFunction ("envelope_active", &AudioRegion::envelope_active)
 		.addFunction ("fade_in_active", &AudioRegion::fade_in_active)
 		.addFunction ("fade_out_active", &AudioRegion::fade_out_active)
+		.addFunction ("fade_in_length", &AudioRegion::fade_in_length)
+		.addFunction ("fade_out_length", &AudioRegion::fade_out_length)
 		.addFunction ("fade_before_fx", &AudioRegion::fade_before_fx)
 		.addFunction ("set_envelope_active", &AudioRegion::set_envelope_active)
 		.addFunction ("set_fade_before_fx", &AudioRegion::set_fade_before_fx)