;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; Program Palitra (c) Sergei Steshin (Akyltist) | ;----------------------------------------------------------------------------------------------------| ;; compiler: FASM 1.69.31 | ;; version: 0.3.0 | ;; last update: 08/11/2012 | ;; e-mail: dr.steshin@gmail.com | ;..................................................................................................... ;; History: | ;; 0.1.0 - Первая версия программы. | ;; 0.2.0 - Исправлено попадание в сетку, берется ближайший по диагонали пиксель. | ;; - Добавлены ползунки, для регулирования rgb составляющих цвета и вывод этих составляющих. | ;; - Убран вывод цвета в бинарном виде (пока за не надобностью и не актуальностью). | ;; - Мелкая косметика. | ;; 0.3.0 - Добавлено переключение видов цветовых схем (кнопка NEXT) | ;; - Улучшены ползунки, производится обработка нажатия рядом с ползунком. | ;; - Число сеток в цветовой схеме уменьшено с 6 до 4 (кратность 256, иначе дублирование цвета).| ;; - Мелкая косметика. | ;..................................................................................................... ;; All rights reserved. | ;; | ;; Redistribution and use in source and binary forms, with or without modification, are permitted | ;; provided that the following conditions are met: | ;; * Redistributions of source code must retain the above copyright notice, this list of | ;; conditions and the following disclaimer. | ;; * Redistributions in binary form must reproduce the above copyright notice, this list of | ;; conditions and the following disclaimer in the documentation and/or other materials | ;; provided with the distribution. | ;; * Neither the name of the nor the names of its contributors may be used to | ;; endorse or promote products derived from this software without specific prior written | ;; permission. | ;; | ;; THIS SOFTWARE IS PROVIDED BY Sergei Steshin ''AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, | ;; INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A | ;; PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL BE LIABLE FOR ANY DIRECT, | ;; INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED | ;; TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS | ;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS | ;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | ;....................................................................................................| ;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; ЗАГОЛОВОК ИСПОЛНЯЕМОГО ФАЙЛА ПРИЛОЖЕНИЯ ДЛЯ КОЛИБРИ ОС | ;----------------------------------------------------------------------------------------------------/ use32 org 0x0 db 'MENUET01' dd 0x01 dd START dd I_END dd 0x1000 dd 0x1000 dd 0x0 dd 0x0 include '../../../macros.inc' START: ;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; ОСНОВНОЙ ЦИКЛ ПРОГРАММЫ - ОБРАБОТКА СОБЫТИЙ | ;----------------------------------------------------------------------------------------------------/ red: call draw_window ; вызываем перерисовку окна приложения still: mcall 10 ; функция 10 - ждать события cmp eax,1 ; перерисовать окно ? je red ; если да - на метку red cmp eax,2 ; нажата клавиша ? je key ; если да - на key cmp eax,3 ; нажата кнопка ? je button ; если да - на button jmp still ; если другое событие - в начало цикла ;end_still key: ; нажата клавиша на клавиатуре mcall 2 ; функция 2 - считать код символа (в ah) (тут в принципе не нужна) jmp still ; вернуться к началу цикла ;end_key button: mcall 17 ; 17 - получить идентификатор нажатой кнопки cmp ah, 1 ; если нажата кнопка с номером 1, jz bexit ; выходим ;обработка кнопки Next cmp ah, 11 ; если нажата кнопка NEXT jne next_bg ; выходим inc [pnext] ; увеличиваем при нажатии номер палитры mov eax,[pnext] cmp al,6 jne next_redraw xor eax,eax mov [pnext],eax next_redraw: call draw_palitra ; РИСУЕМ ПАЛИТРУ ;call draw_result ; РИСУЕМ РЕЗУЛЬТАТ jmp still next_bg: cmp ah, 12 ; если нажата кнопка BACKGROUND jne next_end ; выходим mcall 15,4,1 mcall 15,1,1,1 mcall 15,5,color,0,3*1*1 mcall 15,3 jne next_redraw next_end: cmp ah, 7 jne color_button call mouse_get jmp still color_button: push eax call mouse_local ; получил локальные координаты mov ebx,129 mov ecx,[mouse_y] sub ebx,ecx mov ecx,3 imul ecx,ebx ;push ecx pop eax red_button: cmp ah, 8 jne green_button mov [cred],cl call set_spectr jmp still green_button: cmp ah, 9 jne blue_button mov [cgreen],cl call set_spectr jmp still blue_button: cmp ah, 10 jne still mov [cblue],cl call set_spectr jmp still bexit: mcall -1 ; иначе конец программы ;end_button ;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; ГЛАВНЫЙ МОДУЛЬ ОТРИСОВКИ ОКНА И ЭЛЕМЕНТОВ ПРИЛОЖЕНИЯ | ;----------------------------------------------------------------------------------------------------/ draw_window: mov eax,12 ; функция 12: означает, что будет рисоваться окно mov ebx,1 ; 1,начало рисования int 0x40 ; Прерывание mov eax,48 ; Функция 48 - стили отображения окон mov ebx,3 ; Подфункция 3 - получить стандартные цвета окон. mov ecx,sc ; Указатель на буфер размером edx байт, под структуру mov edx,sizeof.system_colors ; Размер таблицы цветов (должен быть 40 байт) int 0x40 ; Прерывание mov eax,48 ; Функция 48 - стили отображения окон. mov ebx,4 ; Подфункция 4 - возвращает eax = высота скина. int 0x40 ; Прерывание mov ecx,eax ; Запоминаем высоту скина xor eax,eax ; Очищаем eax (mov eax,0) (Функция 0) mov ebx,200 shl 16+250 ; [координата по оси x]*65536 + [размер по оси x] add ecx,200 shl 16+195 ; Высота скина + [координата по y]*65536 + [размер по y] (168 для версии 0.2) mov edx,[sc.work] ; Видимо стиль окна по дефолту or edx,0x34000000 ; Или окно со скином фиксированных размеров mov edi,title ; Заголовок окна int 0x40 ; Прерывание call draw_palitra ; РИСУЕМ ПАЛИТРУ call draw_result ; РИСУЕМ РЕЗУЛЬТАТ mov eax,8 ; Функция 8 - определить/удалить кнопку mov ebx,89 shl 16+147 ; Начальные координаты по х [к-та x]*65536 + [размер] mov ecx,9 shl 16+147 ; Начальные координаты по y [к-та y]*65536 + [размер] mov edx,0x60000007 ; Начальное ID кнопок - 0xXYnnnnnn int 0x40 mov ebx,9 shl 16+12 ; Начальные координаты по х [к-та x]*65536 + [размер] mov edx,0x60000008 ; ID = 8 mov ecx,45 shl 16+85 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 ; Рисуем невидимую кнопку под слайдером red add ebx,26 shl 16 ; Добавляем inc edx ; ID = 9 int 0x40 ; Рисуем невидимую кнопку под слайдером green add ebx,26 shl 16 ; Добавляем inc edx ; ID = 10 int 0x40 ; Рисуем невидимую кнопку под слайдером blue mov eax,12 ; функция 12: означает, что будет рисоваться окно mov ebx,2 ; 2 - конец рисования int 0x40 ; Прерывание ;................................................................................................. ; Отрисовка нижней панели ;................................................................................................. mov eax,8 ; Функция 8 - определить/удалить кнопку mov ebx,4 shl 16+64 ; Начальные координаты по х [к-та x]*65536 + [размер] mov ecx,169 shl 16+16 ; Начальные координаты по y [к-та y]*65536 + [размер] mov edx,11 ; ID = 11 mov esi,[sc.work_button] ; цвет int 0x40 mov ebx,80 shl 16+102 ; Начальные координаты по х [к-та x]*65536 + [размер] mov edx,12 ; ID = 11 int 0x40 mov eax,4 ; 4 - вывести строку текста в окно mov ebx,25 shl 16+174 ; [координата по оси x]*65536 + [координата по оси y] mov ecx,[sc.work_button_text] ; 0xX0RRGGBB (RR, GG, BB задают цвет текста) mov edx,bnext ; указатель на начало строки ;mov esi,1 ; выводить esi символов int 0x40 ;mov ebx,247 shl 16+64 ; Начальные координаты по х [к-та x]*65536 + [размер] ;mov edx,12 ; ID = 12 ;int 0x40 mov eax,38 ; Функция 38 - нарисовать отрезок. mov ebx,4 shl 16+236 ;[координата начала по оси x]*65536 + [координата конца по оси x] mov ecx,163 shl 16+163 ;[координата начала по оси y]*65536 + [координата конца по оси y] mov edx,0x00666666 ;0x00RRGGBB - цвет int 0x40 ret ; Возвращаем управление ;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; БЛОК ВСПОМОГАТЕЛЬНЫХ ПРОЦЕДУР И ФУНКЦИЙ ПРИЛОЖЕНИЯ | ;----------------------------------------------------------------------------------------------------/ mouse_global: ;................................................................................................. ; Получаем координаты мыши ;................................................................................................. mov eax,37 ; Функция 37 - работа с мышью mov ebx,0 ; нам нужны глобальные координаты int 0x40 ; eax = x*65536 + y, (x,y)=координаты курсора мыши mov ecx,eax ; shr ecx,16 ; ecx = x+1 movzx edx,ax ; edx = y+1 dec ecx ; ecx = x dec edx ; edx = y mov [mouse_x],ecx ; mouse_x = x mov [mouse_y],edx ; mouse_y = y ret ; Возвращаем управление ;end_mouse_global mouse_local: ;................................................................................................. ; Получаем координаты мыши относительно окна ;................................................................................................. mov eax,37 ; Функция 37 - работа с мышью mov ebx,1 ; нам нужны глобальные координаты int 0x40 ; eax = x*65536 + y, (x,y)=координаты курсора мыши mov ecx,eax ; shr ecx,16 ; ecx = x+1 movzx edx,ax ; edx = y+1 dec ecx ; ecx = x dec edx ; edx = y mov [mouse_x],ecx ; mouse_x = x mov [mouse_y],edx ; mouse_y = y ret ; Возвращаем управление ;end_mouse_local desktop_get: ;................................................................................................. ; Определяем ширину экрана ;................................................................................................. mov eax,14 ; Определяем ширину экрана (eax = [xsize]*65536 + [ysize]) int 0x40 ; xsize = размер по горизонтали - 1 mov ebx,eax ; shr ebx,16 ; ebx = xsize-1 ;movzx edx,ax ;; edx = ysize-1 (лишний код) inc ebx ; ebx = xsize ;inc edx ;; edx = ysize (лишний код) mov [desctop_w],ebx ret ;end_desktop_get mouse_get: mov esi,2 ; КОСТЫЛЬ: флаг для избежания зацикливания call mouse_global call desktop_get re_mouse_loop: ; КОСТЫЛЬ: метка для возврата если попали в сетку mov ebx,[desctop_w] imul ebx,[mouse_y] ; ebx = y*xsize add ebx,[mouse_x] ; ebx = y*xsize+x ;................................................................................................. ; Берем цвет с палитры в переменную ;................................................................................................. mov eax,35 ; Функция взятия цвета ;mov ebx,ecx ;; ebx = y*xsize+x (лишний код) int 0x40 ; Получаем цвет в eax cmp eax,[sc.work] ; Сравниваем с фоном приложения je mouse_err ; Если это он - то ничего не делаем cmp eax,0x222222 ; Сравниваем с цветом сетки je mouse_err ; Если это он - то ничего не делаем jmp mouse_set ; КОСТЫЛЬ: прыгаем чтобы не брать цвет сетки mouse_err: ; КОСТЫЛЬ: если попали в сетку или фон inc [mouse_y] ; КОСТЫЛЬ: смещаем по диагонали сначала по х inc [mouse_x] ; КОСТЫЛЬ: смещаем по диагонали потом по у dec esi ; КОСТЫЛЬ: Уменьшаем флаг cmp esi,0 ; КОСТЫЛЬ: Сравниваем с нулем jz mouse_exit ; КОСТЫЛЬ: Если ноль то сделали всё что могли jmp re_mouse_loop ; КОСТЫЛЬ: Если не ноль то попробуем взять соселний пиксель mouse_set: mov [color],eax ; Иначе запоминаем новый цвет call draw_result ; Выводим результат mouse_exit: ret ; Возвращаем управление ;end_mouse_get---------------------------------------------------------------------------------------- draw_palitra: ;................................................................................................. ; Отрисовка фона под кнопки ;................................................................................................. mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,0x222222 ; цвет mov ecx,9 shl 16+73 ; Начальные координаты по y [к-та y]*65536 + [размер] mov esi,2 ; Счетчик линий подложек re_draw: mov ebx,89 shl 16+73 ; Начальные координаты по x [к-та x]*65536 + [размер] mov edi,2 ; Счетчик количества подложек for_fon_loop: int 0x40 ; Прерывание add ebx,75 shl 16 ; Смещаем положение линии по х dec edi ; Уменьшаем счетчик кнопок cmp edi,0 ; Сравниваем с нулем jnz for_fon_loop ; Если не ноль то в начало цикла dec esi ; Уменьшаем его cmp esi,0 ; Сравниваем с нулем mov ecx,84 shl 16+73 ; Начальные координаты по y [к-та y]*65536 + [размер] jnz re_draw ; Если не ноль то в начало цикла ;................................................................................................. ; Отрисовка кнопок по циклу ;................................................................................................. mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,0x0FFFFFFF ; цвет mov esi,4 ; Счетчик количества абзацев (#4,8) mov ebx,78 shl 16+8 ; Начальные координаты по x [к-та x]*65536 + [размер] for_abz: ;;push esi ; Сохраняем значение счетчика линий в стек cmp esi,2 jne x2_line mov ebx,78 shl 16+8 x2_line: add ebx,3 shl 16 ; Смещаем положение линии по x mov edi,8 ; Счетчик количества кнопок в строке for_stolbik: push edi ; Сохраняем значение счетчика линий в стек mov edi,8 ; Счетчик количества кнопок в строке mov ecx, 1 shl 16+8 ; Начальные координаты по y [к-та y]*65536 + [размер] cmp esi,2 jg y2_line ; Если больше 4 то игнорим mov ecx,76 shl 16+8 y2_line: add ebx,9 shl 16 ; Смещаем положение линии по x for_loop: add ecx,9 shl 16 ; Смещаем положение линии по y int 0x40 ; Прерывание call sub_red dec edi ; Уменьшаем счетчик кнопок cmp edi,0 ; Сравниваем с нулем jnz for_loop ; Если не ноль то в начало цикла call sub_green pop edi ; Иначе восстанавливаем счетчик линий dec edi ; Уменьшаем его cmp edi,0 ; Сравниваем с нулем jnz for_stolbik ; Если не ноль то в начало цикла call sub_blue ;;pop esi ; Иначе восстанавливаем счетчик линий dec esi ; Уменьшаем его cmp esi,0 ; Сравниваем с нулем jnz for_abz ; Если не ноль то в начало цикла ret ; Возвращаем управление ;end_draw_palitra------------------------------------------------------------------------------------- sub_red: ;................................................................................................. ; Расчёт смещений красного цвета в генерации цвета палитры ;................................................................................................. push eax mov eax,[pnext] ;sub_red_0 ; palitra cmp al,0 jne sub_red_1 sub edx,0x20 jmp sub_red_e sub_red_1: ; random cmp al,1 jne sub_red_2 sub edx,0x40 jmp sub_red_e sub_red_2: ; gree cmp al,2 jne sub_red_3 sub edx,0x010101 jmp sub_red_e sub_red_3: ; red cmp al,3 jne sub_red_4 sub edx,0x0101 jmp sub_red_e sub_red_4: ; green cmp al,4 jne sub_red_5 sub edx,0x010001 jmp sub_red_e sub_red_5: ; blue cmp al,5 jne sub_red_e sub edx,0x010100 jmp sub_red_e sub_red_e: pop eax ret ; Возвращаем управление ;end_sub_red------------------------------------------------------------------------------------------ sub_green: ;................................................................................................. ; Расчёт смещений красного цвета в генерации цвета палитры ;................................................................................................. push eax mov eax,[pnext] ;sub_green_0 cmp al,0 jne sub_green_1 sub edx,0x2000 jmp sub_green_e sub_green_1: cmp al,1 jne sub_green_e sub edx,0x4000 ;jmp sub_green_e sub_green_e: pop eax ret ; Возвращаем управление ;end_sub_green---------------------------------------------------------------------------------------- sub_blue: ;................................................................................................. ; Расчёт смещений красного цвета в генерации цвета палитры ;................................................................................................. push eax mov eax,[pnext] ;sub_blue_0 cmp al,0 jne sub_blue_1 sub edx,0x400000 jmp sub_blue_e sub_blue_1: cmp al,1 jne sub_blue_e sub edx,0x600000 ;jmp sub_blue_e sub_blue_e: pop eax ret ; Возвращаем управление ;end_sub_blue----------------------------------------------------------------------------------------- draw_result: ;................................................................................................. ; Отрисовка результата цвета в hex ;................................................................................................. mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,0x222222 ; цвет-обводки mov ebx,4 shl 16+15 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,9 shl 16+15 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 ; Прерывание (ос рисует прямоугольник) mov ebx,23 shl 16+62 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 ; Прерывание (ос рисует прямоугольник) mov edx,[color] ; цвет mov ebx,5 shl 16+13 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,10 shl 16+13 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 ; Прерывание (ос рисует прямоугольник) mov edx,0xFFFFFF ; цвет-фона mov ebx,24 shl 16+60 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 ; Прерывание (ос рисует прямоугольник) mov eax,47 ; Функция 47 - вывод числа в окно mov ecx,[color] ; число (при bl=0) или указатель (при bl=1) mov esi,0x0 ; 0xX0RRGGBB mov ebx,256+8 shl 16 ; параметры преобразования числа в текст (HEX) mov edx,34 shl 16+13 ; [координата по оси x]*65536 + [координата по оси y] int 0x40 ; Прерывание - выводим результат в окно (HEX) mov eax,4 ; функция 4: написать текст в окне mov ebx,27*65536+13 ; [x начальный] *65536 + [y начальный] mov ecx,0x0 ; цвет текста RRGGBB mov edx,hex ; рисуем '#' mov esi,1 ; длина текста в байтах int 0x40 ;................................................................................................. ; Отрисовка полей для r g b значений ;................................................................................................. call get_spectr mov eax,13 ; Функция 13 - нарисовать прямоугольник Leency{ mov edx,0x222222 ; цвет-обводки mov ebx,4 shl 16+24 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,142 shl 16+15 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 mov ebx,33 shl 16+24 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 mov ebx,62 shl 16+24 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 mov edx,0xFFFFFF ; цвет-обводки mov ebx,5 shl 16+22 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,143 shl 16+13 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 mov ebx,34 shl 16+22 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 mov ebx,63 shl 16+22 ; Начальные координаты по x [к-та x]*65536 + [размер] int 0x40 ;................................................................................................. ; Отрисовка r g b значений ;................................................................................................. movzx eax,[cred] ; красный mov ebx,7*65536+146 ; [x начальный] *65536 + [y начальный] call draw_value ; выводим результат movzx eax,[cgreen] ; зеленый mov ebx,36*65536+146 ; [x начальный] *65536 + [y начальный] call draw_value ; выводим результат movzx eax,[cblue] ; синий mov ebx,65*65536+146 ; [x начальный] *65536 + [y начальный] call draw_value ; выводим результат ;................................................................................................. ; Обнуляем фон ;................................................................................................. mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,[sc.work] ; цвет-обводки mov ebx,8 shl 16+66 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,40 shl 16+87 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 ; mov eax,13 ; Функция 13 - нарисовать прямоугольник ; mov edx,0x222222 ; цвет-обводки ; mov ebx,4 shl 16+24 ; Начальные координаты по x [к-та x]*65536 + [размер] ; mov ecx,30 shl 16+105 ; Начальные координаты по y [к-та y]*65536 + [размер] ; int 0x40 ; add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] ; int 0x40 ; add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] ; int 0x40 mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,[sc.work] ; цвет-обводки mov ebx,5 shl 16+22 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,31 shl 16+103 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 ;................................................................................................. ; Выводим буквы r g b ;................................................................................................. mov eax,4 ; 4 - вывести строку текста в окно mov ebx,12 shl 16+34 ; [координата по оси x]*65536 + [координата по оси y] mov ecx,0x0 ; 0xX0RRGGBB (RR, GG, BB задают цвет текста) mov edx,cname ; указатель на начало строки mov esi,1 ; выводить esi символов newline: ; цикл int 0x40 ; Прерывание add ebx,29 shl 16 ; Добавляем add edx,1 ; Добавляем cmp [edx],byte 'x' ; Сравнение с байтом х jne newline ; Если не нуль или не равно ;................................................................................................. ; Отрисовка слайдеров ;................................................................................................. mov eax,13 ; Функция 13 - нарисовать прямоугольник mov edx,0x222222 ; цвет-обводки mov ebx,12 shl 16+4 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,45 shl 16+85 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 mov edx,0xFA0919 ; цвет-обводки mov ebx,13 shl 16+2 ; Начальные координаты по x [к-та x]*65536 + [размер] mov ecx,46 shl 16+83 ; Начальные координаты по y [к-та y]*65536 + [размер] int 0x40 mov edx,0x08CE19 ; цвет-обводки add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 mov edx,0x0909FF ; цвет-обводки add ebx,29 shl 16 ; Начальные координаты по x [к-та y]*65536 + [размер] int 0x40 ;................................................................................................. ; Отрисовка ползунков ;................................................................................................. mov edx,0x0 ; цвет-ползунков mov ebx,10 shl 16+8 ; Начальные координаты по x [к-та x]*65536 + [размер] movzx eax,[cred] ; берем значение цвета call draw_slider add ebx,29 shl 16 movzx eax,[cgreen] ; берем значение цвета call draw_slider add ebx,29 shl 16 movzx eax,[cblue] ; берем значение цвета call draw_slider ret ; Возвращаем управление ;end_draw_result draw_slider: xor ecx,ecx mov cl,0x3 ; будем делить его на 3 так как ползунки длинной 85 пикселей div cl ; делим - целое в al остаток в ah mov cl,128 ; нижняя точка ползунка sub cl,al ; cl=cl-al shl ecx,16 add ecx,4 ; задаем начальное положение mov eax,13 ; Функция 13 - нарисовать прямоугольник int 0x40 ret ; Возвращаем управление ;end_slider draw_value: ;................................................................................................. ; Вывод числа из строки в указанной области ;................................................................................................. push ebx ; сохраняем присланные координаты mov ebx,10 ; устанавливаем основание системы счисления mov edi,buff ; указатель на строку буфера call int2ascii ; конвертируем число и ложим как строку в буфер + esi длина mov eax,4 ; функция 4: написать текст в окне pop ebx ; достаем из стека присланные координаты mov ecx,0x0 ; цвет текста RRGGBB mov edx,buff ; указатель на начало текста int 0x40 ret ; Возвращаем управление ;end_draw_value hex_digit: ;................................................................................................. ; Преобразование в ASCII (вне зависимости от системы счисления) ;................................................................................................. cmp dl,10 ; в dl ожидается число от 0 до 15 jb .less ; если dl<10 то переходим add dl,'A'-10 ; 10->A 11->B 12->C ... ret ; Возвращаем управление .less: or dl,'0' ; Если система счисления 10-я и менее ret ; Возвращаем управление ;end_hex_digit int2ascii: ;................................................................................................. ; Преобразование числа в строку ;................................................................................................. ; eax - 32-х значное число ; ebx - основание системы счисления ; edi - указатель на строку буфера ; Возвращает заполненный буфер и esi - длина строки ;pushad xor esi,esi ; зануляем счетчик символов convert_loop: xor edx,edx ; зануляем регистр под остаток div ebx ; eax/ebx - остаток в edx call hex_digit ; преобразуем символ push edx ; ложим в стек inc esi ; увеличиваем счетчик test eax,eax ; если еще можно делить jnz convert_loop ; то делием еще cld ; ОБЯЗАТЕЛЬНО сбрасываем флаг направления DF (запись вперёд) write_loop: ; иначе pop eax ; достаем из стека в еах stosb ; записываем в буфер по адресу ES:(E)DI dec esi ; уменьшаем счетчик test esi,esi ; если есть что доставать из стека jnz write_loop ; то достаём mov byte [edi],0 ; иначе дописыываем нулевой байт ;popad ; восстанавливаем значения регистров ; код ниже не имеет ничего общего к функции, просто возвращает еще длинну полученной строки mov edi,buff ; указатель на начало текста call str_len mov esi,eax ret ; и возвращаем управление ;end_int2ascii get_spectr: ;................................................................................................. ; возвращает r,g,b состовляющие цвета ;................................................................................................. ; get blue mov ecx,[color] movzx eax,cl mov [cblue],al ; get red mov eax,ecx xor ax,ax shr eax,16 mov [cred],al ; get green shl ecx,16 shr ecx,24 mov [cgreen],cl ret ; и возвращаем управление ;end_get_spectr set_spectr: ;................................................................................................. ; устанавливает из r,g,b цвет ;................................................................................................. ; get blue movzx eax,[cred] shl eax,8 mov al,[cgreen] shl eax,8 mov al,[cblue] mov [color],eax call draw_result ; Выводим результат ret ; и возвращаем управление ;end_get_spectr str_len: ;................................................................................................. ; определяет длину строки (вход->EDI ZS offset ; выход->EAX ZS length) ;................................................................................................. push ecx push esi push edi cld xor al, al mov ecx, 0FFFFFFFFh mov esi, edi repne scasb sub edi, esi mov eax, edi dec eax pop edi pop esi pop ecx ret ;end_str_len ;#___________________________________________________________________________________________________ ;****************************************************************************************************| ; БЛОК ПЕРЕМЕННЫХ И КОНСТАНТ | ;----------------------------------------------------------------------------------------------------/ color dd 00000000h ; хранит значение выбранного цвета mouse_x dd 0 ; хранит глобальную х координату мыши mouse_y dd 0 ; хранит глобальную у координату мыши desctop_w dd 0 ; хранит ширину экрана sc system_colors ; хранит структуру системных цветов скина title db 'Palitra v0.3',0 ; хранит имя программы hex db '#',0 ; для вывода решётки как текста cname db 'RGBx' ; хранит разряды цветов (red,green,blue) x-метка конца cred db 0 ; храним красный спекрт cgreen db 0 ; храним зеленый спектр cblue db 0 ; храним синий спектр buff db '000',0 bnext db 'NEXT BACKGROUND',0; имя кнопки pnext dd 0 ; счетчик переключения палитры I_END: