Changeset 5 for trunk/UGraphic.pas

Timestamp:

Sep 16, 2014, 1:21:18 PM (10 years ago)

Author:

chronos

Message:

• Added: 8-bit grayscale color format for testing.
• Added: Canvas, Pen, Brush, line draw test code.

File:

• trunk/UGraphic.pas (modified) (7 diffs)

trunk/UGraphic.pas

@@ -12 +12 @@
 
   TGColor = class;
+  TGCanvas = class;
 
   TGColorClass = class of TGColor;
@@ -45 +46 @@
     procedure FromTColor(Color: TColor);
     procedure Assign(Source: TGColor); virtual;
+    constructor Create;
     property Channels[Channel: TGColorChannel]: TGColor read GetChannel;
     property Data: PByte read FData;
@@ -56 +58 @@
   private
     FBackgroundColor: TGColor;
+    FCanvas: TGCanvas;
     FColorFormat: TGColorFormatClass;
     FDPI: Integer;
@@ -79 +82 @@
     property Size: TPoint read FSize write SetSize;
     property Pixels[X, Y: Integer]: TGColor read GetPixel write SetPixel;
+    property Canvas: TGCanvas read FCanvas write FCanvas;
   published
   end;
@@ -96 +100 @@
   end;
 
+  { TGPen }
+
+  TGPen = class
+    Canvas: TGCanvas;
+    Color: TGColor;
+    Position: TPoint;
+    procedure MoveTo(Pos: TPoint);
+    procedure LineTo(Pos: TPoint);
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+  { TGBrush }
+
+  TGBrush = class
+    Canvas: TGCanvas;
+    Color: TGColor;
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+  { TGCanvas }
+
+  TGCanvas = class
+    Brush: TGBrush;
+    Pen: TGPen;
+    Bitmap: TGBitmap;
+    constructor Create; virtual;
+    destructor Destroy; override;
+  end;
+
+
 var
   ColorManager: TGColorManager;
 
 implementation
+
+{ TGBrush }
+
+constructor TGBrush.Create;
+begin
+  Color := TGColor.Create;
+end;
+
+destructor TGBrush.Destroy;
+begin
+  Color.Free;
+  inherited Destroy;
+end;
+
+{ TGPen }
+
+procedure TGPen.MoveTo(Pos: TPoint);
+begin
+  Position := Pos;
+end;
+
+procedure TGPen.LineTo(Pos: TPoint);
+var
+  I: Integer;
+  Len: Integer;
+begin
+  Len := Trunc(Sqrt(Sqr(Position.X - Pos.X) + Sqr(Position.Y - Pos.Y)));
+  for I := 0 to Len - 1 do
+    Canvas.Bitmap.Pixels[Trunc(Position.X + I * (Pos.X - Position.X) / Len),
+      Trunc(Position.Y + I * (Pos.Y - Position.Y) / Len)] := Color;
+end;
+
+constructor TGPen.Create;
+begin
+  Color := TGColor.Create;
+end;
+
+destructor TGPen.Destroy;
+begin
+  Color.Free;
+  inherited Destroy;
+end;
+
+{ TGCanvas }
+
+constructor TGCanvas.Create;
+begin
+  Pen := TGPen.Create;
+  Pen.Canvas := Self;
+  Brush := TGBrush.Create;
+  Brush.Canvas := Self;
+end;
+
+destructor TGCanvas.Destroy;
+begin
+  Pen.Free;
+  Brush.Free;
+  inherited Destroy;
+end;
 
 { TGColorManager }
@@ -233 +328 @@
 procedure TGColor.Assign(Source: TGColor);
 begin
+end;
+
+constructor TGColor.Create;
+begin
+  Format := TGColorFormat;
 end;
 
@@ -343 +443 @@
   ColorFormat := TGColorFormat;
   FBackgroundColor.Format := ColorFormat;
+  FBackgroundColor.FromTColor(clBlack);
+  Canvas := TGCanvas.Create;
+  Canvas.Bitmap := Self;
 end;