Сообщение от
bigral
На вскидку есть bk0010, uk-nc, кгд, кцгд, pro300...
Хотел просто упомянуть такую вещь (пока просто для информации), для УК-НЦ имеется практически аналогичный КЦГДшному "PAST" (см. демо в теме про КЦГД) набор процедур с простейшими графическими построениями и возможностью выводить "графическим" шрифтом в любых направлениях, это система GRAY
Код:
Image : GRAY.DSK
Format : DSK
Size : 75 Kb
Volume ID: Gray 2.03.90
Owner : Fomenko S.A.
File Blocks Date Bytes
---------- ------ ----------- ----------
GRAY .SAV 10 06-Mar-1990 5'120
TSGRAY.SAV 13 07-Mar-1990 6'656
GRAY .MAC 50 06-Mar-1990 25'600
GRAYF .MAC 13 10-Mar-1990 6'656
GRAY .TXT 8 10-Mar-1990 4'096
GRAYP .MAC 14 06-Mar-1990 7'168
GRAYP .OBJ 4 06-Mar-1990 2'048
T .SAV 3 10-Mar-1990 1'536
TSGRAY.BAK 9 07-Mar-1990 4'608
GRAYF .OBJ 4 10-Mar-1990 2'048
T .MAC 5 10-Mar-1990 2'560
TSGRAY.PAS 9 10-May-2014 4'608
---------- ------ ----------- ----------
12 Files, 142 Blocks
0 Free blocks
Код:
(* Краткое описание графического пакета 'Gray'для УК-НЦ *)
(* (c) Фоменко С.А. 10-Марта-1990 года. *)
procedure init; external;
(* инициализация работы с пакетом *)
procedure finit; external;
(* окончание работы с пакетом *)
procedure window(xl,yb,xr,yt:integer); external;
(* Установка окна вывода графики *)
procedure ramka; external;
(* Установление рамки в окне текущим цветом
и типом линии *)
procedure newpicture(i:integer); external;
(* Отчистка текущего окна i-способ отчистки *)
(* 0-инверсией,1-наложением,2-отчисткой по маске
3-установкой цвета *)
procedure drawmode(i:integer); external;
(* Задание способа рисования 0,1,2,3 *)
procedure color(i:integer); external;
(* Задание цвета графики 0..7 *)
procedure linestyle(i:integer); external;
(* Задание типа линии 0..7 *)
procedure userstyle(i:integer); external;
(* Задание пользовательского типа линии *)
procedure line(x,y,x1,y1:integer); external;
(* Прорисовка линии *)
procedure dot(x,y:integer); external;
(* Прорисовка точки *)
procedure grdot(x,y:integer); external;
(* Прорисовка точки графика в соответствии
с текущим типом линии *)
procedure circle(x,y,r:integer); external;
(* Прорисовка окружности *)
procedure arc(x,y,r,xs,ys,xt,yt,cw:integer); external;
(* Прорисовка дуги *)
procedure fill(x,y:integer); external;
(* Заливка произвольной области *)
procedure square(x,y,x1,y1:integer); external;
(* Прорисовка квадрата *)
procedure setcol(c,i:integer); external;
(* Установка соответствия цвета *)
procedure screen(i:integer); external;
(* Установка размеров экрана 1,2,3,4 *)
procedure chcolor(i:integer); external;
(* Установка цвета а/ц. символов *)
procedure chkurs(i:integer); external;
(* Установка цвета а/ц. курсора *)
procedure sccolor(i:integer); external;
(* Установка цвета экрана. символов *)
procedure stcolor(i:integer); external;
(* Установка цвета строки *)
(* При задании цвета меньше 0 происходит
восстановление предыдущего цвета *)
procedure invers(onof:integer); external;
(* Установка/снятие инверсии а/ц. символов
1-Установка 0-снятие *)
procedure podch(onof:integer); external;
(* Установка/снятие подчеркивания а/ц. символов
1-Установка 0-снятие *)
procedure anpos(x,y:integer); external;
(* Позиционирование а/ц курсора *)
procedure vanpos(x,y:integer); external;
(* Позиционирование а/ц курсора близко к графике *)
procedure anclear(x,y:integer); external;
(* отчистк а/ц дисплея до конца экрана *)
procedure setchsize(dx,dy:integer); external;
(* Установка размера графических символов
dx и dy - множители в размере символа *)
procedure setchup(up:integer); external;
(* Установка направления вывода графических
символов 0-нормальный вывод
1-7 повернутые через 45 град. против час.
стрелки.
8-11 вывод обратных символов по 4 направлениям
12 вывод наклонного шрифта
13 вывод обратного наклонного шрифта
14 вывод наклонного шрифта с обратным наклоном
15 вывод ---//--- развернутым... *)
procedure character(x,y:integer;c:char); external;
(* Вывод графического символа по координатам
текущим цветом графики размером и наклоном *)
procedure string(x,y,dx,dy:integer); external;
(* Вывод строки символов начиная с координаты
приращение каждого символа определяется дь,ды
вывод текста осуществляется текущим цветом
графики размером и наклоном и заканчивается
символом код которого меньше пробела (32.)
Рекомендуется следущая комбинация на вывод
---//---
setchsize(dx,dy);
setchup(up);
string(x,y,dx,dy);
write('Text... a=',a,b,c,chr(10));
---//---
chr(10) заканчивает вывод граф.символов..*)
Насколько я понимаю - Сергей Фоменко писал его уже вне ASPcorp.
Пока не публикуется - все новые материалы по ASPcorp. проходят
проверку (ожидается так же одобрение хозяина дискет и авторов на
публикацию\добавлению в архив).
(в общем выложу\прилеплю как только так сразу)