Commit 011029a

Nick committed on
Add version field to song
commit 011029a96e7033c6ff7282831a125a7681e285d3 parent 30549c6
4 changed files +15−7
Modifiedconstants.pas +2−0
@@ -14,6 +14,8 @@ type
14 TNoteToFreqMap = specialize TFPGMap<Integer, Integer>; 14 TNoteToFreqMap = specialize TFPGMap<Integer, Integer>;
15 15
16 const 16 const
17 UGE_FORMAT_VERSION = 1;
18
17 LM_FD = LM_USER + 0; 19 LM_FD = LM_USER + 0;
18 20
19 SYM_ROW = 'row'; 21 SYM_ROW = 'row';
Modifiedhalt.z80 +8−6
@@ -15,12 +15,14 @@ DB "NF"
15 15
16 SECTION "code", ROM0 16 SECTION "code", ROM0
17 yeah: 17 yeah:
18 ld a, $80 18 ld a, 0
19 ld [rAUDENA], a 19 ld [rAUD3LEVEL], a
20 ;ld a, $80
21 ;ld [rAUDENA], a
20 ; Enable all channels in stereo 22 ; Enable all channels in stereo
21 ld a, $FF 23 ;ld a, $FF
22 ld [rAUDTERM], a 24 ;ld [rAUDTERM], a
23 ; Set volume 25 ; Set volume
24 ld a, $77 26 ;ld a, $77
25 ld [rAUDVOL], a 27 ;ld [rAUDVOL], a
26 halt 28 halt
Modifiedsong.pas +2−0
@@ -10,6 +10,8 @@ type
10 { TSong } 10 { TSong }
11 11
12 TSong = packed record 12 TSong = packed record
13 Version: Integer;
14
13 Name: ShortString; 15 Name: ShortString;
14 Artist: ShortString; 16 Artist: ShortString;
15 Comment: ShortString; 17 Comment: ShortString;
Modifiedtracker.pas +3−1
@@ -594,7 +594,7 @@ begin
594 CI := CurrentInstrument; 594 CI := CurrentInstrument;
595 595
596 InstrumentNumberSpinner.Value := Instr; 596 InstrumentNumberSpinner.Value := Instr;
597 //InstrumentNameEdit.Text := CI^.Name; 597 InstrumentNameEdit.Text := CI^.Name;
598 LengthEnabledCheckbox.Checked := CI^.LengthEnabled; 598 LengthEnabledCheckbox.Checked := CI^.LengthEnabled;
599 LengthSpinner.Position := CI^.Length; 599 LengthSpinner.Position := CI^.Length;
600 600
@@ -782,6 +782,8 @@ var
782 begin 782 begin
783 ReturnNilIfGrowHeapFails := False; 783 ReturnNilIfGrowHeapFails := False;
784 784
785 Song.Version := UGE_FORMAT_VERSION;
786
785 // Create pattern editor control 787 // Create pattern editor control
786 Song.Patterns := TPatternMap.Create; 788 Song.Patterns := TPatternMap.Create;
787 RecreateTrackerGrid; 789 RecreateTrackerGrid;