ДОбрый день уважаемые дельфины. Просто надо позарез.
Может поможет хто????
Как в трубопаскале (использую модуль Graph) нарисовать два вложенных прямоугольника. Один должен уменьшаться в размерах ,а другой одновременно увеличиваться. Ну я имею ввиду перерисовку (через ClearViewPort и Delay).
просто замучился , помогите, мож хто помнит трубопаскаль под Досик.

Ну мож кто помнит
Ладно палех на сайты трубные

2 Adony
Да я это и делаю , в цикле мну коорлинаты , но не получается вложить один в другой (затирка экрана действует хрен знает как!)

залез на сайт по паскалю, читаю

|>

спасибо всем попробую,завтра скажу чо вышло....

Большое спасибо всем.
Вот вчера замочил

uses crt,graph;
var d,m:integer;
x1,x2,y1,y2:longint;
z1,z2,h1,h2:longint;
procedure _Rectangle;
var k:integer;
begin
k:=0;
x1:=280;y1:=240;x2:=300;y2:=250; {увеличивается}
z1:=0;h1:=0;z2:=600;h2:=480; {уменьшается}
repeat
k:=k+1;
x1:=x1-2;y1:=y1-2;
x2:=x2+2;y2:=y2+2;
z1:=z1+2;h1:=h1+2;
z2:=z2-2;h2:=h2-2;
setcolor(white);
OutTextXY(x1+5,y1+5,'1'); OutTextXY(z1+5,h1+5,'2');
setcolor(red);
rectangle(x1,y1,x2,y2);
setcolor(blue); {рисование прямоугольников} rectangle(z1,h1,z2,h2);
delay(20000); {задержка }

cleardevice; {очистить граф экран}
until k>110; {выходим из цикла при истинности лог_условия}
end;{конец процедуры рисования прямоугольников} {___________________________________________________________________________} begin {начало основной программы}
{инициализация граф_режима и обращение к граф_библиотеке}
d:=9;m:=2;
detectgraph(d,m);
InitGraph(d,m,'e:\bp70\bgi');
setbkcolor(black); {установка фона экрана}
setcolor(yellow);
_Rectangle;{вызов процедуры рисования прямоугольников}
closegraph;
writeln('нажмите любую клавишу ...');
readkey
end.