kolibrios-fun/programs/media/palitra/branch/draw_sliders.inc

draw_result:
    ;.................................................................................................
    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ࠬ<EFBFBD><EFBFBD> <EFBFBD>뢮<EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    ;.................................................................................................
    mcall   SF_DRAW_RECT, <4,110>,   <9, 197>, [sc.work_graph]
    mcall               , <5,110-2>, <10,195>, [sc.work_light]

    ;.................................................................................................
    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥<EFBFBD><EFBFBD> <EFBFBD> hex color2
    ;.................................................................................................
    CURCOLX = 11
    CURCOLY = 17
    mcall   , <CURCOLX+5,15>, <CURCOLY+4,15>, 0x222222
    ; color 2 - draw color
    mcall   , <CURCOLX+6,13>, <CURCOLY+5,13>, [color2]
    ; color 1 - draw fringle
    mcall   , <CURCOLX+0,15>, <CURCOLY+0,15>, 0x222222
    ; color 2 - draw color
    mcall   , <CURCOLX+1,13>, <CURCOLY+1,13>, [color]

    ; value - draw fringle
    mcall   , <CURCOLX+23,72>, <CURCOLY+0,19>, 0x222222
    ; value - draw background
    mcall   , <CURCOLX+24,70>, <CURCOLY+1,17>, 0xFFFFFF

    ; <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> 47 - <EFBFBD>뢮<EFBFBD> <EFBFBD><EFBFBD>᫠ <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    ; ebx - <EFBFBD><EFBFBD>ࠬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD>८<EFBFBD>ࠧ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>᫠ <EFBFBD> ⥪<EFBFBD><EFBFBD> (HEX)
    mcall   SF_DRAW_NUMBER, 256+8 shl 16, [color], <CURCOLX+27,CURCOLY+2>, 0x10000000, 0

    ; <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> 4: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    ; edx - <EFBFBD><EFBFBD><EFBFBD>㥬 '#'
    ; esi - <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    ; mcall   SF_DRAW_TEXT, <38,20>, 0, hex, 1

    ;.................................................................................................
    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> r g b <EFBFBD><EFBFBD><EFBFBD>祭<EFBFBD><EFBFBD>
    ;.................................................................................................
    call    get_spectr

    movzx   eax,[cred]                    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mov     ebx,12*65536+190               ; [x <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>]
    call    draw_value                    ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    movzx   eax,[cgreen]                  ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mov     ebx,37*65536+190              ; [x <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>]
    call    draw_value                    ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    movzx   eax,[cblue]                   ; ᨭ<EFBFBD><EFBFBD>
    mov     ebx,62*65536+190              ; [x <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>]
    call    draw_value                    ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    movzx   eax,[calpha]                  ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mov     ebx,87*65536+190              ; [x <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>] *65536 + [y <EFBFBD><EFBFBD>砫<EFBFBD><EFBFBD><EFBFBD><EFBFBD>]
    call    draw_value                    ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD> १<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>

    ;.................................................................................................
    ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD> <EFBFBD>㪢<EFBFBD> r g b a
    ;.................................................................................................
    mov     eax,SF_DRAW_TEXT  ; 4 - <EFBFBD>뢥<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    mov     ebx,18 shl 16+DRAWY+32              ; [<EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> x]*65536 + [<EFBFBD><EFBFBD><EFBFBD>न<EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> y]
    mov     ecx, 0x00000000               ; 0xX0RRGGBB (RR, GG, BB <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 梥<EFBFBD> ⥪<EFBFBD><EFBFBD><EFBFBD>)
    add     ecx, [sc.work_text]
    mov     edx,cname                     ; 㪠<EFBFBD><EFBFBD>⥫<EFBFBD> <EFBFBD><EFBFBD> <EFBFBD><EFBFBD>砫<EFBFBD> <EFBFBD><EFBFBD>ப<EFBFBD>
    mov     esi,1                         ; <EFBFBD>뢮<EFBFBD><EFBFBD><EFBFBD><EFBFBD> esi ᨬ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
    newline:                              ; 横<EFBFBD>
      int     0x40                        ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EFBFBD><EFBFBD>
      add     ebx,25 shl 16               ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞
      inc     edx                         ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞
      cmp     [edx],byte 'x'              ; <EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD> <EFBFBD><EFBFBD><EFBFBD>⮬ <EFBFBD>
    jne    newline                        ; <EFBFBD>᫨ <EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD> ࠢ<EFBFBD><EFBFBD>

    ;.................................................................................................
    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> ᫠<EFBFBD><EFBFBD><EFBFBD>஢
    ;.................................................................................................
    ; <EFBFBD>㭪<EFBFBD><EFBFBD><EFBFBD> 13 - <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD><EFBFBD> <EFBFBD><EFBFBD>אַ㣮<EFBFBD>쭨<EFBFBD>

     mov ebx, 18*65536+18
     mov ecx, 55*65536+55

     push dword 0xFC5663
     push dword 0xFA0919
     push dword 0xE20516
     push dword 0xFA0919

     call Draw_base

     add ebx, 20*65536+20

     push dword 0x33F742
     push dword 0x0ADD18
     push dword 0x08CE19
     push dword 0x08CE19

     call Draw_base

     add ebx, 20*65536+20

     push dword 0x88A6FF
     push dword 0x3366FF
     push dword 0x114DFF
     push dword 0x114DFF

     call Draw_base

     add ebx, 20*65536+20

     push dword 0xDADADA
     push dword 0xB9B9B9
     push dword 0xA9A9A9
     push dword 0xA9A9A9

     call Draw_base

    ;.................................................................................................
    ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD>ᮢ<EFBFBD><EFBFBD> <EFBFBD><EFBFBD><EFBFBD><EFBFBD>㭪<EFBFBD><EFBFBD>
    ;.................................................................................................
     mov ebx, 13*65536+13
     mov ecx, (55-3)*65536+(55-3)
     movzx   eax,[cred]
     call draw_slider

     mov ebx, (13+25*1)*65536+(13+25*1)
     mov ecx, (55-3)*65536+(55-3)
     movzx   eax,[cgreen]
     call draw_slider

     mov ebx, (13+25*2)*65536+(13+25*2)
     mov ecx, (55-3)*65536+(55-3)
     movzx   eax,[cblue]
     call draw_slider

     mov ebx, (13+25*3)*65536+(13+25*3)
     mov ecx, (55-3)*65536+(55-3)
     movzx   eax,[calpha]
     call draw_slider


    ret                                   ; <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>頥<EFBFBD> <EFBFBD><EFBFBD>ࠢ<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
;end_draw_result

Draw_base:
push ebp
mov ebp, esp

add ebx, 1*65536+4
mcall SF_DRAW_LINE, , , 0
add ecx, 128*65536+128
int     0x40

sub ebx, 1*65536+4
sub ecx, (128-1)*65536+1
int     0x40

add ebx, 1*65536+1
mov edx, dword [ebp+20]
int     0x40

add ebx, 1*65536+1
mov edx, dword [ebp+16]
int     0x40

add ebx, 1*65536+1
mov edx, dword [ebp+12]
int     0x40

add ebx, 1*65536+1
mov edx, dword [ebp+8]
int     0x40

add ebx, 1*65536+1
mov edx, 0
int     0x40

sub ecx, 1*65536+(128-1)

pop ebp
ret 4*4



draw_slider:
shr eax, 1
mov edx, eax
shl edx, 16
or eax, edx
sub ecx, eax
add ecx, 127*65536+127

add ecx, 1*65536+5
mcall SF_DRAW_LINE, , , 0
add ebx, 15*65536+15
int     0x40

sub ebx, 14*65536+1
sub ecx, 1*65536+5
int     0x40

mov edx, 0xFFFFFF
add ecx, 1*65536+1
int     0x40

mov edx, 0xE1E1E1
add ecx, 1*65536+1
int     0x40
add ecx, 1*65536+1
int     0x40
add ecx, 1*65536+1
int     0x40

mov edx, 0xB9B9B9
add ecx, 1*65536+1
int     0x40

mov edx, 0
add ecx, 1*65536+1
int     0x40

ret

;end_slider