I have created a texture with CreateTexture(256,256,4) and draw dots on it then apply to a mesh. The masking doesn't seem to work, i.e I can see the black background.
Any thoughts?
Any thoughts?
tex=CreateTexture(256,256,4) setbuffer texturebuffer(tex) clscolor 0,0,0 cls ; ***edit*** ...put dot routine here setbuffer backbuffer()
Size=256 Tex=CreateTexture(Size,Size) CurBuffer = Graphicsbuffer() setbuffer texturebuffer(tex) [...] setbuffer CurBuffer saveBuffer (texturebuffer,"TempTexture.bmp") freetexture tex tex=loadtexture("TempTexture.bmp",5) deletefile ("TempTexture.bmp")
clscolor 255,255,255
tex = CreateTexture(256,256,5) LockBuffer TextureBuffer(tex) For y = 0 To 255 For x = 0 To 255 WritePixelFast x,y,0,TextureBuffer(tex) Next Next UnlockBuffer TextureBuffer(tex)
Graphics3D 800,600,32 SetBuffer BackBuffer() Global x#,y#,z# Global speed#=0.1 Global angle# Global player=CreatePivot() PositionEntity player,0,1,0 Global camera=CreateCamera(player) CameraRange camera,1,100 PositionEntity camera,0,1,0 light=CreateLight() PositionEntity light,0,50,20 RotateEntity light,45,45,0 plane=CreatePlane() tex=CreateTexture(32,32) SetBuffer TextureBuffer(tex) ClsColor 55,100,255 Cls Color 0,0,240 Rect 1,1,31,31 Color 230,55,55 Rect 5,5,23,23,1 EntityTexture plane,tex SetBuffer BackBuffer() goal=CreateSphere(32) ScaleEntity goal,5,5,5 EntityRadius goal,5 EntityPickMode goal,1 PositionEntity goal,0,5,55 EntityColor goal,0,255,0 EntityShininess goal,1 tex=CreateTexture(256,256,4) SetBuffer TextureBuffer(tex) ClsColor 255,100,255 Cls Color 0,0,0 For xx=0 To 255 Step 8 For yy=0 To 255 Step 8 Oval xx,yy,3,3,1 Next Next SaveBuffer(TextureBuffer(tex),"test.bmp") tex=LoadTexture("test.bmp",4) EntityTexture goal,tex SetBuffer BackBuffer() While Not KeyHit(1) If KeyDown(200) Then z#=z#+speed# If KeyDown(208) Then z#=z#-speed# If KeyDown(203) Then x#=x#-speed# If KeyDown(205) Then x#=x#+speed# TurnEntity goal,0,1,0 x#=x#*.97 z#=z#*.97 MoveEntity player,x#,y#,z# mxs#=-MouseXSpeed()*.05 mys#=MouseYSpeed()*.05 TurnEntity camera,mys#,0,0 TurnEntity player,0,mxs#,0 RotateEntity player,EntityPitch#(player),EntityYaw#(player),0 If EntityPitch(camera)>55 Then RotateEntity camera,55,0,0 If EntityPitch(camera)<-55 Then RotateEntity camera,-55,0,0 MoveMouse GraphicsWidth()/2,GraphicsHeight()/2 UpdateWorld RenderWorld Flip Delay 10 Wend End