OpenGl Plugin - Update 2007/08/31

[jpam]

WOW !!!

very nice !

[A. Percy]

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

Ok!

SetCamera( X_position, Y_position, Z_position, X_target, Y_target, Z_target )

RotateObject( "Cube2", X_rotate_angle, Y_rotate_angle, Z_rotate_angle )

TranslateObject( "Cube2", X_translate, Y_translate, Z_translate )

about objcreate():

I didn't export the functions of opengl, I only created some specific functions for autoit.

É isso aí!

Edited December 7, 2006 by A. Percy

[ConsultingJoe]

Thank you,

but what are the Params for:

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 )

is it:

AddTriangle( "Tri", $x1, $y1, $z1, $x2, $y2, $z2, $x3, $y3, $z3 $Normal[0]???, $Normal[1]???, $Normal[2]???, $Red, $Green, $Blue, $Alpha??? )

what is Normal and alpha.

[Locodarwin]

Thank you,

but what are the Params for:

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 )

is it:

AddTriangle( "Tri", $x1, $y1, $z1, $x2, $y2, $z2, $x3, $y3, $z3 $Normal[0]???, $Normal[1]???, $Normal[2]???, $Red, $Green, $Blue, $Alpha??? )

what is Normal and alpha.

"Normal" is usually short for surface normal and "Alpha" is short for alpha channel or alpha blending. These are technical 3D terms.

Surface normal refers to an imaginary line perpendicular to the "surface" (the plane created by the combination of the vertices of that surface) of a polygon which is used to calculate the reflectivity of a light source shining on said surface. There are different ways of calculating how the surfaces of these normals should be shaded and that's what "normal" in this usage refers to.

For more help on surface normals, I suggest further reading:

http://www.tjhsst.edu/~dhyatt/supercomp/n310.html

http://www.opengl.org/resources/faq/technical/lights.htm

http://en.wikipedia.org/wiki/Surface_normals

Alpha blending is a technique used to give a surface a certain level of transparency, by blending it with the background of the scene:

http://en.wikipedia.org/wiki/Alpha_channel

Try adjusting these parameters in the example script to see what affect they'll have on the boxes.

-S

Edited December 7, 2006 by Locodarwin

[ConsultingJoe]

Thanks

[ConsultingJoe]

I made a rectangle function!

Click and drag the rectangle!

expandcollapse popup

;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 )
    
    AddObject( $Name )
    
    Local $V1[3] = [ -($width/2),  $height/2, -($depth/2)]
    Local $V2[3] = [  $width/2,  $height/2, -($depth/2)]
    Local $V3[3] = [ -($width/2), -($height/2), -($depth/2)]
    Local $V4[3] = [  $width/2, -($height/2), -($depth/2)]
    Local $V5[3] = [ -($width/2),  $height/2,  $depth/2]
    Local $V6[3] = [  $width/2,  $height/2,  $depth/2]
    Local $V7[3] = [ -($width/2), -($height/2),  $depth/2]
    Local $V8[3] = [  $width/2, -($height/2),  $depth/2]
    
    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, 100, 0, 0, 0 )
SetClearColor( 0.5, 0.5, 0.5 )
AddObject( "a" )
AddObject( "b" )
AddObject( "c" )
AddObject( "d" )
_CreateRect( "a", 0.4, 0.4, 1.0, 5.5, 10, 20, 50 )
GlMainLoop( )
WinWait( $title )
WinSetState( $title, "", @SW_MAXIMIZE )
$y = 0
$x = 0
$up_down = 1
$left_right = 1
$X_Axis = 2
$Y_Axis = -6
$Z_Axis = 153
While 1
    $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
        RotateObject( "a", $X_Axis, $Y_Axis, $Z_Axis )

Wend

PluginClose( $handle )

[ConsultingJoe]

Examples of more rectangles:

drag to move

expandcollapse popup

;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 )
    
    AddObject( $Name )
    
    Local $V1[3] = [ -($width/2),  $height/2, -($depth/2)]
    Local $V2[3] = [  $width/2,  $height/2, -($depth/2)]
    Local $V3[3] = [ -($width/2), -($height/2), -($depth/2)]
    Local $V4[3] = [  $width/2, -($height/2), -($depth/2)]
    Local $V5[3] = [ -($width/2),  $height/2,  $depth/2]
    Local $V6[3] = [  $width/2,  $height/2,  $depth/2]
    Local $V7[3] = [ -($width/2), -($height/2),  $depth/2]
    Local $V8[3] = [  $width/2, -($height/2),  $depth/2]
    
    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( 0.5, 0.5, 0.5 )
AddObject( "a" )
AddObject( "b" )
AddObject( "c" )
AddObject( "d" )
_CreateRect( "a", 3.4, 0.4, 1.0, 5.5, 10, 200, 50 )
_CreateRect( "b", 0.8, 0.8, 1.3, 1, 100, 10, 10 )
_CreateRect( "c", 1.8, 1, 2.3, 1, 21, 5, 100 )
GlMainLoop( )
WinWait( $title )
WinSetState( $title, "", @SW_MAXIMIZE )
$y = 0
$x = 0
$up_down = 1
$left_right = 1
$X_Axis = 2
$Y_Axis = -6
$Z_Axis = 153
While 1
    $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
        RotateObject( "a", $X_Axis, $Y_Axis, $Z_Axis )
        RotateObject( "b", $X_Axis, $Y_Axis, $Z_Axis )
        RotateObject( "c", $X_Axis, $Y_Axis, $Z_Axis )

Wend

PluginClose( $handle )

[A. Percy]

Cool!!!!!!! Very nice!

About the plugin, for now I'm programing some "line" functions and correcting some bugs.

Bye!

[A. Percy]

The source was updated. See more in first post.

Here's a new sample to demonstrate new funcionality:

expandcollapse popup

AutoItSetOption( "TrayIconHide", 1 )

$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 _AddLineEx( $Name, $V1, $V2, $Red, $Green, $Blue )
    If UBound( $V1 ) and UBound( $V2 ) Then
        AddLine( $Name, $V1[0], $V1[1], $V1[2], $V2[0], $V2[1], $V2[2], $Red, $Green, $Blue )
    EndIf
EndFunc

;--------------------------------------------------------------------------------------------
Func _CreateCube( $Name, $OrX, $OrY, $OrZ, $DeX, $DeY, $DeZ ,$Red, $Green, $Blue, $Alpha )
    
    AddObject( $Name )
    
    Local $V1[3] = [ $OrX, $OrY, $OrZ ]
    Local $V2[3] = [ $DeX, $OrY, $OrZ ]
    Local $V3[3] = [ $OrX, $DeY, $OrZ ]
    Local $V4[3] = [ $DeX, $DeY, $OrZ ]
    Local $V5[3] = [ $OrX, $OrY, $DeZ ]
    Local $V6[3] = [ $DeX, $OrY, $DeZ ]
    Local $V7[3] = [ $OrX, $DeY, $DeZ ]
    Local $V8[3] = [ $DeX, $DeY, $DeZ ]
    
    Local $Normal[3] = [ 0, 0,-1 ]
    If $OrZ < $DeZ Then
        $Normal[2] = -1
    else
        $Normal[2] = 1
    EndIf
    _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 ]
    If $DeX > $OrX Then
        $Normal[0] = 1
    else
        $Normal[0] = -1
    EndIf
    _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 ]
    If $OrZ < $DeZ Then
        $Normal[2] = 1
    else
        $Normal[2] = -1
    EndIf
    _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 ]
    If $DeX > $OrX Then
        $Normal[0] = -1
    else
        $Normal[0] = 1
    EndIf
    _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 ]
    If $OrY > $DeY Then
        $Normal[1] = 1
    else
        $Normal[1] = -1
    EndIf
    _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 ]
    If $OrY > $DeY Then
        $Normal[1] = -1
    else
        $Normal[1] = 1
    EndIf
    _AddTriangleEx( $Name, $V3, $V8, $V7, $Normal, $Red, $Green, $Blue, $Alpha )
    _AddTriangleEx( $Name, $V3, $V8, $V4, $Normal, $Red, $Green, $Blue, $Alpha )
EndFunc

;--------------------------------------------------------------------------------------------
Func _CreateWireCube( $Name, $OrX, $OrY, $OrZ, $DeX, $DeY, $DeZ ,$Red, $Green, $Blue )
    
    AddObject( $Name )
    
    Local $V1[3] = [ $OrX, $OrY, $OrZ ]
    Local $V2[3] = [ $DeX, $OrY, $OrZ ]
    Local $V3[3] = [ $OrX, $DeY, $OrZ ]
    Local $V4[3] = [ $DeX, $DeY, $OrZ ]
    Local $V5[3] = [ $OrX, $OrY, $DeZ ]
    Local $V6[3] = [ $DeX, $OrY, $DeZ ]
    Local $V7[3] = [ $OrX, $DeY, $DeZ ]
    Local $V8[3] = [ $DeX, $DeY, $DeZ ]
    
    _AddLineEx( $Name, $V1, $V2, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V2, $V6, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V6, $V5, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V5, $V1, $Red, $Green, $Blue )
    
    _AddLineEx( $Name, $V3, $V4, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V4, $V8, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V8, $V7, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V7, $V3, $Red, $Green, $Blue )
    
    _AddLineEx( $Name, $V2, $V4, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V6, $V8, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V5, $V7, $Red, $Green, $Blue )
    _AddLineEx( $Name, $V1, $V3, $Red, $Green, $Blue )
    
EndFunc
;--------------------------------------------------------------------------------------------

DefineGlWindow( 500, 400, "OpenGl Plugin - experiment" )
SetClearColor( 0.5, 0.5, 0.5 )

_CreateCube( "Cube1", -30, 30, -30, 30, -30, 30 , 0.4, 0.4, 1.0, 1.0 )
_CreateWireCube( "Cube1", -40, 40, -40, 40, -40, 40 , 1.0, 1.0, 0.4 )

_CreateCube( "Cube2", -40, 40, -40, 40, -40, 40 , 0.4, 1.0, 0.4, 1.0 )
TranslateObject( "Cube2", 120, 0, 120 )

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

GlMainLoop( )

$Y_Axis = 0
While 1
    sleep( 10 )
    
    ;Rotate box
    RotateObject( "Cube1", $Y_Axis, $Y_Axis, 0 )
    RotateObject( "Cube2", 0, $Y_Axis, 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 )

[Zedna]

great plugin, great examples, great progress

For avoiding warning in au3check you can add this to start of script:

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

It's AutoIt3Wrapper directive.

[Apzo]

impressive !!

Erh... would I dare ask for a sphere ?

Thanks

Apzo.

[A. Percy]

great plugin, great examples, great progress

For avoiding warning in au3check you can add this to start of script:

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

It's AutoIt3Wrapper directive.

Thanks!

In next samples, I will create some UDFs that calls plugin and add that directive.

[A. Percy]

impressive !!

Erh... would I dare ask for a sphere ?

Thanks

Apzo.

Thanks!

Spheres are coming soon

[ConsultingJoe]

Thanks!

Spheres are coming soon

I can't wait. Thanks a lot. That compiler note was great thanks.

BTW dont forget to add something like objectdelete() and objectedit()

I will make the docs for you if you want

[ConsultingJoe]

BTW: is the sphere going to be made out of triangles too?

[A. Percy]

I can't wait. Thanks a lot. That compiler note was great thanks.

BTW dont forget to add something like objectdelete() and objectedit()

I will make the docs for you if you want

Thanks!

Look at the first post! I released an update again. Now with spheres. Forgive me about objectdelete() and objectedit(). I will work on it.

Bye!

[ConsultingJoe]

Thanks!

Look at the first post! I released an update again. Now with spheres. Forgive me about objectdelete() and objectedit(). I will work on it.

Bye!

Thanks. one more thing, the alpha doesn't seem to be doing anything, am i doing something wrong?

Updated Rectangles: Now with x,y,z of set.

CODE

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

[A. Percy]

Try the new version!

[ConsultingJoe]

great job but, it seems now that I get the same sphere and sqares no mater what, is that a glitch

[A. Percy]

great job but, it seems now that I get the same sphere and sqares no mater what, is that a glitch

Alpha...