Processing, playback of audio and video
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Вод код из С-- думаю понятно.
Code: Select all
:dword IO::readKPACK(dword path1)
{
EAX = 68;
EBX = 27;
ECX = path1;
$int 0x40;
FILES_SIZE = EDX;
buffer_data = EAX;
return buffer_data;
}
Posts 74 Joined: Sat Jan 19, 2019 5:17 pm
Wed Apr 17, 2019 12:18 am
Пока сделал самое лёгкое - сжал исполняемый файл, уменьшил размер в три раза. А чтобы разобраться, как использовать сжатые сторонние ресурсы - это надо ещё не один день сидеть.
Attachments
Downloaded 290 times
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Attachments
notes.png (862 Bytes)
Viewed 7529 times
Из хаоса в космос
Posts 74 Joined: Sat Jan 19, 2019 5:17 pm
Leency wrote: Ноты
Эм... Что имелось ввиду? Добавить ещё пятую и шестую октавы?
Posts 707 Joined: Mon Mar 27, 2006 6:33 am
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Можно вывести картинку с клавишами от фортепиано и на месте клавиш создать невидимые кнопки => т.е. как бы клавиши пианино можно будет нажимать. Дизигн)
Posts 74 Joined: Sat Jan 19, 2019 5:17 pm
Sun Apr 28, 2019 11:26 pm
То есть сделать кнопки красивыми, но статичными?
Тут без анимации видимо не обойдется.
Posts 988 Joined: Fri Jun 27, 2008 3:22 pm
Sun Apr 28, 2019 11:28 pm
Тут нужно как минимум две картинки, с нажатыми клавишами и в исходном положении.
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Mon Apr 29, 2019 11:57 am
1. Можно две картинки.
2. Можно сделать одну картинку с палитрой. Выводить меняя в палитре цвет. Так сделано в MOUSECFG.
Code: Select all
:byte panels_img_data[] = FROM "mouse_image.raw";
#define red 0xff0000
#define yellow 0xfff600
#define white 0xffffff
#define dgrey 0x2d353d
:struct IMG_PAL{ dword back, shad1, contour, left, right, middle, mwhite; }
pal = { 0xF0F2F3,0xABB0B2, dgrey, white, white, dgrey, white };
void DrawMouseImage(dword l,r,m,v) {
#define IMG_W 59
#define IMG_H 101
IF (l) pal.left = red;
IF (m) pal.middle = red;
IF (r) pal.right = red;
IF (v) pal.middle = yellow;
PutPaletteImage(#panels_img_data,IMG_W,IMG_H,18+30,18+15,8,#pal);
pal.left = pal.right = white;
pal.middle = dgrey;
IF (v) {
pause(10);
DrawMouseImage(l,r,m,0);
}
}
Attachments
mouse_image.png (1.23 KiB)
Viewed 7406 times
Из хаоса в космос
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Mon May 06, 2019 11:49 am
Antonio wrote: Новая версия. PIANO4
Пропустил эту версию. Думаю, программа готова для добавления в дистрибутив. Уже залил на SVN: /programs/media/piano
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Я добавил Пианино в русскую версию IMG и сделал код немного более гибким.
Antonio , если будешь обновлять программу используй эту версию. Исходники в аттаче.
Attachments
Downloaded 266 times
Из хаоса в космос
Posts 5751 Joined: Thu Jan 25, 2007 3:33 pm
Tue May 14, 2019 10:40 am
Добавлен перевод на английский язык.
Attachments
Downloaded 273 times
Из хаоса в космос
Users browsing this forum: No registered users and 2 guests