Dim circle As Path
circle.Initialize(ImageSize/2, ImageSize/2)
Dim radius As Float = ImageSize/2
PathAddCircle(circle, ImageSize/2, ImageSize/2, radius)
Dim fullScreen As Path
fullScreen.Initialize(0, 0)
fullScreen.LineTo(ImageSize, 0)
fullScreen.LineTo(ImageSize, ImageSize)
fullScreen.LineTo(0, ImageSize)
Dim p As Path = OpPath(fullScreen, circle, "DIFFERENCE")
cvsCircle.ClipPath(p)
Dim dest As Rect
dest.Initialize(0, 0, ImageSize, ImageSize)
cvsCircle.DrawColor(Colors.Transparent)
End Sub
Sub OpPath(p1 As Path, p2 As Path, Op As String) As Path
Dim jo As JavaObject = p1
Dim success As Boolean = jo.RunMethod("op", Array(p2, Op))
Log($"Success: ${success}"$)
Return p1
End Sub
Sub PathAddCircle(path As Path, x As Float, y As Float, radius As Float)
Dim jo As JavaObject = path
jo.RunMethod("addCircle", Array(x, y, radius, "CW"))
End Sub