MSXVR Forum

Code: Select all

class TexDyn implements GL_Program
{
	virtual Start()
	{
             // Creo un sprite
		_spr = NewSprite("tex");
		
// Creo una textura de 200 x 200 de tipo RGB
		_tex = Render_NewTexture(200, 200, TF_RGB);
		
// Le hago un lock porque voy a escribir en ella
		if (Texture_Lock(_tex, RLF_WRITE))
		{
                     //Le pongo a toda la textura un color rojo
			Texture_FillColor(_tex, 0, 0, -1, -1, RGB(255,0,0));
                     //En el pixel (100, 100) de la textura pinto un punto de color blanco
			Texture_SetColor(_tex, 100, 100, RGB(255,255,255));
                     //Finalizo el acceso de escritura a la textura
			Texture_UnLock(_tex);
		}
		
// Agrego esta textura como un frame de mi sprite
		_spr.AddTexFrame(_tex);
	}