>seems to be a word in the format of RGBA with 4 bits each Well, it seemed to be RGBA, but it's not...
It's a word with: 5bits red, 6bits green, and 5bits blue like this: RRRRRGGGGGGBBBBB I'm not sure what that's called or how to set up aggpas to use that, but that's what it seems to be if ptcgraph is put in a 16bit color mode. It doesn't seem to be able to go any higher than that, but that's fine for my purposes. James -----Original Message----- From: fpc-pascal [mailto:fpc-pascal-boun...@lists.freepascal.org] On Behalf Of James Richters Sent: Wednesday, May 31, 2017 7:52 AM To: 'FPC-Pascal users discussions' <fpc-pascal@lists.freepascal.org> Subject: Re: [fpc-pascal] Implementing AggPas with PtcGraph I was doing some tests with Putpixel and that seems to be a word in the format of RGBA with 4 bits each. I would think putimage would use the same format, but I haven't tested that yet. I'm still a bit confused by putimage, since it only has an X and Y startpoint, how do you define the height and width of the bitmap? Getimage() specifies a rectangle, and imagesize() figures out how much memory you need, but I just don't what defines the size and shape of the image to putimage. I managed to get the test out of the buffer and onto the screen with : function getBufItemAsByte(aDelta: Word): Byte; var actualY: Integer; thing:Byte; begin actualY := ImageHeight - y - 1; thing := byte(buf[x * RGBA_Width + actualY * ImageWidth * RGBA_Width + aDelta]); result:=thing shr 4; //colors channels are reduced to 4 bits each, they are not correct end; for x := 0 to ImageWidth - 1 do for y := 0 to ImageHeight - 1 do begin pixelcolor:=(getBufItemAsbyte(2) shl 12)+(getBufItemAsbyte(1) shl 8) +(getBufItemAsbyte(0) shl 4)+getBufItemAsbyte(3); putpixel(x,y,pixelcolor); end; James -----Original Message----- From: fpc-pascal [mailto:fpc-pascal-boun...@lists.freepascal.org] On Behalf Of Graeme Geldenhuys Sent: Tuesday, May 30, 2017 8:19 PM To: fpc-pascal@lists.freepascal.org Subject: Re: [fpc-pascal] Implementing AggPas with PtcGraph On 2017-05-30 22:37, James Richters wrote: > Putimage() takes > Initial X position > Initial Y position > Pointer to beginning of memory bitmap In that case the AggPas code should be even faster, because PutImage() only want a pointer to the bitmap data - thus no need to go through the slow FPImage code to generate a PNG or BMP image. The pixel-by-pixel conversions for FPImage is very slow. > Size := ImageSize(10, 20, 30, 40); > GetMem(Q, Size); { Allocate memory on heap } So you can do pretty much the same with AggPas then. Allocate the memory you need, and attach that as the rendering buffer or AggPas. As I mentioned before, AggPas just needs to know what memory it can write too, and in what format you want that rendered data to be. AggPas supports many render buffer formats. BGR, BGRA, RGB, RGBA, Gray8, rgb555, rgb565 etc etc. And if an existing render buffer format doesn't exist, it is really easy and quick to add a new one - just a few really simple procedures to implement. See the pf_*.inc files for plenty of examples. The "pf_" prefix stands for "pixel format definition". > I'm looking at it and I think getimage / putimage are just one byte per > pixel... maybe? I'll see if I can get graph or ptcgraph working working here under FreeBSD, then I'll take a look at what pixel format they use. Regards, Graeme -- fpGUI Toolkit - a cross-platform GUI toolkit using Free Pascal http://fpgui.sourceforge.net/ My public PGP key: http://tinyurl.com/graeme-pgp _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
