Sorry your browser is not supported!

set display mode desktop width(), desktop height(), 32,1 : autocam off
color backdrop rgb(0,0,0)

box 0,0,64,64,rgb(0,0,0),rgb(255,255,255),rgb(255,255,255),rgb(0,0,0)
   get image 1,0,0,64,64,1


box 0,0,64,64,rgb(255,0,0),rgb(255,0,0),rgb(255,0,0),rgb(255,0,0)
   get image 2,0,0,64,64,1

sync on : sync rate 60

make object cube  1,64.0
   texture object 1,1
   set object texture 1,2,0
   `set object light 1,0
   set object specular 1,rgb(255,255,255)
   set object diffuse 1,rgb(255,255,255)
   set object emissive 1,rgb(255,255,255)
   set object ambience 1,rgb(255,255,255)
   set alpha mapping on 1,50.0

make object cube 2,32.0
set object wireframe 2,1

toggle1 = -1
toggle2 = 1
spr = 1
   hide mouse
   move camera -128.0

do
   yrotate object 1,wrapvalue(object angle y(1)+0.1)
   yrotate object 2,wrapvalue(object angle y(2)-0.1)

   mc = mouseclick()

   if mc > 0 and last + 500 < timer()
      if mc = 1 `Toggle Red
         toggle1 = -toggle1
         if toggle1 = 1
            set object specular 1,rgb(255,0,0)
            set object diffuse 1, rgb(255,0,0)
            set object emissive 1,rgb(255,0,0)
            set object ambience 1,rgb(255,0,0)
            spr = 2
         else
            set object specular 1,rgb(255,255,255)
            set object diffuse 1, rgb(255,255,255)
            set object emissive 1,rgb(255,255,255)
            set object ambience 1,rgb(255,255,255)
            spr = 1
         endif
      endif

      if mc = 2 `Toggle Alpha
         toggle2 = -toggle2
         if toggle2 = -1
            set alpha mapping on 1,100.0
         else
            set alpha mapping on 1,50.0
         endif
      endif

      last = timer()
   endif

set cursor 0,0
      print "LMB = Toggle Red (",toggle1,")"
      print "RMB = Toggle Alpha (",toggle2,")"
   sprite 1,mousex(),mousey(),spr
sync
loop

//generate white texture with alpha for example
//make a texture using matrix1:
Make Image 1,256,256,21
//set mode to draw to this texture:
Draw To Image 1
//draw gradient with alpha to texture
For x = 0 To 255:
	For y = 0 To 255:
		d3d_dot x,y,d3d_rgba(255,255,255,255-x)
	Next y
Next x
//return to main bitmap
Draw To Bitmap 0

//basic setup
Sync On : Sync Rate 60 : autocam off

//make test plain
Make Object Plain 1,64,64
//set up object fvf to have diffuse coloring and 1 texture
convert object fvf 1,0x002||0x010||0x040||0x000||0x100
//texture object
Texture Object 1,1
//set transparency to mode 2
Set Object Transparency 1,2
//disable object light
Set Object Light 1,0
Set Object Cull 1,0

//set vertex color
lock vertexdata for limb 1,0
color = rgb(rnd(255),rnd(255),rnd(255))
For i = 0 To Get Vertexdata Index Count()-1
	Set Vertexdata Diffuse i,color
Next i
unlock vertexdata 

//make second cube to show transparency
Make Object Cube 2,50
//position second cube behind first plain
position object 2,0,0,100

//display loop
Do
	//rotate second cube
	r = r + 1: rotate object 2,r,r,r
	
	//position camera
	Position Camera 0,32,-100
	point camera 0,0,0
	
	//show debug text
	y=20
	Center Text Screen Width()/2,y,"Transparency Example" : y = y + 16
	Center Text Screen Width()/2,y,"this object has transparency" : y = y + 16
	Center Text Screen Width()/2,y,"as well as vertex coloring" : y = y + 16
	Center Text Screen Width()/2,y,"which will tint the texture." : y = y + 16
	Center Text Screen Width()/2,y,"The texture is WHITE, and is being" : y = y + 16
	Center Text Screen Width()/2,y,"colored a random color by the vertex coloring." : y = y + 32
	Center Text Screen Width()/2,y,"press SPACEKEY to generate a random vertex color." : y = y + 16
	
	If Spacekey():
		//generate a new vertex color
		lock vertexdata for limb 1,0
		color = rgb(rnd(255),rnd(255),rnd(255))
		For i = 0 To Get Vertexdata Index Count()-1
			Set Vertexdata Diffuse i,color
		Next i
		Unlock Vertexdata 
	Endif
	
	Sync
Loop