в стандартном бейсике особо не позакрашиваешь
возьми какой-нить развесистый -- betabasic или megabasic.
или юзай подпрограммы в машкоде, для вещей типа закраски есть готовый сборник этого дела -- supercode
в стандартном бейсике особо не позакрашиваешь
возьми какой-нить развесистый -- betabasic или megabasic.
или юзай подпрограммы в машкоде, для вещей типа закраски есть готовый сборник этого дела -- supercode
С любовью к вам, Yandex.Direct
Размещение рекламы на форуме способствует его дальнейшему развитию
а где скачать supercode?
Вот это вопросище !
Я даже не знаю где его скачать то. Старая прога то. Искать в системных дисках надо...... я пока пороюсь, может кто ссылку даст прошшшшло 20 секундСообщение от I_0
нашел - вроде бы оно
Последний раз редактировалось AAA; 08.11.2006 в 00:53.
Ну давайте в бейсике вспомним.
Как же там начать то ???
10 CLS
20 circle 60,45,20
run enter
Получается круг
Кто вспомнит как его залить ????
Рисуй в цикле кучу кругов увеличивая диаметр.
for a=1 to 60
circle (128,88,a)
next a
Не, так не пойдет. Часть пикселей останется незакрашенной, в результате возникнет т.н. "эффект виниловой пластинки", как я его называю.Рисуй в цикле кучу кругов увеличивая диаметр.
for a=1 to 60
circle (128,88,a)
next a
Максагор, NedoPC group
ПК ATM-turbo 2+ 1024Kb RAM, 1,7Gb HDD, CD-ROM, Turbo FM, GS-512
[ZX rulezzz 4reva!!!]
http://atmturbo.nedopc.com
http://vk.com/atmturbo
http://maksagor.livejournal.com
http://moskprf.ru
[СССР][Коммунизм][КПРФ] ну [ZX], естественно...
А никак! Нет в бейсике команды заливки типа FILL на УКНЦшном бейсике. Можно, сканируя внутренние границы круга, закрашивать его попиксельно (черех PLOT). Но это будет страшно тормозно.
Максагор, NedoPC group
ПК ATM-turbo 2+ 1024Kb RAM, 1,7Gb HDD, CD-ROM, Turbo FM, GS-512
[ZX rulezzz 4reva!!!]
http://atmturbo.nedopc.com
http://vk.com/atmturbo
http://maksagor.livejournal.com
http://moskprf.ru
[СССР][Коммунизм][КПРФ] ну [ZX], естественно...
Дык чего попиксельно, хотя бы пройтись горизонтальными линиями (или вертикальными). И если уж идти линиями, окружность с помощью CIRCLE можно не рисовать, а границы рисуемых линий рассчитывать синусами и косинусами
ага-ага, и plot'ом или line'ами закраситьДык чего попиксельно, хотя бы пройтись горизонтальными линиями (или вертикальными). И если уж идти линиями, окружность с помощью CIRCLE можно не рисовать, а границы рисуемых линий рассчитывать синусами и косинусами
не вариант сршенно, только подпрограммы в машкодах.
может компилированный бейсик еще бы прокатил, если бы не жуткая тормознутость пзу'шных плотов и лайнов
закрасить круг -- не та еще проблемка
вот сильно разветевленную многосвязную область, это да.
Хотя алгоритмы для последней будут неоправданно тормозить первую задачу.
Помни. Только на компьютере можно семь раз Cut, а один - Format. В реале все иначе. (c)
Власть людей сильнее, чем люди у власти.
Чем меньше мы смотрим на мир, тем больше задумываемся о нем. (c)
Скрытый текст
Can you help Robin in his quest for the silver arrow? (c) Odin "Robin of the Wood"
Мы все немного режем по дереву, а потом собираем корабли в бутылках.
Is it the same old story you are going to tell me
or is it the old story telling me and you we are the same?
http://www.sky.od.ua/~ptsk[свернуть]
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)
Ваши права
Ответить с цитированием
