Важная информация
Страница 1 из 5 12345 ПоследняяПоследняя
Показано с 1 по 10 из 41

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

  1. #1
    Master Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Рязань
    Сообщений
    942
    Благодарностей: 1042

    По умолчанию Графика в Бейсике на УКНЦ

    То ли я уже забыл всё что помнил, то ли была какая-то особенность.
    В общем, в Бейсике на УКНЦ не получается рисовать графику.
    Допустим оператор
    PSET (100,100)
    даёт ошибку.
    CIRCLE (100,100),100
    тоже.
    Что я не так делаю?

  2. Этот пользователь поблагодарил nzeemin за это полезное сообщение:
    hobot (03.11.2012)

  3. #1
    С любовью к вам, Yandex.Direct
    Размещение рекламы на форуме способствует его дальнейшему развитию

  4. #2
    Veteran
    Регистрация
    16.09.2009
    Адрес
    г. Харьков
    Сообщений
    1,466
    Благодарностей: 571

    По умолчанию

    на БК было (Бейсик ВИЛЬНЮС)
    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

  5. #3

    По умолчанию

    Цитата Сообщение от nzeemin Посмотреть сообщение
    То ли я уже забыл всё что помнил, то ли была какая-то особенность.
    В общем, в Бейсике на УКНЦ не получается рисовать графику.
    Что я не так делаю?
    SCREEN 2 забыл - перевод в графич. режим.

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

    Примерно так.
    УКНЦ, ДВК-3, Ленинград-1 (48 кб)

  6. Эти 2 пользователя(ей) поблагодарили Arseny за это полезное сообщение:
    hobot (03.11.2012), nzeemin (03.11.2012)

  7. #4
    Guru
    Регистрация
    08.10.2005
    Адрес
    Москва
    Сообщений
    9,820
    Благодарностей: 3336

    По умолчанию

    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

  8. Этот пользователь поблагодарил Titus за это полезное сообщение:
    hobot (03.11.2012)

  9. #5

    Talking Бейсик !!! Ура !!!

    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 ? "         ПОСМОТРЕЛИ И ХВАТИТ "
    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	20121103145750937.jpg 
Просмотров:	410 
Размер:	19.4 Кб 
ID:	38031   Нажмите на изображение для увеличения. 

Название:	20121103145755546.jpg 
Просмотров:	412 
Размер:	19.4 Кб 
ID:	38032   Нажмите на изображение для увеличения. 

Название:	20121103145824828.jpg 
Просмотров:	398 
Размер:	19.1 Кб 
ID:	38033   Нажмите на изображение для увеличения. 

Название:	20121103145825343.jpg 
Просмотров:	462 
Размер:	19.1 Кб 
ID:	38034  
    Вложения Вложения
    Последний раз редактировалось hobot; 03.11.2012 в 22:45.
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  10. #6

    Thumbs up dbas.sav 59 блоков - дисковый !

    Вот этот дисковый бейсик - самый что называется классический )))
    Поставлялся вместе с УК-НЦ бытовой (не школьной!). Ну и в школах
    он же был конечно )))

    http://www.felixl.com/Uknc_Basic_Manual
    http://www.felixl.com/Uknc_Basic_PgmMan
    http://www.felixl.com/Uknc_Basic_OprMan
    Миниатюры Миниатюры Нажмите на изображение для увеличения. 

Название:	20121103150413187.jpg 
Просмотров:	466 
Размер:	8.4 Кб 
ID:	38036  
    Вложения Вложения
    • Тип файла: rar DBAS.rar (20.2 Кб, Просмотров: 168)
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  11. #7
    Master Аватар для nzeemin
    Регистрация
    20.12.2005
    Адрес
    Рязань
    Сообщений
    942
    Благодарностей: 1042

    По умолчанию

    Спасибо всем!
    В общем вся загвоздка была в 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

  12. Этот пользователь поблагодарил nzeemin за это полезное сообщение:
    hobot (04.11.2012)

  13. #8

    По умолчанию

    Цитата Сообщение от nzeemin Посмотреть сообщение
    Собственно графику поднял ради того чтобы повторить на УКНЦ тест генератора случайных чисел от Брухиса, который он делал для БК.
    Ха! Так это не остановленное вовремя "звёздное небо" ) Мы в школе это называли "макароны" ) Я и понятия не имел ни о каком Брухисе, а об особенности RND функции зарисовать весь экран таким "спагетти" по моему знали все ребята ) - могу и ошибаться. Если конечно ей это позволить, если на ранней стадии тормознуть - получается замечательное "звёздное небо".
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

  14. #9
    Veteran
    Регистрация
    16.09.2009
    Адрес
    г. Харьков
    Сообщений
    1,466
    Благодарностей: 571

    По умолчанию

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


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

  15. Этот пользователь поблагодарил esl за это полезное сообщение:
    hobot (04.11.2012)

  16. #10

    По умолчанию

    Цитата Сообщение от Arseny Посмотреть сообщение
    10 SCREEN 2
    20 PSET (RND(1)*640,RND(1)*240)
    30 GOTO 20
    Цитата Сообщение от hobot Посмотреть сообщение
    Я и понятия не имел ни о каком Брухисе
    Предлагаю переименовать тест в пользу Арсения Гордина ! )
    Архив программ для УК-НЦ, ДВК и БК.

    Ищу игру "СТРАНА МОНСТРОВ" [monstr.sav] для ДВК.

Страница 1 из 5 12345 ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Функция ATTR (x,y) на бейсике.
    от женя999 в разделе Программирование
    Ответов: 15
    Последнее: 03.04.2012, 23:53
  2. Спрайты в бейсике
    от AER в разделе Для начинающих
    Ответов: 13
    Последнее: 28.03.2010, 12:50
  3. моя игра на бейсике
    от женя999 в разделе Игры
    Ответов: 44
    Последнее: 10.02.2010, 18:02
  4. Нашел новый баг в бейсике
    от Barmaley_m в разделе Программирование
    Ответов: 43
    Последнее: 25.01.2009, 17:34
  5. Ответов: 5
    Последнее: 03.09.2007, 02:34

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •