-
Компьютерная графика. Машинная графика. Проползанние змеи в виде синусоиды
[ Матвей
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private { Private declarations } public { Public declarations } end;
var
Form1: TForm1; i,a,b:integer;
Implementation {$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin a:=-40; b:=10; end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
Canvas.Pen.Color:=Form1.Brush.Color; Canvas.MoveTo(a-1,185);
Canvas.LineTo(a-1,215);Canvas.Pen.Color:=clblack;
Canvas.MoveTo(a,round(10*sin(2*pi/20*a))+200);
for i:=a to b do Canvas.LineTo(i,round(10*sin(2*pi/20*i))+200);
inc(a); inc(b); end;
end.
[форма(текст.)
program Project2;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
Begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;
end.
]
[ Ярослав
uses crt,graphABC;
var i,a,ys:integer;
begin
a:=180;
i:=0;
line(0,150,1250,150);
while(i<=1250) do
begin
setpencolor(clblack);
ys:=round(50*cos(a*pi/180));
circle(i,ys+150,3);
readkey;
i:=i+1;
a:=a-1;
end;
end.]
-
Компьютерная графика. Написать программу прыжка мяча.
-
Компьютерная графика. Написать программу полета теннисного шарика по горизонтали.
-
Компьютерная графика. Задан файл записей с координатами отрезков, изображающих рисунок. Написать программу уменьшения размера этого рисунка в двое.
-
Компьютерная графика. Задан файл записей с координатами отрезков, изображающих рисунок на холсте 300х300. Написать программу поворота этого рисунка на 90 градусов.
-
Компьютерная графика. Нарисовать пятиэтажный дом.
-
Машинная графика. Написать изображение, используя векторную графику.
5
3
1
0 1 3 5 7
|
Тип |
Х1 |
У1 |
Х2/R |
У2 |
толщина |
цвет линии |
цвет фона |
|
0 – холст |
0 |
0 |
100 |
100 |
|
|
Rgb(100,100,0) |
|
1 – точка |
10 |
10 |
|
|
4 |
Rgb(0,0,0) |
|
|
2 – линия |
10 |
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
|
|
3 – прямоугольник |
10 |
10 |
50 |
50 |
4 |
Rgb(0,0,0) |
Rgb(100,0,0) |
|
4 – окружность |
10 |
10 |
50 |
|
4 |
Rgb(0,0,0) |
|
|
5 – круг |
10 |
10 |
50 |
|
4 |
Rgb(0,0,0) |
Rgb(100,0,0) |