помогите с графикой!!!! (Paskal)

[aiktz]

задание такое: нарисовать как капля воды капает с крана.

Цикл с каплей я уже написала, но проблема с краном....нарисовала 2 прямоугольника, но не могу их плавно соединить и убрать лишнии линии, не получается нарисовать винтиль у крана...пробывала с помощью bar3d не выходит........плиз, выручайте!!!!

  uses Graph;
var
 gd,gm: Integer;
BEGIN
 gD:= Detect;
 InitGraph(gD, gM, 'C:\TP7\BGI');
rectangle(200,130,310,160);
rectangle(310,160,345,210);


rectangle(230,130,270,110);
bar3d(230,110,270,90,10,10);

Readln;
   CloseGraph;
 end.

[Sazary]

Плавно соединить можно с помощью сектора.

 uses Graph;
var
 gd,gm: integer;
BEGIN
 gD:= Detect;
 InitGraph(gD, gM, '');
rectangle(200,130,310,160);
rectangle(310,160,340,210);

sector(310,160,0,90,30,30);

rectangle(230,130,270,110);
//bar3d(230,110,270,90,10,true);

Readln;
CloseGraph;
end.

Почему бы не покрасить кран? Например, так:

 uses Graph;
var
 gd,gm: integer;
BEGIN
 gD:= Detect;
 InitGraph(gD, gM, '');

Setcolor(6);
rectangle(200,130,310,160);
rectangle(310,160,340,210);

sector(310,160,0,90,30,30);


Setfillstyle(1,6);
Floodfill(201,131,6);
Floodfill(311,161,6);
Floodfill(311,159,6);

rectangle(230,130,270,110);
//bar3d(230,110,270,90,10,true);

Readln;
CloseGraph;
end.

[aiktz]

спасибо огромммммммммммммммноое за кран!!!!! красота!!!.....
теперь проблема с delay....пишет что не знает переменную....

посмотрите пожалуйста

   uses Graph;
var
 gd,gm,x,y: integer;
BEGIN
y:=210;
x:=345;
Repeat
if y>400 then y:=200 else  y:=y+1;
setcolor(blue);
circle(x,y,5);
setfillstyle(1,blue);
floodfill(x,y,blue);
delay(1000);
setcolor(black);
circle(x,y,5);
setfillstyle(1,black);
floodfill(x,y,black);

 gD:= Detect;
 InitGraph(gD, gM, 'C:\tp7\bgi');

Setcolor(6);
rectangle(200,130,310,160);
rectangle(310,160,340,210);

sector(310,160,0,90,30,30);


Setfillstyle(1,6);
Floodfill(201,131,6);
Floodfill(311,161,6);
Floodfill(311,159,6);

rectangle(230,130,270,110);
bar3d(230,110,270,90,10,true);

Readln;
CloseGraph;
end.

[Sazary]

теперь проблема с delay....пишет что не знает переменную....

Подключите CRT.

И где у вас repeat закрывается?

[aiktz]

а..поняла...спасибо вам!

[Serge_Bliznykov]

Кстати, решение выше перепутано и не доделано..
Вроде так надо?:

begin
  y := 210;
  x := 345;

  gD := Detect;
  InitGraph(gD, gM, ''C:\tp7\bgi');

  Setcolor(6);
  rectangle(200, 130, 310, 160);
  rectangle(310, 160, 340, 210);

  sector(310, 160, 0, 90, 30, 30);


  Setfillstyle(1, 6);
  Floodfill(201, 131, 6);
  Floodfill(311, 161, 6);
  Floodfill(311, 159, 6);

  rectangle(230, 130, 270, 110);
  bar3d(230, 110, 270, 90, 10, true);

  y := 220;
  x := 330;
  repeat
    y := y + 1;
    if y > 400 then y := 220;
    setcolor(blue);
    circle(x, y, 5);
    setfillstyle(1, blue);
    floodfill(x, y, blue);
    delay(4000);
    setcolor(black);
    circle(x, y, 5);
    setfillstyle(1, black);
    floodfill(x, y, black);
  until KeyPressed;

  Readln;
  CloseGraph;
end.

p.s. Delay на современных компьютерах работает абсолютно не адекватно.. поэтому константу подберёте конкретно под свой компьютер... (или поищите, на форуме были альтернативные решения)

[aiktz]

всем огромное спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!