Fast Canvas Library V1.052

[440bx]

It's looking really good.

Looking forward to the final version.   Thank you for sharing.

[Gigatron]

It's looking really good.

Looking forward to the final version.   Thank you for sharing.

Thank you @440bx

So you can do some nice fx with this glcanvas V0.049.. contain now some

Vector Text draw, Centered drawText, 2D/3D SpriteStarfield ...
Texture Bounce 255 max ! mtVector movement .. mt mean Movement Type defined like this:

Code: Pascal  [Select][+][-]

1. TGLMovementType = (
2.     mtLinear,
3.     mtSinus,
4.     mtCircular,
5.     mtSpiral,
6.     mtFigure8,
7.     mtZigZag,
8.     mtVector,
9.     mtTriangle,
10.     mtBreakOut
11.   );  

All textures are included in the  .zip file.
Do you have any ideas for effects to include for the final version?

Have fun ;

[440bx]

@Gigatron,

My pleasure.

Do you have any ideas for effects to include for the final version?

As far as ideas, one effect I really like is the "glow effect".   Sort of an example of it can be found at
https://forum.lazarus.freepascal.org/index.php/topic,58138.msg433109.html#msg433109

Another place where it was used is/was in the Windows logo when booting Windows 7.  Those are the two examples that come to mind at this time.

[Gigatron]

Hi

Here two example on the left with pixelshader(blur)  and the right glcommand : glDrawTexture2DGlow;

I think the windows7 boot screen is made with gaussian blurfx.

Please test this project.

Regards

[elkhalafy]

Download the library please?

[Gigatron]

Download the library please?

Hi
You must download project1.zip above (glCanvas.pas) is included;

Regards

[elkhalafy]

Download the library please?

Hi
You must download project1.zip above (glCanvas.pas) is included;

Regards

Okay, Thank you

[Gigatron]

Hi

This is the Final release of glCanvas 0.50 some nice fx were added like
Faster than light outline text draw , auto centeredX text .. etc..
Atom demo included with amigadigital88 font..

Have fun

[DrakkTheSeafarer]

Thank you for sharing.   

[cris75]

Hi,
Thank you for sharing.
I'm on Debian 12 (KDE / X11) had this error trying to compile project1

glCanvas.pas(1246,25) Error: Identifier not found "glXGetProcAddress"

In case it could be useful to someone else, to "fix" it I just needed to comment out line 1242

Code: Pascal  [Select][+][-]

1. //glXSwapIntervalSGI := nil;

and change line 1246 to

Code: Pascal  [Select][+][-]

1. Pointer(glXSwapIntervalSGI) := wglGetProcAddress(PAnsiChar('glXSwapIntervalSGI'));

[Gigatron]

Hi,
Thank you for sharing.
I'm on Debian 12 (KDE / X11) had this error trying to compile project1

glCanvas.pas(1246,25) Error: Identifier not found "glXGetProcAddress"

In case it could be useful to someone else, to "fix" it I just needed to comment out line 1242

Code: Pascal  [Select][+][-]

1. //glXSwapIntervalSGI := nil;

and change line 1246 to

Code: Pascal  [Select][+][-]

1. Pointer(glXSwapIntervalSGI) := wglGetProcAddress(PAnsiChar('glXSwapIntervalSGI'));

Hi , Thanks for testing with linux.
You mean like that ? If so i will update the glCanvas.

Code: Pascal  [Select][+][-]

1.  // pour linux .. a voir si ça marche !! correction le 08/10/2025 18h38
2.   {$IFDEF LINUX}
3.  //  glXSwapIntervalSGI := nil;
4.   {$ENDIF}
5.  
6.   {$IFDEF LINUX}
7.   Pointer(glXSwapIntervalSGI) := glXGetProcAddress(PAnsiChar('glXSwapIntervalSGI'));
8.   if not Assigned(glXSwapIntervalSGI) then
9.     raise Exception.Create('GLX_SGI_swap_control not supported by driver');
10.  
11.   if Enable then
12.     glXSwapIntervalSGI(1)
13.   else
14.     glXSwapIntervalSGI(0);
15.   {$ENDIF}    

[cris75]

Hi,
yes but note line 1246 (line 7 in the code snippet), not glXGetProcAddress but wglGetProcAddress, this way it complies for me
glXGetProcAddress is not found

Code: Pascal  [Select][+][-]

1.   // pour linux .. a voir si ça marche !!
2.   {$IFDEF LINUX}
3.    //glXSwapIntervalSGI := nil;
4.   {$ENDIF}
5.  
6.   {$IFDEF LINUX}
7.   Pointer(glXSwapIntervalSGI) := wglGetProcAddress(PAnsiChar('glXSwapIntervalSGI'));
8.   if not Assigned(glXSwapIntervalSGI) then
9.     raise Exception.Create('GLX_SGI_swap_control not supported by driver');
10.  
11.   if Enable then
12.     glXSwapIntervalSGI(1)
13.   else
14.     glXSwapIntervalSGI(0);
15.   {$ENDIF}
16.  

[Gigatron]

Ok

This version fix linux compilation error and include some new commands like
plasma, flag ,FBM plasma(internal shader) , UV scrolling and some memory leaks fix.
No need to free texture, chars  and shaders ondestroy Form1.

Regards

[cris75]

Works great, thank you!!