editor/bass-sys/win/bass24/delphi/SampleVis/circle_vis.pas
2021-01-07 21:37:50 -06:00

109 lines
3.7 KiB
ObjectPascal

unit circle_vis;
{ Circle Visualyzation by Alessandro Cappellozza
version 0.5 05/2002
http://digilander.iol.it/Kappe/audioobject
}
interface
uses Windows, Dialogs, Graphics, SysUtils, CommonTypes, Classes;
type TCircleScope = Class(TObject)
private
VisBuff : TBitmap;
BackBmp : TBitmap;
BkgColor : TColor;
ScopeRad : Integer;
ScopeOff : Integer;
PenColor : TColor;
DrawType : Integer;
DrawRes : Integer;
FrmClear : Boolean;
UseBkg : Boolean;
public
Constructor Create (Width, Height : Integer);
procedure Draw(HWND : THandle; WaveData : TWaveData; X, Y : Integer);
procedure SetBackGround (Active : Boolean; BkgCanvas : TGraphic);
property BackColor : TColor read BkgColor write BkgColor;
property Radius : Integer read ScopeRad write ScopeRad;
property Offset : Integer read ScopeOff write ScopeOff;
property Pen : TColor read PenColor write PenColor;
property Mode : Integer read DrawType write DrawType;
property Res : Integer read DrawRes write DrawRes;
property FrameClear : Boolean read FrmClear write FrmClear;
end;
var CircleScope : TCircleScope;
implementation
Constructor TCircleScope.Create(Width, Height : Integer);
begin
VisBuff := TBitmap.Create;
BackBmp := TBitmap.Create;
VisBuff.Width := Width;
VisBuff.Height := Height;
BackBmp.Width := Width;
BackBmp.Height := Height;
BkgColor := clBlack;
ScopeRad := 30;
ScopeOff := 30;
PenColor := clWhite;
DrawType := 0;
DrawRes := 2;
FrmClear := True;
UseBkg := False;
end;
procedure TCircleScope.SetBackGround (Active : Boolean; BkgCanvas : TGraphic);
begin
UseBkg := Active;
BackBmp.Canvas.Draw(0, 0, BkgCanvas);
end;
procedure TCircleScope.Draw(HWND : THandle; WaveData : TWaveData; X, Y : Integer);
var i, Rd : Integer; Angle : Single; R, L : SmallInt;
begin
if FrmClear then begin
VisBuff.Canvas.Pen.Color := BkgColor;
VisBuff.Canvas.Brush.Color := BkgColor;
VisBuff.Canvas.Rectangle(0, 0, VisBuff.Width, VisBuff.Height);
if UseBkg then VisBuff.Canvas.CopyRect(Rect(0, 0, BackBmp.Width, BackBmp.Height), BackBmp.Canvas, Rect(0, 0, BackBmp.Width, BackBmp.Height));
end;
VisBuff.Canvas.Pen.Color := PenColor;
R := LOWORD(WaveData[0]);
L := HIWORD(WaveData[0]);
Rd := Trunc(((R + L) / (2 * 65535)) * ScopeOff) + ScopeRad;
VisBuff.Canvas.MoveTo(X, Y + Rd);
for i := 1 to 254 do begin
Angle := (i /256) * (6.28);
R := LOWORD(WaveData[i * DrawRes]);
L := HIWORD(WaveData[i * DrawRes]);
Rd := Trunc(((R + L) / (2 * 65535)) * ScopeOff) + ScopeRad;
case DrawType of
0 : VisBuff.Canvas.lineto(X + Trunc(sin(Angle) * Rd), Y + Trunc(cos(Angle) * Rd));
1 : begin
VisBuff.Canvas.MoveTo(X, Y);
VisBuff.Canvas.lineto(X + Trunc(sin(Angle) * Rd), Y + Trunc(cos(Angle) * Rd));
end;
2 : VisBuff.Canvas.Pixels[X + Trunc(sin(Angle) * Rd), Y + Trunc(cos(Angle) * Rd)] := PenColor;
end;
end;
R := LOWORD(WaveData[0]);
L := HIWORD(WaveData[0]);
Rd := Trunc(((R + L) / (2 * 65535)) * ScopeOff) + ScopeRad;
VisBuff.Canvas.lineto(X, Y + Rd);
BitBlt(HWND, 0, 0, VisBuff.Width, VisBuff.Height, VisBuff.Canvas.Handle, 0, 0, srccopy)
end;
end.