Ответ: Экспорт в M3G
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.
|