That would be great ;)
I've just added hq2x to Extras directory (SVN) and build a new demo.
I've just added hq2x to Extras directory (SVN) and build a new demo.
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
case aDetail of
TD_LOW: MainLevelIndex := 2;
TD_MEDIUM: MainLevelIndex := 1;
TD_HIGH: MainLevelIndex := 0;
end;
GLTextureID := CreateGLTextureFromMultiImage(ImagesArray, 0, 0, True, MainLevelIndex);
uses
... ImagingClasses, ImagingOpenGL, ImagingUtility;
var
Sprite, Pow2Sprite: TSingleImage;
TexId: GLint;
begin
// Load orig 72x128 sprite
Sprite := TSingleImage.CreateFromFile('MySprite72x128.png');
// Create power of 2 image
Pow2Sprite := TSingleImage.CreateFromParams(NextPow2(Sprite.Width), NextPow2(Sprite.Height), Sprite.Format);
// Copy orig sprite to pow2 image
Sprite.CopyTo(0, 0, Sprite.Width, Sprite.Height, Pow2Sprite, 0, 0);
// Create GL texture using pow2 imag as a source
TexId := CreateGLTextureFromImage(Pow2Image.ImageDataPointer^);
.. do stuff ..
end;
Page created in 0.032 seconds with 20 queries.