То ли я уже забыл всё что помнил, то ли была какая-то особенность.
В общем, в Бейсике на УКНЦ не получается рисовать графику.
Допустим оператор
PSET (100,100)
даёт ошибку.
CIRCLE (100,100),100
тоже.
Что я не так делаю?
То ли я уже забыл всё что помнил, то ли была какая-то особенность.
В общем, в Бейсике на УКНЦ не получается рисовать графику.
Допустим оператор
PSET (100,100)
даёт ошибку.
CIRCLE (100,100),100
тоже.
Что я не так делаю?
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
на БК было (Бейсик ВИЛЬНЮС)
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
УКНЦ, ДВК-3, Ленинград-1 (48 кб)
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 ? " ПОСМОТРЕЛИ И ХВАТИТ "
Последний раз редактировалось hobot; 03.11.2012 в 21:45.
Вот этот дисковый бейсик - самый что называется классический )))
Поставлялся вместе с УК-НЦ бытовой (не школьной!). Ну и в школах
он же был конечно )))
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(), было хорошо видно разделение точек по диагональным плоскостям.
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)