reorganized code into separate files

geometries/@cone/cone.m

@@ -0,0 +1,22 @@
+classdef cone
+    % Conical geometry
+    properties (SetAccess = private, GetAccess = public)
+        % Meta
+        tag = REGION_TYPE.INVALID;
+        label = "";
+
+        % Spatial
+        center = NaN;
+        radius = NaN;
+        height = NaN;
+
+        % Plotting
+        surface;
+        n = 32;
+    end
+
+    methods (Access = public)
+        [obj   ] = initialize(obj, center, radius, height, tag, label);
+        [obj, f] = plot(obj, ind, f);
+    end
+end

geometries/@cone/initialize.m

@@ -0,0 +1,19 @@
+function obj = initialize(obj, center, radius, height, tag, label)
+    arguments (Input)
+        obj (1, 1) {mustBeA(obj, 'cone')};
+        center (1, 3) double;
+        radius (1, 1) double;
+        height (1, 1) double;
+        tag (1, 1) REGION_TYPE = REGION_TYPE.INVALID;
+        label (1, 1) string = "";
+    end
+    arguments (Output)
+        obj (1, 1) {mustBeA(obj, 'cone')};
+    end
+
+    obj.center = center;
+    obj.radius = radius;
+    obj.height = height;
+    obj.tag = tag;
+    obj.label = label;
+end

geometries/@cone/plot.m

@@ -0,0 +1,43 @@
+function [obj, f] = plot(obj, ind, f)
+    arguments (Input)
+        obj (1, 1) {mustBeA(obj, 'cone')};
+        ind (1, :) double = NaN;
+        f (1, 1) {mustBeA(f, 'matlab.ui.Figure')} = figure;
+    end
+    arguments (Output)
+        obj (1, 1) {mustBeA(obj, 'cone')};
+        f (1, 1) {mustBeA(f, 'matlab.ui.Figure')};
+    end
+    
+    % Create axes if they don't already exist
+    f = firstPlotSetup(f);
+    
+    % Plot cone
+    [X, Y, Z] = cylinder([obj.radius, 0], obj.n);
+    
+    % Scale to match height
+    Z = Z * obj.height;
+    
+    % Move to center location
+    X = X + obj.center(1);
+    Y = Y + obj.center(2);
+    Z = Z + obj.center(3);
+    
+    % Plot
+    if isnan(ind)
+        o = surf(f.CurrentAxes, X, Y, Z);
+    else
+        hold(f.Children(1).Children(ind(1)), "on");
+        o = surf(f.Children(1).Children(ind(1)), X, Y, Z, ones([size(Z), 1]) .* reshape(obj.tag.color, 1, 1, 3), 'FaceAlpha', 0.25, 'EdgeColor', 'none');
+        hold(f.Children(1).Children(ind(1)), "off");
+    end
+    
+    % Copy to other requested tiles
+    if numel(ind) > 1
+        for ii = 2:size(ind, 2)
+            o = [o, copyobj(o(:, 1), f.Children(1).Children(ind(ii)))];
+        end
+    end
+    
+    obj.surface = o;
+end