Commit 53fa9e1

Nick Faro committed on
Revert TSweepType change
commit 53fa9e1dd00621767270ff59e65032af24970d5c parent 5d7b892
2 changed files +5−2
Modifiedhugedatatypes.pas +1−1
@@ -60,7 +60,7 @@ type
60 60
61 TInstrumentType = (itSquare = 0, itWave = 1, itNoise = 2); 61 TInstrumentType = (itSquare = 0, itWave = 1, itNoise = 2);
62 TDutyType = 0..3; 62 TDutyType = 0..3;
63 TSweepType = (stDown = 0, stUp = 1); 63 TSweepType = (stUp, stDown);
64 TStepWidth = (swFifteen, swSeven); 64 TStepWidth = (swFifteen, swSeven);
65 TEnvelopeVolume = 0..15; 65 TEnvelopeVolume = 0..15;
66 TEnvelopeSweepAmount = 0..7; 66 TEnvelopeSweepAmount = 0..7;
Modifiedtbmimport.pas +4−1
@@ -411,7 +411,10 @@ begin
411 411
412 EnvReg.ByteValue := InstFormat.Envelope; 412 EnvReg.ByteValue := InstFormat.Envelope;
413 Ins^.InitialVolume := EnvReg.InitialVolume; 413 Ins^.InitialVolume := EnvReg.InitialVolume;
414 Ins^.VolSweepDirection := TSweepType(EnvReg.Direction); 414 if EnvReg.Direction then
415 Ins^.VolSweepDirection := stUp
416 else
417 Ins^.VolSweepDirection := stDown;
415 Ins^.VolSweepAmount := EnvReg.SweepNumber; 418 Ins^.VolSweepAmount := EnvReg.SweepNumber;
416 Ins^.Waveform := InstFormat.Envelope; 419 Ins^.Waveform := InstFormat.Envelope;
417 420