run success

Author: xieguigang

Library/graphics/Plot2D/geometry2D.vb

@@ -123,7 +123,8 @@ Module geometry2D
         Dim colors = RColorPalette.getColorSet(args.getBySynonyms("colors", "colorset", "colorSet"), "paper")
         Dim size = InteropArgumentHelper.getSize(args.getBySynonyms("size"), env)
         Dim scatter As Boolean = CLRVector.asScalarLogical(args.getBySynonyms("scatter"))
-        Dim theme As New Theme With {.colorSet = colors}
+        Dim padding As String = InteropArgumentHelper.getPadding(args!padding, "padding: 10% 10% 15% 20%;")
+        Dim theme As New Theme With {.colorSet = colors, .padding = padding}
         Dim driver As Drivers = env.getDriver
 
         If polygons.IsNullOrEmpty Then

studio/Rsharp_kit/signalKit/machineVision.vb

@@ -27,11 +27,15 @@ Public Module machineVision
             Return buffer.TryCast(Of Message)
         End If
 
+        Dim shapes As Polygon2D()
+
         If two_pass Then
-            Return CCLabeling.TwoPassProcess(buffer).ToArray
+            shapes = CCLabeling.TwoPassProcess(buffer).ToArray
         Else
-            Return CCLabeling.Process(buffer).ToArray
+            shapes = CCLabeling.Process(buffer).ToArray
         End If
+
+        Return shapes.OrderByDescending(Function(a) a.length).Take(30).ToArray
     End Function
 
     Private Function bitmapCommon(image As Object, env As Environment) As [Variant](Of BitmapBuffer, Message)

test/demo/imageProcessing/CCL/shapes.png

@@ -10,6 +10,6 @@ let shapes = machineVision::ccl(bin);
 print(`find ${length(shapes)} shapes.`);
 
 bitmap(bin, file = "ostu_bin.bmp");
-bitmap(file = "shapes.png") {
-    plot(shapes);
+bitmap(file = "shapes.png", size = [3600, 2700]) {
+    plot(shapes, scatter = TRUE, padding = "padding: 5% 5% 10% 10%;");
 }