Важная информация
Показано с 1 по 10 из 10

Тема: Утилита Redact v1.4 (Рисование примитивами, экспорт в код)

  1. #1 Утилита Redact v1.4 (Рисование примитивами, экспорт в код) 
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Превью:

    Все знают, насколько медленно вручную(на листочке) считать координаты для
    преобразования их в код программы на бейсике. Поэтому я решил немного
    автоматизировать данный процесс и написал для этого данную утилиту.
    Утилита позволяет разместить стандартные графические примитивы и
    сохраняет всё это дело в код программы на бейсике и паскале. Также не
    составляет труда сохранить данные в *.bmp* формат.

    Архив с программой:

    Загрузить: Redact PreRelease v1.4.zip

    В архиве исходник и 2 EXE файла - один с вертикальной синхронизацией, второй без.

    История создания:


    Основные функции:

    Программа имеет следующие режимы работы:

    • Рисование линии
    • Рисование прямоугольника
    • Рисование окружности
    • Рисование закрашенного прямоугольника
    • Рисование эллипса
    • Монтирование точки закрашивания области
    • Режим выделения примитивов и их передвижения
    • Режим просмотра полностью построенной(+PAINT) картинки

    По умолчанию при редактировании программа не производит закраску областей(PAINT).
    Для того чтобы увидеть полностью построенную картинку нужно перейти в
    соответствующий режим просмотра( F5 ).
    После каждого установленного примитива программа сохраняет бекап файл(BACKUP.BAS).

    Основной входной-выходной формат программы: *.BAS*
    Дополнительные форматы для экспорта: *.PAS*, *.BMP*

    Управление:

    TAB - основное меню (Вкл/Выкл)
    В меню опции выбираются ЛКМ, цвета - ЛКМ и ПКМ
    ENTER - Сохранить в файл RIS_01.BAS и RIS_01.PAS
    SPACE - Загрузить из файла RIS_01.BAS
    При загрузке понимает LINE с координатами + опциями B и F (прямоугольник, закрас),
    CIRCLE с координатами, радиусом, цветом, углами старта/конца и аспектом.
    Определяет PAINT с 2-мя параметрами: цветом закраски и цветом границы.
    ESC - выход из программы, а при рисовании - отмена текущего примитива.
    BACKSPACE - Удаление последнего нарисованного примитива.
    ↑↓←→ - подвинуть последний примитив на пиксель в соотв. клавише сторону

    F5 - Режим просмотра полностью построенной картинки
    F6 - Сохранить полностью построенное изображение в файл RIS_01.BMP
    F12 - Скриншот редактора в файл REDACT.BMP

    В режиме обводки(выбрана обводка):
    ЛКМ(нажать и удерживать) - начать выделение, отпустить ЛКМ - закончить выделение.
    ПКМ(нажать и удерживать) - перенос объекта мышью.
    ↑↓←→ - подвинуть весь объект на пиксель в соотв. клавише сторону
    В режиме рисования(выбран примитив):
    ЛКМ(нажать и удерживать) - позиционирование примитива

    Скриншоты:

    REDACT.png

    RIS_01.png
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  2. 4 пользователя(ей) сказали cпасибо:

    Good.Morning (27.10.2013), Kakos_nonos (14.05.2012), pingvin (14.05.2012), Абадябер (13.05.2012)

  3. #2  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Проект замечательный, большое спасибо вам. Теперь, она может стать достойным ответом для всех страждущих, которым нужно срочно нарисовать что-то в QBASIC. =)
    У меня были мысли о создании подобной программы (причем, еще давно появились), однако руки все никак не доходили. И я видел ее более в варианте под Windows, нежели под DOS. Это для того, чтобы новички не заморачивались эмуляторами, и программка могла нормально работать на современных машинах. Но уже и то что есть - очень и очень хорошо. Я, пожалуй, поделюсь ссылкой на эту тему в группе IForum вконтакте.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. Пользователь сказал cпасибо:

    >Quiet Snow< (14.05.2012)

  5. #3  
    Профи Аватар для Dispetcher14
    Регистрация
    12.12.2010
    Адрес
    Раменское
    Сообщений
    597
    Сказал(а) спасибо
    35
    Поблагодарили 68 раз(а) в 56 сообщениях
    Записей в блоге
    13
    Упоминал я о таком рисовании, да. На своей программе правда и без мышки=)
    "Спокойно, Маша, я Дубровский" (с) Дубровский, "Дубровский".
    Ответить с цитированием  
     

  6. Пользователь сказал cпасибо:

    >Quiet Snow< (14.05.2012)

  7. #4  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Всем спасибо за коменты.

    Честно признаться "послали" меня паскалевцы с цайбера, так что все апгрейды
    туда я буду делать без поддержки паса, сочли за рекламу... вот только чего я
    рекламирую и с кем конкурирую я так и не допёр, прога явно дилетантского
    характера под DOS 80-х годов для EGA режима... мда бывает.

    На данный форум буду всё делать по максимуму, пока отсюда не "пошлют".

    Абадябер, первоначально хотел под Win делать, но подумал: а если кто под досом
    cидит и хочет нарисовать что-то... Короче говоря чисто из-за этого решил так.

    У меня были мысли о создании подобной программы (причем, еще давно появились),
    однако руки все никак не доходили.
    Да я сам думал давно ещё, идея очевидная уж больно, вот руки и "дошли")))

    Это для того, чтобы новички не заморачивались эмуляторами
    Тут не поспоришь, проблема ещё актуальна, вот урву времени и напишу FAQ
    по установке DOSBox на Win7. FAQ для XP есть, но раздельно выкладывать
    смысла нету...

    P.S: Продолжаю всё пихать в 1 исходник))) самому смешно, но QBasic со
    своими гарилосами и снейками запомнился именно за это, слвная традиция...
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  8. #5  
    Супер модератор Аватар для Kakos_nonos
    Регистрация
    07.01.2011
    Адрес
    Кубань
    Сообщений
    1,531
    Сказал(а) спасибо
    126
    Поблагодарили 428 раз(а) в 291 сообщениях
    Записей в блоге
    6
    Цитата Сообщение от >Quiet Snow< Посмотреть сообщение
    я буду делать без поддержки паса
    Не, паскаль лучше оставить.
    Я бы хотел так: вместе с программой пусть лежит конфигурационный файл, в котором описан синтаксис выходных команд.

    Например, для паскаля так:

    LINE(%1,%2,%3,%4);
    CIRCLE(%1,%2,%3);
    и т. д.

    И в программе можно выбирать выходной язык, на котором будет описан рисунок.
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Ответить с цитированием  
     

  9. #6  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Не, паскаль лучше оставить.
    Для этого форума оставлю, для цайбера - уберу, т.к. апгрейд всё таки планируется...

    И в программе можно выбирать выходной язык, на котором будет описан рисунок.
    Возможно будет, во всяком случае сам хочу чтобы был, не знаю только в каком из апгрейдов.

    Я бы хотел так: вместе с программой пусть лежит конфигурационный файл, в котором описан синтаксис выходных команд.
    Наверное оставлю как сейчас. Идея, конечно, хорошая, но сильно трудоёмкая в свете
    следующего апгрейда, т.к. хочу сделать обёртку в процедуру с (x, y) чтобы можно было
    позиционировать рисунок целиком, для создателей простых платформеров будет
    аппетитно. А пока дописываю кое-какие функции, много мелких багов, фиксю потихоньку.
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  10. #7  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Успехов вам в дальнейшем написании программы тогда, буду рад видеть новые апдейты.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  11. #8  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    Апдейт:

    Вот и урвал я времени, чтобы немного "допилить" проект.
    Было внесено нескольно серьёзных доработок и пофиксено множество багов.
    Программа по прежнему в стадии пре-релиз, но пользоваться ею уже вполне
    можно и даже весьма комфортно.

    Архив с программой:

    Загрузить: Redact PreRelease v1.45.zip


    RIS_01.PNG REDACT_1.PNG REDACT_2.PNG

    Описание апдейта:

    Программа версии 1.45 имеет следующие режимы работы:

    • Рисование примитивов
    • Режим обводки и перемещения
    • Режим сетки ( F8 )

    В режиме обводки добавлены функции:


    1. Удаление выбранных примитивов
    2. Перекрашивание выбранных примитивов
    3. Выбор всех примитивов
    4. Дублирование выбранных примитивов

    Новый режим сетки подразумевает создание файла с подпрограммой, чтобы
    иметь возможность разместить рисунок в любом месте. Для создания
    файла RIS_XY.BAS нужно сохранить файл(кн. ENTER) в режиме сетки.
    При активации режима сетки все функции других режимов блокируются.
    Режим сетки позволяет центрировать объект в создаваемой подпрограмме.
    Передвинуть сетку можно удерживая ПКМ.


    Управление:

    TAB - основное меню (Вкл/Выкл)
    В меню опции выбираются ЛКМ, цвета - ЛКМ и ПКМ
    ENTER - Сохранить в файл RIS_01.BAS и RIS_01.PAS
    SPACE - Загрузить из файла RIS_01.BAS
    При загрузке понимает LINE с координатами + опциями B и F (прямоугольник, закрас),
    CIRCLE с координатами, радиусом, цветом, углами старта/конца и аспектом.
    Определяет PAINT с 2-мя параметрами: цветом закраски и цветом границы.
    ESC - выход из программы, а при рисовании - отмена текущего примитива.
    BACKSPACE - Удаление последнего нарисованного примитива.
    ↑ ↓ ← → - подвинуть последний примитив на пиксель в соотв. клавише сторону

    F5 - Режим просмотра полностью построенной картинки
    F6 - Сохранить полностью построенное изображение в файл RIS_01.BMP
    F8 - Режим сетки (Вкл/Выкл)[NEW]
    F12 - Скриншот редактора в файл REDACT.BMP

    В режиме обводки(выбрана обводка):
    ЛКМ(нажать и удерживать) - начать выделение, отпустить ЛКМ - закончить выделение.
    ПКМ(нажать и удерживать) - перенос объекта мышью.
    А - выбрать все примитивы [NEW]
    DEL
    - удаление выбранных примитивов [NEW]
    C - окрашивание выбранных примитивов в требуемый цвет [NEW]
    D - дублирование выбранных примитивов + обводка дубля [NEW]
    ↑ ↓ ← → - подвинуть весь объект на пиксель в соотв. клавише сторону
    В режиме рисования(выбран примитив):
    ЛКМ(нажать и удерживать) - позиционирование примитива
    В режиме сетки(активирована сетка) [NEW]:
    ПКМ - движение сетки [NEW]
    ENTER - Сохранить в файлы RIS_01.BAS, RIS_01.PAS и RIS_XY.BAS [NEW]

    Пофиксенные баги:

    В парсинге теперь учитывается нижний регистр.
    Добавлена блокировка выбора функции при редактировании.
    Правильное ограничение догрузки(кн. SPACE).


    Планы:

    По прежнему нету выбора углов для CIRCLE, всё никак не дойдут руки.
    Нету нормальной менюшки сейва.
    Нету RIS_XY.PAS для позиционирования на пасе
    ...
    допиливать эту программу можно вечно)))
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

  12. 2 пользователя(ей) сказали cпасибо:

    Good.Morning (27.10.2013), Абадябер (18.05.2012)

  13. #9  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    допиливать эту программу можно вечно)))
    Да не, допилите когда-то, если, конечно, будете допиливать =)
    Спасибо за апдейт, буду следить за дальнейшим развитием событий.
    А вот что я нарисовал, ну просто не мог не испытать в очередной раз свой мэдскиллз =)
    [Ссылки могут видеть только зарегистрированные пользователи. ]
    Дружба-магия-радость!
    Ответить с цитированием  
     

  14. Пользователь сказал cпасибо:

    >Quiet Snow< (18.05.2012)

  15. #10  
    Супер модератор Аватар для >Quiet Snow<
    Регистрация
    11.04.2011
    Адрес
    Планета земля
    Сообщений
    3,829
    Сказал(а) спасибо
    1,810
    Поблагодарили 934 раз(а) в 796 сообщениях
    Записей в блоге
    1
    не мог не испытать в очередной раз свой мэдскиллз
    Угу я тоже, что-то нарисовать на этой проге практически нереально, нужен крутой EGA адаптер,
    чтоб быстро флипать страницы и точная мышка. В чистом досе позже проверю может лучше.
    prokol.PNG
    Обучение прикладному программированию(по skype), качественно, недорого, 18+, вопросы в личку.
    «Если вы ничего не сделаете, я уверяю вас, ничего и не произойдёт» © Жак Фреско
    Ограниченно модерирую.
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

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

Похожие темы

  1. win api рисование
    от 123456789igor в разделе C/C++
    Ответов: 1
    Последнее сообщение: 23.10.2012, 08:40
  2. Рисование в PictureBox
    от Стас в разделе C/C++
    Ответов: 8
    Последнее сообщение: 05.10.2012, 16:20
  3. Ответов: 1
    Последнее сообщение: 09.11.2011, 22:46
  4. Ответов: 2
    Последнее сообщение: 06.08.2011, 02:12
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •