MenuBar Menu

MenuItem UntitledMenu3 = ""

MenuItem UntitledMenu2 = "File"

MenuItem FileQuit = "Quit"

MenuItem UntitledMenu0 = "Edit"

MenuItem EditUndo = "Undo"

MenuItem UntitledMenu1 = "-"

MenuItem EditCut = "Cut"

MenuItem EditCopy = "Copy"

MenuItem EditPaste = "Paste"

MenuItem EditClear = "Clear"

End MenuBar

Class Window1 Inherits Window

EventHandler Sub Open() dim c as CGBitmapContextMBS dim r as CGRectMBS dim p as Picture dim n,i,k,w as integer dim g as Graphics const size=500.0 r=CGMakeRectMBS(0,0,size,size) // Create the context dim pic as new Picture(size, size, 32) c = CGBitmapContextMBS.CreateWithPicture(pic) if c.Handle=0 then // failed beep end if // First color background in white c.SetRGBFillColor 1.0,1.0,1.0,1.0 c.FillRect r c.SetRGBFillColor 0.0,0.0,0.0, 1.0 c.SelectFont "Times New Roman", 18.0, 1.0 c.ShowTextAtPoint "Hello World in Times New Roman",10,100 c.SetRGBFillColor 0.4, 0.7, 0.9, 1.0 c.SelectFont "Helvetica", 36.0, 1.0 c.SetTextDrawingMode 5 c.ShowTextAtPoint "revenge of the razorback frogs",0,r.height/2 c.SetRGBFillColor 0.4, 0.7, 0.9, 1.0 c.FillRect r c.SetLineWidth 2 DrawStarburst c,size // We've finished rendering the page c.Flush w=size/2 p = new Picture(size,w,32) // we don't need a larger mask p.Graphics.ForeColor=rgb(0,0,0) p.Graphics.fillrect 0,0,size,size k=0 n=255 g=p.Graphics for i=0 to 255 g.ForeColor=rgb(n,n,n) g.fillrect 0,k,w,1 n=n-1 k=k+1 next pic.mask = p Backdrop = pic End EventHandler

Sub DrawStarburst(c as cgcontextmbs, size as single) dim kFullCircleInRadians as single dim rotation as single kFullCircleInRadians = 3.14159265358979323846 * 2.0 // Draw 50 lines as a starburst c.SetLineWidth 2 rotation = 0.0 while rotation<kFullCircleInRadians // Start a new path c.BeginPath // Save the graphics state so we can start with a // fresh rotation each time c.SaveGState // // Translate the CTM to the center of the page, then // rotate the CTM by our current translation. Note // that order is important -- if you rotate the CTM // before the translation, the translation coordinates // will be rotated. In this example, we want to draw // in the center of the page, so we translate before // we rotate. // c.TranslateCTM size * 0.5, size * 0.5 c.RotateCTM rotation // // Draw a simple horizontal line // - First, set the current point to 0,0 // - Second, add the horizontal line // (We now have a path consisting of a horizontal line) // - Third, stroke the line to paint it onto the page // c.MoveToPoint 0.0, 0.0 c.AddLineToPoint size * 0.5, 0.0 c.StrokePath // Restore the graphics state c.RestoreGState rotation = rotation+ (kFullCircleInRadians/200.0) wend End Sub

Function MakePicture(p as picture,m as picture) As picture dim n as Picture if m=nil then Return p else n = new Picture(p.Width,p.Height,32) n.Graphics.DrawPicture p,0,0 n.Mask.Graphics.DrawPicture m,0,0 Return n end if End Function

End Class

Class App Inherits Application

End Class