使用Wia.Vector对象画花形线

lss001

Sub 花形线()
Dim x&, y&, img As Object, v AsObject
Set img = CreateObject("Wia.ImageFile")
Set v = CreateObject("Wia.Vector")
w = 240: h = 240
p = WorksheetFunction.Pi

For i = 1 To w
    For j = 1 To h
       v.Add RGB(255, 255, 255)
    Next
Next

m = w / 2: n = h / 2: a = 5
For i = 0 To 2 * p Step 0.01
    r = 10 - (3 * Sin(i * 3)) ^ 2
    x = a * r * Cos(i)
    y = a * r * Sin(i)
    v((n + y -1) * w + m - x) = RGN(255, 0, 0)
Next

Set img = v.ImageFile(w, h)
img.SaveFile "D:\m3.jpg"
Set img = Nothing
Set v = Nothing
End Sub

morpheus126

谢谢分享，抄笔记备用

约定的童话

直接做出文件

aman1516

看来VBAPS系列要出来了，感谢分享！
能否出个 油画特效算法 和 漫画特效算法
搜到转油画效果的算法是：

1、获取图像的灰度(gray)图片
2、设计一个小方框（4x4 or 8x8 or 10x10等），统计每个小方框的像素值
3、将0-255的灰度值划分成几个等级，并把第二步处理的结果映射到所设置的各个等级中，并计数
4、找到每个方框中灰度等级最多的所有的像素，并且求取这些像素的均值
5、用统计出来的平均值来替代原来的像素值
不知如何用VBA代码写出来

lss001

aman1516 发表于 2024-8-3 16:33
看来VBAPS系列要出来了，感谢分享！
能否出个 油画特效算法 和 漫画特效算法
搜到转油画效果的算法是：
...

油画请参考系列四，为了计算方便油画釆用了随机算法