使用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 = 10: b = a * 2
For i = 0 To 2 * p Step 0.01
    x = a * (Cos(i) + Cos(2 * i))
    y = b * (Sin(i) + Sin(i))
    v((n + y -1) * w + m - x) = RGN(255, 0, 0)
Next

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

aman1516

什么时候出个漫画特效的

lss001

aman1516 发表于 2024-8-3 18:42
什么时候出个漫画特效的

当前只写了以上15种基础效果
其它的特殊效果
如水波效果，动漫效果，光照效果
……，暂时还没有考虑