Issue with CopyPixmap

[Chapman7Participant]

Code (takes a screenshot and saves it):

Monkey

#Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class AppWindow Extends Window Field UpdateTimer:Timer Field DisplayStatistics:Bool Field TakeScreenshot:Bool Method New() SwapInterval=0 ClearColor = Color.Black End Method Method OnUpdate() If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() If Keyboard.KeyDown(Key.LeftControl) Then If Keyboard.KeyPressed(Key.F) Then DisplayStatistics = Not DisplayStatistics If Keyboard.KeyPressed(Key.P) Then TakeScreenshot = True Endif App.RequestRender() End Method Method OnRender(Canvas:Canvas) Override OnUpdate() If (DisplayStatistics = True) Then Canvas.Color = Color.White Canvas.DrawText("FPS :"+App.FPS,0,0) Endif If (TakeScreenshot = True) Then TakeScreenshot = False Local Screenshot:Pixmap = Canvas.CopyPixmap(New Recti(0, 0, 640, 480))'Rect) Print SavePixmap(Screenshot, "test.png") Endif End Method End Class Function Main() New AppInstance New AppWindow App.Run() End Function

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

#Import "<std>" #Import "<mojo>"   Using std.. Using mojo..     Class AppWindow Extends Window Field UpdateTimer:Timer Field DisplayStatistics:Bool Field TakeScreenshot:Bool Method New() SwapInterval=0 ClearColor = Color.Black End Method Method OnUpdate() If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() If Keyboard.KeyDown(Key.LeftControl) Then If Keyboard.KeyPressed(Key.F) Then DisplayStatistics = Not DisplayStatistics If Keyboard.KeyPressed(Key.P) Then TakeScreenshot = True Endif App.RequestRender() End Method Method OnRender(Canvas:Canvas) Override OnUpdate() If (DisplayStatistics = True) Then Canvas.Color = Color.White Canvas.DrawText("FPS :"+App.FPS,0,0) Endif If (TakeScreenshot = True) Then TakeScreenshot = False Local Screenshot:Pixmap = Canvas.CopyPixmap(New Recti(0, 0, 640, 480))'Rect) Print SavePixmap(Screenshot, "test.png") Endif End Method End Class   Function Main() New AppInstance New AppWindow App.Run() End Function

Problems:

1. In the image attached you will see the pixels are all flipped vertically
2. The image “test.png” is saved to the Monkey2 directory, not the directory that the app is in (didn’t know if that was intended)

Attachments:

1. 

   test.png
   

[ArjailerParticipant]

I’ve also been trying to add “screenshot” code and am seeing the same flipped image.

[ArjailerParticipant]

I just added this to flip the image the correct way up:

Monkey

Method VerticallyFlipPixmap:Pixmap(pixmap:Pixmap) Local flipped := New Pixmap(pixmap.Width, pixmap.Height) For Local y := 0 To pixmap.Height -1 For Local x := 0 To pixmap.Width -1 Local value:UInt = pixmap.GetPixelARGB(x, pixmap.Height - (y + 1)) flipped.SetPixelARGB(x, y, value) End End Return flipped End

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Method VerticallyFlipPixmap:Pixmap(pixmap:Pixmap) Local flipped := New Pixmap(pixmap.Width, pixmap.Height) For Local y := 0 To pixmap.Height -1 For Local x := 0 To pixmap.Width -1 Local value:UInt = pixmap.GetPixelARGB(x, pixmap.Height - (y + 1)) flipped.SetPixelARGB(x, y, value) End End Return flipped End

[Author]

Posts