OpenGl Plugin - Update 2007/08/31

[ConsultingJoe]

Alpha...

Ok, now it works. but what are the parameters of the sphere

[A. Percy]

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

X, Y, Z - position

Radius - radius of sphere

Slices - like longitude of Earth

Stacks - like latitude

Red, Green, Blue, Alpha - color

[ConsultingJoe]

Flying with AutoIt.

use your pointer keys.

NOTE: if you have Epilepsy, you should not play this.

CODE

#compiler_plugin_funcs=DefineGlWindow, SetClearColor, SetCamera, GlMainLoop, AddLine, AddTriangle, AddObject, RotateObject, TranslateObject, AddGlSphere

;AutoItSetOption( "TrayIconHide", 1 )

#include <GUIConstants.au3>

#include <misc.au3>

Global Const $TBS_REVERSED = 0x200

$handle = PluginOpen( @ScriptDir & "\Au3GlPlugin.dll" )

;--------------------------------------------------------------------------------------------

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

;--------------------------------------------------------------------------------------------

Func _CreateRect( $Name, $Red, $Green, $Blue, $Alpha, $width, $height, $depth, $x, $y, $z )

AddObject( $Name )

Local $V1[3] = [ -($width/2)+$x, $height/2+$y, -($depth/2)+$z]

Local $V2[3] = [ $width/2+$x, $height/2+$y, -($depth/2)+$z]

Local $V3[3] = [ -($width/2)+$x, -($height/2)+$y, -($depth/2)+$z]

Local $V4[3] = [ $width/2+$x, -($height/2)+$y, -($depth/2)+$z]

Local $V5[3] = [ -($width/2)+$x, $height/2+$y, $depth/2+$z]

Local $V6[3] = [ $width/2+$x, $height/2+$y, $depth/2+$z]

Local $V7[3] = [ -($width/2)+$x, -($height/2)+$y, $depth/2+$z]

Local $V8[3] = [ $width/2+$x, -($height/2)+$y, $depth/2+$z]

Local $Normal[3] = [ 0, 0, 1 ]

_AddTriangleEx( $Name, $V1, $V2, $V3, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V3, $V4, $V2, $Normal, $Red, $Green, $Blue, $Alpha )

Local $Normal[3] = [ 1, 0, 0 ]

_AddTriangleEx( $Name, $V6, $V2, $V8, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V8, $V4, $V2, $Normal, $Red, $Green, $Blue, $Alpha )

Local $Normal[3] = [ 0, 0,-1 ]

_AddTriangleEx( $Name, $V6, $V8, $V5, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V7, $V8, $V5, $Normal, $Red, $Green, $Blue, $Alpha )

Local $Normal[3] = [-1, 0, 0 ]

_AddTriangleEx( $Name, $V5, $V1, $V3, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V5, $V7, $V3, $Normal, $Red, $Green, $Blue, $Alpha )

Local $Normal[3] = [ 0, 1, 0 ]

_AddTriangleEx( $Name, $V1, $V6, $V5, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V1, $V2, $V6, $Normal, $Red, $Green, $Blue, $Alpha )

Local $Normal[3] = [ 0,-1, 0 ]

_AddTriangleEx( $Name, $V3, $V8, $V7, $Normal, $Red, $Green, $Blue, $Alpha )

_AddTriangleEx( $Name, $V3, $V8, $V4, $Normal, $Red, $Green, $Blue, $Alpha )

EndFunc

;--------------------------------------------------------------------------------------------

$title = "AutoIt OpenGl Experiment"

DefineGlWindow( @DesktopWidth, @DesktopHeight, $title )

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

SetClearColor( .02, 0, .02 )

AddObject( "a" )

AddObject( "b" )

AddObject( "c" )

AddObject( "d" )

AddTriangle( "a", -30, -20, -20, 30, -20, -20, 0, -20, 60, 0, 0, 1, 1, 0, 0, .2 );bottom

AddTriangle( "b", 0, 10, -20, 30, -20, -20, 0, -20, 60, 0, 0, 1, 0, 0, 1, .2 );left

AddTriangle( "c", -30, -20, -20, 0, 10, -20, 0, -20, 60, 0, 0, 1, 1, 2, 1, .2 );right

AddTriangle( "d", -30, -20, -20, 30, -20, -20, 0, 10, -20, 1, 0, 0, 0, 0, 0.1, .05 );back

TranslateObject( "a", 0, -30, 0 )

TranslateObject( "b", 0, -30, 0 )

TranslateObject( "c", 0, -30, 0 )

TranslateObject( "d", 0, -30, 0 )

;_CreateRect( "b", 0, 100, 0, .4, 50, 10, 100, 100, 30, 10 )

AddGlSphere( "e", 0, 0, 0, 10, 10, 10, 1.0, 0.4, 0.4, 1.0 )

TranslateObject( "f", -120, 0, 0 )

GlMainLoop( )

WinWait( $title )

WinSetState( $title, "", @SW_MAXIMIZE )

$y = 0

$x = 0

$up_down = 1

$left_right = 1

$X_Axis = 0

$Y_Axis = 0

$Z_Axis = 0

;RotateObject( "a", 0, 180, 0 )

;RotateObject( "b", 0, 180, 0 )

;RotateObject( "c", 0, 180, 0 )

;RotateObject( "d", 0, 180, 0 )

While 1

SetClearColor( Random(.0, .5), Random(.0, .5), Random(.0, .5) )

;$pos = WinGetPos( $title )

;$mouse = MouseGetPos()

;If WinActive( $title ) And $mouse[0] > $pos[0] And $mouse[0] < $pos [2] And $mouse[1] > $pos[1] And $mouse[1] < $pos [3] And _IsPressed("01") Then

; $X_Axis = $mouse[1]

; $Y_Axis = $mouse[0]

; ;TrayTip("", "X: " & $Y_Axis & @CRLF & "Y: " & $X_Axis, 1, 16 )

;EndIf

If Not WinExists( $title ) Then ExitLoop

If _IsPressed("25") Then

$X_Axis = $X_Axis - 1.3

move($X_Axis, $Y_Axis, $Z_Axis)

EndIf

If _IsPressed("26") Then

$Y_Axis = $Y_Axis + 1.3

move($X_Axis, $Y_Axis, $Z_Axis)

EndIf

If _IsPressed("27") Then

$X_Axis = $X_Axis + 1.3

move($X_Axis, $Y_Axis, $Z_Axis)

EndIf

If _IsPressed("28") Then

$Y_Axis = $Y_Axis - 1.3

move($X_Axis, $Y_Axis, $Z_Axis)

EndIf

;RotateObject( "e", 0, $Y_Axis*3, 0 )

;$Y_Axis = $Y_Axis + 2

;If $Y_Axis = 360 Then $Y_Axis = 0

;If $Y_Axis > 360 Then $Y_Axis = $Y_Axis - 360

Wend

PluginClose( $handle )

Func move($X_Axis, $Y_Axis, $Z_Axis)

TranslateObject( "a", $X_Axis, $Y_Axis, $Z_Axis )

TranslateObject( "b", $X_Axis, $Y_Axis, $Z_Axis )

TranslateObject( "c", $X_Axis, $Y_Axis, $Z_Axis )

TranslateObject( "d", $X_Axis, $Y_Axis, $Z_Axis )

EndFunc

[A. Percy]

That was... insane!

Try create a Star Wars game!

[ConsultingJoe]

That was... insane!

Try create a Star Wars game!

Thanks I would like to but I have to be able to edit the objects and delete them.

If there was a way to design the objects and have it write the code that would be cool, I could make it if I had those other commands.

Suggestions:

• Object Edit
• Object Delete
• Object Create Object (For Guis)
• Objects return object variables
• Create Light/Reflection

I could think of a bunch more

[ConsultingJoe]

One more thing, When you close the plugin or exit could you make it close because it seems to stay running

[Zedna]

One more thing, When you close the plugin or exit could you make it close because it seems to stay running

I have the same problem when trying examples from here.

[ConsultingJoe]

I have the same problem when trying examples from here.

I have it use the exit function when it is exiting, so if the window is gone it exits. or have it close process

But I also want to know how you made a sphere out of the triangles, what is the formula?

Edited December 10, 2006 by CyberZeroCool

[XxXFaNtA]

I thought he used a Sphere object out of the OpenGL stuff

btw...is the colorflashing normal in your example cyberzerocool? Because my eyes starting bleeding >.<

[RazerM]

I just commented out line 88. Anyway nice example zerocool

[Lakes]

This is really cool!

WTG guys!, great job so far!

[ConsultingJoe]

I just commented out line 88. Anyway nice example zerocool

LOL, yeah but it was just there to show you what you can do. I can't wait for the next update.

[ConsultingJoe]

I am bumping this because I don't think enough people know how useful and powerful this is.

[A. Percy]

New update in 12/12/06

See first post!

And please, try sample2.au3 included with source code!

[nfwu]

Nice! A real 3D engine!

Good job guys!

#)

[A. Percy]

Thanks!

I will work now in lights management, so it will be a 3d engine.

We need make some UDFs with parser to load objects from file, some functions that creates polygons, functions documentation, etc...

And we need a colision system for games

[ConsultingJoe]

Thanks!

I will work now in lights management, so it will be a 3d engine.

We need make some UDFs with parser to load objects from file, some functions that creates polygons, functions documentation, etc...

And we need a colision system for games

I am here to help, I could do some udfs for different shapes, I just need you to review them to make sure points are correct. Please give me the formula for the sphere though.

And yes we need events for shapes such as colision and mouse clicks, etc.

Thanks a lot

BTW: Cool new example, how do you map out your points when you are designing?

Edited December 12, 2006 by CyberZeroCool

[A. Percy]

Thanks!

Well, the sphere... I did not "program" it. I used a glut function to do it. But if I need create in hand a sphere, I can calculate the vertex positions using ( Radius * sen( angle ) ) and ( Radius * cos( angle ) ) to obtain X and Y...

I will use it when create function to rotate camera and spot light.

For now we need to document all functions... The easy way is looking in source code.

:">

[A. Percy]

BTW: Cool new example, how do you map out your points when you are designing?

Well... I map in my mind... This is a sequel of PovRay (www.povray.org)

[ConsultingJoe]

Thanks!

Well, the sphere... I did not "program" it. I used a glut function to do it. But if I need create in hand a sphere, I can calculate the vertex positions using ( Radius * sen( angle ) ) and ( Radius * cos( angle ) ) to obtain X and Y...

I will use it when create function to rotate camera and spot light.

For now we need to document all functions... The easy way is looking in source code.

:">

Ok, thanks, I will make a few more UDFs and write up a help file in the next few days. thanks

BTW: I see you made DelObject, Thanks but would you make EditObject for triangles and spheres?

Edited December 13, 2006 by CyberZeroCool