이미지에 떨림 효과(안개 유리)를 적용합니다.
jitter
radius
int32. jitter 강도로 2에서 32 사이의 값을 지정합니다. 기본 값은 8입니다. 값이 클수록 효과가 강해 원본 이미지를 알아볼 수 없게 됩니다.
Dim Image, Status, Param
Set Image = Server.CreateObject("TABSUpload4.Image")
Status = Image.Load("C:\Images\sample1.jpg")
If Status = Ok Then
Set Param = Server.CreateObject("TABSUpload4.ImageParam")
Param.Add "radius", 15
Image.SetEffect "jitter", Param
Image.Save "C:\Images\effect.png", 0, False
Image.Close
End If