From c1ea6eb7873b6dbce838aab78eca823111008296 Mon Sep 17 00:00:00 2001
From: ConLenov <ConLenov@kolibrios.org>
Date: Sun, 31 Oct 2021 06:48:45 +0000
Subject: [PATCH] Add 8Metro skin from ConLenov

git-svn-id: svn://kolibrios.org@9225 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 skins/ConLenov/8Metro/8Metro.asm      |  33 ++++
 skins/ConLenov/8Metro/Tupfile.lua     |   3 +
 skins/ConLenov/8Metro/base.bmp        | Bin 0 -> 630 bytes
 skins/ConLenov/8Metro/base_1.bmp      | Bin 0 -> 630 bytes
 skins/ConLenov/8Metro/build.bat       |   4 +
 skins/ConLenov/8Metro/default.dtp.asm |  11 ++
 skins/ConLenov/8Metro/left.bmp        | Bin 0 -> 438 bytes
 skins/ConLenov/8Metro/left_1.bmp      | Bin 0 -> 438 bytes
 skins/ConLenov/8Metro/oper.bmp        | Bin 0 -> 4086 bytes
 skins/ConLenov/8Metro/oper_1.bmp      | Bin 0 -> 4086 bytes
 skins/ConLenov/8Metro/skin.inc        | 239 ++++++++++++++++++++++++++
 11 files changed, 290 insertions(+)
 create mode 100644 skins/ConLenov/8Metro/8Metro.asm
 create mode 100644 skins/ConLenov/8Metro/Tupfile.lua
 create mode 100644 skins/ConLenov/8Metro/base.bmp
 create mode 100644 skins/ConLenov/8Metro/base_1.bmp
 create mode 100644 skins/ConLenov/8Metro/build.bat
 create mode 100644 skins/ConLenov/8Metro/default.dtp.asm
 create mode 100644 skins/ConLenov/8Metro/left.bmp
 create mode 100644 skins/ConLenov/8Metro/left_1.bmp
 create mode 100644 skins/ConLenov/8Metro/oper.bmp
 create mode 100644 skins/ConLenov/8Metro/oper_1.bmp
 create mode 100644 skins/ConLenov/8Metro/skin.inc

diff --git a/skins/ConLenov/8Metro/8Metro.asm b/skins/ConLenov/8Metro/8Metro.asm
new file mode 100644
index 0000000000..173096e6ad
--- /dev/null
+++ b/skins/ConLenov/8Metro/8Metro.asm
@@ -0,0 +1,33 @@
+;SKIN (.SKN) - COMPILE WITH FASM
+
+include 'skin.inc'
+
+SKIN_PARAMS \
+  height          = bmp_base.height,\     ; skin height
+  margins         = [5:1:60:1],\          ; margins [left:top:right:bottom]
+  colors active   = [binner=0xffffff:\    ; border inner color
+                     bouter=0x111111:\    ; border outer color
+                     bframe=0xffffff],\   ; border frame color
+  colors inactive = [binner=0xffffff:\    ; border inner color
+                     bouter=0x111111:\    ; border outer color
+                     bframe=0xffffff],\   ; border frame color
+  dtp             = 'default.dtp'          ; dtp colors
+
+SKIN_BUTTONS \
+  close    = [-24:0][24:24],\		  ; buttons coordinates
+  minimize = [-48:0][24:24]		  ; [left:top][width:height]
+
+SKIN_BITMAPS \
+  left active   = bmp_left,\              ; skin bitmaps pointers
+  left inactive = bmp_left1,\
+  oper active   = bmp_oper,\
+  oper inactive = bmp_oper1,\
+  base active   = bmp_base,\
+  base inactive = bmp_base1
+
+BITMAP bmp_left ,'left.bmp'               ; skin bitmaps
+BITMAP bmp_oper ,'oper.bmp'
+BITMAP bmp_base ,'base.bmp'
+BITMAP bmp_left1,'left_1.bmp'
+BITMAP bmp_oper1,'oper_1.bmp'
+BITMAP bmp_base1,'base_1.bmp'
diff --git a/skins/ConLenov/8Metro/Tupfile.lua b/skins/ConLenov/8Metro/Tupfile.lua
new file mode 100644
index 0000000000..1de5d32bcc
--- /dev/null
+++ b/skins/ConLenov/8Metro/Tupfile.lua
@@ -0,0 +1,3 @@
+if tup.getconfig("NO_FASM") ~= "" then return end
+tup.rule("default.dtp.asm", 'fasm "%f" "%o"', "default.dtp")
+tup.rule({"8Metro.asm", extra_inputs = {"default.dtp"}}, 'fasm "%f" "%o" ' .. tup.getconfig("KPACK_CMD"), "8Metro.skn")
diff --git a/skins/ConLenov/8Metro/base.bmp b/skins/ConLenov/8Metro/base.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..38190627e8339f75de536939a65a5b2c89c53eda
GIT binary patch
literal 630
qcmZ?rEn{K;12Z700mK|YECIxfV3L8s0V)p^f&;-(Fd70Bga81k>?k1s

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/base_1.bmp b/skins/ConLenov/8Metro/base_1.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..38190627e8339f75de536939a65a5b2c89c53eda
GIT binary patch
literal 630
qcmZ?rEn{K;12Z700mK|YECIxfV3L8s0V)p^f&;-(Fd70Bga81k>?k1s

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/build.bat b/skins/ConLenov/8Metro/build.bat
new file mode 100644
index 0000000000..ad8b05c36d
--- /dev/null
+++ b/skins/ConLenov/8Metro/build.bat
@@ -0,0 +1,4 @@
+@del default.skn
+@fasm default.dtp.asm default.dtp
+@fasm 8Metro.asm default.skn
+@del default.dtp
diff --git a/skins/ConLenov/8Metro/default.dtp.asm b/skins/ConLenov/8Metro/default.dtp.asm
new file mode 100644
index 0000000000..2ea5013a41
--- /dev/null
+++ b/skins/ConLenov/8Metro/default.dtp.asm
@@ -0,0 +1,11 @@
+;SYSTEM COLORS (.DTP) - COMPILE WITH FASM
+frame            dd 0x000000
+grab             dd 0x000000
+grab_button      dd 0xC6C9CB
+grab_button_text dd 0xffffff
+grab_text        dd 0xFFFFFF
+work             dd 0xffffff
+work_button      dd 0xcccccc
+work_button_text dd 0x000000
+work_text        dd 0x000000
+work_graph       dd 0xafa9b9
\ No newline at end of file
diff --git a/skins/ConLenov/8Metro/left.bmp b/skins/ConLenov/8Metro/left.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..2e023b82c1840ee9c845e0ab133e908054c82120
GIT binary patch
literal 438
zcmZ?r-NwiO24+A~1Bh9HSOSO{!6XAi15o}j9|Qx1!9WldFrab;NBO7$LiO+f0DdVO
A<^TWy

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/left_1.bmp b/skins/ConLenov/8Metro/left_1.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..2e023b82c1840ee9c845e0ab133e908054c82120
GIT binary patch
literal 438
zcmZ?r-NwiO24+A~1Bh9HSOSO{!6XAi15o}j9|Qx1!9WldFrab;NBO7$LiO+f0DdVO
A<^TWy

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/oper.bmp b/skins/ConLenov/8Metro/oper.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..083891489d52127c95d7c55ec2acaa586cfa5fab
GIT binary patch
literal 4086
zcmeH{!3u&v5QgmuqPp}5Jwe^;W>g}+SNDisp^L0u0!8T%ox5}?J4aAqnW&8=otlMW
zms;4tUF3J!{oH?M+P$!>JfaD614au*9Y*OfD~eNm2k8|RZc(k)I-L!Z2WYur<{LAC
zgiRzTT&5_#i^3`MGcQqg@hjgmB(OiDaE`}^>GY_o+h^m__1$W99S-+cAN!~;*|zQb
zzT-HiX%a#_&vRWD-Z4(lv2&NpOBAJ}(V^cD27|z|PPbb+pNH7`k2onj*eC2<O$%nT
za~$Vvi$w^`lS$5ut>?-~@f~;!W4B&MX__TTM#!n#Epp&3s^olT!rRLM@vnRrrH&~1
q$+a(GMUCkcPAnfVoogLYe8+e&U2?)@isHK{oH9SL4)dMP*7rLsiW8Us

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/oper_1.bmp b/skins/ConLenov/8Metro/oper_1.bmp
new file mode 100644
index 0000000000000000000000000000000000000000..2c6c1c00d14b2dbf57b91b0fb461c3b992fcdc4f
GIT binary patch
literal 4086
zcmeH{y$XXs49D#g6t@nFqDyz7-MjZ?oO}fF4ICVu99$g44=5-;fzMKO&^Bnf$wN|X
z<sg9^As55%{<-sZe;%dDF0h`#uiz)}!?a4$<FgMbX0iwdv?5^2#JTO5NKevpTLrf5
zhPt0^+rE~}vMel>ZQD)L7=|%_sH$ol$ByIh`k*+&Fiesp&-1#j%d&*HC<=&8)8zH%
z<<m6n`#uN)UDq{D^E|KXx-83h^(anWlP~hX=DP08HZ%La56rw)dvOAfq9{=m4Z|>w
zV^vk`4lJS)=b|huDazbMc}G9}FR`ipKiKgdp$<!&D7jXPNzYY@Pz9tXO0Lyn(DMyI
C9E2SJ

literal 0
HcmV?d00001

diff --git a/skins/ConLenov/8Metro/skin.inc b/skins/ConLenov/8Metro/skin.inc
new file mode 100644
index 0000000000..81a6bd8f3f
--- /dev/null
+++ b/skins/ConLenov/8Metro/skin.inc
@@ -0,0 +1,239 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;                                                              ;;
+;; Copyright (C) KolibriOS team 2004-2017. All rights reserved. ;;
+;; Distributed under terms of the GNU General Public License    ;;
+;;                                                              ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;============================================================================
+; This file should be used to generate skins of new standard
+;============================================================================
+; skin file structure:
+;----------------------------------------------------------------------------
+;  header:
+;   dd 'SKIN'
+;   dd = version (1 for now)
+;   dd @ params
+;   dd @ buttons
+;   dd @ bitmaps
+; ...
+;----------------------------------------------------------------------------
+; NOTE: order of sections listed below is insignificant
+;       since they're identified by pointer in above header
+;----------------------------------------------------------------------------
+; ...
+;  params:
+;   dd = skin height
+;   dw = right margin
+;   dw = left margin
+;   dw = bottom margin
+;   dw = top margin
+;   dd = inner line color
+;   dd = outer line color
+;   dd = frame color
+;   dd = dtp file size
+;   ?? = dtp file itself
+; ...
+;----------------------------------------------------------------------------
+; ...
+;  buttons:
+;   dd = button type (1 = close, 2 = minimize)
+;   dw = left button coord (could be negative)
+;   dw = top button coord (could be negative)
+;   dw = button width
+;   dw = button height
+;   ... etc for all buttons
+;   dd = 0 (end of buttons list)
+; ...
+;----------------------------------------------------------------------------
+; ...
+;  bitmaps:
+;   dw = bitmap kind (1 = left, 2 = oper, 3 = base)
+;   dw = bitmap type (1 = active, 0 = inactive)
+;   dd @ bitmap
+;   ... etc for all bitmaps
+;   dd 0 (end of bitmaps list)
+; ...
+;----------------------------------------------------------------------------
+; ...
+;  bitmap:
+;   dd = bitmap width
+;   dd = bitmap height
+;   ?? = raw bitmap data
+;   ... etc for all bitmaps
+; ...
+;============================================================================
+
+dd 'SKIN',1,__params__,__buttons__,__bitmaps__
+
+struc BITMAPFILEHEADER {
+  .bfType      dw ? ; WORD
+  .bfSize      dd ? ; DWORD
+  .bfReserved1 dw ? ; WORD
+  .bfReserved2 dw ? ; WORD
+  .bfOffBits   dd ? ; DWORD
+}
+
+struc BITMAPINFOHEADER {
+  .biSize          dd ? ; DWORD
+  .biWidth         dd ? ; LONG
+  .biHeight        dd ? ; LONG
+  .biPlanes        dw ? ; WORD
+  .biBitCount      dw ? ; WORD
+  .biCompression   dd ? ; DWORD
+  .biSizeImage     dd ? ; DWORD
+  .biXPelsPerMeter dd ? ; LONG
+  .biYPelsPerMeter dd ? ; LONG
+  .biClrUsed       dd ? ; DWORD
+  .biClrImportant  dd ? ; DWORD
+}
+
+struc _bmp {
+  .h BITMAPFILEHEADER
+  .i BITMAPINFOHEADER
+}
+virtual at 0
+  _bmp _bmp
+end virtual
+
+macro BITMAP _name*,_fname*
+{
+  local w,h,a,r,g,b
+  virtual at 0
+    _file equ _#_name
+    _file::
+    file _fname
+  end virtual
+  load w dword from _file:_bmp.i.biWidth
+  load h dword from _file:_bmp.i.biHeight
+  load hsize dword from _file:_bmp.h.bfOffBits
+  align 4
+  label _name
+    .width  = w
+    .height = h
+  dd w,h
+  a=hsize+(w*3+(w mod 4))*(h-1)
+  size = $
+  repeat h
+    repeat w
+      load r from _file:a+0
+      load g from _file:a+1
+      load b from _file:a+2
+      db r,g,b
+      a=a+3
+    end repeat
+    a=a-w*3*2-(w mod 4)
+  end repeat
+}
+
+macro define_colors name,[col,val]
+{
+  common
+    local a,b,c
+  forward
+    match =binner,col \{ a = val \}
+    match =bouter,col \{ b = val \}
+    match =bframe,col \{ c = val \}
+  common
+    name equ a,b,c
+}
+
+macro SKIN_PARAMS [a]
+{
+  common
+    local _height,_margins,_colors,_colors_1,_dtp
+    __params__:
+  forward
+    match qq == ww,a
+    \{
+      match =height,qq \\{ _height = ww \\}
+      match =margins,qq \\{
+        match [q1:q2:q3:q4],ww
+        \\\{
+          _margins equ q3,q1,q4,q2
+        \\\}
+      \\}
+      match =colors =active,qq
+      \\{
+        match [q10==q11:q20==q21:q30==q31],ww
+        \\\{
+          define_colors _colors,q10,q11,q20,q21,q30,q31
+        \\\}
+      \\}
+      match =colors =inactive,qq
+      \\{
+        match [q10==q11:q20==q21:q30==q31],ww
+        \\\{
+          define_colors _colors_1,q10,q11,q20,q21,q30,q31
+        \\\}
+      \\}
+      match =dtp,qq \\{ _dtp equ ww \\}
+    \}
+  common
+    dd _height
+    dw _margins
+    dd _colors,_colors_1
+    dd @f - $ - 4
+    file _dtp
+    @@:
+}
+
+macro SKIN_BUTTONS [a]
+{
+  common
+    local btn
+    __buttons__:
+  forward
+    match qq == ww,a
+    \{
+      btn = 0
+      match =close,qq    \\{ btn = 1 \\}
+      match =minimize,qq \\{ btn = 2 \\}
+      match [q1:q2][q3:q4],ww
+      \\{
+        if btn <> 0
+          dd btn
+          dw q1,q2,q3,q4
+        end if
+      \\}
+    \}
+  common
+    dd 0
+}
+
+macro SKIN_BITMAPS [a]
+{
+  common
+    local bmp
+    __bitmaps__:
+  forward
+    match qq == ww,a
+    \{
+      bmp=-1
+      match qqq =active,qq   \\{ bmp = 1 \\}
+      match qqq =inactive,qq \\{ bmp = 0 \\}
+      match =left qqq,qq
+      \\{
+        if bmp >= 0
+          dw 1,bmp
+          dd ww
+        end if
+      \\}
+      match =oper qqq,qq
+      \\{
+        if bmp >= 0
+          dw 2,bmp
+          dd ww
+        end if
+      \\}
+      match =base qqq,qq
+      \\{
+        if bmp >= 0
+          dw 3,bmp
+          dd ww
+        end if
+      \\}
+    \}
+  common
+    dd 0
+}