Commit 3cb038d

Richard Ziegler committed on
Use 2 sliders for Cxx volume effect to show envelope and volume control 
Also converts custom GBT 9ve effect to Cev
commit 3cb038db1eea948212667ea1aaa13b71ee5150ab parent 8e11de1
3 changed files +12−4
Modifiedeffecteditor.pas +2−3
@@ -365,9 +365,8 @@ end;
365 365
366 procedure TfrmEffectEditor.fxC; 366 procedure TfrmEffectEditor.fxC;
367 begin 367 begin
368 Notebook1.PageIndex := 0; 368 Notebook1.PageIndex := 1;
369 OneParamTrackBar.Max := $F; 369 LoadTwoParamData;
370 LoadOneParamData;
371 end; 370 end;
372 371
373 procedure TfrmEffectEditor.fxD; 372 procedure TfrmEffectEditor.fxD;
Modifiedmodimport.pas +4−0
@@ -115,6 +115,10 @@ begin
115 end 115 end
116 else 116 else
117 case Code of 117 case Code of
118 $9: begin
119 OutCode := $C;
120 OutParams.Value := Swap(Params);
121 end;
118 $C: begin 122 $C: begin
119 OutCode := $C; 123 OutCode := $C;
120 OutParams.Value := Trunc((Params / $40)*$F); 124 OutParams.Value := Trunc((Params / $40)*$F);
Modifiedutils.pas +6−1
@@ -92,7 +92,12 @@ begin
92 $7: Result := 'Delay note by '+P+' ticks'; 92 $7: Result := 'Delay note by '+P+' ticks';
93 $A: Result := 'Increase volume by '+IntToStr(Params.Param1)+' units, decrease volume by '+IntToStr(Params.Param2)+' units'; 93 $A: Result := 'Increase volume by '+IntToStr(Params.Param1)+' units, decrease volume by '+IntToStr(Params.Param2)+' units';
94 $B: Result := 'Jump to order '+P; 94 $B: Result := 'Jump to order '+P;
95 $C: Result := 'Set volume to '+P+'/15'; 95 $C: begin
96 if (Params.Value < 16) then Result := 'Keep envelope, Set volume to '+IntToStr(Params.Param2)+'/15'
97 else if (Params.Value < 128) then Result := 'Envelope Down '+IntToStr(Params.Param1)+'/64Hz, Set volume to '+IntToStr(Params.Param2)+'/15'
98 else if (Params.Value < 144) then Result := 'Envelope Off, Set volume to '+IntToStr(Params.Param2)+'/15'
99 else Result := 'Envelope Up '+IntToStr(Params.Param1-8)+'/64Hz, Set volume to '+IntToStr(Params.Param2)+'/15'
100 end;
96 $D: Result := 'Jump to row '+P+' on the next pattern'; 101 $D: Result := 'Jump to row '+P+' on the next pattern';
97 $E: Result := 'Cut note after '+P+' ticks'; 102 $E: Result := 'Cut note after '+P+' ticks';
98 $F: Result := 'Set speed to '+P+' ticks'; 103 $F: Result := 'Set speed to '+P+' ticks';