Recent

Author Topic: Где взять устаревший модуль Graph?  (Read 986 times)

SIRUS-VIRUS

  • New member
  • *
  • Posts: 9
Где взять устаревший модуль Graph?
« on: October 06, 2024, 10:11:49 am »
   Доброго времени суток, ребята! У меня такой вопрос: сижу на мобильном интернете и не могу зайти на ftp://ftp.freepascal.org, чтобы скачать Паскаль со всеми модулями для Linux. В частности мне нужны модули Graph, WinCrt. Когда-то я юзал Windows и у меня был Паскаль с этими модулями и скачивал его именно на ftp, т.к. на сайте Паскаль идет без них. Может кто-то загрузит эти модули, или весь Паскаль на какой-нить обменник типа dropmefiles.com?
   Заранее огромное спасибо!

AlexTP

  • Hero Member
  • *****
  • Posts: 2488
    • UVviewsoft
Re: Где взять устаревший модуль Graph?
« Reply #1 on: October 06, 2024, 11:24:58 am »
https://gitlab.com/freepascal.org/fpc
https://github.com/fpc/FPCSource

На сайтах этих есть поиск по имени файла.
« Last Edit: October 06, 2024, 11:31:54 am by AlexTP »

SIRUS-VIRUS

  • New member
  • *
  • Posts: 9
Re: Где взять устаревший модуль Graph?
« Reply #2 on: November 02, 2024, 11:09:48 am »
скачал на 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

  • Hero Member
  • *****
  • Posts: 600
Re: Где взять устаревший модуль Graph?
« Reply #3 on: November 02, 2024, 12:38:53 pm »
Не знаю, что вы будете делать с этими пакетами, вместо того, чтобы просто sudo apt install fpc.
А так-то эти модули находятся, как это ни странно, в пакете graph (fpcsource/packages/graph)  :-X . Правда WinCrt, как и следует из его названия, сугубо для винды.

SIRUS-VIRUS

  • New member
  • *
  • Posts: 9
Re: Где взять устаревший модуль Graph?
« Reply #4 on: November 02, 2024, 02:43:53 pm »
у меня есть папка Graph в моем Паскале, но там только ptcgraph.ppu и ggigraph.ppu есть. Еще есть ptccrt.ppu. Пытался эти модули использовать, но я ими пользоваться не умею :) Не смог инициализацию графики сделать... Устаревший модуль из Turbo Pascal 7.0 знаю...
Может где есть документация по модулям?

Thaddy

  • Hero Member
  • *****
  • Posts: 16200
  • Censorship about opinions does not belong here.
Re: Где взять устаревший модуль Graph?
« Reply #5 on: November 02, 2024, 02:54:10 pm »
The only thing you have to do is change crt into ptccrt or simply add ptc to uses.
« Last Edit: November 02, 2024, 02:59:58 pm by Thaddy »
If I smell bad code it usually is bad code and that includes my own code.

SIRUS-VIRUS

  • New member
  • *
  • Posts: 9
Re: Где взять устаревший модуль Graph?
« Reply #6 on: November 02, 2024, 03:31:00 pm »
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

  • Hero Member
  • *****
  • Posts: 16200
  • Censorship about opinions does not belong here.
Re: Где взять устаревший модуль Graph?
« Reply #7 on: November 02, 2024, 05:50:54 pm »
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.
« Last Edit: November 02, 2024, 06:06:43 pm by Thaddy »
If I smell bad code it usually is bad code and that includes my own code.

SIRUS-VIRUS

  • New member
  • *
  • Posts: 9
Re: Где взять устаревший модуль Graph?
« Reply #8 on: November 02, 2024, 07:11:11 pm »
Ok! Thaddy, thank You so match! :)
« Last Edit: November 02, 2024, 07:13:20 pm by SIRUS-VIRUS »

 

TinyPortal © 2005-2018