nxPascal

[cst_zf]

Can you tell me how to show fade-in and fade-out effect with nxPascal?

[code_glitch]

Hay all nxPascal contributors, a new post slipped the mod net while I was away... See above.

Can you tell me how to show fade-in and fade-out effect with nxPascal?

Cheers.

[User137]

What is mod net?

For the problem there is many ways, but by fading you propably mean fading whole screen to black and back in to new screen.

In 2D mode you can accurately draw a faded black rectangle on top of other graphics, or you can use black glClearColor (is default) and change alpha color of all your graphics. Also to draw rect in solid color you need to disable texture.

tex.Disable;
  nx.Enable2D;
  nx.SetColor(0,0,0,fade);
  nx.RectT(0,0,nx.Width,nx.Height);
  nx.Disable2D;
  tex.Enable;

[code_glitch]

What is mod net?

Simply the net in which I catch spam and other nasties and approve posts from new users. Its the reason why you see a nice clean PGD that's viagra add free and clutter free from spam - there can be anywhere from 5-50 posts to delete per day.

[cst_zf]

FrameBuffer in src_demos/delphi_demos reports an AV exception.

[User137]

FrameBuffer in src_demos/delphi_demos reports an AV exception.

Sorry i can't reproduce the AV with Delphi 7. However nxGL is not catching OpenGL errors for unsupported video cards/drivers at the moment.

New addition to nxPascal and updated source download link. This is what i mentioned earlier, what i now call TQuadTexture. By adding nxGLExtra in uses-list lets you use memory optimized textures with rotation and scaling. TQuadTexture uses TGLTextureSet for holding 1-4 textures that are fitted for odd and any texture size, like 260x550 would define 4 power of 2 textures and use memory of 260x576 pixels (256+4 x 512+64).

Normally using GL_NEAREST has no issues with scaling, but with linear filtering there is TDX-feature in use by default that makes visible line-errors between textures disappear.

To use, simply have variable qt: TQuadTexture; somewhere, and

qt:=TQuadTexture.Create('test.png', true); // Loads with transparency on
..
nx.SetColor(1,1,1); // Use white color
qt.Draw(0, 0); // Simple draw in point (0,0). Textures are set automatically.

[cst_zf]

What is mod net?

For the problem there is many ways, but by fading you propably mean fading whole screen to black and back in to new screen.

In 2D mode you can accurately draw a faded black rectangle on top of other graphics, or you can use black glClearColor (is default) and change alpha color of all your graphics. Also to draw rect in solid color you need to disable texture.

tex.Disable;
  nx.Enable2D;
  nx.SetColor(0,0,0,fade);
  nx.RectT(0,0,nx.Width,nx.Height);
  nx.Disable2D;
  tex.Enable;

I means fading-out rendering a graphics with alpha value from 1.0 to 0.0 gradually and fading-in from 0.0 to 1.0.
That is a useful effect in some situations.

in this question, i need a procedure like DrawAlpha(left, top, width, height, alphavalue)