То ли я уже забыл всё что помнил, то ли была какая-то особенность.
В общем, в Бейсике на УКНЦ не получается рисовать графику.
Допустим оператор
PSET (100,100)
даёт ошибку.
CIRCLE (100,100),100
тоже.
Что я не так делаю?
Вид для печати
То ли я уже забыл всё что помнил, то ли была какая-то особенность.
В общем, в Бейсике на УКНЦ не получается рисовать графику.
Допустим оператор
PSET (100,100)
даёт ошибку.
CIRCLE (100,100),100
тоже.
Что я не так делаю?
на БК было (Бейсик ВИЛЬНЮС)
http://boulder-dash.narod.ru/bk_emul...ogramming.html
CIRCLE (X,Y),R,C,F1,F2
или
CIRCLE (X,Y),R,C
PSET (X,Y),C
PSET [@ / STEP](<АРГ1>, <АРГ2>)[,<АРГ3>]
АРГ1 - X - 0..639
АРГ2 - Y - 0..263
АРГ3 - цвет - 0..8
STEP (@) - координаты отсчитываются относительно последней точки
пример:
Код:10 FOR Y=1 TO 120
20 PSET (SQR(Y),Y)
30 NEXT
CIRCLE [@ / STEP](<АРГ1>, <АРГ2>)[,<АРГ3>][,<АРГ4>][,<АРГ5>][,<АРГ6>][,<АРГ7>]
АРГ1 - X центра окружности
АРГ2 - У центра окружности
АРГ3 - радиус
АРГ4 - цвет
АРГ5 - положение начальной точки дуги в радианах
АРГ6 - положение конечной точки дуги в радианах
АРГ7 - коэффециент сжатия элипса
STEP (@) - рисовать относительно последней точки
пример:
Код:10 COLOR 3
20 CIRCLE (100,100),75,,-1,-.001,1.2
30 CIRCLE (10, -5), 75,,-.001,-1,1.2
2 nzeemin : На харде который вы с Арсением перегнали в образ полно графических исходников для примера и куча разных бейсиков, вот шедевр с того диска (две версии) - красивая вещь получается )))
Побалуйся разными параметрами(коэффициентам� �) для функций !!!Код:10 SCREEN 2 ' ПРОГРАММА 005B.ASC, НИИ НЦ 1988
20 COLOR 1,1,1
30 CLS
40 XC=320
50 YC=130
60 ABC=RND(1)*3+.7
70 PSET (XC,YC),8
80 FOR R=0 TO 160
90 A$=INKEY$
100 IF A$<>"" GOTO 190
110 A=R*ABC ' ЧИСЛО ВИТКОВ СПИРАЛИ
120 X=XC+R*COS(A)*1.6
130 Y=YC+R*SIN(A)
140 LINE -(X,Y),8
150 NEXT R
160 FOR I=1 TO 6000
170 NEXT I
180 GOTO 30
190 SCREEN 1
200 ?
210 ? " ПОСМОТРЕЛИ И ХВАТИТ "
220 COLOR 8,1,1
Код:10 SCREEN 2 ' ПРОГРАММА 005B.ASC, НИИ НЦ 1988
20 COLOR 1,1,1
30 CLS
40 XC=320
50 YC=130
60 ABC=RND(1)*3+.7
70 PSET (XC,YC),8
80 FOR R=0 TO 160
90 A$=INKEY$
100 IF A$<>"" GOTO 190
110 A=R*ABC ' ЧИСЛО ВИТКОВ СПИРАЛИ
120 X=XC+R*COS(A)*1
130 Y=YC+R*SIN(A)*0.5
140 LINE -(X,Y),7
150 NEXT R
160 FOR I=1 TO 6000
170 NEXT I
180 GOTO 30
190 SCREEN 1
200 COLOR 8,1,1
210 ?
220 ? " ПОСМОТРЕЛИ И ХВАТИТ "
Вот этот дисковый бейсик - самый что называется классический )))
Поставлялся вместе с УК-НЦ бытовой (не школьной!). Ну и в школах
он же был конечно )))
http://www.felixl.com/Uknc_Basic_Manual
http://www.felixl.com/Uknc_Basic_PgmMan
http://www.felixl.com/Uknc_Basic_OprMan
Спасибо всем!
В общем вся загвоздка была в SCREEN 2 -- совсем забыл про него.
---------- Post added 04.11.2012 at 00:16 ---------- Previous post was 03.11.2012 at 23:46 ----------
Собственно графику поднял ради того чтобы повторить на УКНЦ тест генератора случайных чисел от Брухиса, который он делал для БК.
Тест приведён тут: http://www.mailcom.com/bk0010/
На БК:
http://www.mailcom.com/bk0010/pseudorandom.gif
На УКНЦ:
http://ukncbtl.googlecode.com/svn/tr...est02_rnd2.bmp
Ха! Так это не остановленное вовремя "звёздное небо" ) Мы в школе это называли "макароны" ) Я и понятия не имел ни о каком Брухисе, а об особенности RND функции зарисовать весь экран таким "спагетти" по моему знали все ребята ) - могу и ошибаться. Если конечно ей это позволить, если на ранней стадии тормознуть - получается замечательное "звёздное небо".
только сегодня про это вспоминал ;)
http://ru.wikipedia.org/wiki/Бейсик_Вильнюс
Цитата:
В Бейсик Вильнюс использовался популярный в то время алгоритм генерации случайных чисел RANDU, и пользователями БК был замечен существенный недостаток алгоритма[1] — например, при отрисовке большого количества точек, координаты которых получены функцией RND(), было хорошо видно разделение точек по диагональным плоскостям.