3D Library (Three Dimensional)

[jvanegmond]

After a long while of silence, I figured it was time for another script. I've worked quite a while on this, and I can't say I am anywhere near completion. I do feel however, that this is ready for public use, and another reason i'm throwing this out is because i can really use a bit of help from the regulars. For now, the inputmanager requires beta. 3D.au3 contains the library.

I'd also like to thank nfwu a lot for the initial idea.

Anyway, just download the .zip, extract and play with it.

Edit: OpenGL plugins for AutoIt are available. Use them instead.

Edited April 18, 2008 by Manadar

[ivan]

I'll try it out first and provide you with feedback. Can't really say I'm a regular, but your project sounds great.

Sounds great? Looks even better!

I tried the axis and cube examples and no probs.

IVAN

Edited June 27, 2006 by ivan

[nfwu]

I'll check it out when I'm home.

1 quick question: Have you solved the flickering problem?

#)

[rambo3889]

@manadar This is REALLY nice and i like the basic Script

[ptrex]

@Manadar

THIS IS REALY COOL !!

It opens the path for Game Developers.

Great stuff

[nfwu]

Now, I just have to say... WOW!

You managed to get past most of the flickering problems... I assume that it's the Sleep(50).

Now all you need to do is add polygons. (Do you need help?)

#)

[SmOke_N]

Very nice job manadar!

[jvanegmond]

Now, I just have to say... WOW!

You managed to get past most of the flickering problems... I assume that it's the Sleep(50).

Now all you need to do is add polygons. (Do you need help?)

#)

I've already done quite a bit on polygons, and i'm working on texturing too at the moment. But feel free to help out: I will PM you my latest scripts.

[Pakku]

:D

WOW i realy like this. it opens a new door for me!

Arjan

[RazerM]

This is really good Manadar!! Can't wait to see textures

[ivan]

I've always wanted to do a math education program to plot linear, quadratic, exponential, logarithmic and root functions for K12-K16 students.

Your application has inspired me to start working on it! I started over a year ago in Macromedia Flash and Director and left it half done. To be honest, I always thought it could be done in Autoit.

I hope you don't mind if I borrow some of your code.

IVAN

[AutoItKing]

Damn this is good!

If you were good enough you could make a game with this! Or not?

[Lakes]

Damn this is good!

If you were good enough you could make a game with this! Or not?

You could certainly do a wireframe game like (what was it, Tankwars?)

I think there was another one with the Star wars Tie Fighters...

This is really impressive Mandar, I never could get my head round the 3d stuff...

Edited June 28, 2006 by Lakes

[123456]

强

[nfwu]

强

Strong + Powerful?

Are you refering to his programming ability?

edit: At least use an online translator like Babelfish...

#)

Edited June 29, 2006 by nfwu

[Nomad]

This is sweet. You're definately on to something.

Forget the game modding, let's just start making our own games, hehe.

I'm looking forward to seeing how this evolves,

Nomad

[RazerM]

Noticed a mistake:

;----------------Func _3DSetCenter()-------------

; The coordinates where the 0 point should be, starting from the left top of the graphic control.

;

; Example:

; $MousePos = GUIGetCursorInfo()

; While $MousePos[2]= 1

; $MousePos = GUIGetCursorInfo()

; _3DMove($MousePos[0],$MousePos[1])

; Draw()

; Sleep(50)

; WEnd

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

It should be _3DSetCenter

Edit: I have made a _3DExtrude Function, the following example shows how it works:

expandcollapse popup

#include <GUIConstants.au3>
#include <..\3D.au3>
#include <misc.au3>

$GUI = GUICreate("_3DExtrude", 400, 400)
GUISetBkColor(0x000000)
$gr = GUICtrlCreateGraphic(0,0)
GUISetState()
_3DSetCenter(200, 300)
Draw()

$Pos = WinGetPos($GUI)
ToolTip("Instead of making shapes using only lines, "& _
@CRLF & "you can extrude them although the base must be drawn first. ", _
$Pos[0]+3,$Pos[1]+22,"This is another example showing _3DExtrude")

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
;~    Case 
;~    Case 
;~    Case 
;~    Case 
    EndSwitch
    #include <InputManager.au3>
WEnd

Func Draw()
    GUICtrlDelete($gr)
    $gr = GUICtrlCreateGraphic(0, 0, 400, 400)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff0000)
    $extrudeR = ""
    $extrudeT = ""
    ;rectangular base
    _3dMove(-1, 0, 0, 0)
    _3DLine(-1, 0, 0, 100)
    _3DLine(-1, 50, 0, 100)
    _3DLine(-1, 50, 0, 0)
    _3DLine(-1, 0, 0, 0)
    ;create diagonal line on top
    _3DMove(-1, 0, 50, 0)
    _3DLine(-1, 50, 50, 100)
    ;extrude cuboid from rectangular base
    Dim $extrudeR[4] = ["0,0,100", "50,0,100", "50,0,0", "0,0,0"]
    _3DExtrude(-1, $extrudeR, 0, 50)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00ff00)  
    ;extrude triangular prism from half of cuboid (split by diagonal)
    Dim $extrudeT[3] = ["0,50,0", "0,50,100", "50,50,100"]
    _3DExtrude(-1, $extrudeT, 0, 50)
    ;extrude cuboid from side of triangular prism
    Dim $extrude2[4] = ["0,50,100", "50,50,100", "50,100,100", "0,100,100"]
    _3DExtrude(-1, $extrude2, 0, 0, 20)
    GUICtrlSetGraphic(-1, $GUI_GR_REFRESH)
    Sleep(100)
EndFunc

Func _3DExtrude($graphic, $arPoints, $x = 0, $y = 0, $z = 0, $sDelim = ",")
    If $x <> 0 And $y <> 0 Then Return SetError(1, 0, 1)
    If $x <> 0 And $z <> 0 Then Return SetError(1, 0, 1)
    If $y <> 0 And $z <> 0 Then Return SetError(1, 0, 1)
    $iUBound = UBound($arPoints)
    Dim $points[$iUBound]
    Dim $pX[$iUBound]
    Dim $pY[$iUBound]
    Dim $pZ[$iUBound]
    For $i = 0 To $iUBound-1
        $points = StringSplit($arPoints[$i], $sDelim)
        $pX[$i] = $points[1]
        $pY[$i] = $points[2]
        $pZ[$i] = $points[3]
    Next
    For $i = 0 To $iUBound-1
        _3DMove($graphic, $pX[$i], $pY[$i], $pZ[$i])
        _3DLine($graphic, $pX[$i]+$x, $pY[$i]+$y, $pZ[$i]+$z)
        If $i <> $iUBound-1 Then _3DLine($graphic, $pX[$i+1]+$x, $pY[$i+1]+$y, $pZ[$i+1]+$z)
        If $i = $iUBound-1 Then _3DLine($graphic, $pX[0]+$x, $pY[0]+$y, $pZ[0]+$z)
    Next
EndFunc

Put it in the 3D\examples\ folder

Edited June 29, 2006 by RazerM

[jvanegmond]

Noticed a mistake:

It should be _3DSetCenter

Edit: I have made a _3DExtrude Function, the following example shows how it works:

Put it in the 3D\examples\ folder

Nice one Razer. I never thought about this.

[RazerM]

Thanks, do you think it would be worthwhile making cuboid and other shape functions?

[jvanegmond]

Does anyone have a faster way of drawing pixels onto the screen? I'm worried that in future when i do Z-mapping and texturing that AutoIt's graphic control will fall in short.