Commit e3985b4

Nick committed on
Add 2 new unfinished sample songs
commit e3985b4e3af9c5e67d574d03b8864d042bd77d69 parent c27cf15
4 changed files +78−76
ModifiedGBEmu.lpr +2−0
@@ -58,6 +58,8 @@ begin
58 {$endif} 58 {$endif}
59 59
60 {$ifdef UNIX} 60 {$ifdef UNIX}
61 // This is the correct way to load a font on Linux according to
62 // #linux on freenode.
61 if not DirectoryExists(GetUserDir+'.fonts') then 63 if not DirectoryExists(GetUserDir+'.fonts') then
62 CreateDir(GetUserDir+'.fonts'); 64 CreateDir(GetUserDir+'.fonts');
63 65
Modifiedmodimport.pas +76−76
@@ -79,7 +79,7 @@ const
79 ($79,$BC,$DE,$EF,$FF,$EE,$DC,$B9,$75,$43,$21,$10,$00,$11,$23,$45)); 79 ($79,$BC,$DE,$EF,$FF,$EE,$DC,$B9,$75,$43,$21,$10,$00,$11,$23,$45));
80 80
81 var 81 var
82 PeriodsToCodeMap: TPeriodToCodeMap; 82 PeriodToCodeMap: TPeriodToCodeMap;
83 83
84 implementation 84 implementation
85 85
@@ -96,7 +96,7 @@ begin
96 if Note = 0 then 96 if Note = 0 then
97 Result := NO_NOTE 97 Result := NO_NOTE
98 else 98 else
99 Result := PeriodsToCodeMap.KeyData[Note]; 99 Result := PeriodToCodeMap.KeyData[Note];
100 end; 100 end;
101 101
102 function ConvertInstrument(Instr: Integer): Integer; 102 function ConvertInstrument(Instr: Integer): Integer;
@@ -235,79 +235,79 @@ begin
235 end; 235 end;
236 236
237 begin 237 begin
238 PeriodsToCodeMap := TPeriodToCodeMap.Create; 238 PeriodToCodeMap := TPeriodToCodeMap.Create;
239 239
240 PeriodsToCodeMap.add(1712,0); 240 PeriodToCodeMap.add(1712,0);
241 PeriodsToCodeMap.add(1616,1); 241 PeriodToCodeMap.add(1616,1);
242 PeriodsToCodeMap.add(1524,2); 242 PeriodToCodeMap.add(1524,2);
243 PeriodsToCodeMap.add(1440,3); 243 PeriodToCodeMap.add(1440,3);
244 PeriodsToCodeMap.add(1356,4); 244 PeriodToCodeMap.add(1356,4);
245 PeriodsToCodeMap.add(1280,5); 245 PeriodToCodeMap.add(1280,5);
246 PeriodsToCodeMap.add(1208,6); 246 PeriodToCodeMap.add(1208,6);
247 PeriodsToCodeMap.add(1140,7); 247 PeriodToCodeMap.add(1140,7);
248 PeriodsToCodeMap.add(1076,8); 248 PeriodToCodeMap.add(1076,8);
249 PeriodsToCodeMap.add(1016,9); 249 PeriodToCodeMap.add(1016,9);
250 PeriodsToCodeMap.add(960,10); 250 PeriodToCodeMap.add(960,10);
251 PeriodsToCodeMap.add(907,11); 251 PeriodToCodeMap.add(907,11);
252 PeriodsToCodeMap.add(856,12); 252 PeriodToCodeMap.add(856,12);
253 PeriodsToCodeMap.add(808,13); 253 PeriodToCodeMap.add(808,13);
254 PeriodsToCodeMap.add(762,14); 254 PeriodToCodeMap.add(762,14);
255 PeriodsToCodeMap.add(720,15); 255 PeriodToCodeMap.add(720,15);
256 PeriodsToCodeMap.add(678,16); 256 PeriodToCodeMap.add(678,16);
257 PeriodsToCodeMap.add(640,17); 257 PeriodToCodeMap.add(640,17);
258 PeriodsToCodeMap.add(604,18); 258 PeriodToCodeMap.add(604,18);
259 PeriodsToCodeMap.add(570,19); 259 PeriodToCodeMap.add(570,19);
260 PeriodsToCodeMap.add(538,20); 260 PeriodToCodeMap.add(538,20);
261 PeriodsToCodeMap.add(508,21); 261 PeriodToCodeMap.add(508,21);
262 PeriodsToCodeMap.add(480,22); 262 PeriodToCodeMap.add(480,22);
263 PeriodsToCodeMap.add(453,23); 263 PeriodToCodeMap.add(453,23);
264 PeriodsToCodeMap.add(428,24); 264 PeriodToCodeMap.add(428,24);
265 PeriodsToCodeMap.add(404,25); 265 PeriodToCodeMap.add(404,25);
266 PeriodsToCodeMap.add(381,26); 266 PeriodToCodeMap.add(381,26);
267 PeriodsToCodeMap.add(360,27); 267 PeriodToCodeMap.add(360,27);
268 PeriodsToCodeMap.add(339,28); 268 PeriodToCodeMap.add(339,28);
269 PeriodsToCodeMap.add(320,29); 269 PeriodToCodeMap.add(320,29);
270 PeriodsToCodeMap.add(302,30); 270 PeriodToCodeMap.add(302,30);
271 PeriodsToCodeMap.add(285,31); 271 PeriodToCodeMap.add(285,31);
272 PeriodsToCodeMap.add(269,32); 272 PeriodToCodeMap.add(269,32);
273 PeriodsToCodeMap.add(254,33); 273 PeriodToCodeMap.add(254,33);
274 PeriodsToCodeMap.add(240,34); 274 PeriodToCodeMap.add(240,34);
275 PeriodsToCodeMap.add(226,35); 275 PeriodToCodeMap.add(226,35);
276 PeriodsToCodeMap.add(214,36); 276 PeriodToCodeMap.add(214,36);
277 PeriodsToCodeMap.add(202,37); 277 PeriodToCodeMap.add(202,37);
278 PeriodsToCodeMap.add(190,38); 278 PeriodToCodeMap.add(190,38);
279 PeriodsToCodeMap.add(180,39); 279 PeriodToCodeMap.add(180,39);
280 PeriodsToCodeMap.add(170,40); 280 PeriodToCodeMap.add(170,40);
281 PeriodsToCodeMap.add(160,41); 281 PeriodToCodeMap.add(160,41);
282 PeriodsToCodeMap.add(151,42); 282 PeriodToCodeMap.add(151,42);
283 PeriodsToCodeMap.add(143,43); 283 PeriodToCodeMap.add(143,43);
284 PeriodsToCodeMap.add(135,44); 284 PeriodToCodeMap.add(135,44);
285 PeriodsToCodeMap.add(127,45); 285 PeriodToCodeMap.add(127,45);
286 PeriodsToCodeMap.add(120,46); 286 PeriodToCodeMap.add(120,46);
287 PeriodsToCodeMap.add(113,47); 287 PeriodToCodeMap.add(113,47);
288 PeriodsToCodeMap.add(107,48); 288 PeriodToCodeMap.add(107,48);
289 PeriodsToCodeMap.add(101,49); 289 PeriodToCodeMap.add(101,49);
290 PeriodsToCodeMap.add(95, 50); 290 PeriodToCodeMap.add(95, 50);
291 PeriodsToCodeMap.add(90, 51); 291 PeriodToCodeMap.add(90, 51);
292 PeriodsToCodeMap.add(85, 52); 292 PeriodToCodeMap.add(85, 52);
293 PeriodsToCodeMap.add(80, 53); 293 PeriodToCodeMap.add(80, 53);
294 PeriodsToCodeMap.add(75, 54); 294 PeriodToCodeMap.add(75, 54);
295 PeriodsToCodeMap.add(71, 55); 295 PeriodToCodeMap.add(71, 55);
296 PeriodsToCodeMap.add(67, 56); 296 PeriodToCodeMap.add(67, 56);
297 PeriodsToCodeMap.add(63, 57); 297 PeriodToCodeMap.add(63, 57);
298 PeriodsToCodeMap.add(60, 58); 298 PeriodToCodeMap.add(60, 58);
299 PeriodsToCodeMap.add(56, 59); 299 PeriodToCodeMap.add(56, 59);
300 PeriodsToCodeMap.add(53, 60); 300 PeriodToCodeMap.add(53, 60);
301 PeriodsToCodeMap.add(50, 61); 301 PeriodToCodeMap.add(50, 61);
302 PeriodsToCodeMap.add(47, 62); 302 PeriodToCodeMap.add(47, 62);
303 PeriodsToCodeMap.add(45, 63); 303 PeriodToCodeMap.add(45, 63);
304 PeriodsToCodeMap.add(42, 64); 304 PeriodToCodeMap.add(42, 64);
305 PeriodsToCodeMap.add(40, 65); 305 PeriodToCodeMap.add(40, 65);
306 PeriodsToCodeMap.add(37, 66); 306 PeriodToCodeMap.add(37, 66);
307 PeriodsToCodeMap.add(35, 67); 307 PeriodToCodeMap.add(35, 67);
308 PeriodsToCodeMap.add(33, 68); 308 PeriodToCodeMap.add(33, 68);
309 PeriodsToCodeMap.add(31, 69); 309 PeriodToCodeMap.add(31, 69);
310 PeriodsToCodeMap.add(30, 70); 310 PeriodToCodeMap.add(30, 70);
311 PeriodsToCodeMap.add(28, 71); 311 PeriodToCodeMap.add(28, 71);
312 end. 312 end.
313 313