Навигация:

Главная Случайная страница Обратная связь ТОП Интересно знать Избранные Новые материалы

Топ:

Процедура выполнения команд. Рабочий цикл процессора: Функционирование процессора в основном состоит из повторяющихся рабочих циклов, каждый из которых соответствует...

История развития методов оптимизации: теорема Куна-Таккера, метод Лагранжа, роль выпуклости в оптимизации...

Организация стока поверхностных вод: Наибольшее количество влаги на земном шаре испаряется с поверхности морей и океанов...

Интересное:

Принципы управления денежными потоками: одним из методов контроля за состоянием денежной наличности является...

Средства для ингаляционного наркоза: Наркоз наступает в результате вдыхания (ингаляции) средств, которое осуществляют или с помощью маски...

Искусственное повышение поверхности территории: Варианты искусственного повышения поверхности территории необходимо выбирать на основе анализа следующих характеристик защищаемой территории...

Дисциплины:

Автоматизация Антропология Археология Архитектура Аудит Биология Бухгалтерия Военная наука Генетика География Геология Демография Журналистика Зоология Иностранные языки Информатика Искусство История Кинематография Компьютеризация Кораблестроение Кулинария Культура Лексикология Лингвистика Литература Логика Маркетинг Математика Машиностроение Медицина Менеджмент Металлургия Метрология Механика Музыкология Науковедение Образование Охрана Труда Педагогика Политология Правоотношение Предпринимательство Приборостроение Программирование Производство Промышленность Психология Радиосвязь Религия Риторика Социология Спорт Стандартизация Статистика Строительство Теология Технологии Торговля Транспорт Фармакология Физика Физиология Философия Финансы Химия Хозяйство Черчение Экология Экономика Электроника Энергетика Юриспруденция

Музыкальные подпрограммы программы scont . C.

2019-12-26

132

0.00 из 5.00 0 оценок

Заказать работу

⇐ ПредыдущаяСтр 4 из 6Следующая ⇒

[1] /*########################################################*/

[2] /*

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: SYS_MUS.h

[12] MUSIC

[13] */

[14] /*########################################################*/

[15] /*============================= Global Constants */

[16] /*------------- First oct. */

[17] #define D_ 262

[18] #define DD_ 277

[19] #define RB- 277

[20] #define R_ 294

[21] #define RD_ 311

[22] #define MB_ 311

[23] #define M_ 330

[24] #define F_ 349

[25] #define FD_ 370

[26] #define SB_ 370

[27] #define S_ 392

[28] #define SD_ 415

[29] #define LB_ 415

[30] #define L_ 440

[31] #define LD_ 466

[32] #define CB_ 466

[33] #define C_ 494

[34] /*------------- Coeficient frequency */

[35] #define OG 0.25 /* Big oct. */

[36] #define OL 0.5 /* Little oct. */

[37] #define O2 2 /* Second oct. */

[38] #define O3 4 /* Third oct */

[39] /*------------- Pause frequency */

[40] #define P_ 20000

[41] /*------------- Length of the whole note */

[42] #define ANDANTE 3375

[43] #define MODERATO 2250

[44] #define ALLEGRO 1700

[45] /*============================= DECLARATION */

[46] void n(float f,float l);

[47] void sonata17(float W);

[48] void sonata17r(float W);

[49] void elise(float W);

[50] /*######################################### SUB_PROGRAMMS */

[51] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[52] void n(float f,float l)

[53] {

[54] sound(f);

[55] delay(l);

[56] nosound();

[57] }

[58] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[59] void sonata17(float W)

[60] {

[61] n(L_,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[62] /*------------- 1 */

[63] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[64] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[65] n(R_*O2,W/8); n(P_,W/16); n(L_, W/16); n(F_*O2,W/16); n(R_*O2,W/16);

[66] n(M_*O2,W/8); n(P_,W/16); n(L_, W/16); n(S_*O2,W/16); n(F_*O2,W/16);

[67] /*------------- 2 */

[68] n(M_*O2,W/8); n(P_,W/16); n(L_,W/16); n(S_*O2,W/16); n(F_*O2,W/16);

[69] n(M_*O2,W/8); n(P_,W/16); n(L_,W/16); n(S_*O2,W/16); n(F_*O2,W/16);

[70] n(M_*O2,W/8); n(P_,W/16); n(L_, W/16); n(S_*O2,W/16); n(M_*O2,W/16);

[71] n(F_*O2,W/8); n(P_,W/16); n(R_*O2,W/16); n(L_*O2,W/16); n(R_*O3,W/16);

[72] /*------------- 3 */

[73] n(CB_*O2,W/8); n(P_,W/16); n(CB_,W/16); n(R_*O2,W/16); n(CB_,W/16);

[74] n(S_ *O2,W/8); n(P_,W/16); n(S_,W/16); n(CB_,W/16); n(S_*O2,W/16);

[75] n(M_,W/8); n(P_,W/16); n(M_, W/16); n(L_,W/16); n(M_*O2,W/16);

[76] n(F_*O2,W/8); n(P_,W/16); n(F_, W/16); n(L_,W/16); n(F_*O2,W/16);

[77] /*------------- 4 */

[78] n(R_*O2,W/8); n(P_,W/16); n(R_,W/16); n(L_,W/16); n(R_ *O2,W/16);

[79] n(DD_*O2,W/8); n(P_,W/16); n(DD_,W/16); n(L_,W/16); n(DD_*O2,W/16);

[80] n(R_ *O2,W/4);

[81] }

[82] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[83] void sonata17r(float W)

[84] {

[85] n(L_,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[86] /*------------- 1 */

[87] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[88] n(R_*O2,W/8); n(P_,W/16); n(L_*O2,W/16); n(F_*O2,W/16); n(M_*O2,W/16);

[89] n(R_*O2,W/8); n(P_,W/16); n(L_, W/16); n(F_*O2,W/16); n(R_*O2,W/16);

[90] n(M_*O2,W/8); n(P_,W/16);

[91] }

[92] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[93] void elise(float W)

[94] {

[95] n(M_*O2,W/16); n(RD_*O2,W/16); n(M_*O2,W/16);

[96] /*------------- 1 */

[97] n(RD_*O2,W/16); n(M_*O2,W/16); n(C_,W/16); n(R_*O2,W/16); n(D_*O2,W/16);

[98] n(L_,W/8); n(P_,W/16);

[99] }

[100] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[101] /*#############################################################*/

* * *

15. ФАЙЛ SYS _ PRIM. H.

ГРАФИЧЕСКИЕ ПРИМИТИВЫ ПРОГРАММЫ SCONT. C.

[1] /*########################################################*/

[2] /*

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: SYS_PRIM.h

[12] GRAPHIC PRIMITIVES

[13] */

[14] /*########################################################*/

[15] /*============================= Declarations */

[16] /*---- Elements and devices */

[17] int E

[18] (char *t,int n,int lx,int ly,int dx,int dy,int kx,int ky);

[19] int B

[20] (char *t,int n,int lx,int ly,int dx,int dy,int kx,int ky);

[21] /*---- Primitives */

[22] int RectangleN

[23] (int left_x,int left_y,int right_x,int right_y,int n);

[24] int Rectangle2

[25] (int left_x,int left_y,int right_x,int right_y);

[26] int EllipseN

[27] (int x, int y,int stangle,int endangle,

[28] int x_radius,int y_radius,int n);

[29] int Ellipse2

[30] (int x, int y,int stangle,int endangle,

[31] int x_radius,int y_radius);

[32] /*####################################### SUB_PROGRAMMS */

[33] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[34] int E

[35] (char *t,int n,int lx,int ly,int dim_x,int dim_y,

[36] int kx,int ky)

[37] {

[38] /*---- Variable */

[39] char buf_str[80];

[40] /*---- Device */

[41] settextstyle(SMALL_FONT,HORIZ_DIR,4);

[42] setlinestyle(SOLID_LINE,0,NORM_WIDTH);

[43] setcolor(LIGHTGRAY);

[44] if(dim_x<3) dim_x=3;

[45] if(dim_y<3) dim_y=3;

[46] RectangleN(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky,2);

[47] setcolor(YELLOW);

[48] settextjustify(RIGHT_TEXT,CENTER_TEXT);

[49] outtextxy((lx+dim_x-1)*kx,(ly+1)*ky,t);

[50] setcolor(WHITE);

[51] itoa(n,buf_str,10);

[52] settextjustify(LEFT_TEXT,CENTER_TEXT);

[53] outtextxy((lx+1)*kx,(ly+dim_y-1)*ky,buf_str);

[54] /*----*/

[55] return 0;

[56] }

[57] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[58] int B

[59] (char *t,int n,int lx,int ly,int dim_x,int dim_y,

[60] int kx,int ky)

[61] {

[62] /*---- Variable */

[63] char buf_str[80];

[64] /*---- Device */

[65] settextstyle(SMALL_FONT,HORIZ_DIR,4);

[66] setlinestyle(SOLID_LINE,0,NORM_WIDTH);

[67] setfillstyle(SOLID_FILL,LIGHTGRAY);

[68] if(dim_x<3) dim_x=3;

[69] if(dim_y<3) dim_y=3;

[70] bar(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky);

[71] setcolor(YELLOW);

[72] rectangle(lx*kx,ly*ky,(lx+dim_x)*kx,(ly+dim_y)*ky);

[73] settextjustify(RIGHT_TEXT,CENTER_TEXT);

[74] outtextxy((lx+dim_x-1)*kx,(ly+1)*ky,t);

[75] setcolor(WHITE);

[76] itoa(n,buf_str,10);

[77] settextjustify(LEFT_TEXT,CENTER_TEXT);

[78] outtextxy((lx+1)*kx,(ly+dim_y-1)*ky,buf_str);

[79] /*----*/

[80] return 0;

[81] }

[82] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[83] int RectangleN

[84] (int left_x,int left_y,int right_x,int right_y,int n)

[85] {

[86] int i;

[87] for(i=0;i<n;i++)

[88] {

[89] rectangle

[90] (left_x+i,left_y+i,right_x-i,right_y-i);

[91] if((left_x+i)>=(right_x-i)) break;

[92] if((left_y+i)>=(right_y-i)) break;

[93] }

[94] /*----*/

[95] return 0;

[96] }

[97] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[98] int Rectangle2

[99] (int left_x,int left_y,int right_x,int right_y)

[100] {

[101] rectangle

[102] (left_x,left_y,right_x,right_y);

[103] rectangle

[104] (left_x+2,left_y+2,right_x-2,right_y-2);

[105] /*----*/

[106] return 0;

[107] }

[108] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[109] int EllipseN

[110] (int x, int y,int stangle,int endangle,

[111] int x_radius,int y_radius,int n)

[112] {

[113] int i;

[114] for(i=0;i<n;i++)

[115] {

[116] ellipse

[117] (x,y,stangle,endangle,x_radius-i,y_radius-i);

[118] if(x_radius<=0) break;

[119] if(y_radius<=0) break;

[120] }

[121] /*----*/

[122] return 0;

[123] }

[124] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[125] int Ellipse2

[126] (int x, int y,int stangle,int endangle,

[127] int x_radius,int y_radius)

[128] {

[129] ellipse

[130] (x,y,stangle,endangle,x_radius,y_radius);

[131] ellipse

[132] (x,y,stangle,endangle,x_radius-2,y_radius-2);

[133] /*----*/

[134] return 0;

[135] }

[136] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[137]

[138] /*########################################################*/

* * *

16. ФАЙЛ SYS _ DV 0. H.

⇐ Предыдущая 1 2 345 6 Следующая ⇒

Поделиться с друзьями:

История развития хранилищ для нефти: Первые склады нефти появились в XVII веке. Они представляли собой землянные ямы-амбара глубиной 4…5 м...

Автоматическое растормаживание колес: Тормозные устройства колес предназначены для уменьшения длины пробега и улучшения маневрирования ВС при...

Таксономические единицы (категории) растений: Каждая система классификации состоит из определённых соподчиненных друг другу...

Типы сооружений для обработки осадков: Септиками называются сооружения, в которых одновременно происходят осветление сточной жидкости...