[Kjaarh]

Program M3G_test;

Uses m3g;

Var ms, k: integer;

Begin

m3g.load('/pogoroo.m3g', 347178853); // Загружаем модель и выставляем ID трансформации

ms:=GetRelativeTimeMs; // Инициализация времени

repeat

m3g.animate(ms); // Анимируем

m3g.paint; m3g.repaint; // Перерисовываем

delay(100); ms:=GetRelativeTimeMs; // Немного ждём

k:=k+1;

until k>100; // Смотреть будем 10 секунд



m3g.load('/skaterboy.m3g', 421721094); // Загружаем другую модель

ms:=GetRelativeTimeMs; k:=0;

repeat

m3g.animate(ms); m3g.paint; m3g.repaint;

delay(100); ms:=GetRelativeTimeMs; k:=k+1;

until k>100;

End.