То ли я уже забыл всё что помнил, то ли была какая-то особенность.
В общем, в Бейсике на УКНЦ не получается рисовать графику.
Допустим оператор
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
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
УКНЦ, ДВК-3, Ленинград-1 (48 кб)
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
По ссылкам отсель вижу пустые страницы.
- - - Добавлено - - -
Померло
The requested URL /svn/trunk/src/UKNCBTL.TB/data/test02_rnd2.bmp was not found on this server
"Во времена всеобщей лжи говорить правду - это экстремизм" - афоризм.
Почему бы не использовать Internet Archive?
Кроме того, я бэкапил документы оттуда в Emuverse, посмотрите тут: http://www.emuverse.ru/wiki/%D0%9A%D...9A%D0%9D%D0%A6
- - - Updated - - -
Google Code давно заморозился, всё переехало на GitHub, в частности UKNCBTL.TB это https://github.com/nzeemin/ukncbtl-testbench
Последний раз редактировалось hobot; 11.03.2021 в 06:18.
Oleg N. Cher (11.03.2021)
Спасибо всем!
В общем вся загвоздка была в 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
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)