Паскаль. Работа с графикой

[McFrey]

Доброго времени суток уважаемые!
Возникла проблема использования модуля "graph" в borland pascal...
Подключаю модуль и пишу простейшую программу, например, нарисовать окружность запускаю на выполнение...черный экран и просто выкидывает из паскаля. Кто сталкивался с такой проблемой как решили ее?...пробовал на windows xp, на windows 7 та же проблема...

[Hacker19_90]

С таким сталкивался! Как решил не помню! вспомню отпишу!
Мой совет, используйте FPC с ним проблем нет! По крайней мере у меня не было!
+ В том что BPC вообще в семёрке в полно экранке не будет работать! А вот FPC запросто!

[McFrey]

Hacker19_90, спасибо, ну действительно вспомнишь напиши...а в fpc такие же процедуры при работе с графикой как и в bp?...или там стоит теорию почитать?

[Hacker19_90]

а в fpc такие же процедуры при работе с графикой как и в bp?

та такие же!

[Stilet]

Кто сталкивался с такой проблемой как решили ее?

Код в студию. И кстати - компилятор паскале должен иметь выход на консоль (в ТР это было по кнопке ALT+F5 кажись), которая покажет текст ошибки.
Думаю что ему не нравится как ты графику инициализировал - это чаще всего происходит.

[Hacker19_90]

И кстати - компилятор паскале должен иметь выход на консоль (в ТР это было по кнопке ALT+F5 кажись),

Так то да!
Но у меня была такая проблема как быстрый показ изображения и выход!
Причём ожидание ввода не помогало!

[Stilet]

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

А этот прикол я тоже наблюдал. Еще давно на первых Windows XP...

[Serge_Bliznykov]

может стоит воспользоваться программой DosBox ?
вроде бы она нормально эмулирует MS DOS среду под любую Windows ( и под XP и под Vista и под Windows 7 )

[McFrey]

в FPC инициализирует графический модуль....но программа "стоит" нету анимации....в чем проблема?.....программа наверно уже знакомая "песочные часы"

uses Graph, CRT;
const
PauseTime = 1000; {длительность паузы при прорисовке изображения}
Count = 50; {количество песка в часах, 60 < Count < 125}
var
grDriver: Integer; 
grMode: Integer; 
ErrCode: Integer; 
i, j, k : integer; 
Key : word; 
BEGIN
grDriver := Detect;
InitGraph(grDriver, grMode, 'c:\bp\bgi'); 
ErrCode := GraphResult;
if ErrCode <> grOk then Halt(1); 
Line(50, 50, 150, 200);
Line(150, 50, 50, 200);
Line(50, 50, 150, 50);
Line(50, 200, 150, 200);
SetFillStyle(SolidFill, DarkGray); 
Bar(45, 45, 155, 49);
Bar(45, 201, 155, 206); 
repeat
{цикл рисования часов, каждый новый круг часы переворачиваются}
for j := Count to 125 do 
begin 
for i := Round((2*j+50)/3)+1 to Round((2*j-550)/(-3))-1 do
PutPixel(i, j, Yellow); {рисуем начальное состояние песка}
end;
for k := 199 downto 199-Count do
for i := Round((2*k-550)/(-3))+1 to Round((2*k+50)/3)-1 do
PutPixel(i, k, Black); 
k := ord(ReadKey); 
if k = 0 then k := ord(ReadKey); 
if k = 27 then Break; 
j := 199; 
k := Count; 
Randomize; 
while (j > 199-(125-Count)) and (k < 125) do
begin
{рисуем струю песка}
for i := j downto 125 do
if Random(10) < 6 then 
PutPixel(100, i, Black) else PutPixel(100, i, Yellow);
for i := Round((2*j-550)/(-3))+1 to Round((2*j+50)/3)-1 do
PutPixel(i, j, Yellow);
for i := Round((2*k+50)/3)+1 to Round((2*k-550)/(-3))-1 do
PutPixel(i, k, Black);
for i := Round((2*(k+1)+50)/3)+1 to Round((2*(k+1)-550)/(-3))-1 do
PutPixel(i, k+1, Black);
Delay(PauseTime); {пауза и изменение переменных цикла}
dec(j);
inc(k, 2);
end;
for i := j downto 125 do 
PutPixel(100, i, Black);
k := ord(ReadKey); 
if k = 0 then k := ord(ReadKey); 
until k = 27;
CloseGraph; 
END.

[Serge_Bliznykov]

во-первых, код жутко навороченный (я, например, навскидку в алгоритме (циклах) не разобрался...

во-вторых, программа РАБОЧАЯ. она стоит, ждёт нажатия любой клавиши. нажмите, например, пробел, увидите результат.

в-третьих, УМЕНЬШИТЕ время задержки.
ну, хотя бы в десять раз!

PauseTime = 100; {длительность паузы при прорисовке изображения}