這個牛的碎片化效果是怎麼做出來的？

歪

Manipulate[SelectComponents[
EdgeDetect[Thinning@Binarize@GradientFilter[img, b], a], Large], {a,
0.1, 1}, {b, 0, 15}]


Manipulate一下，找到合適的參數，方便下一步FillingTransform。參數調整到出現大致出現閉合輪廓就可以啦。

img =上面的滑稽圖;
pic = ImageRotate[
FillingTransform[
SelectComponents[
EdgeDetect[Thinning@Binarize@GradientFilter[img, 11.7], 0.77],
Large]], -Pi/2];
pts1 = Position[ImageData[EdgeDetect[pic]], 1];
pts2 = pts1[[Last[FindShortestTour[pts1]]]][[1 ;; -1 ;; 16]];
cells = MeshPrimitives[
TriangulateMesh[
BoundaryMeshRegion[pts2, Line[Last[FindShortestTour[pts2]]]],
MaxCellMeasure -&> 3000], 2];
Graphics[With[{col = RGBColor@RandomReal[1, 3]}, {EdgeForm@col,
col, #}] /@ cells]


效果：

image processing

{x, y} = ImageDimensions[img];
pts = Reverse /@
RandomChoice[
Flatten@ImageData@GradientFilter[img, 2] -&>
Tuples@{Range[y, 1, -1], Range[x]}, 500]; Graphics[
With[{col = RGBColor@ImageValue[img, Mean @@ #]}, {EdgeForm@col,
col, #}] /@ MeshPrimitives[DelaunayMesh@pts, 2]]


?(? ???ω??? ?)?

給個教程給你，很短，3p共半個小時長度

01、LOW POLY：突出明暗關係豐富色彩02、LOW POLY：製作三角面03、LOW POLY：豐富畫面