Apptitle “Box að rúlla í hringi”
Graphics3D 800,600,32,1
SetBuffer BackBuffer()
cube = CreateCube()
cube_TEX = LoadTexture(“textures\cube_tex.jpg”)
EntityTexture cube,cube_TEX
cam = CreateCamera() : PositionEntity camera,0,0,-10
cx = 0
cy = 0
While Not KeyHit(1)
RotateEntity cube,cx,cy,0
cx = cx + .5 : cy = cy + .5
UpdateWorld
RenderWorld
Flip
Text 0,0,“Ýttu á ESC til að hætta”
Wend
End
…. þetta littla forrit, skrifað í afbrygði af Basic, setur á skjáinn lítinn kassa á skjáinn í þrívídd, setur texture á kubbinn og lætur hann rúlla í hringi.
(:
Take care, be loyal and KAFG