Changeset 18162

Timestamp:

06/18/14 13:46:23 (11 years ago)

Author:

Mathieu Morlighem

Message:

CHG: tetras in plot elements

File:

• issm/trunk-jpl/src/m/plot/plot_unit.m (modified) (2 diffs)

issm/trunk-jpl/src/m/plot/plot_unit.m

@@ -16 +16 @@
 
                 pos=find(~isnan(data)); %needed for element on water
-                if is2d,
-                        A=elements(pos,1); B=elements(pos,2); C=elements(pos,3); patch( 'Faces', [A B C], 'Vertices', [x y z],'CData', data(pos),'FaceColor','flat','EdgeColor',edgecolor);
-                else
+                if size(elements,2)==6, %prisms
                         A=elements(pos,1); B=elements(pos,2); C=elements(pos,3); D=elements(pos,4); E=elements(pos,5); F=elements(pos,6);
                         patch( 'Faces', [A B C],  'Vertices', [x y z],'CData', data(pos),'FaceColor','flat','EdgeColor',edgecolor);
@@ -25 +23 @@
                         patch( 'Faces', [B E F C],'Vertices', [x y z],'CData', data(pos),'FaceColor','flat','EdgeColor',edgecolor);
                         patch( 'Faces', [C A D F],'Vertices', [x y z],'CData', data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                elseif size(elements,2)==4, %tetras
+                        A=elements(:,1); B=elements(:,2); C=elements(:,3); D=elements(:,4);
+                        patch( 'Faces',[A B C],'Vertices', [x y z],'CData',data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                        patch( 'Faces',[A B D],'Vertices', [x y z],'CData',data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                        patch( 'Faces',[B C D],'Vertices', [x y z],'CData',data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                        patch( 'Faces',[C A D],'Vertices', [x y z],'CData',data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                else
+                        A=elements(pos,1); B=elements(pos,2); C=elements(pos,3);
+                        patch( 'Faces', [A B C], 'Vertices', [x y z],'CData', data(pos),'FaceColor','flat','EdgeColor',edgecolor);
+                end
+
+                if is2d,
                 end