From a6df67e8bcd5159cde27556f4f6a315f8dc2215f Mon Sep 17 00:00:00 2001
From: shamikam
Date: Mon, 16 Jan 2017 02:56:17 +0530
Subject: First Commit

---
 macros/arrowedline.sci | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 macros/arrowedline.sci

(limited to 'macros/arrowedline.sci')

diff --git a/macros/arrowedline.sci b/macros/arrowedline.sci
new file mode 100644
index 0000000..efbe94e
--- /dev/null
+++ b/macros/arrowedline.sci
@@ -0,0 +1,25 @@
+function[dstImg] = arrowedline(srcImg, x1, y1, x2, y2, R, G, B, varargin)
+
+	[lhs, rhs] = argn(0)
+	
+	srcMat = mattolist(srcImg)
+
+	select rhs
+		case 8 then
+			out = arrowedline(srcMat, x1, y1, x2, y2, R, G, B)
+		case 9 then
+			out = arrowedline(srcMat, x1, y1, x2, y2, R, G, B,varargin(1))
+		case 10 then
+			out = arrowedline(srcMat, x1, y1, x2, y2, R, G, B, varargin(1),varargin(2))
+		case 11 then
+			out = arrowedline(srcMat, x1, y1, x2, y2, R, G, B, varargin(1),varargin(2), varargin(3))
+		case 12 then
+			out = arrowedline(srcMAt, x1, y1, x2, y2, R, G, B, varargin(1),varargin(2), varargin(3), varargin(4))
+	end
+	
+	channels = size(out)
+	
+	for i = 1:channels
+		dstImg(:,:,1) = out(1)
+	end
+endfunction
-- 
cgit