Textuuride laadimine

Kastile:

Tsiteerin: :

; Textuuride laadimine

Graphics3D 640,480
SetBuffer BackBuffer()

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0

cube=CreateCube()
PositionEntity cube,0,0,5

; Laeb textuuri (pange kindlasti mänguga samasse kausta textuur nimega setup, mis on pilt bmp formaadis)
tex=LoadTexture( "setup.bmp" )

; Kast textuuriga
EntityTexture cube,tex

While Not KeyDown( 1 )

pitch#=0
yaw#=0
roll#=0

If KeyDown( 208 )=True Then pitch#=-1
If KeyDown( 200 )=True Then pitch#=1
If KeyDown( 203 )=True Then yaw#=-1
If KeyDown( 205 )=True Then yaw#=1
If KeyDown( 45 )=True Then roll#=-1
If KeyDown( 44 )=True Then roll#=1

TurnEntity cube,pitch#,yaw#,roll#

RenderWorld
Flip

Wend

End

modelile(3d failile)

Tsiteerin: :

Graphics3D 640,480
SetBuffer BackBuffer()

camera=CreateCamera()

light=CreateLight()
RotateEntity light,90,0,0
rocket=LoadMesh("rocket.3ds") ;pange mänguga samasse kausta ka rocket.3ds 3d fail
PositionEntity rocket,0,0,40
; Laeb textuuri (pange kindlasti mänguga samasse kausta textuur nimega setup, mis on pilt bmp formaadis)
tex=LoadTexture( "setup.bmp" )

EntityTexture rocket,tex

While Not KeyDown( 1 )

pitch#=0
yaw#=0
roll#=0

If KeyDown( 208 )=True Then pitch#=-1
If KeyDown( 200 )=True Then pitch#=1
If KeyDown( 203 )=True Then yaw#=-1
If KeyDown( 205 )=True Then yaw#=1
If KeyDown( 45 )=True Then roll#=-1
If KeyDown( 44 )=True Then roll#=1

TurnEntity rocket,pitch#,yaw#,roll#

RenderWorld
Flip

Wend

End

Nooleklahvidega pöörab objecti.

seleta 3d modelitele selle panemine.

NoBaT kirjutas:

seleta 3d modelitele selle panemine.

See mitte samamoodi ei käi we? Kui ei, siis ma ei oska. // edit:hakkama sain!