OpenGl Plugin - Update 2007/08/31

A. Percy · December 5, 2006

Hello.

~~In the last 3 weeks~~ I had working in a interesting experiment with OpenGl and I created this little plugin.

~~It is just an experiment.~~ Please, make sure you have glut32.dll in your system.

The project have texture support now, implemented by EFF. To use textured version, you need glaux.dll on your system.

Glut32 and Glaux can be found here.

This project is open for any contribution, modifications of any kind. Is public! But please, if you expand it in any way, share with us!

List of Functions:

-Initializing:
CreateGlWindow( Width, Heigh, "WinTitle" )
SetClearColor( Red, Green, Blue )

-Manage Lights: LightNumber can be 0 to 7
CreateLight( LightNumber, X, Y, Z )
SetLightAmbient( LightNumber, Red, Green, Blue )
SetLightDiffuse( LightNumber, Red, Green, Blue )
SetLightSpecular( LightNumber, Red, Green, Blue )
SetLightPosition( LightNumber, X, Y, Z )

-Manage Camera:
SetCamera( EyeX, EyeY, EyeZ, TargetX, TargetY, TargetZ )
SetCameraUp( X, Y, Z )
SetCameraView( Near, Far )

-Show:
SceneDraw( )

-Manage Objects:
AddObject( ObjectName )
DelObject( ObjectName )
TranslateObject( ObjectName, X, Y, Z )
RotateObject( ObjectName, X, Y, Z )
ScaleObject( ObjectName, X, Y, Z )

-Manage Groups: Groups can contain Objects and another Groups
CreateGroup( GroupName )
SetToGroup( GroupName, Object/GroupName )
TranslateGroup( GroupName, X, Y, Z )
RotateGroup( GroupName, X, Y, Z )
ShowGroup( GroupName )
HideGroup( GroupName )
DeleteGroup( GroupName )

-Add Poligons:
AddLine( ObjectName, Xv1, Yv1, Zv1, Xv2, Yv2, Zv2, Red, Green, Blue, Alpha )
AddTriangle( ObjectName, Xv1, Yv1, Zv1, Xv2, Yv2, Zv2, Xv3, Yv3, Zv3, Xn, Yn, Zn, Red, Green, Blue, Alpha )
AddQuad( ObjectName, Xv1, Yv1, Zv1, Xv2, Yv2, Zv2, Xv3, Yv3, Zv3, Xv4, Yv4, Zv4, Xn, Yn, Zn, Red, Green, Blue, Alpha )
AddGlSphere( ObjectName, X, Y, Z, Radius, Slices, Stacks, Red, Green, Blue, Alpha )
AddGlCylinder( ObjectName, X, Y, Z, Radius1, Radius2, Height, Slices, Stacks, Red, Green, Blue, Alpha )
AddGlStrokeChar( ObjectName, X, Y, Z, Red, Green, Blue, AsciiCode )

-Manage Textures:
SetTextureBuffer( NumberTextures )
AddTexture( textureID, TexturePath )
BindTexture( objName, TextureName )
SetTextureMode( )

A blank sample:

#include "GlPluginUtils.au3"

;hide icon!!!!!!
AutoItSetOption( "TrayIconHide", 1 )
$Title = "Sample"
DefineGlWindow( 800, 600, $Title )
SetClearColor( 0.1, 0.1, 0.1 )

CreateLight( 0, 600, 1000, 600 )
SetLightAmbient( 0, 0.2, 0.2, 0.2 )
SetLightDiffuse( 0, 0.7, 0.7, 0.7 )
SetLightSpecular( 0, 0, 0, 0 )

;... make some objects...

SetCamera( 0, 60, 300, 0, 30, 0 )

Opt( "WinTitleMatchMode", 3 )
WinWait( $Title )
$CheckWindowTimer = TimerInit( )
While 1
    SceneDraw( )
    sleep( 10 )
    ;...post your animation code here...
    
    ;check if window exist... (using a timer to reduce CPU usage by WinExists function)
    If TimerDiff( $CheckWindowTimer ) > 1000 Then
        If WinExists( $Title ) = 0 Then ExitLoop
        $CheckWindowTimer = TimerInit( )
    EndIf
Wend

Comments will be welcome.

Bye!

PS: Requires a graphics card that supports OpenGL (Intergrated Chipsets not recommended).

--------------------------------------

UPDATED - 31/Aug/2007

--------------------------------------

Added function:

AddPartialDisk( Name, X, Y, Z, Radius1, Radius2, Slices, Stacks, StartAngle, SweepAngle, Red, Green, Blue, Alpha )

Fixed texture "bug". Now it works with textures in any size.

--------------------------------------

UPDATED - 18/Sep/2007

--------------------------------------

deprecated...

T2 is the current version

Details here.

--------------------------------------

UPDATED - 29/Aug/2007

--------------------------------------

>> Removed functions:

SetFPS

GlMainLoop

>> Added command:

SceneDraw( )

- now you control animation loop inside autoit...

- no more "racing condition" while working in some animations

>> Now Cylinder have 2 sides.

--------------------------------------

UPDATED - 23/Aug/2007

--------------------------------------

DeleteGroups fixed

Some improvements

--------------------------------------

UPDATED - 22/Aug/2007

--------------------------------------

Now texture works on quads, triangles, spheres and cylinders (new)

New Functions:

AddGlCylinder( ObjectName, X, Y, Z, Radius1, Radius2, Height, Slices, Stacks, Red, Green, Blue, Alpha )

Removed Function:

AddGlCone( ObjectName, X, Y, Z, Radius, Height, Slices, Stacks, Red, Green, Blue, Alpha ) - deprecated by AddGlCylinder

--------------------------------------

UPDATED - 20/Aug/2007

--------------------------------------

New Functions:

ShowGroup( GroupName )

HideGroup( GroupName )

DeleteGroup( GroupName )

--------------------------------------

UPDATED - 10/Aug/2007

--------------------------------------

Bug fix on SetFPS

New Functions:

AddGlStrokeChar( Name, X, Y, Z, Red, Green, Blue, AsciiCode )

ScaleObject( Name, X, Y, Z )

--------------------------------------

UPDATED - 07/Aug/2007

--------------------------------------

Bug fix - no more flick in some machines

--------------------------------------

UPDATED - 25/Apr/2007

--------------------------------------

Texture bug that allows only one texture to be used was fixed. Now it can be used with any number of textures.

Modifications:

Function TextureMode can be used with one parameter - 0 (default) that turns texture mode without other colour. Or 1, textures will be combined with object colour.

--------------------------------------

UPDATED - 20/Apr/2007

--------------------------------------

EFF has added texture functions

It needs "glaux.dll" to work.

--------------------------------------

UPDATED - 16/Apr/2007

--------------------------------------

Cone bug fixed - thanks EFF

--------------------------------------

UPDATED - 22/Jan/2007 - r2

--------------------------------------

Bug related SetFPS function fixed

--------------------------------------

UPDATED - 22/Jan/2007

--------------------------------------

New functions:

SetFPS( Frequency )

Sets animation frequency per second

--------------------------------------

UPDATED - 11/Jan/2007

--------------------------------------

New functions:

SetCameraView( Near, Far ); - made to Pa Callender (I think that it will be usefull for you)

AddGlCone( Name, X, Y, Z, Radius, Height, Slices, Stacks, Red, Green, Blue, Alpha )

Now I'm planning to add textures. Give me time...

--------------------------------------

UPDATED - 05/Jan/2007

--------------------------------------

New function: SetLightPosition( LightNumber, X, Y, Z )

Some refactory in code.

--------------------------------------

UPDATED - 25/Dec/2006

--------------------------------------

Now using GL_CULL_FACE: means that any polygon have only one face (now the polygon vertexes needs be placed clockwise - examples was updated )

--------------------------------------

UPDATED - 23/Dec/2006

--------------------------------------

Added functions:

CreateLight( Number, X, Y, Z ) -> important: for while, it's working only with Const Lights

SetLightAmbient( LightNumber, Red, Green, Blue )

SetLightDiffuse( LightNumber, Red, Green, Blue )

SetLightSpecular( LightNumber, Red, Green, Blue )

Modifications:

Only internal improvements.

--------------------------------------

UPDATED - 12/Dec/2006

--------------------------------------

Added functions:

DelObject( Name )

CreateGroup( Name ) ;yes, for now you can group objects

SetToGroup( GroupName, Object ) ; insert object into group, or group into group (recursive)

TranslateGroup

RotateGroup

Please, see file Sample2.au3 inside zip file.

Modifications:

All modifications was internal. Now objects and groups works in a linked list. New file with mesh class.

--------------------------------------

UPDATED - 08/Dec/2006

--------------------------------------

Added function:

AddGlSphere( Name, X, Y, Z, Radius, Slices, Stacks, Red, Green, Blue, Alpha )

Now Alpha blending is working!

--------------------------------------

UPDATED - 07/Dec/2006

--------------------------------------

For now is possible add lines into objects -

AddLine( $Name, $Source_X, $Source_Y, $Source_Z, $Dest_X, $Dest_Y, $Dest_Z, $Red, $Green, $Blue )

Modified:

RotateObject was modified - Now only rotate objects across it's axis.

--------------------------------------

Posted Image

Download:

With texture support:

- total downloads from very old versions: 416

- all versions can be found here

Without texture (discontinued):

Last: Au3GlPlugin_2007_04_16.zip

Old: +147 downloads...

source + compiled dll

Used IDE: Code::Blocks

Edited February 28, 2008 by A. Percy

Locodarwin · December 5, 2006

This is great! Any chance you could provide source code so that folks (like myself) can help you debug/expand the plugin?

-S

/dev/null · December 5, 2006

Hello.

In the last 3 weeks I had working in a interesting experiment with OpenGl and I created this little plugin.
It is just an experiment. Please, make sure you have glut32.dll in your system.

Comments will be welcome.

Bye!

Could you please post a link to glut32.dll.

EDIT: Btw, would you mind to post the plugin source code?

Cheers

Kurt

Edited December 5, 2006 by /dev/null

Locodarwin · December 5, 2006

The errors are due to the fact that the functions in his plugin are not known by SciTE. Just "continue anyway" on the errors and it'll work.

The AutoIt script doesn't close out properly, though - he needs to add an Exit handler to it.

You can get glut32.dll here: http://www.dll-files.com/dllindex/dll-files.shtml?glut32

-S

Edited December 5, 2006 by Locodarwin

/dev/null · December 5, 2006

The AutoIt script doesn't close out properly, though - he needs to add an Exit handler to it.

right, after the window get's closed AutoIT.exe will consume 99% CPU time.

You can get glut32.dll here: http://www.dll-files.com/dllindex/dll-files.shtml?glut32

Actually I figured out, that Ruby (http://www.ruby-lang.org) installed a glut32.dll on my system :-)

Cheers

Kurt

A. Percy · December 5, 2006

This is great! Any chance you could provide source code so that folks (like myself) can help you debug/expand the plugin?
-S

Ok! The source code is now in first post.

I'm planning to add a "light manager" class and many other things. If you have any idea, implement it!

/dev/null · December 6, 2006

Ok! The source code is now in first post.
I'm planning to add a "light manager" class and many other things. If you have any idea, implement it!

Thanks!

Cheers

Kurt

Zedna · December 6, 2006

That's amazing!!! very nice effects.

Only one disadvantage is constructing 3D objects by theirs X,Y,Z - it's rather complicated for 3D noobies like me :lmao:

RazerM · December 6, 2006

Very nice effects indeed. It does seem quite difficult though

ConsultingJoe · December 6, 2006

This is cool.

Do you have the parameters for the plugin? are there other objects such as spheres?

A. Percy · December 6, 2006

This is cool.
Do you have the parameters for the plugin? are there other objects such as spheres?

Thanks!

For while we have only triangles for tests, cause it's ease to implement, but I'm thinking implement other object types.

ConsultingJoe · December 6, 2006

how do you move things, change colors, and rotate once it is started?

is there a help file

A. Percy · December 6, 2006

how do you move things, change colors, and rotate once it is started?
is there a help file

I didn't create a help file cause it's just an experiment, but I will explain how it works:

I can create objects any time!

To create an object, it's necessary declare it:

AddObject( "MyObject" )
oÝ÷ Ùh^*.®ãyË^Æ+-³*.q©ÚuÛ(ëk©àëºÚ"µÍYX[ÛJ   ][ÝÓ^SØXÝ   ][ÝË  ÌÍÕVÌK  ÌÍÕVÌWK ÌÍÕVÌK  ÌÍÕÌK   ÌÍÕÌWK  ÌÍÕÌK   ÌÍÕÖÌK ÌÍÕÖÌWK    ÌÍÕÖÌK ÌÍÓÜX[ÌK   ÌÍÓÜX[ÌWK  ÌÍÓÜX[ÌK   ÌÍÔY ÌÍÑÜY[  ÌÍÐYK    ÌÍÐ[H
BoÝ÷ Ù8b±û§rØ¨wvÌ¨º·^rV«j×¡¸ÞrÛaç¯z»^Åú+¶¸   ^]mçbç-è~«¨¶z+©jº_iÇÛayÊ%¢´F'{¦¦WßÛÞr·µç@uÔë©àá1q«¬z+wöÇ(û¬¬¶¬x]N¸    ^jëh×6
Func _AddTriangleEx( $Name, $V1, $V2, $V3, $Normal, $Red, $Green, $Blue, $Alpha )
    If UBound( $V1 ) and UBound( $V2 ) and UBound( $V3 ) and UBound( $Normal ) Then
        AddTriangle( $Name, $V1[0], $V1[1], $V1[2], $V2[0], $V2[1], $V2[2], $V3[0], $V3[1], $V3[2], $Normal[0], $Normal[1], $Normal[2], $Red, $Green, $Blue, $Alpha )
    EndIf
EndFunc
oÝ÷ Ù8^WîËb¢v®¶s` Æö6Âb33cµc³5ÒÒ²ÓÂÓÂÓÐ Æö6Âb33cµc%³5ÒÒ²ÂÓÂÓÐ Æö6Âb33cµc5³5ÒÒ²ÂÂÓÐ  Æö6Âb33c´æ÷&ÖÅ³5ÒÒ²ÂÂÐ  ôFEG&ævÆTWgV÷C´×ö&¦V7BgV÷C²Âb33cµcÂb33cµc"Âb33cµc2Âb33c´æ÷&ÖÂÂãBÂãÂãBÂãoÝ÷ Ùg¥ÈÁ©í®Zµæ§¡¸ÞrØî²×V®¶s`¥&÷FFTö&¦V7BgV÷C´×ö&¦V7BgV÷C²ÂÂ#ÂoÝ÷ Ø    Ý¶¶§²Vz+ZºÚ"µÍ[Û]SØXÝ
    ][ÝÓ^SØXÝ   ][ÝËMH
B

ConsultingJoe · December 6, 2006

Thanks are there any other objects? and how do you change the xy of an existing object? and can we get the source?

A. Percy · December 6, 2006

Thanks are there any other objects? and how do you change the xy of an existing object? and can we get the source?

For while we don't have any other type of objects, and we need create others using triangles. To change xy, use TranslateObject. The source is in first post!

ConsultingJoe · December 6, 2006

Thanks are there any other objects? and how do you change the xy of an existing object? and can we get the source?

and is there commands like: _DeleteCube() OR _EditCube()?

A. Percy · December 6, 2006

and is there commands like: _DeleteCube() OR _EditCube()?

No...

ConsultingJoe · December 6, 2006

No...

oh, if we had those two we could make some sweet games. is there an easy way to add pipes or lines?

Thanks

A. Percy · December 6, 2006

oh, if we had those two we could make some sweet games. is there an easy way to add pipes or lines?
Thanks

No, but it's a good idea. This will be usefull. Thanks!

ConsultingJoe · December 6, 2006

One more thing, Can you tell me what Vars are what in the functions such as:

SetCamera( 0, 80, 300, 0, 0, 0 )

RotateObject( "Cube2", 10, -20, 0 )

TranslateObject( "Cube2", -40, 40, -10 )

and is there a way to create an opengl object in autoit like objcreate()

Thanks

Edited December 6, 2006 by www.CyberZeroCool.com

OpenGl Plugin - Update 2007/08/31

Recommended Posts

Link to comment

Share on other sites

Top Posters In This Topic

Top Posters In This Topic

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members