Simple paint application.

[coconParticipant]

This is the a very simple paint application, I will use it as a starting point of something else in the future. Adding more features to the code as it is, requires a total redesign which beats the purpose of making a simple snippet. This is why is such a direct implementation without any abstractions, so it becomes interesting for studying. Currently it allows you to draw, clear screen, and save a screenshot.

Monkey

Namespace myapp #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field _colorDraw:Color Field _colorClear:Color Method New() Super.New("Paint Application", 800, 600) _colorDraw = Color.Black _colorClear = Color.LightGrey _drawImage = New Image(Width, Height, PixelFormat.RGBA8, TextureFlags.Dynamic) _drawCanvas = New Canvas(_drawImage) _drawCanvas.Color = _colorDraw _drawCanvas.Clear(_colorClear) _mousePrevious = New Vec2i Print("Welcome To Simple Paint Application") Print("Draw with left mouse button.") Print("Press Backspace to clear screen.") Print("Press Enter to save a screenshot.") End Method OnRender(canvas:Canvas) Override canvas.Clear(_colorClear) canvas.DrawImage(_drawImage, 0, 0) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Backspace _drawCanvas.Clear(_colorClear) App.RequestRender() Print("Cleared Image") Case Key.Enter Local pixmap := _drawCanvas.CopyPixmap(_drawCanvas.Viewport) Local time := Time.Now() Local filename := "" filename += time.Year filename += time.Month filename += time.Day filename += time.Hours filename += time.Minutes filename += time.Seconds filename += Millisecs() filename = HomeDir() + filename + ".png" pixmap.Save(filename) Print("Saved Image: " + filename) End End End Method OnMouseEvent(event:MouseEvent) Override Select event.Type Case EventType.MouseDown _mouseDown = True _mousePrevious.X = Mouse.X _mousePrevious.Y = Mouse.Y Case EventType.MouseUp _mouseDown = False Case EventType.MouseMove If _mouseDown _drawCanvas.DrawLine(_mousePrevious.X, _mousePrevious.Y, Mouse.X, Mouse.Y) _drawCanvas.Flush() App.RequestRender() _mousePrevious.X = Mouse.X _mousePrevious.Y = Mouse.Y End End End End Function Main() New AppInstance New MyWindow App.Run () End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100

Namespace myapp   #Import "<std>" #Import "<mojo>"   Using std.. Using mojo..   Class MyWindow Extends Window Field _drawImage:Image Field _drawCanvas:Canvas Field _mouseDown:Bool Field _mousePrevious:Vec2i Field _colorDraw:Color Field _colorClear:Color Method New() Super.New("Paint Application", 800, 600) _colorDraw = Color.Black _colorClear = Color.LightGrey _drawImage = New Image(Width, Height, PixelFormat.RGBA8, TextureFlags.Dynamic) _drawCanvas = New Canvas(_drawImage) _drawCanvas.Color = _colorDraw _drawCanvas.Clear(_colorClear) _mousePrevious = New Vec2i   Print("Welcome To Simple Paint Application") Print("Draw with left mouse button.") Print("Press Backspace to clear screen.") Print("Press Enter to save a screenshot.") End   Method OnRender(canvas:Canvas) Override canvas.Clear(_colorClear) canvas.DrawImage(_drawImage, 0, 0) End Method OnKeyEvent(event:KeyEvent) Override Select event.Type Case EventType.KeyDown Select event.Key Case Key.Backspace _drawCanvas.Clear(_colorClear) App.RequestRender() Print("Cleared Image") Case Key.Enter Local pixmap := _drawCanvas.CopyPixmap(_drawCanvas.Viewport) Local time := Time.Now() Local filename := "" filename += time.Year filename += time.Month filename += time.Day filename += time.Hours filename += time.Minutes filename += time.Seconds filename += Millisecs() filename = HomeDir() + filename + ".png" pixmap.Save(filename) Print("Saved Image: " + filename) End End End Method OnMouseEvent(event:MouseEvent) Override Select event.Type Case EventType.MouseDown _mouseDown = True _mousePrevious.X = Mouse.X _mousePrevious.Y = Mouse.Y Case EventType.MouseUp _mouseDown = False Case EventType.MouseMove If _mouseDown _drawCanvas.DrawLine(_mousePrevious.X, _mousePrevious.Y, Mouse.X, Mouse.Y) _drawCanvas.Flush() App.RequestRender() _mousePrevious.X = Mouse.X _mousePrevious.Y = Mouse.Y End End End End   Function Main() New AppInstance New MyWindow App.Run () End

Attachments:

1. 

   20171115122223115512.png
   

[Author]

Posts