myrzeliv 'programist' ...
2 отговора
8 прегледа
myrzeliv 'programist' ...
Ами всичко го пише в help-а, има и някои примери - bgidemo или нещо подобно. Няма кой знае какви възможности - инициализираш графичен режим и с функциите от graph.tpu (Line, LineTo, MoveTo и т.н) чертаеш каквото може. Ето ти един пример от help-а:
program Initgrf.PAS;
{Initgrf.PAS}
{Sample code for the Initgrf procedure.}
uses Graph;
var
grDriver: Integer;
grMode: Integer;
ErrCode: Integer;
begin
grDriver := Detect;
InitGraph(grDriver, grMode,' ');
ErrCode := GraphResult;
if ErrCode = grOk then
begin { Do graphics }
Line(0, 0, GetMaxX, GetMaxY);
{ тука чертаеш каквото ти трябва }
Readln;
CloseGraph;
end
else
Writeln('Graphics error:', GraphErrorMsg(ErrCode));
readln;
end.
begin
end.