Обновить
79
0.5
Алексей@BiTL

Пользователь

Отправить сообщение

ну, вы хотели чтобы получилось "нечто с гиперболическими гранями" оно у вас подсознательно и получилось :)

Зато теперь у вас есть DosBox и Turbo Pascal, только cycles в конфиге ДосБокса советую побольше выставить ( Cycles=60000 это примерно Пентиуму 100Мгц соответствует)

белая - по вашему алгоритму, зеленая - circle из модуля graph:

Да алгоритм-то не мой, конечно (из фидоэхи). Но он рабочий. И да, я вижу и без зеленой окружности, что у вас он кривую "окружность" рисует. Мне даже любопытно теперь, как это у вас получилось :) Можно скрин программы? Может скопипастили как-то криво? )

 Не, не получается у вас круг:

Это у вас не получается :) У меня норм.

У вас есть под рукой настроенный эмулятор DOS с Турбо-Паскалем? О_о

Посмотрите мою последнюю статью: https://habr.com/ru/articles/937350/

Вопросы отпадут. Да, я из тех чудиков, у которых не только DOS-эмулятор с ТурбоПаскалем есть, но и 386 и 486-й работающие (и использующийся) компьютеры есть, и да, там тоже ТурбоПаскаль имеется :)

Обижаете. Есть и vga256.bgi, и vesa.bgi, который умел в режимы SVGA.

Ну, в штатном дистрибутиве этого точно не было :)

А так-то, для TP было написано масса всего, с поддержкой "из коробки" мышки, gif, jpeg, и т.д.

они прекрасно будут сосуществовать с библиотечными.

Не всегда. В моем случае Graph просто лишним будет.

Вопервых, я ведь запускал этот код, прежде чем ответить.

Во-вторых, поправку на то что в 320х200 пиксели не квадратные - можно добавить. А можно включить режим, в котором будут квадратные пиксели. Вобщем не суть...

Дело в том, что ваш Graph не поддерживает 256-цветный режим (по крайней мере я не видел таких bgi-драйверов), и придется довольствоваться древними 16-цветными режимами, или вообще монохромным :)

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

Не, конечно юзать готовые либы это норм, если нет цели кодить на низком уровне и что-то изобретать. А хочется просто нарисовать окружность :)

Но есть же более продвинутые либы чем штатный graph :)

кроссвидеокартовый код


13h режим любой видеокартой поддерживается, даже современными. Игры в DOS под VGA практически все были в 13h-режиме.

И вообще, если уж кодить графон в Паскале, то интереснее и полезнее это было делать на низком уровне. Имхо :)

uses crt;
Var Screen: Array[0..199,0..319] of Byte absolute $a000:$0000;

Procedure Circle(x0,y0,r0,c0: Integer);
Var x1,y1,r02_r2 : Integer;
begin
 x1:=0;
 y1:=r0;
 r02_r2:=r0+r0+1; 
 repeat
  Screen[y0+y1,x0+x1]:=c0;
  Screen[y0+y1,x0-x1]:=c0;
  Screen[y0-y1,x0+x1]:=c0;
  Screen[y0-y1,x0-x1]:=c0;
  Screen[y0+x1,x0+y1]:=c0;
  Screen[y0+x1,x0-y1]:=c0;
  Screen[y0-x1,x0+y1]:=c0;
  Screen[y0-x1,x0-y1]:=c0;
  Dec(r02_r2,x1+x1+1);
  Inc(x1);
  if r02_r2<=0 then 
    begin
     Dec(y1);
     Inc(r02_r2,y1+y1+1);
    end;
 until x1>y1;
end;

begin
asm
   mov ax, 13h
   int 10h
end;

circle(160,100, 40, 15);

readkey;
end.


В идеале, конечно тоже на ассемблер переписать :)

Думаю, что очень многие начинали изучать программирование именно с графики


В Турбо Паскале графика начиналась с

asm
mov ax, 13h
int 10h
end;

Цена изделия была закреплена и указывалась на корпусе.

По моим наблюдениям, с 89-го уже не всегда указывалось. В инете искал фотки (не только БК, разных компьютеров и устройств), плашка есть, графа "Цена" есть, цены нет :)

да нет там никакого умолчания. Массивы также как и везде. С "1" начинается индекс символа в типе string, к которому вы как к массиву можете обратится , потому что первый байт (с индексом "0") это длина строки.

матершинник! позор!

автосохранения в TP 7.0 нет, но и ошибку EGAVGA.BGI он не выдает при запуске. Это у товарища что-то там сломанное видимо было.

Ну и использовать графические библиотеки Паскаля, это такое себе... Они ж там с 87-го года не менялись :) Может для школьных и ПТУшных учителей и ок, у них методички тех же лет.

А кто видел такую "делфи"? :)

Под DOS тоже был Visual Basic, да

кстати, юзал его немного :) Законченного правда ничего не написал, вроде, но что-то начинал. Приятная штука.

согласен :) Ошибся веткой )

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

Как сказать... Если она в реальном режиме работала, то 300 кб EXE-шник это обременительно, ведь обычно сколько было DOS-памяти свободной? 570-580kb (при условии что мы все очень тчательно сконфигурировали, юзаем himem.sys, грузим резидентные драйверы в верхнюю память и т.д.
И того, 300Кб ехе, 16кб на стэк, и остается 250 кб, которые мы сможем использовать для массивов и динамически-выделенной памяти. Туды-сюды и уже аут.

на чиптьюн как-то не тянет.

Большинство авторов чиптюнов - самоучки, без муз.образования.

А еще знаете у кого не было муз.образования? У Джими Хендрикса, например. Ангуса Янга, Би Би Кинга, Чарли Паркера.

На сколько я помню, нужно было установить BDE, еще и настроить через утилиту конфигурации. Да, наверняка это все можно заскриптовать в интсталяторе (или т.п.), но просто положить либы в папку, так не работало. По крайней мере в те годы, когда я использовал Delphi, а это был 96-97 :)

Информация

В рейтинге
2 273-й
Откуда
Актобе (Актюбинск), Актюбинская обл., Казахстан
Дата рождения
Зарегистрирован
Активность