Commit 2c42a71

Nick committed on
Add constants for GB colors (thanks rulz)
commit 2c42a7162e4a172b2432c110c594aff3b2052faf parent 3a52256
2 changed files +9−6
Modifiedconstants.pas +4−1
@@ -5,7 +5,7 @@ unit Constants;
5 interface 5 interface
6 6
7 uses 7 uses
8 fgl, LMessages; 8 fgl, LMessages, Graphics;
9 9
10 type 10 type
11 TNoteMap = specialize TFPGMap<Integer, String>; 11 TNoteMap = specialize TFPGMap<Integer, String>;
@@ -18,6 +18,9 @@ type
18 TRoutineIndex = 0..15; 18 TRoutineIndex = 0..15;
19 19
20 const 20 const
21 clGameboyBlack = TColor($211807);
22 clGameboyMidGreen = TColor($6CC086);
23
21 UGE_FORMAT_VERSION = 3; 24 UGE_FORMAT_VERSION = 3;
22 25
23 INSTRUMENTS_COUNT = 45; 26 INSTRUMENTS_COUNT = 45;
Modifiedtracker.pas +5−5
@@ -612,9 +612,9 @@ begin
612 HInterval := H div 15; 612 HInterval := H div 15;
613 613
614 With PB.Canvas do begin 614 With PB.Canvas do begin
615 Brush.Color := TColor($211807); // Gameboy Black 615 Brush.Color := clGameboyBlack;
616 Clear; 616 Clear;
617 Pen.Color := TColor($6CC086); // Gameboy Mid Green 617 Pen.Color := clGameboyMidGreen;
618 Pen.Width := 3; 618 Pen.Width := 3;
619 MoveTo(0, H-V*HInterval); // Start volume 619 MoveTo(0, H-V*HInterval); // Start volume
620 620
@@ -656,7 +656,7 @@ begin
656 with VisualizerBuffer.Canvas do begin 656 with VisualizerBuffer.Canvas do begin
657 MoveTo(0, PB.Height div 2); 657 MoveTo(0, PB.Height div 2);
658 658
659 Brush.Color := TColor($211807); // Gameboy Black 659 Brush.Color := clGameboyBlack;
660 Clear; 660 Clear;
661 661
662 Pen.Color := clGray; 662 Pen.Color := clGray;
@@ -665,7 +665,7 @@ begin
665 Pen.Width := 2; 665 Pen.Width := 2;
666 666
667 if not snd[Channel].ChannelOFF then begin 667 if not snd[Channel].ChannelOFF then begin
668 Pen.Color := TColor($6CC086); // Gameboy Mid Green 668 Pen.Color := clGameboyMidGreen;
669 669
670 X := 0; 670 X := 0;
671 I := 0; 671 I := 0;
@@ -681,7 +681,7 @@ begin
681 end; 681 end;
682 end 682 end
683 else begin 683 else begin
684 Pen.Color := TColor($0C0094); 684 Pen.Color := TColor($0C0094); // what color is this?
685 Line(0, 0, PB.Width, PB.Height); 685 Line(0, 0, PB.Width, PB.Height);
686 Line(0, PB.Height, PB.Width, 0); 686 Line(0, PB.Height, PB.Width, 0);
687 end; 687 end;