I am at a loss. I am trying to use the CreatePlane command, and assign a texture to it. But... it doesn't show up. Here's the code.
;Barebones 3D Dungeon V.006.2 12-22-2005
Graphics3D 800,600
SetBuffer BackBuffer()
camera=CreateCamera()
light=CreateLight()
plane=CreatePlane()
grass_tex=LoadTexture( "media/mossyground.bmp" )
EntityTexture plane,grass_tex
;floor mirror
;m=CreateMirror(plane)
Gosub createdoorframe
While Not KeyDown(1) ;ESCape key
RenderWorld
Flip
Wend
End
.createdoorframe
doorframe =CreateCube() ;create a cube
ScaleMesh doorframe,.5,2,.5 ;reshape it into a doorpost column
doorframe2 =CopyMesh(doorframe) ;copy the doorpost column
topframe =CopyMesh(doorframe)
ScaleMesh topframe,2,.125,1
doorpivot=CreatePivot()
door=CreateCube(doorpivot)
PositionMesh door,1,1,1 ;move "door" so that it hinges on left side
PositionEntity doorpivot,-1,-1.75,-.25 ;position pivot so it stands inside doorframe
ScaleMesh door,1,1.75,.2 ;reshape cube to look like door (flatten, etc)
PositionMesh doorframe,0,0,4
PositionMesh topframe,1.5,1.75,4
PositionMesh doorframe2,3,0,4
AddMesh topframe,doorframe
AddMesh doorframe2,doorframe
FreeEntity topframe
FreeEntity doorframe2
TranslateEntity door,1.5,-.25,4
EntityParent door,doorframe
TranslateEntity doorframe,-1.5,0,5
Return
I've trimmed out a lot of code that doesn't directly bear on this problem. The "media/mossyground.bmp" is one that comes with Blitz3D. Why won't the plane show up?
|