[BF] графическое расширение GR/

forth@km.ru

пока только в версии OS=DOS16

имитируется простая монохромная графика на черно-белом ЖКИ (VGA 320x200 MONO)

Код:

#include <dos.h>
#include <conio.h>

REGS i,o;

uchar far *SCR=(uchar far *)MK_FP(0xA000,0x0000);

#define GR_Xsz  320
#define GR_Ysz  200
#define GR_BACK 0x07
#define GR_FORE 0x00

Код:

void gr_cls()   { for (uint i=0;i<(uint)(GR_Xsz*GR_Ysz);i++) SCR[i]=GR_BACK; }
void gr_on()    { i.x.ax=0x13; int86(0x10,&i,&o); gr_cls(); }
void gr_off()   { i.x.ax=0x03; int86(0x10,&i,&o); }
void gr_Xsz()   { assert(Dp<Dsz); D[Dp++]=GR_Xsz; }
void gr_Ysz()   { assert(Dp<Dsz); D[Dp++]=GR_Ysz; }
void gr_set()   { assert(Dp>=2); uint y=D[--Dp],x=D[--Dp];
                  assert(x<GR_Xsz); assert(y<GR_Ysz); SCR[y*GR_Xsz+x]=GR_FORE; }
void gr_clr()   { assert(Dp>=2); uint y=D[--Dp],x=D[--Dp];
                  assert(x<GR_Xsz); assert(y<GR_Ysz); SCR[y*GR_Xsz+x]=GR_BACK; }
void gr_qkey()  { assert(Dp<Dsz); D[Dp++]=kbhit(); }
void gr_key()   { assert(Dp<Dsz); D[Dp++]=getch();
                  if (D[Dp-1]==0) D[Dp-1]=getch()<<8; }

Код:

void EXT_GR()
{
 op=M[Ip++];
 switch (op) {
        case 0x00: gr_on(); break;      case 0x01: gr_off(); break;
        case 0x02: gr_cls(); break;
        case 0x03: gr_Xsz(); break;     case 0x04: gr_Ysz(); break;
        case 0x05: gr_set(); break;     case 0x06: gr_clr(); break;
        case 0x70: gr_qkey(); break;    case 0x71: gr_key(); break;
        default: gr_off();
                 fprintf(stderr,"\nGR %.4X: D2 %.2X\n",Ip-2,op); abort();
 }
}

Код:

: gr/   CREATE C, DOES> 0xD2 b, C@ b, ;

0x00 gr/ gr/on
0x01 gr/ gr/off
0x02 gr/ gr/cls

0x03 gr/ gr/Xsz      ( -- n )
0x04 gr/ gr/Ysz      ( -- n )

0x05 gr/ gr/set      ( x y -- )
0x06 gr/ gr/clr      ( x y -- )
0x07 gr/ gr/get      ( x y -- flag )

0x70 gr/ gr/?key   ( -- flag )
0x71 gr/ gr/key      ( -- scancode )

forth@km.ru

Код:

\ демо: мигание экраном, необходимо расширение gr/

{ BLINK
   gr/on               \ включение графики
   begin
      gr/Ysz 0 # do         \ \ закраска
         gr/Xsz 0 # do
            i j gr/set
         loop
      loop            \ /
      gr/Ysz 0 # do         \ \ очистка
         gr/Xsz 0 # do
            i j gr/clr
         loop
      loop            \ /
   again
}

save" BLINK"

forth@km.ru

Код:

\ демо: случайная закраска экрана (белый видео-шум), необходимо расширение gr/

{ BLINK
   gr/on               \ включение графики
   begin
      gr/Ysz 0 # do         \ \ закраска
         gr/Xsz 0 # do
            1 # rnd if
               i j gr/set
            else
               i j gr/clr
            endif
         loop
      loop            \ /
   again
}

save" PSHSH"

вопрос

Да, такими темпами скоро будет оконная система ...

in4

вопрос писал(а):

Да, такими темпами скоро будет оконная система ...

А надо-то рисование вертикальных и горизонтальных линий да вывод текста

Прямоугольники - пишем циклами линий.
Приведенного достаточно для изображения простой оконной системы.
+ рисование изображений - и система изображеня становится продвинутой

вопрос

Цитата:

Приведенного достаточно для изображения простой оконной системы.

прокрутка, масштабирование, позицуионирование, взаимодействие с др. окнами?

in4

вопрос писал(а):

прокрутка,

тоже можно добавить

, а заодно добавить "взять участок экрана" (если в одном из понимаемых видов картинок, то показывать можно функцией "показать картинку"=="рисование изображений")

вопрос писал(а):

масштабирование,

для простых систем не нужно, для сложных - должно делаться либо системой построения изображения, либо функция для программного/аппаратного масштабирования.

вопрос писал(а):

позицуионирование,

выполняется автоматически - как задано в программе рисования.
Или имеется ввиду мышка - получение координат? - Отдельные ф-ции обслуживания устройства указания.

вопрос писал(а):

взаимодействие с др. окнами

имеется ввиду изображение активности окна и прозрачность?
активность - перерисовкой, а прозрачность - аналогично масштабированию

вопрос

Ну, так уже всё готово!

Kopa

Депутат Виктор Алкснис заявил о намерении готовить проект обращения к президенту Владимиру Путину «О необходимости создания и внедрения современной отечественной операционной системы». 14 мая, 2007

http://www.securitylab.ru/news/295887.p ... #nav_start

P.S. Вот где точно флуда много в отзывах к страничке:)

Hishnik

Там и Форт-машину упоминают, в качестве национального проекта

Ну все, жди вороха "стандартов"... :))

Hishnik

Главное в этих вещах, опять-таки, отсутствие пакета "цели-задачи-возможности-результаты". Всем упала кнопка "Пуск", на которой в исходном варианте написано "Run" - не по-нашенски! Надо срочно заменить на "Пуск" с последующим уже переводом на все языки мира, чтобы гордились. При этом все российские программисты засаживаются за написание прикладного софта под новую ОС, потому что иначе она будет нужна разве что двум-трем случайно забежавшим военным НИИ. Кстати, упомянутые НИИ и сами, бывает, неплохо решают проблему ОС. Если же писать супермонстра, совместимого с Windows и Linux сразу, то для конечного пользователя разницы никакой, деньги потрачены, а Microsoft за это время напишет "Vista-II Plus", и опять надо догонять. В существующем же варианте весь мир работает на весь мир (и Россию в том числе). Потому что за смешные деньги я получаю на свой комп мощную ОС с поддержкой кучи приложений, и могу быстро написать продукт для продажи, который имеет хорошие шансы быть востребованным, поскольку написан для ОС, имеющей распространенность в глобальных масштабах.

вопрос

Хищник писал(а):

Там и Форт-машину упоминают, в качестве национального проекта

Ну все, жди вороха "стандартов"... :))

Ну нет, Форт ось должна быть интернациональной, хотя бы потому, что я не в России живу. Да и национальные проекты в известных странах - ...

yz

Хищник писал(а):

могу быстро написать продукт для продажи, который имеет хорошие шансы быть востребованным, поскольку написан для ОС, имеющей распространенность в глобальных масштабах.

Вообще-то Алкснис ставит целью новой системы не возможность для г-на Хищника быстро заработать денег, а информационную безопасность, использование в обороне и технологический прорыв.
То есть своя система нужна:
1) для гарантии, что в ней нет закладок от "Майкрософта" типа тех, что оказались на французских ракетах, купленных Хуссейном
2) для гарантии, что в ней нет люков, через которые информация уходит куда-нибудь в ЦРУ
3) для создания собственных квалифицированных кадров, которые могут решать сложные задачи.
Это несколько другие приоритеты.
Задача вполне решаема, особенно если не изобретать велосипеды, а ограничиться доработкой Линукса, как сделали китайцы.

forther

Цитата:

Задача вполне решаема, особенно если не изобретать велосипеды, а ограничиться доработкой Линукса, как сделали китайцы

А че в нем такого недоработанного?

Hishnik

yz писал(а):

Вообще-то Алкснис ставит целью новой системы не возможность для г-на Хищника быстро заработать денег, а информационную безопасность, использование в обороне и технологический прорыв.

Что в России прекрасно решено. Только вот к ОС для домохозяек и секретарш это не имеет отношения. А Алкснис хочет именно заработать денег, а точнее, вытянуть их из бюджета.

yz писал(а):

То есть своя система нужна:
1) для гарантии, что в ней нет закладок от "Майкрософта" типа тех, что оказались на французских ракетах, купленных Хуссейном

Ну, если французы поставили в ракеты софт от Microsoft-а.... деградирует Запад...

yz писал(а):

2) для гарантии, что в ней нет люков, через которые информация уходит куда-нибудь в ЦРУ

Через какие такие физические каналы передачи? Антенну прибор сам вырастит? Или высунет манипулятор и найдет в чистом поле оптоволоконный кабель?

yz писал(а):

3) для создания собственных квалифицированных кадров, которые могут решать сложные задачи.

И при чем тут написание кучи тупых драйверов под китайско-тайваньское железо? Чем еще забиты ОС для массового потребления?

И вообще, чем больше общаюсь с российскими разработчиками, которые занимаются реальными системами спецназначения, тем больше встречаю спектр мнений от недоумения до неприятия и раздражения. Microsoft ведет свою политику создания потребностей: ОС - это Windows, процессор - это x86. И все это, оказывается, хайтек!!! Более того, изначально офисная система (IBM = International Business Machines), оказывается, теперь не игровая приставка - печатная машинка - суррогатный медиацентр - хранилище фотографий, а Система Оборонного Назначения. Куда там российским процессорам с 5-й приемкой, которые, несмотря на вопли подростков-геймеров, все-таки существуют и ставятся в реальные устройства. Специально просил зеленоградцев сформулировать мнение - а если бы вот в Зеленограде поставили современный фаб? Реакция примерно одинаковая: "а на кой он нам сдался - экологию гробить, что ли?". Что характерно, ни о рабочих местах, ни о каком-то хайтеке речь у работающих в российской электронной промышленности просто не идет. Не потому, что им наплевать, а как раз потому, что они прекрасно представляют, что мир Wintel - мир искусственно раздутый по значимости, чтобы обеспечить Интелу и Майкрософту объем продаж. Рынок процессоров для настольных систем - 4% от рынка процессоров вообще. Прописью - четыре. Значимость Windows для государственных технологий - не нулевая, а отрицательная. Она отвлекает действительно квалифицированных специалистов от работы по превращению этого полуфабриката (стоимостью от 65 у.е.) в комплекс ПО стоимостью до нескольких тысяч долларов (бухгалтерский пакет, САПР, АСУП - все то, что в ассортименте есть российского производства). В итоге никто не видит в упор простой картины - Microsoft поставляет на рынок полуфабрикат по смешной цене и берет массовостью продаж. Российские квалифицированные программисты могут, не заморачиваясь поддержкой мышки и флеш-дисков, разработать программный продукт для финансиста, технолога или конструктора, стоимостью в сотни раз больше. И кто в этой связке сырьевой придаток? Кто поставляет полуфабрикат, а кто - конечный продукт? Но нет, так неинтересно, потому что на конкретные продукты, требующие повседневной и кропотливой работы, надо обращать внимание, и финансировать их обычным порядком. Куда проще кинуть клич "даешь", и на волне популизма со стороны массы полупрофессиональных юзеров хапнуть деньги из бюджета под дутый проект. Заодно не забыть выделить отдельной строкой расходов "издевательства над Гейтсом". Сделать, разумеется, некому, потому что ядра-то давно есть, и гораздо лучше приспособленные под конкретные важные применения, а вот на доведение до коммерчески красивого варианта надо очень много организационно-маркетинговой работы. Windows 3.11 с ходу еще можно сделать, Windows XP/Vista - вряд ли. В итоге, путаясь в куче огрехов, сделанных в коде индусами от MS (а мы же делаем "совместимое с Windows!"), квалифицированные российские программисты с кучей усилий таки доведут эту разработку до конца. В процессе чего MS уйдет еще дальше, и сделает нам ручкой. А освободившийся рынок САПР, финансовых, биллинговых и моделирующих систем займут в это время поделия тех же индусов... к их вящей радости...

[BF] графическое расширение GR/

Кто сейчас на конференции