Решение задач машиностроения средствами Turbo Pascal. Крупенников О.Г - 82 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

81
Для удобства программирования графического отображения корпусной де-
тали (см. рис. 12.1) можно реализовать наложение этой детали на координат-
ную сетку (рис. 12.2) и с учетом соотношений длин сторон и диаметров окруж-
ностей, если их размеры не заданы, установить координаты узловых точек, по
которым будет осуществлено графическое построение этой детали с помощью
программы,
представленной ниже.
PROGRAM DETAL;
USES GRAPH;
VAR DRIVER,MODE,ERROR:INTEGER;
BEGIN
{инициация графического режима с проверкой наличия ошибок инициа-
ции}
DRIVER:=DETECT;
INITGRAPH(DRIVER,MODE,’EGAVGA.BGI’);
ERROR:=GRAPHRESULT;
IF ERROR<>GROK THEN
WRITELN(GRAPHERRORMSG(ERROR)) ELSE
BEGIN
BAR(0,0,640,480);{задание области экрана}
SETBKCOLOR(15);{задание фона экрана}
SETCOLOR(1);{задание цвета линий}
{отображение рамки}
SETLINESTYLE(0,0,1);{задание типа линий рамки}
RECTANGLE(200,20,450,280);{графическое отображение рамки}
{графическое отображение главного вида крышки}
SETLINESTYLE(0,0,3);{задание типа основных линий}
RECTANGLE(290,40,350,60);{графическое отображение верхнего прямо-
угольника}
RECTANGLE(260,60,380,80); );{графическое
отображение нижнего пря-
моугольника}
SETLINESTYLE(2,0,1);{задание типа осевых линий}
LINE(320,35,320,85);{графическое отображение осевой линии}
{графическое отображение вида сверху крышки}
SETLINESTYLE(0,0,3);{задание типа основных линий}
RECTANGLE(260,100,380,260); );{графическое отображение прямоуголь-
ника}
CIRCLE(320,180,30);{графическое отображение окружности, расположен-
ной по центру}

Страницы