Почему советские компьютеры проиграли ZX Spectrum. Невозможное чудо в стране плановой экономики

"Forbes опубликовал список из 10 самых убыточных российских компаний по итогам 2024 года. Его возглавила «Ангстрем» с убытком 236,3 млрд рублей."

А рентабельность все растет и растет, себестоимость все ниже и ниже 😊

Музыка в кейгенах

Big in Japan, Pet Shop Boys, это да, тоже в MOD услышал впервые. Но я даже "One" Металики впервые в MOD услышал ))

И да, с дисков аля "Multimedia", где было куча всякого стафа скачанного с BBS-ок и MOD, STM, S3M наваленные в кучу.

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

ЗЫ: ковырятся на этих дисках тоже было той еще археологией (ну интернета же все равно не было). Иной раз по 50-му разу начинаешь изучать папки и архивы на таком CD, и бах, находишь демку какую-то, которую раньше не замечал (или не понял - что это, не смог запустить). И радости полные штаны.

Как Borland «профукали все полимеры»

Ну это и был Borland Pascal 7, там в одной инсталяхе и DOS и Windows версии шли. А сам язык (его вариация) называется Object Pascal. В Delphi тоже он, а "Delphi" это среда. Но сейчас это уже не важно :)

Как Borland «профукали все полимеры»

На Паскале писали. Но не с помощью графических библиотек поставляемых с Паскалем, аля Graph.

Как Borland «профукали все полимеры»

Да не было проблем с "чуть другой видеокартой" и тем более монитором. У видеокарт были стандарты и обратная совместимость. Если карта поддерживала VGA, значит так, как прописано в стандартах, и обычно также поддерживала CGA/EGA.

К тому же у нас еще есть BIOS, который выступает слоем совместимости.

А уж монитор тут вообще не причем. Чего это вы навыдумывали?

Как Borland «профукали все полимеры»

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

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

Как Borland «профукали все полимеры»

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

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

Как Borland «профукали все полимеры»

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

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

Как Borland «профукали все полимеры»

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

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

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

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

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

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

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

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

Как Borland «профукали все полимеры»

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

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

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

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

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

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

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

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

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

Как Borland «профукали все полимеры»

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.

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

Как Borland «профукали все полимеры»

фу :)

Как Borland «профукали все полимеры»

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

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

asm
mov ax, 13h
int 10h
end;

Почему советские компьютеры проиграли ZX Spectrum. Невозможное чудо в стране плановой экономики

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

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

Как Borland «профукали все полимеры»

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

Как Borland «профукали все полимеры»

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

Как Borland «профукали все полимеры»

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

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

Как Borland «профукали все полимеры»

Ebony?

Как Borland «профукали все полимеры»

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

Как Borland «профукали все полимеры»

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

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