You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCG/CG Ovals
Class Window1 Inherits Window
EventHandler Sub Paint(g As Graphics)
dim c as CGContextMBS
dim center as CGPointMBS
center=CGMakePointMBS(g.Width/2,g.Height/2)
c=me.CGContextMBS
c.BeginPath
c.SetRGBFillColor 1,0,0,0.5
c.AddOval center, 100,150
c.FillPath
c.BeginPath
c.SetRGBFillColor 0,0,1,0.5
c.AddOval center, 100,50
c.FillPath
c.Flush
End EventHandler
End Class
MenuBar MenuBar1
MenuItem UntitledMenu1 = ""
MenuItem FileMenu = "&File"
MenuItem FileQuit = "Quit"
MenuItem EditMenu = "&Edit"
MenuItem EditUndo = "&Undo"
MenuItem UntitledMenu0 = "-"
MenuItem EditCut = "Cu&t"
MenuItem EditCopy = "&Copy"
MenuItem EditPaste = "&Paste"
MenuItem EditClear = "Clear"
End MenuBar
Class App Inherits Application
End Class
Module Util
Sub AddOval(extends c as CGContextMBS, center as CGPOintMBS, a as single, b as single)
dim pi as single
pi=ACos(0)*2.0
c.SaveGState
c.TranslateCTM center.x, center.y
c.ScaleCTM a,b
c.MoveToPoint 1,0
c.AddArc 0, 0, 1, 0.0, 2*pi, false
c.ClosePath
c.RestoreGState
End Sub
End Module