bmp file not saving

Monkey Forums/Monkey Programming/bmp file not saving

pyongpyong (Posted 2013) [#1]

Fred's bmp file code http://www.monkeycoder.co.nz/Community/posts.php?topic=5528#61922 press SPACEBAR to saving "test.bmp".... but internal directory has empty. my code is wrong? Import brl Import mojo Const WIDTH=100 Const HEIGHT=100 Class Game Extends App Field image:Image Field check:Bool Field scrshot:Image Field et:Int Field renders:Int, old_ms:Int, fps:Int Field bmps:BmpFile Method OnCreate() SetUpdateRate 60 scrshot = CreateImage(WIDTH, HEIGHT,Image.MidHandle) End Method OnUpdate() renders = renders + 1 If Millisecs() -old_ms >= 1000 old_ms=Millisecs() fps=renders renders=0 Endif End Method OnRender() Cls(0,0,0) SetAlpha(.8) SetColor(255, 255, 255) DrawCircle(100, 100, 50) DrawText(et+" "+fps, 400, 200) DrawImage(scrshot, MouseX(), MouseY()) Local pixels:Int[] = New Int[WIDTH * HEIGHT] ReadPixels(pixels, 50, 50, WIDTH, HEIGHT) Local st:Int = Millisecs() For Local i:Int=0 To pixels.Length-1 pixels[i]=Alpha(pixels[i]) Next et = Millisecs() - st scrshot.WritePixels(pixels, 0, 0, WIDTH, HEIGHT) If KeyHit(KEY_SPACE) bmps.Grab(0,0,100,100) bmps.Save("test") End End End Function Alpha:Int(argb:int) Local a : Int = ( argb Shr 24 ) & $ff Local r : Int = ( argb Shr 16 ) & $ff Local g : Int = ( argb Shr 8 ) & $ff Local b : Int = argb & $ff If r<8 And g<8 And b<8 'below is black = transparent a=$0 Endif Return (a Shl 24)+(r Shl 16)+(g Shl 8)+b End Class BmpFile Field Width:Int ' bmp image width Field Height:Int ' bmp image height Field Pixels:Int[1] ' array for screen pixels Field FileSize:Int ' bmp file size Field Buffer:DataBuffer ' bmp file data (header + pixels) Field PadLineWidth:Int ' bmp real line size ' default header for 24bpp image Field Header:Int[] = [ $42,$4D,$D6,$83,$00,$00,$00,$00,$00,$00,$36,$00,$00,$00,$28,$00,$00,$00,$6C,$00,$00,$00,$68,$00,$00, $00,$01,$00,$18,$00,$00,$00,$00,$00,$00,$00,$00,$00,$C3,$0E,$00,$00,$C3,$0E,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 ] Const FILE_SIZE := $2 Const IMAGE_WIDTH := $12 Const IMAGE_HEIGHT := $16 Const RAW_DATA_SIZE := $22 Method Grab:Void( x:Int, y:Int, w:Int, h:Int ) ' Call within OnRender after drawing the image to grab Width = w Height = h PadLineWidth = (((Width*3) + 3) / 4) * 4 Pixels = Pixels.Resize( Width * Height ) ReadPixels Pixels, x, y, Width, Height FileSize = Header.Length() + PadLineWidth * Height Buffer = New DataBuffer( FileSize ) local ptr:Int for ptr = 0 until Header.Length Buffer.PokeByte ptr, Header[ptr] next Buffer.PokeInt FILE_SIZE, FileSize Buffer.PokeInt IMAGE_WIDTH, Width Buffer.PokeInt IMAGE_HEIGHT, Height Buffer.PokeInt RAW_DATA_SIZE, PadLineWidth * Height local i:Int = 0 local pix:Int for local ys:Int = 0 until Height ptr = (Height - ys - 1) * PadLineWidth + Header.Length For Local xs:Int = 0 Until Width pix = Pixels[i] Buffer.PokeByte ptr+0, pix & $ff Buffer.PokeByte ptr+1, (pix Shr 8) & $ff Buffer.PokeByte ptr+2, (pix Shr 16) & $ff ptr += 3 i += 1 Next Next End Method Save:Void( filename:String ) ' filename without .bmp Local file:= FileStream.Open("monkey://internal/test.bmp", "w") If file file.Write Buffer, 0, FileSize file.Close Endif End End Function Main() New Game() End

Markus (Posted 2013) [#2]

you look here? X:\MonkeyProjects\ProjectName\ProjectName.build\glfw\vc2010\Debug\internal

pyongpyong (Posted 2013) [#3]

look at picture....

Fred (Posted 2013) [#4]

Hi, I can't test your code now, but I use the Save method in OnUpdate right after the Grab from OnRender.

Markus (Posted 2013) [#5]

hehe, maybe search for test.bmp or use DebugStop here + else if can't open If file file.Write Buffer, 0, FileSize file.Close else print "..." Endif

Fred (Posted 2013) [#6]

Change Field bmps:BmpFile to Field bmps:BmpFile = New BmpFile

Markus (Posted 2013) [#7]

i try also, the keyhit don't come in render, only in update^^, strange.

pyongpyong (Posted 2013) [#8]

Oh my god! OnUpdate and OnRender.. KeyHit position was bad Fred and Markus thank you! good good very good!