набросок на с builder

просто дэмка для ПК:
http://sderni.ru/86447

а мне замути мою бабу,чтоб просто крутилась под мой музон.
звук подожми в нужный формат.
http://sderni.ru/87612

---------- Post added at 14:18 ---------- Previous post was at 13:11 ----------

http://zx.pk.ru/attachment.php?attac...8&d=1317986144
вот я уже сделал, в формате TRD.

ALKO, исходник глянуть можно?

удивительно, что оно еще и .net не просит :)

Цитата:

---

Сообщение от skyther

удивительно, что оно еще и .net не просит

---

вот это воистину удивительно...
Возможно сама библиотека vcl использует функции дот нэта.

Цитата:

---

Сообщение от shuran33

ALKO, исходник глянуть можно?

---

а исходник ваще простейший...я это залобал за 15 минут (и то больше времени потратил на "фотографирование" модели в 3д максе)

---------- Post added at 17:33 ---------- Previous post was at 17:31 ----------

код:

Цитата:

---

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1; int f=1;int fl=0;int fl1=1;
float sz=1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{ DoubleBuffered=true;
MediaPlayer1->FileName="hq\\muz.mp3";
MediaPlayer1->Open();
MediaPlayer1->Play();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
fl++; Label4->Top=fl+360;
if (fl==15){Label1->Visible=false;}
if (fl==20){Label1->Visible=true;fl=0;fl1=!(fl1);}
if (fl1==1){Form1->Canvas->Pen->Color=0x00ff00;}
if (fl1!=1){Form1->Canvas->Pen->Color=0x000000;}
Form1->Canvas->MoveTo(fl*10+700,300);

Form1->Canvas->LineTo(fl*10+700,100);
Form1->Canvas->MoveTo(700,fl*10+100);
Form1->Canvas->LineTo(900,fl*10+100);

}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key,
TShiftState Shift)
{ if(Key==27){Close();}
if(Key==VK_LEFT) f--;
if(Key==VK_RIGHT) f++;
if(f==13){f=1;}
if(f==0){f=12;}

if(Key==VK_UP) {Image1->Width=(Image1->Width)+sz*2;
Image1->Height=(Image1->Height)+sz*2;
Image1->Top=(Image1->Top)-sz;
Image1->Left=(Image1->Left)-sz;
sz=sz+1;

}
if(Key==VK_DOWN) {Image1->Width=(Image1->Width)-sz*2;
Image1->Height=(Image1->Height)-sz*2;
Image1->Top=(Image1->Top)+sz;
Image1->Left=(Image1->Left)+sz;
sz=sz-1;

}
Image1->Picture->Bitmap->LoadFromFile("hq\\"+IntToStr(f)+".bmp");
}

---

---------- Post added at 17:38 ---------- Previous post was at 17:33 ----------

Цитата:

---

Сообщение от AER

вот я уже сделал, в формате TRD.

---

СИСЯНДРЫ ПРОСТО МОЩЬ!!!!

Новая версия (из псевдо-3д в openGL 3д.... и чиптюн из AY в SID)
http://sderni.ru/132419

Цитата:

---

Сообщение от ALKO

СИСЯНДРЫ ПРОСТО МОЩЬ!!!!

---

http://doseng.org/uploads/posts/2012..._part_2_26.jpg

сиськи Ашота - старенький боян.

ALKO, сначала черный, потом белый экран. Музыка играет. Но экран пустой. W7.

Цитата:

---

Сообщение от newart

ALKO, сначала черный, потом белый экран. Музыка играет. Но экран пустой. W7.

---

Приложение юзает видеокарту с поддержкой openGL 1.2 и выше.