Модули, graphs и graphs3d Опции

[Desktop II]

Подскажите где найти...
модуль graphs не нашел...
модуль graphs3d нашел но он не работает пишет файл bgi_chr1.tpu не найден...

Где можно найти и почитать про установку этих модулей ?

Сообщение отредактировано: Desktop II - 13.04.2006 18:21

[Desktop II]

Есть содержимое модуля graphs

{$N+}
unit graphs;
interface
procedure opengraph;
procedure closegraph;
function gx(x: Extended; sx: Integer): Integer;
function gy(y: Extended; sy: Integer): Integer;
implementation
uses Graph;
var
x, y: Extended;
sx, sy: Integer;
procedure opengraph;
var graphdevice, graphmode: Integer;
begin
graphdevice := Detect;
InitGraph(graphdevice, graphmode,' ');
if GraphResult <> 0 then
begin
WriteLn('ERROR');
ReadLn;
Halt;
End;
end;
procedure closegraph;
begin
CloseGraph;
if GraphResult <> 0 then
begin
WriteLn('ERROR END OF GRAPH MODE');
ReadLn;
Halt;
end;
end;
function gx(x: Extended; sx: Integer): Integer;
begin
gx := trunc(sx*x) + GetMaxX div 2;
end;
function gy(y: Extended; sy:Integer):Integer;
begin
gy := GetMaxY div 2 - trunc(sy * y);
end;

Как из этого модуль сделать?

Комплятор ? Turbo Pascal ?

Сообщение отредактировано: volvo - 5.11.2006 23:04