turbo pascal

[parabol]

Szukam informacji na temat Turbo pascala. Interesuja mnie czy mozna drukowac grafike w TP i jak ta grafike zrobic. mam klopot z biblioteka- funkcja nie wchodzi, bo nie ma jej w bibliotece. Czy mozna sciagnac gdzies w sieci TP? slyszalem ze miesci sie na 7 dyskietkach


Absolutny amator.

[Undre]

no grafika to w Pascalu jest, ino taka .... no .... badziewna, o !

po pierwsze co załączamy :

program Grafique;
uses crt, graph;

po drugie co trza zrobić, żeby to poszło :

var
GraphDriver, GraphMode: integer;

oraz

Begin

detectgraph (GraphDriver, GraphMode);
InitGraph(GraphDriver, GraphMode, 'C:\BP\Bgi');

Oczywiście w tym ostatnim podajesz ścieżkę do katalogu Pascala na swoim dysku


a dalej to można już szaleć ... fragment jakiegoś pliku z czasów licealnych :

setcolor(3); {House}
line(70,200,70,480);
line(410,200,410,480);
line(40,200,440,200);
line(100,110,380,110);
line(40,200,100,110);
line(380,110,440,200);

SetFillStyle(1,8); {Door}
bar(200,300,300,480);
line(180,70,180,110);
line(220,70,220,110);
line(180,70,220,70);

setColor(6);
for a:=1 to 10 do {Fence}
begin
line(230+a*40,360,230+a*40,480);
line(230+a*40,360,250+a*40,340);
line(250+a*40,340,270+a*40,360);
end;
setColor(14); {Sun}
for b:=1 to 20 do
circle(620,20,b*3);

readln;
closegraph;
end.

a w sieci to na pewno jest free pascal (), zaś oldsqlowego Turbo Pascala to używaliśmy w LO, a czy jest gdzieś za free legalnie, to nie wiem

edit

już wiem :

[parabol]

dzieki wielkie