Palitra branch by Vaicheslav97 focused on updating UI

git-svn-id: svn://kolibrios.org@9470 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/media/palitra/branch/Tupfile.lua

@@ -0,0 +1,2 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+tup.rule("palitra.asm", "fasm %f %o " .. tup.getconfig("KPACK_CMD"), "palitra")

programs/media/palitra/branch/build.bat

@@ -0,0 +1,4 @@
+@fasm.exe  palitra.asm palitra
+@kpack palitra
+
+pause

programs/media/palitra/branch/draw_sliders.inc

@@ -0,0 +1,145 @@
+    ;.................................................................................................
+    ; Žâà¨á®¢ª  á« ©¤¥à®¢
+    ;.................................................................................................
+    ; ”ã­ªæ¨ï 13 - ­ à¨á®¢ âì ¯àאַ㣮«ì­¨ª
+
+     mov ebx, 18*65536+18
+     mov ecx, 61*65536+61
+
+     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
+
+    ;.................................................................................................
+    ; Žâà¨á®¢ª  ¯®«§ã­ª®¢
+    ;.................................................................................................
+     mov ebx, 16*65536+16
+     mov ecx, 61*65536+61
+     movzx   eax,[cred]
+     call draw_slider
+
+     mov ebx, (16+25*1)*65536+(16+25*1)
+     mov ecx, 61*65536+61
+     movzx   eax,[cgreen]
+     call draw_slider
+
+     mov ebx, (16+25*2)*65536+(16+25*2)
+     mov ecx, 61*65536+61
+     movzx   eax,[cblue]
+     call draw_slider
+
+     mov ebx, (16+25*3)*65536+(16+25*3)
+     mov ecx, 61*65536+61
+     movzx   eax,[calpha]
+     call draw_slider
+
+
+    ret                                   ; ‚®§¢à é ¥¬ ã¯à ¢«¥­¨¥
+;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+2
+mcall SF_DRAW_LINE, , , 0
+add ebx, 9*65536+9
+int     0x40
+
+sub ebx, 8*65536+1
+sub ecx, 1*65536+2
+int     0x40
+
+mov edx, 0xE1E1E1
+add ecx, 1*65536+1
+int     0x40
+add ecx, 1*65536+1
+int     0x40
+
+mov edx, 0
+add ecx, 1*65536+1
+int     0x40
+
+shr ebx, 16
+shr ecx, 16
+dec ecx
+mcall SF_PUT_PIXEL, , , 0xF3F3F3
+int     0x40
+
+ret
+
+;end_slider

programs/media/palitra/branch/params_init.inc

@@ -0,0 +1,31 @@
+    mov  edi,params	    ; 㪠§ â¥«ì ­  áâபã
+    call str_len	    ; ¯®«ãç ¥¬ ¤«¨­ã áâப¨
+    cmp  eax,0		    ; áâà ¢­¨¢ ¥¬ ¤«¨­ã á ­ã«ñ¬
+    je	 red		    ; ¥á«¨ ¯ à ¬¥â஢ ­¥â â® ã室¨¬
+    call    _read_params    ; ¨­ ç¥ ç¨â ¥¬ ¯ à ¬¥âàë æ¢¥â  (®ç¥­ì ªà¨¢®)
+    xor  eax,eax	    ; § ­ã«ï¥¬ ॣ¨áâà
+    mov  al,byte [params]   ; ç¨â ¥¬ ¯ à ¬¥âà ¬®¤ 
+    cmp  al,'N' 	    ; áà ¢­¨¢ ¥¬ á normal mode
+    jne _no_normalmode	    ; ¥á«¨ ­¥â â® ã室¨¬ ­  ¯à®¢¥àªã ¤ «ìè¥
+    mov  [runmode],1	    ; ¥á«¨ ¤  â® ãáâ ­ ¢«¨¢ ¥¬ ¥£®
+    jmp  red		    ; ¨¤ñ¬ ­  ®âà¨á®¢ªã
+  _no_normalmode:	    ; ¥á«¨ ­¥ normal mode â®
+    cmp  al,'H' 	    ; ¢®§¬®¦­® hidden mode
+    jne _no_hiddenmode	    ; ¥á«¨ ­¥ ®­ â® ã室¨¬ ¤ «ìè¥
+    mov  [runmode],2	    ; ¥á«¨ ®­ â® ãáâ ­ ¢«¨¢ ¥¬ çâ® íâ® ®­ (­ å?)
+    call set_background     ; ¬¥­ï¥¬ ä®­
+    jmp  bexit		    ; ¨ § ªà뢠¥¬ ¯à®£ã
+  _no_hiddenmode:	    ; ¥á«¨ ­¥ hidden mode
+    cmp  al,'B' 	    ; ¢®§¬®¦­® noise mode
+    jne _no_noisemode	    ; ¥á«¨ ­¥ ®­ â® ã室¨¬ ¤ «ìè¥
+    mov  [runmode],2	    ; ¥á«¨ ®­ â® ãáâ ­ ¢«¨¢ ¥¬ çâ® íâ® ®­ (­ å?)
+    call set_background2    ; ¬¥­ï¥¬ ä®­
+    jmp  bexit		    ; ¨ § ªà뢠¥¬ ¯à®£ã
+  _no_noisemode:	    ; ¥á«¨ ­¥ noise mode
+    cmp  al,'D' 	    ; ¢®§¬®¦­® íâ® color dialog mode
+    jne _no_dialogmode	    ; ¥á«¨ ¢áñ â ª¨ ­¥ ®­ â® ã室¨¬
+    mov  [runmode],3	    ; ¨­ ç¥ 㪠§ë¢ ¥¬ çâ® íâ® â ª¨ ®­
+    jmp  red		    ; ¨ ã室¨¬ ­  ¢ë¯®«­¥­¨¥
+  _no_dialogmode:	    ; ¥á«¨ íâ® ­¨ ®¤¨­ ¨§ § ï¢«¥­ëå ¬®¤®¢
+    mov  [runmode],1	    ; â® á¡à á뢠¥¬ ­  ¤¥ä®«â
+    jmp  red		    ; ¨ à¨á㥬

programs/media/palitra/branch/readme.txt

@@ -0,0 +1,27 @@
+DOS-866
+
+Ž¯¨á ­¨¥ ¯ à ¬¥â஢ ¤«ï § ¯ã᪠ ¯à®£à ¬¬ë Palitra
+
+$ § ¯ã᪠¡¥§ ¯ à ¬¥â஢
+------------------------------------------------------------------------------+
+<EFBFBD>ணࠬ¬  ¤ ñâ ¢®§¬®¦­®áâì ¢ë¡®à  æ¢¥â®¢ ¨§ ¯ «¨âàë ¨ ãáâ ¢­®¢ª¨ ¨å ¯à¨ ¦¥« ­¨¨
+ª ª ä®­ à ¡®ç¥£® á⮫ .
+..............................................................................+
+
+
+$ § ¯ãáª á ¯ à ¬¥â஬ N
+------------------------------------------------------------------------------+
+à ¢­®á¨«ì­® § ¯ãáªã ¡¥§ ¯ à ¬¥â஢ §  ¨áª«î祭¨¥¬ ⮣®, çâ® æ¢¥â  ¯® 㬮«ç ­¨î
+¡ã¤ãâ ᮮ⢥âá⢮¢ âì ¯¥à¥¤ ­­ë¬ ¢ ¯ à ¬¥âà å. ‚®§¬®¦­ë ¢ à¨ ­âë § ¯ã᪠:
+
+  /rd/1/media/palitra N 00FF00FF 00FF0000
+  /rd/1/media/palitra N 00F724A3 00736698
+..............................................................................+
+
+
+$ § ¯ãáª á ¯ à ¬¥â஬ H
+------------------------------------------------------------------------------+
+<EFBFBD>ணࠬ¬  § ¯ã᪠¥âáï ¢ hidden mode ¡¥§ ®âà¨á®¢ª¨ ®ª­  ¯à¨«®¦¥­¨ï ¨ § £à㦠¥â
+¤¢  æ¢¥â  ¨§ /settings/wallpaper.dat. <20>®á«¥ 祣®, ¯®«ã祭­ë¥ æ¢¥â  ¡ã¤ãâ
+¨á¯®«ì§®¢ ­ë ¤«ï § «¨¢ª¨ ä®­  à ¡®ç¥£® á⮫  £à ¤¨¥­â®¬ ¨§ 㪠§ ­­ëå 梥⮢.
+..............................................................................+