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

[ALKO]

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

[AER]

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

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

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

[shuran33]

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

[skyther]

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

[ALKO]

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

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 ----------


вот я уже сделал, в формате TRD.
СИСЯНДРЫ ПРОСТО МОЩЬ!!!!

[ALKO]

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

[Atari]

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

http://doseng.org/uploads/posts/2012-05/thumbs/1335862031_doseng.org_yes_these_people_were_born_p art_2_26.jpg

[ALKO]

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

[newart]

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

[ALKO]

ALKO, сначала черный, потом белый экран. Музыка играет. Но экран пустой. W7.
Приложение юзает видеокарту с поддержкой openGL 1.2 и выше.