Светофор

[Porsche]

Доброго времени суток всем.Есть у меня прогамма одна на, написанная Паскале.Так вот нужна помощь.Эту программу нужно переделать на "С"....С ним работаю не очень долго,поэтому до графического режима её в нём не дошёл.Суть программы,это смена цветов светофора по нажатию пользователем клавиш.Буду очень благодарен...

Program Graphic;
uses graph, crt;
var driver, mode, Err : integer; c:char;
begin
driver:=detect;
InitGraph (driver, mode,'C:\Bp\Bgi');
Err:= GraphResult;
if Err<>grOK then writeln ('Ошибка при инициализации графического режима');
SetColor (15);
Setlinestyle(0,0,3); {толстая линия}
rectangle (125,125,175,265);
Setlinestyle(0,0,1);{тонкая линия}
setcolor (4); {красный}
circle (150,150,20);
setcolor (14); {желтый}
circle (150,195,20);
setcolor (2);  {зеленый}
circle (150,240,20);
repeat
c:=readkey;
case c of
'r','R':begin {клавиша r включает красный}
         Setfillstyle(1,0); {"выключаем" желтый, сплошная заливка черным}
         FillEllipse(150,195,20,20);
         setcolor (14);  {восстанавливаем окружность}
         circle (150,195,20);
         Setfillstyle(1,0); {выключаем зеленый}
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
         Setcolor(0); {рисуем границу красного}
         Circle(150,150,20);
         Setfillstyle(1,4);
         FillEllipse(150,150,20,20);{рисуем красный}
       end;
'y','Y':begin  {клавиша y включает желтый}
         Setfillstyle(1,0);
         FillEllipse(150,150,20,20);
         setcolor (4);
         circle (150,150,20);
         Setfillstyle(1,0);
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
         Setfillstyle(1,14);
         FillEllipse(150,195,20,20);
         setcolor (14);
         circle (150,195,20);
       end;
'g','G':begin  {клавиша g включает зеленый}
         Setfillstyle(1,0);
         FillEllipse(150,150,20,20);
         setcolor (4);
         circle (150,150,20);
         Setfillstyle(1,0);
         FillEllipse(150,195,20,20);
         setcolor (14);
         circle (150,195,20);
         Setfillstyle(1,2);
         FillEllipse(150,240,20,20);
         setcolor (2);
         circle (150,240,20);
        end;
end;
until c=#27; {клавиша Esc - выход}
CloseGraph;
end.

[Porsche]

есть мысли у кого-нибудь?

[ozo]

Можно использовать библиотеку ncurses =)