Где взять устаревший модуль Graph?

[SIRUS-VIRUS]

   Доброго времени суток, ребята! У меня такой вопрос: сижу на мобильном интернете и не могу зайти на ftp://ftp.freepascal.org, чтобы скачать Паскаль со всеми модулями для Linux. В частности мне нужны модули Graph, WinCrt. Когда-то я юзал Windows и у меня был Паскаль с этими модулями и скачивал его именно на ftp, т.к. на сайте Паскаль идет без них. Может кто-то загрузит эти модули, или весь Паскаль на какой-нить обменник типа dropmefiles.com?
   Заранее огромное спасибо!

[AlexTP]

https://gitlab.com/freepascal.org/fpc
https://github.com/fpc/FPCSource

На сайтах этих есть поиск по имени файла.

[SIRUS-VIRUS]

скачал на ftp.usf.edu модули. Программирую под Linux. Подскажите плиз, в каких пакетах есть устаревший модуль Graph и модуль WinCrt? Список скачанного прилагаю.
Мне нужно запустить похожую программу(пишу тетрис):
 

Code: Pascal  [Select][+][-]

1.  PROCEDURE C(X,Y:SMALLINT;T:BOOLEAN);
2.    BEGIN
3.      IF T=TRUE THEN
4.        BEGIN
5.          SETFILLSTYLE(SOLIDFILL,LIGHTGREEN);
6.          BAR(SZ*(X-1)+2,SZ*(Y-1)+2,SZ*X,SZ*Y);
7.          SETFILLSTYLE(SOLIDFILL,RED);
8.          BAR(SZ*(X-1)+2+TRUNC(SZ/4),SZ*(Y-1)+2+TRUNC(SZ/4),SZ*X-TRUNC(SZ/4),SZ*Y-TRUNC(SZ/4))
9.        END ELSE
10.        BEGIN
11.            SETFILLSTYLE(SOLIDFILL,BLACK);
12.            IF NOT (Y<1) THEN  BAR(SZ*(X-1)+2,SZ*(Y-1)+2,SZ*X,SZ*Y)
13.        END
14.    END;

[tetrastes]

Не знаю, что вы будете делать с этими пакетами, вместо того, чтобы просто sudo apt install fpc.
А так-то эти модули находятся, как это ни странно, в пакете graph (fpcsource/packages/graph)  . Правда WinCrt, как и следует из его названия, сугубо для винды.

[SIRUS-VIRUS]

у меня есть папка Graph в моем Паскале, но там только ptcgraph.ppu и ggigraph.ppu есть. Еще есть ptccrt.ppu. Пытался эти модули использовать, но я ими пользоваться не умею Не смог инициализацию графики сделать... Устаревший модуль из Turbo Pascal 7.0 знаю...
Может где есть документация по модулям?

[Thaddy]

The only thing you have to do is change crt into ptccrt or simply add ptc to uses.

[SIRUS-VIRUS]

Code: Pascal  [Select][+][-]

1. USES PTCCRT,PTCGRAPH;
2. VAR
3.  M,D:INTEGER;
4. BEGIN
5.  M:=DETECT;
6.  INITGRAPH(M,D,'/home/johnny/fpc-3.2.2/lib/fpc/3.2.2/units/x86_64-linux/graph/');
7.  LINE(101,100,200,200); {TEST LINE}
8.  READKEY;
9. END.
10.  

I try run program, but "error while linking"

[Thaddy]

This works:

Code: Pascal  [Select][+][-]

1. uses {$ifdef unix}cthreads,{$endif}ptccrt,ptcgraph;
2. VAR
3.  M,D:INTEGER;
4. BEGIN
5.  M:=DETECT;
6.  INITGRAPH(M,D,'/home/johnny/fpc-3.2.2/lib/fpc/3.2.2/units/x86_64-linux/graph/');
7.  LINE(101,100,200,200); {TEST LINE}
8.  READKEY;
9. END.

Seems you need the threading support on Linux! let me know if it works for you too...(tested ubuntu 22 tls 64 and windows 11 64)
 
Tested some other machine: you need a full x-windows install and not wayland.
This code needs a window manager, it does not work without one.
Maybe Nicolay Nikolov can help you out: he wrote the pascal version and is an active main developer.

[SIRUS-VIRUS]

Ok! Thaddy, thank You so match!