Создание нового случайного материала в менеджере MM

//***********************************************
//Create by senior 27.07.11
//Создание нового случайного материала в менеджере MM.
var starttime = time();//Возвращает время от старта работы CINEMA_4D
var random = new(Random);//Переменная со значением от Random-псевдо-случайная функция
random->Init(starttime);//Инициализация Random-псевдо-случайной функции
var rd=(random->Get01());//Инициализация красного цвета
var gr=(random->Get01());//Инициализация зелёного цвета
var bl=(random->Get01());//Инициализация синего цвета
var mat = new(Material); //Create a new material in memory
mat->SetName("Mat"); // Имя материала
mat#MATERIAL_COLOR_COLOR = vector(rd,gr,bl); // Установка цвета в red-green-blue
doc->InsertMaterial( mat, NULL ); // Установка нового материала в Material Manager
mat#MATERIAL_PREVIEWSIZE=10; // Higher number=higher editor resolution setting
//*************************************************