Графика в Бейсике на УКНЦ

[hobot]

Собственно графику поднял ради того чтобы повторить на УКНЦ тест генератора случайных чисел от Брухиса, который он делал для БК.

Ха! Так это не остановленное вовремя "звёздное небо" ) Мы в школе это называли "макароны" ) Я и понятия не имел ни о каком Брухисе, а об особенности RND функции зарисовать весь экран таким "спагетти" по моему знали все ребята ) - могу и ошибаться. Если конечно ей это позволить, если на ранней стадии тормознуть - получается замечательное "звёздное небо".

[Advertiser]

[esl]

только сегодня про это вспоминал
http://ru.wikipedia.org/wiki/Бейсик_Вильнюс

В Бейсик Вильнюс использовался популярный в то время алгоритм генерации случайных чисел RANDU, и пользователями БК был замечен существенный недостаток алгоритма[1] — например, при отрисовке большого количества точек, координаты которых получены функцией RND(), было хорошо видно разделение точек по диагональным плоскостям.

[hobot]

10 SCREEN 2
20 PSET (RND(1)*640,RND(1)*240)
30 GOTO 20

Я и понятия не имел ни о каком Брухисе

Предлагаю переименовать тест в пользу Арсения Гордина ! )

[проф]

А чего тогда не в пользу меня? Я то же (когда получил задание) нарисовать на экране звёздное небо ввёл эту же прогу. НЕЗАВИСИМО ни от кого . Т.е сам придумал в голове.

Кстати бейсики есть СОВМЕЩЁННЫЕ и НЕСОВМЕЩЁННЫЕ . Первый при скрин2 символы выводить не может, а второй - может.

[hobot]

Первый при скрин2 символы выводить не может, а второй - может.

Да! Кассетный бейсик позволяет текст писать в режиме графическом например, есть
и дисковый вариант, попозже прилеплю его в этой теме.

[hobot]

Проверил бейсик дисковый который тут выложил - он и есть совмещённый. То есть вот

10 WIDTH 80%
20 SCREEN 2
30 PAINT (0,0),1
40 COLOR 7,1,1
50 ? AT(20,2)"ПРОВЕРКА НА СОВМЕЩЕННОСТЬ ДАННОЙ ВЕРСИИ"
60 FOR I=1 TO 200
70 LINE (0,0)-(I,I),3,B
80 LINE (640,0)-(640-I,I),3,B
90 NEXT I
100 GOTO 100

[hobot]

Из серии дурацких программ.
Просто если уж включил бейсик на УК-НЦ - уже не смог не накатать что
то такое

10 COLOR 7%,1%,1%
20 WIDTH 80%
30 SCREEN 2%
40 PAINT (0,0),1
50 FOR I%=1 TO 200
60 PSET (RND(1)*640,RND(1)*264),RND(1)*8
70 NEXT I%
80 X%=315
90 Y%=125
100 LINE (X%,Y%)-(X%+10,Y%),7
110 LINE (X%+5,Y%-5)-(X%+5,Y%+5),7
120 K$=INKEY$
130 IF K$="" THEN GOTO 120
140 LINE (X%,Y%)-(X%+10,Y%),1
150 LINE (X%+5,Y%-5)-(X%+5,Y%+5),1
160 IF K$="A" THEN Y%=Y%+10
170 IF K$="B" THEN Y%=Y%-10
180 IF K$="C" THEN X%=X%+10
190 IF K$="D" THEN X%=X%-10
200 IF K$=" " THEN GOSUB 220 
210 GOTO 100
220 LINE (0,0)-(X%+5,Y%),8
230 LINE (0,0)-(X%+5,Y%),3
240 LINE (0,0)-(X%+5,Y%),1
250 LINE (640,  0)-(X%+5,Y%),8
260 LINE (640, 0)-(X%+5,Y%),3
270 LINE (640,  0)-(X%+5,Y%),1
280 FOR I%=1 TO 3%
290 CIRCLE (X%+5,Y%),I%,8
300 NEXT I%
310 FOR I%=1 TO 3%
320 CIRCLE (X%+5,Y%),4-I%,1
330 NEXT I%
340 GOTO 100
350 GOTO 100
360 RETURN

[nzeemin]

Вообще, интересно чем была продиктована потребность делать Бейсик-Вильнюс с фичей "несовмещённых" текстового и графического экранов. На БК и УКНЦ это в принципе не нужно, но по исходникам известно что этот Бейсик предназначался также для компьютеров ДВК и Немига -- возможно для них это было важно?

[hobot]

для компьютеров ДВК

Вот для ДВК точно важно, там ведь такой "отдельно взятый бардак" с графикой.
А вообще могут быть разные причины, вот бейсик который по сетке в школах у нас ученикам загружали, точно был "не совмещённый". Совмещённый я первый раз увидел на бытовой(производственной) УК-НЦшке у знакомого, кстати говоря я ошибочную информацию там написал, сейчас уточнил на дискетах от СЭМЗ, не совмещённая версия и весит 60 блоков, такие дела.
И конечно дата (версия) в стартовой надписи совсем другая:
59 блоков DBAS.SAV совмещённый > 1988.09.28
60 блоков DBAS.SAV не совмещённый > 1987.11.26
Это, что касается дисковой версии и есть ведь ещё несколько вариантов именно "сетевого" бейсика, который на РМП не запускается в принципе.

Что то заставило оптимизировать "БЕЙСИК-ВИЛЬНЮС" УК-НЦшный вариант
спустя примерно год. Наверное решили, что статистика в виде графики и текста одновременно - гораздо информативнее (к примеру).
На БК всё сделано было сразу, что называется "под платформу" )

[SKcorp.]

Все было ИМХО так:
Сначала запилили Бейсик Вильнюс 1986 для БК0010-01.
Потом, чтобы в КУВТ-86 преподы могли просматривать и печатать тексты учеников на ДВК не подходя к БК - отрезали от него графику и сделали SAV для RT-11.
Ну а потом не парясь - перетащили SAV на УК-НЦ и привинтили графику отдельным режимом.
Потом запарились и сделали как на БК.