Xojo Conferences
XDCMay2019MiamiUSA

Platforms to show: All Mac Windows Linux Cross-Platform

/MacCG/CG Ovals
Function:
Required plugins for this example: MBS MacCG Plugin
You find this example project in your Plugins Download as a Xojo project file within the examples folder: /MacCG/CG Ovals
This example is the version from Sun, 17th Mar 2012.
Project "CG Ovals.rbp"
FileTypes
Filetype text
End FileTypes
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
End Project

See also:

Feedback, Comments & Corrections

The items on this page are in the following plugins: MBS MacCG Plugin.




Links
MBS Xojo PDF Plugins