[Flash]

и тут ты, я ж уже набросал код

 Graphics3D 800,600,32,2 
 cam = CreateCamera() 
 CreateLight() 
 cube = CreateCube()   

 cube_s = GetSurface(cube,1) 
 EntityFX cube,2    

 For tmp = 0 To 23 Step 4 
        
 Select tmp 
    Case 0 
    r=0 
    g=0 
    b=255 
    Case 4 
    r=255 
    g=0 
    b=0 
    Case 8 
    r=0 
    g=255 
    b=0 
    Case 12 
    r=255 
    g=0 
    b=0 
    Case 16    
    r=255 
    g=0 
    b=0      
    Case 20 
    r=0 
    g=255 
    b=0 
   End Select 
      For t=0 To 3   
     VertexColor cube_s,tmp+t,r ,g,b 
   Next 
 Next 
 PositionEntity cube,0,0,6 
 While Not KeyDown(1) 
 TurnEntity cube,.1,-.2,.3 
 RenderWorld 
 Flip 
 Wend 
 End