add new simpler calling sequence if same function for all edges

chunkie/@chunkgraph/chunkgraph.m

@@ -118,6 +118,14 @@
                 fchnks = [];
             end
 
+            if isa(fchnks,"function_handle")
+                fchnks0 = fchnks;
+                fchnks = cell(nedge,1);
+                for j = 1:nedge
+                    fchnks{j} = fchnks0;
+                end
+            end
+
             if (nargin < 4)
                 cparams = [];
             end

devtools/test/chunkgraph_basicTest.m

@@ -132,6 +132,19 @@
 
 assert(all(2*nchs1 == nchs2))
 
+%% 
+
+verts = exp(1i*2*pi*(0:4)/5);
+verts = [real(verts);imag(verts)];
+
+endverts = [1:5; [2:5 1]];
+
+amp = 0.5;
+frq = 6;
+fchnks = @(t) sinearc(t,amp,frq);
+% simpler calling sequence if all edges same function
+cgrph = chunkgraph(verts,endverts,fchnks);
+
 function idstrue = polygonids(cg,xx,yy)
 
 verts = cg.verts;