#ifdef INTERFACE
CLASS(VoretImage) EXTENDS(Image)
	METHOD(VoretImage, configureVoretImage, void(entity, string, float))
ENDCLASS(VoretImage)
entity makeVoretImage(string theImage, float theAspect);
#endif

#ifdef IMPLEMENTATION
entity makeVoretImage(string theImage, float theAspect)
{
	entity me;
	me = spawnVoretImage();
	me.configureVoretImage(me, theImage, theAspect);
	return me;
}
void configureVoretImageVoretImage(entity me, string theImage, float theAspect)
{
	me.configureImage(me, theImage);
	if(theAspect < 0) // use image aspect
	{
		vector sz;
		sz = draw_PictureSize(theImage);
		me.forcedAspect = sz_x / sz_y;
	}
	else
		me.forcedAspect = theAspect;
}
#endif