Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Рисунок в QBasic, опять... / 6 сообщений из 6, страница 1 из 1
04.06.2006, 06:56
    #33770843
evgsaymon
evgsaymon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
Здравствуйте! Надо нарисовать рисунок в QBASIC . Скачать можно отсюда (425 Кб)
У меня уже сил нет. Я четыре часа на компе ЭТО создавал.

Алгоритм я примерно себе представляю:
По краям картинки ELLIPSE в цикле.
Дальше, два красных и два фиолетовых эллипса, и один желтый в центре.
Зеленые области - два ARC'а, две линии и заливка

С уважением, Евгений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2006, 19:33
    #33773326
AL_KIR
AL_KIR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
быстрее всего выводить просто растр :) запихнуть его в код на Васике или рядышком в файлике (например BMP)...

ну или
...спомощью векторного редактора растр превратить в удобоваримымый векторный формат, и написать к алгоритм на Васике, который бы его переводил обратно в вектор...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.06.2006, 19:34
    #33773328
AL_KIR
AL_KIR
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
обратно в растр (очепятка...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.06.2006, 00:32
    #33773667
evgsaymon
evgsaymon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
AL_KIRбыстрее всего выводить просто растр :) запихнуть его в код на Васике или рядышком в файлике (например BMP)...

А как это?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
07.06.2006, 10:57
    #33776851
evgsaymon
evgsaymon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
Начало наскрёб...
SCREEN 8

DIM c%
c% = 1

FOR i% = 1 TO 20
FOR j% = 0 TO 1
CIRCLE (60 + 25 * i%, 10 + j% * 170), 20, c%, , , .2
PAINT (60 + 25 * i%, 10 + j% * 170), c%
NEXT j%
IF c% = 15 THEN c% = 1 ELSE c% = c% + 1
NEXT i%

FOR i% = 1 TO 20
FOR j% = 0 TO 1
CIRCLE (25 + 600 * j%, 20 + i% * 7), 12, c%, , , .6
PAINT (25 + 600 * j%, 20 + i% * 7), c%
NEXT j%
IF c% = 15 THEN c% = 1 ELSE c% = c% + 1
NEXT i%

c% = 5
FOR j% = 0 TO 1
CIRCLE (320, 20 + j% * 150), 100, c%, , , .03
PAINT (320, 20 + j% * 150), c%
NEXT j%

c% = 4
FOR j% = 0 TO 1
CIRCLE (60 + j% * 530, 100), 50, c%, , , 5
PAINT (60 + j% * 530, 100), c%
NEXT j%

PI = 3.14
c% = 15
FOR j% = 0 TO 1
CIRCLE (185 + j% * 280, 70), 100, c%, PI / 2 - PI / 2 * j%, PI - PI / 2 * j%, .4
CIRCLE (185 + j% * 280, 120), 100, c%, PI + PI / 2 * j%, PI * 3 / 2 + PI / 2 * j%, .4
NEXT j%

С уважением, Евгений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2006, 02:33
    #33782183
evgsaymon
evgsaymon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Рисунок в QBasic, опять...
Помогите дальше, плиз...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Программирование [игнор отключен] [закрыт для гостей] / Рисунок в QBasic, опять... / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]