h1

Карта звездного неба

Февраль 9, 2010

Программа рисует созвездия Овна, Козерога, Близнецов и Большой Медведицы используя самый примитивный способ: рисование попиксельно по координатам, используются методы Pixels и FillRect для компонента Canvas. Лабораторная №1 по предмету компьютерная графика.

Исходный код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, ComCtrls, XPMan;

type
TForm1 = class(TForm)
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
StatusBar1: TStatusBar;
Image1: TImage;
XPManifest1: TXPManifest;
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Canvas.Brush.Color:=clBlack;
Image1.Canvas.FillRect(Rect(0,0,382,313));

{oven}
Image1.Canvas.Pixels[40,30]:=clWhite;
Image1.Canvas.Pixels[47,31]:=clWhite;
Image1.Canvas.Pixels[45,37]:=clWhite;

{kozerog}
Image1.Canvas.Pixels[90,20]:=clWhite;
Image1.Canvas.Pixels[110,31]:=clWhite;
Image1.Canvas.Pixels[120,40]:=clWhite;
Image1.Canvas.Pixels[110,41]:=clWhite;
Image1.Canvas.Pixels[90,41]:=clWhite;

{blizneci}
Image1.Canvas.Pixels[160,20]:=clWhite;
Image1.Canvas.Pixels[163,31]:=clWhite;
Image1.Canvas.Pixels[165,37]:=clWhite;
Image1.Canvas.Pixels[170,49]:=clWhite;
Image1.Canvas.Pixels[165,53]:=clWhite;
Image1.Canvas.Pixels[179,17]:=clWhite;
Image1.Canvas.Pixels[185,31]:=clWhite;
Image1.Canvas.Pixels[188,41]:=clWhite;
Image1.Canvas.Pixels[196,47]:=clWhite;
Image1.Canvas.Pixels[200,49]:=clWhite;
Image1.Canvas.Pixels[204,50]:=clWhite;

{big bear}
Image1.Canvas.Pixels[50,100]:=clWhite;
Image1.Canvas.Pixels[90,110]:=clWhite;
Image1.Canvas.Pixels[130,120]:=clWhite;
Image1.Canvas.Pixels[130,120]:=clWhite;
Image1.Canvas.Pixels[135,160]:=clWhite;
Image1.Canvas.Pixels[200,130]:=clWhite;
Image1.Canvas.Pixels[216,170]:=clWhite;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
image1.Picture:=nil;
end;

end.

Ссылка на приложение и файлы проекта

Реклама

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s

%d такие блоггеры, как: