Для рисования в Pascal ABC необходимо запустить специальный модуль GraphABC, использование специальных функций и процедур помогут нарисовать точку, отрезок, окружность, прямоугольник и другие фигуры: SetPixel(x,y,color) - Закрашивает один пиксел с координатами (x,y) цветом color LineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y). Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2). SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color. SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям. Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2). FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y). SetBrushColor(color) - устанавливает цвет кисти. Заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти. Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2). Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r. Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 - вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Цвета в PascalABC:

clBlack черный clPurple фиолетовый clWhite белый clMaroon темно-красный clRed красный clNavy темно-синий clGreen зеленый clBrown коричневый clBlue синий clSkyBlue голубой clYellow желтый clCream кремовый clAqua бирюзовый clOlive оливковый clFuchsia сиреневый clTeal сине-зеленый clGray темно-серый clLime ярко-зеленый clMoneyGreen цвет зеленых денег clLtGray светло-серый clDkGray темно-серый clMedGray серый clSilver серебряный Функции для работы с цветом:

Тип цвета Color является синонимом System.Drawing.Color.

function RGB(r,g,b: byte): Color; Возвращает цвет, который содержит красную (r), зеленую (g) и синюю (b) составляющие (r,g и b - в диапазоне от 0 до 255)

function ARGB(a,r,g,b: byte): Color; Возвращает цвет, который содержит красную (r), зеленую (g) и синюю (b) составляющие и прозрачность (a) (a,r,g,b - в диапазоне от 0 до 255)

function RedColor(r: byte): Color; Возвращает красный цвет с интенсивностью r (r - в диапазоне от 0 до 255)

function GreenColor(g: byte): Color; Возвращает зеленый цвет с интенсивностью g (g - в диапазоне от 0 до 255)

function BlueColor(b: byte): Color; Возвращает синий цвет с интенсивностью b (b - в диапазоне от 0 до 255)

function clRandom: Color; Возвращает случайный цвет

function GetRed(c: Color): integer;Возвращает красную составляющую цвета

function GetGreen(c: Color): integer; Возвращает зеленую составляющую цвета

function GetBlue(c: Color): integer; Возвращает синюю составляющую цвета.

Свойства:

property Width: integer;Ширина рисунка.

property Height: integer; Высота рисунка.

property Transparent: boolean; Прозрачность рисунка. Если Transparent=True, то при выводе рисунка его фон не отображается. Фоновым считается цвет левого нижнего пиксела рисунка.

property NeedDestroy: boolean; Определяет, должен ли рисунок разрушаться при вызове деструктора и метода Load. NeedDestroy обычно устанавливается в False, если несколько объектов классаPicture разделяют один рисунок.

Методы:

procedure Load(fname: string);

Загружает рисунок из файла с именем fname. Если NeedDestroy установлено в True, то рисунок, находившийся ранее в объекте Picture, разрушается. Рисунок с именем fname ищется вначале в текущем каталоге, а затем в подкаталоге Media\Images\ каталога программы PascalABC.exe.

procedure Save(fname: string);

Сохраняет рисунок в файле с именем fname. Формат рисунка устанавливается расширением имени файла. Допустимые расширения: .bmp, .gif, .jpg, .png.

function Handle: integer;

Возвращает описатель рисунка.

procedure Draw(x,y: integer);

Выводит рисунок в позицию (x,y) графического окна.

procedure Draw(x,y,w,h: integer);

Выводит рисунок в позицию (x,y) графического окна, масштабируя его к размеру (w,h). Если w<0 или h<0, то выводится зеркальное отражение рисунка относительно вертикалоной или горизонтальной оси соответственно.

procedure Draw(x,y: integer; r: Rect);

Выводит часть рисунка, заключенную в прямоугольнике r, в позицию (x,y) графического окна.

procedure Draw(x,y,w,h: integer; src: Rect);

Выводит часть рисунка, заключенную в прямоугольнике r, в позицию (x,y) графического окна, масштабируя ее к размеру (w,h).

procedure CopyRect(dest: Rect; p: Picture; src: Rect);

Копирует в прямоугольник dest текущего рисунка часть рисунка p, заключенную в прямоугольнике src.

procedure FlipHorizontal;

Зеркально отображает картинку относительно горизонтальной оси симметрии.

procedure FlipVertical;Зеркально отображает картинку относительно вертикальной оси симметрии.

Рисование графических объектов

Рисование графических объектов осуществляется пером и кистью. Линии, ограничивающие объекты, рисуются пером.

Действия с пером

PenX текущая координата X пера

PenY текущая координата Y пера

SetPenColor установка цвета пера

PenColor текущий цвет пера

MoveTo перемещение пера

LineTo рисование отрезка от текущего положения пера

SetPenWidth установка ширины пера

PenWidth текущая ширина пера

SetPenStyle установка стиля пера

PenStyle текущий стиль пера

SetPenMode установка режима пера

PenMode текущий режим пера

Режим пера определяет, как цвет пера взаимодействует с цветом поверхности. В GraphABC два режима пера:

pmCopy - обычный режим: при рисовании цвет поверхности заменяется цветом пера; 25

pmNot - режим инвертирования: при рисовании цвет поверхности инвертируется (становится негативным), а цвет пера при этом игнорируется.

Пример:

uses crt,GraphABC;

var

x,x1,y,y1:longint;

begin

x:=150;

line(150,10,125,85);{строем звезду}

line(125,85,150,110);

for x1:=150 to 175 do

line(x,10,x1,110-(x1-150));

line(250,110,175,85);

for y1:=110 to 135 do

line(250,110,150+(y1-110),y1);

line(150,220,175,135);

for x1:=150 downto 125 do

line(150,220,x1,110-(x1-150));

line(40,110,125,135);

for y1:=110 downto 85 do

line(40,110,150+(y1-110),y1);

{ line(90,50,210,170);

line(210,50,90,170); дополнительное построение}

line(210,50,165,55);

line(210,50,205,95);

line(90,170,95,125);

line(90,170,135,165);

line(90,50,95,95);

line(90,50,135,55);

line(210,170,165,165);

line(210,170,205,125);

end.

Пример 2:

uses graphABC;

const

step=Pi*0.2;

Procedure DrawStar(x,y,size:integer); {x,y - координаты центра и size - радиус снежинки}

var i,j,newsize, xnew,ynew:integer;

Begin

if size<1 then PutPixel(x,y,15) else

for i:=0 to 9 do {первый цикл - по количеству направляющих снежинки}

begin

newsize:=size;

for j:=1 to 8 do {второй цикл -рисование 8-ми подуровней снежинки}

begin

xnew:=x+round(newsize*cos(i*step));

ynew:=y+round(newsize*sin(i*step));

DrawStar(xnew,ynew,newsize div 5);

newsize:=newsize*2 div 3;

end;

end;

End;{конец процедуры}

Begin {Главная}

DrawStar(320,240,160);

End.

Рисунок 1.3-снежинка

2. Создание графического проекта

2.1 Понятие "фрактал"