allow multi stroke for poly, fix #1514

ReferenceTests/src/tests/short_tests.jl

@@ -177,3 +177,9 @@ end
 
     s
 end
+
+@cell "multipoly with multi strokes" begin
+    P = Polygon.([Point2f[[0.45, 0.05], [0.64, 0.15], [0.37, 0.62]],
+         Point2f[[0.32, 0.66], [0.46, 0.59], [0.09, 0.08]]])
+    poly(P, color = [:red, :green], strokecolor = :blue, strokewidth = 2)
+end

src/basic_recipes/poly.jl

@@ -126,6 +126,20 @@ function plot!(plot::Poly{<: Tuple{<: Union{Polygon, AbstractVector{<: PolyEleme
         inspectable = plot.inspectable
     )
     outline = lift(to_line_segments, geometries)
+    stroke = lift(outline, plot.strokecolor) do outline, sc
+        if !(meshes[] isa Mesh) && meshes[] isa AbstractVector && sc isa AbstractVector && length(sc) == length(meshes[])
+            idx = 1
+            return map(outline) do point
+                if isnan(point)
+                    idx += 1
+                end
+                return sc[idx]
+            end
+        else
+            return sc
+        end
+    end
+
     lines!(
         plot, outline, visible = plot.visible,
         color = plot.strokecolor, linestyle = plot.linestyle,