WebSVN – Kolibri OS – Diff – /programs/media/pic4/trunk/pic4.asm


;
;    BACKGROUND SET  - Compile with fasm
;
  use32
  org     0x0
  db      'MENUET01'    ; 8 byte id
  dd      0x01          ; version
  dd      START         ; program start
  dd      I_END         ; image size
  dd      0x80000       ; reguired amount of memory
  dd      0x80000       ; stack pointer
  dd      I_Param,0
 
  include 'lang.inc'
  include '..\..\..\macros.inc'
purge mov       ; decrease kpack'ed size
 
START:
    mov  eax,48
    mov  ebx,3
    mov  ecx,sc
    mov  edx,sizeof.system_colors
    mcall
 
    cmp  dword [I_Param], 'BOOT'
    jz   OnBoot
 
    call draw_window
 
    call load_texture
    call draw_image
 
 
still:
 
    mov  eax,10                 ; wait here for event
    mcall
 
    dec  eax
    jz   red
    dec  eax
    jnz  button
 
  key:
    mov  al,2
    mcall
    jmp  still
 
  red:
    call draw_window
    jmp  still
 
  button:
    mov  al,17
    mcall
 
    shr  eax,8
 
    cmp  al,101                  ; tiled
    jne  no101
    mov  ecx,1
setbgrmode:
    mov  eax,15
    mov  ebx,4
    mcall
    dec  ebx
    mcall
    jmp  still
  no101:
 
    mov  ecx, 2
    cmp  al, 102
    jz   setbgrmode
  no102:
 
    cmp  al,1           ; end program
    jnz  no_end
    or   eax,-1
    mcall
  no_end:
 
    cmp  al,11
    jz   bg
    cmp  al,12
    jz   bg
    cmp  al,13
    jz   bg
 
    cmp  al,121
    jb   no_bg_select
    cmp  al,133
    ja   no_bg_select
    mov  eax,[arrays + (eax-121)*4]
    mov  [usearray],eax
    call load_texture
    call draw_image
    jmp  still
  no_bg_select:
 
    cmp  al,14+20
    jge  bg4
 
    jmp  bg2
 
 
OnBoot:
 
    call load_texture
 
    mov  eax,15
    mov  ebx,1
    mov  ecx,256
    mov  edx,256
    mcall
 
    mov  ebx,5
    mov  ecx,0x40000 ; <<< 0x40000 for blue, 0x40000+1 for red,
                       ; <<< 0x40000+2 for green background at boot
    mov  edx,0
    mov  esi,256*3*256
    mcall
 
    dec  ebx
    mov  ecx,2
    mcall
 
    dec  ebx
    mcall
 
    mov  eax,-1
    mcall
 
 
 
set_picture:
 
    mov  eax,image+99-3*16
    mov  ebx,0x40000+255*3+255*3*256
  newpix:
    mov  ecx,[eax]
    mov  [ebx],cx
    shr  ecx,16
    mov  [ebx+2],cl
    add  eax,3
    sub  ebx,3
    cmp  ebx,0x40002
    jge  newpix
 
    ret
 
 
load_texture:
 
    call  gentexture
    call  set_picture
 
    ret
 
 
; set background
 
bg:
 
    mov  edi,0x40000
 
    cmp  al,12
    jb   bb1
    inc  edi
  bb1:
    cmp  al,13
    jb   bb2
    inc  edi
  bb2:
 
    mov  eax,15
    mov  ebx,1
    mov  ecx,256
    mov  edx,256
    mcall
 
    mov  ebx,5
    mov  ecx,edi
    mov  edx,0
    mov  esi,256*256*3
    mcall
 
    mov  ebx,3
    mcall
 
    jmp  still
 
 
; colored background
 
bg2:
        mov     edi, eax
        mcall   15,4,1
        mcall   ,1,,1
        lea     ecx, [(edi-14)*3+fill]
        mcall   ,5,,0,3*1*1
        mcall   ,3
 
    jmp  still
 
 
; shaped background
 
bg4:
 
    shl  eax,3
    add  eax,shape - (14+20)*8
    mov  ecx,[eax+0]
    mov  edx,[eax+4]
 
    mov  eax,15
    mov  ebx,1
    mcall
 
    mov  ebx,3
    mcall
 
    jmp  still
 
 
; *********************************************
; ******* CELLULAR TEXTURE GENERATION *********
; **** by Cesare Castiglia (dixan/sk/mfx) *****
; ********* dixan@spinningkids.org   **********
; *********************************************
; * the algorythm is kinda simple. the color  *
; * component for every pixel is evaluated    *
; * according to the squared distance from    *
; * the closest point in 'ptarray'.           *
; *********************************************
 
gentexture:
 
  xor ecx,ecx        ; ycounter
  xor edi,edi        ; pixel counter
 
  mov ebp,[usearray]
 
 ylup:
    xor ebx,ebx
 
 xlup:
  push edi
  xor edi, edi
  mov esi, 512000000           ; abnormous initial value :)
 
 pixlup:
   push esi
   mov eax,ebx                 ; evaluate first distance
   sub eax, [ebp+edi]          ; x-x1
   call wrappit
   imul eax
   mov esi, eax                ; (x-x1)^2
   mov eax, ecx
   add edi,4
   sub eax, [ebp+edi]          ; y-y1
   call wrappit
   imul eax                    ; (y-y1)^2
   add eax,esi                 ; (x-x1)^2+(y-y1)^2
   pop esi
 
   cmp esi,eax
   jb  ok                      ; compare and take the smaller one
   mov esi,eax
 
  ok:
   add edi,4
   cmp [ebp+edi],dword 777
   jne pixlup
 
   mov eax,esi                 ; now evaluate color...
 
   mov edi,24            ; 50 = max shaded distance
   idiv edi
 
   pop edi
   mov [image+51+edi],eax
   add edi,3
 
  add ebx,1              ; bounce x loop
  cmp ebx,256            ; xsize
  jne xlup
 
  add ecx,1
  cmp ecx,256            ; ysize
  jne ylup
 
  ret
 
wrappit:
  cmp eax,0              ; this makes the texture wrap
  jg noabs
  neg eax
  noabs:
  cmp eax,128
  jb nowrap
  neg eax
  add eax,256
  nowrap:
  ret
 
; *********************************************
; ******* WINDOW DEFINITIONS AND DRAW *********
; *********************************************
 
 
draw_image:
 
    mov  eax,7
    mov  ebx,0x40000
    mov  ecx,256*65536+255
    mov  edx,14*65536+40;55
    mcall
 
    ret
 
 
y_add  equ  19 ; 30
y_s    equ  13
 
y_add2 equ  315 ;325
set    equ  0 ;15
 
draw_window:
 
    mov eax, 12                   ; tell os about draw
    mov ebx, 1
    mcall
 
    xor eax, eax                    ; define and draw window
    mov ebx, 220*65536+293
    mov ecx, 50*65536+408
    mov edx, [sc.work]
    or  edx, 0x34000000
    mov edi, title
    mcall
 
    call draw_image
 
    mov  eax,8                     ; Blue button
    mov  ebx,(set+190+27)*65536+17
    mov  ecx,y_add*65536+y_s
    mov  edx,11
    mov  esi,0x005555bb
    mcall
    ;mov  eax,8                     ; Red button
    mov  ebx,(set+208+27)*65536+17
    mov  edx,12
    mov  esi,0x00bb5555
    mcall
    ;mov  eax,8                     ; Green button
    mov  ebx,(set+253)*65536+17
    mov  edx,13
    mov  esi,0x0055bb55
    mcall
 
    ;mov  eax, 8                     ; tiled
    mov  ebx, 90*65536+63
    mov  ecx, y_add*65536+y_s
    mov  edx, 101
    mov  esi, [sc.work_button]
    mcall
 
    ;mov  eax, 8                     ; stretch
    mov  ebx, 154*65536+61
    mov  edx, 102
    mcall
 
    mov  eax, 4
    mov  ebx, 215*65536+5
    mov  ecx, [sc.work_text]
    mov  edx, apply_text
    mov  esi, apply_text.size
    mcall
 
    mov  ebx, 14*65536+301
    mov  edx, image_buttons_text
    mov  esi, image_buttons_text.size
    mcall
 
    mov  ebx, 14*65536+(y_add2+27)
    mov  edx, simple_text
    mov  esi, simple_text.size
    mcall
 
    mov  ecx, (y_add2)*65536+20
    mov  ebx, (13)*65536+25
    mov  edx, 121
    mov  esi, [sc.work_button]
    mov  edi, 9
    mov  eax, 8
  @@:
    mcall
    add  ebx, 29*65536
    inc  edx
    dec  edi
    jnz  @b
 
 
    mov  edx, 34+4
    mov  edi, 4
    ;mov  eax, 8
    mov  ebx, 13*65536+18
    mov  ecx, y_add*65536+y_s
  @@:
    mcall
    inc  edx
    add  ebx, 19*65536
    dec  edi
    jnz  @b
 
 
    ;-----------------------
    mov  eax,8
    mov  edx,14                            ; button number
    mov  ebx,(13)*65536+17                 ; button start x & size
    mov  ecx,(y_add2+40)*65536+14          ; button start y & size
 
  newcb:
    mov  esi,[(edx-14)*4+colors]
 
    mcall
 
    inc  edx
    add  ebx,20*65536
 
    cmp  edx,27
    jnz  newcb
    ;-----------------------
 
    mov  eax, 4
    mov  ebx, 94*65536+4+y_add
    mov  ecx, [sc.work_button_text]
    mov  edx, la2
    mov  esi, la2.size
    mcall
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    ret
 
 
 
; DATA SECTION
 
if lang eq ru
    title db '¥­¥à â®à ä®­  à ¡®ç¥£® áâ®« ',0
else
    title db 'Background',0
end if
 
lsz apply_text,\
    ru, "à¨¬¥­¨âì:",\
    en, "Apply:"
 
lsz image_buttons_text,\
    ru, "ë¡¥à¨â¥ ®¡à §¥æ:",\
    en, "Select pattern:"
 
lsz simple_text,\
    ru, "¤­®æ¢¥â­ë© ä®­:",\
    en, "Single-color background:"
 
lsz la2,\
    ru, "  ",\
    en, "  TILED     STRETCH"
 
 
xx   db    'x'
 
colors:
    dd  0x770000
    dd  0x007700
    dd  0x000077
    dd  0x777700
    dd  0x770077
    dd  0x007777
    dd  0x777777
    dd  0x335577
    dd  0x775533
    dd  0x773355
    dd  0x553377
    dd  0x111111
    dd  0xcccccc
 
fill:
    db  0x00,0x00,0x77
    db  0x00,0x77,0x00
    db  0x77,0x00,0x00
    db  0x00,0x77,0x77
    db  0x77,0x00,0x77
    db  0x77,0x77,0x00
    db  0x77,0x77,0x77
    db  0x77,0x55,0x33
    db  0x33,0x55,0x77
    db  0x55,0x33,0x77
    db  0x77,0x33,0x55
    db  0x11,0x11,0x11
    db  0xcc,0xcc,0xcc
 
shape:
 
    dd  1024,64
    dd  1024,32
    dd  2048,32
    dd  4096,32
 
    dd  512,16
    dd  1024,16
    dd  2048,16
    dd  4096,16
 
    dd  64,32
    dd  64,16
    dd  32,32
    dd  8,8
    dd  16,16
    dd  64,64
 
usearray dd ptarray
 
arrays dd ptarray,ptarray2,ptarray3,ptarray4,ptarray5,ptarray6
        dd ptarray7,ptarray8,ptarray9
 
ptarray:
 
    dd  150,50
    dd  120,30
    dd  44,180
    dd  50,66
    dd  27,6
    dd  95,212
    dd  128,177
    dd  201,212
    dd  172,201
    dd  250,100
    dd  24,221
    dd  11,123
    dd  248,32
    dd  34,21
    dd  777     ; <- end of array
 
ptarray2:
 
    dd  0,0,50,50,100,100,150,150,200,200,250,250
    dd  50,150,150,50,200,100,100,200
    dd  777
 
ptarray3:
 
    dd  55,150,150,55,200,105,105,200
    dd  30,30,220,220
    dd  777
 
ptarray4:
 
    dd  196,0,196,64,196,128,196,196
    dd  64,32,64,96,64,150,64,228
    dd  777
 
ptarray5:
 
    dd  196,0,196,64,196,128,196,196
    dd  64,0,64,64,64,128,64,196
    dd  777
 
ptarray6:
 
    dd  49,49,128,50,210,50
    dd  50,128,128,128,210,128
    dd  50,210,128,210,210,210
 
    dd  777
 
ptarray7:
 
    dd  0,0
    dd  196,196,64,64
    dd  128,0
    dd  0,128
    dd  64,64,196,64
    dd  196,196,64,196
    dd  128,128
 
    dd  777
 
ptarray8:
 
    dd  0, 128
    dd  0, 128
    dd  128, 0
    dd  0, 128
    dd  128, 0
    dd  0, 128
    dd  128, 0
    dd  0, 128
    dd  128, 0
    dd  128, 128
 
    dd  777
 
ptarray9:
 
 
     dd  0,248,64,128,128,64,196,48,160,160,94,224,240,96,5,5,777
 
 
I_END:
sc system_colors
 
I_Param:
 
image:

Rev 551	Rev 651
1	;	1	;
2	; BACKGROUND SET - Compile with fasm	2	; BACKGROUND SET - Compile with fasm
3	;	3	;
4	use32	4	use32
5	org 0x0	5	org 0x0
6	db 'MENUET01' ; 8 byte id	6	db 'MENUET01' ; 8 byte id
7	dd 0x01 ; version	7	dd 0x01 ; version
8	dd START ; program start	8	dd START ; program start
9	dd I_END ; image size	9	dd I_END ; image size
10	dd 0x80000 ; reguired amount of memory	10	dd 0x80000 ; reguired amount of memory
11	dd 0x80000 ; stack pointer	11	dd 0x80000 ; stack pointer
12	dd I_Param,0	12	dd I_Param,0
13		13
14	include 'lang.inc'	14	include 'lang.inc'
15	include '..\..\..\macros.inc'	15	include '..\..\..\macros.inc'
16	purge mov ; decrease kpack'ed size	16	purge mov ; decrease kpack'ed size
17		17
18	START:	18	START:
19	mov eax,48	19	mov eax,48
20	mov ebx,3	20	mov ebx,3
21	mov ecx,sc	21	mov ecx,sc
22	mov edx,sizeof.system_colors	22	mov edx,sizeof.system_colors
23	mcall	23	mcall
24		24
25	cmp dword [I_Param], 'BOOT'	25	cmp dword [I_Param], 'BOOT'
26	jz OnBoot	26	jz OnBoot
27		27
28	call draw_window	28	call draw_window
29		29
30	call load_texture	30	call load_texture
31	call draw_image	31	call draw_image
32		32
33		33
34	still:	34	still:
35		35
36	mov eax,10 ; wait here for event	36	mov eax,10 ; wait here for event
37	mcall	37	mcall
38		38
39	dec eax	39	dec eax
40	jz red	40	jz red
41	dec eax	41	dec eax
42	jnz button	42	jnz button
43		43
44	key:	44	key:
45	mov al,2	45	mov al,2
46	mcall	46	mcall
47	jmp still	47	jmp still
48		48
49	red:	49	red:
50	call draw_window	50	call draw_window
51	jmp still	51	jmp still
52		52
53	button:	53	button:
54	mov al,17	54	mov al,17
55	mcall	55	mcall
56		56
57	shr eax,8	57	shr eax,8
58		58
59	cmp al,101 ; tiled	59	cmp al,101 ; tiled
60	jne no101	60	jne no101
61	mov ecx,1	61	mov ecx,1
62	setbgrmode:	62	setbgrmode:
63	mov eax,15	63	mov eax,15
64	mov ebx,4	64	mov ebx,4
65	mcall	65	mcall
66	dec ebx	66	dec ebx
67	mcall	67	mcall
68	jmp still	68	jmp still
69	no101:	69	no101:
70		70
71	mov ecx, 2	71	mov ecx, 2
72	cmp al, 102	72	cmp al, 102
73	jz setbgrmode	73	jz setbgrmode
74	no102:	74	no102:
75		75
76	cmp al,1 ; end program	76	cmp al,1 ; end program
77	jnz no_end	77	jnz no_end
78	or eax,-1	78	or eax,-1
79	mcall	79	mcall
80	no_end:	80	no_end:
81		81
82	cmp al,11	82	cmp al,11
83	jz bg	83	jz bg
84	cmp al,12	84	cmp al,12
85	jz bg	85	jz bg
86	cmp al,13	86	cmp al,13
87	jz bg	87	jz bg
88		88
89	cmp al,121	89	cmp al,121
90	jb no_bg_select	90	jb no_bg_select
91	cmp al,133	91	cmp al,133
92	ja no_bg_select	92	ja no_bg_select
93	mov eax,[arrays + (eax-121)*4]	93	mov eax,[arrays + (eax-121)*4]
94	mov [usearray],eax	94	mov [usearray],eax
95	call load_texture	95	call load_texture
96	call draw_image	96	call draw_image
97	jmp still	97	jmp still
98	no_bg_select:	98	no_bg_select:
99		99
100	cmp al,14+20	100	cmp al,14+20
101	jge bg4	101	jge bg4
102		102
103	jmp bg2	103	jmp bg2
104		104
105		105
106	OnBoot:	106	OnBoot:
107		107
108	call load_texture	108	call load_texture
109		109
110	mov eax,15	110	mov eax,15
111	mov ebx,1	111	mov ebx,1
112	mov ecx,256	112	mov ecx,256
113	mov edx,256	113	mov edx,256
114	mcall	114	mcall
115		115
116	mov ebx,5	116	mov ebx,5
117	mov ecx,0x40000 ; <<< 0x40000 for blue, 0x40000+1 for red,	117	mov ecx,0x40000 ; <<< 0x40000 for blue, 0x40000+1 for red,
118	; <<< 0x40000+2 for green background at boot	118	; <<< 0x40000+2 for green background at boot
119	mov edx,0	119	mov edx,0
120	mov esi,2563256	120	mov esi,2563256
121	mcall	121	mcall
122		122
123	dec ebx	123	dec ebx
124	mov ecx,2	124	mov ecx,2
125	mcall	125	mcall
126		126
127	dec ebx	127	dec ebx
128	mcall	128	mcall
129		129
130	mov eax,-1	130	mov eax,-1
131	mcall	131	mcall
132		132
133		133
134		134
135	set_picture:	135	set_picture:
136		136
137	mov eax,image+99-3*16	137	mov eax,image+99-3*16
138	mov ebx,0x40000+2553+2553*256	138	mov ebx,0x40000+2553+2553*256
139	newpix:	139	newpix:
140	mov ecx,[eax]	140	mov ecx,[eax]
141	mov [ebx],cx	141	mov [ebx],cx
142	shr ecx,16	142	shr ecx,16
143	mov [ebx+2],cl	143	mov [ebx+2],cl
144	add eax,3	144	add eax,3
145	sub ebx,3	145	sub ebx,3
146	cmp ebx,0x40002	146	cmp ebx,0x40002
147	jge newpix	147	jge newpix
148		148
149	ret	149	ret
150		150
151		151
152	load_texture:	152	load_texture:
153		153
154	call gentexture	154	call gentexture
155	call set_picture	155	call set_picture
156		156
157	ret	157	ret
158		158
159		159
160	; set background	160	; set background
161		161
162	bg:	162	bg:
163		163
164	mov edi,0x40000	164	mov edi,0x40000
165		165
166	cmp al,12	166	cmp al,12
167	jnz bb1	167	jb bb1
168	inc edi	168	inc edi
169	bb1:	169	bb1:
170	cmp al,13	170	cmp al,13
171	jnz bb2	171	jb bb2
172	inc edi	172	inc edi
173	bb2:	173	bb2:
174		174
175	mov eax,15	175	mov eax,15
176	mov ebx,1	176	mov ebx,1
177	mov ecx,256	177	mov ecx,256
178	mov edx,256	178	mov edx,256
179	mcall	179	mcall
180		180
181	mov ebx,5	181	mov ebx,5
182	mov ecx,edi	182	mov ecx,edi
183	mov edx,0	183	mov edx,0
184	mov esi,2562563	184	mov esi,2562563
185	mcall	185	mcall
186		186
187	mov ebx,3	187	mov ebx,3
188	mcall	188	mcall
189		189
190	jmp still	190	jmp still
191		191
192		192
193	; colored background	193	; colored background
194		194
195	bg2:	195	bg2:
196	mov edi, eax	196	mov edi, eax
197	mcall 15,4,1	197	mcall 15,4,1
198	mcall ,1,,1	198	mcall ,1,,1
199	lea ecx, [(edi-14)*3+fill]	199	lea ecx, [(edi-14)*3+fill]
200	mcall ,5,,0,311	200	mcall ,5,,0,311
201	mcall ,3	201	mcall ,3
202		202
203	jmp still	203	jmp still
204		204
205		205
206	; shaped background	206	; shaped background
207		207
208	bg4:	208	bg4:
209		209
210	shl eax,3	210	shl eax,3
211	add eax,shape - (14+20)*8	211	add eax,shape - (14+20)*8
212	mov ecx,[eax+0]	212	mov ecx,[eax+0]
213	mov edx,[eax+4]	213	mov edx,[eax+4]
214		214
215	mov eax,15	215	mov eax,15
216	mov ebx,1	216	mov ebx,1
217	mcall	217	mcall
218		218
219	mov ebx,3	219	mov ebx,3
220	mcall	220	mcall
221		221
222	jmp still	222	jmp still
223		223
224		224
225	; *********************************************	225	; *********************************************
226	; ***** CELLULAR TEXTURE GENERATION *******	226	; ***** CELLULAR TEXTURE GENERATION *******
227	; ** by Cesare Castiglia (dixan/sk/mfx) ***	227	; ** by Cesare Castiglia (dixan/sk/mfx) ***
228	; ******* dixan@spinningkids.org ********	228	; ******* dixan@spinningkids.org ********
229	; *********************************************	229	; *********************************************
230	; * the algorythm is kinda simple. the color *	230	; * the algorythm is kinda simple. the color *
231	; * component for every pixel is evaluated *	231	; * component for every pixel is evaluated *
232	; * according to the squared distance from *	232	; * according to the squared distance from *
233	; * the closest point in 'ptarray'. *	233	; * the closest point in 'ptarray'. *
234	; *********************************************	234	; *********************************************
235		235
236	gentexture:	236	gentexture:
237		237
238	xor ecx,ecx ; ycounter	238	xor ecx,ecx ; ycounter
239	xor edi,edi ; pixel counter	239	xor edi,edi ; pixel counter
240		240
241	mov ebp,[usearray]	241	mov ebp,[usearray]
242		242
243	ylup:	243	ylup:
244	xor ebx,ebx	244	xor ebx,ebx
245		245
246	xlup:	246	xlup:
247	push edi	247	push edi
248	xor edi, edi	248	xor edi, edi
249	mov esi, 512000000 ; abnormous initial value :)	249	mov esi, 512000000 ; abnormous initial value :)
250		250
251	pixlup:	251	pixlup:
252	push esi	252	push esi
253	mov eax,ebx ; evaluate first distance	253	mov eax,ebx ; evaluate first distance
254	sub eax, [ebp+edi] ; x-x1	254	sub eax, [ebp+edi] ; x-x1
255	call wrappit	255	call wrappit
256	imul eax	256	imul eax
257	mov esi, eax ; (x-x1)^2	257	mov esi, eax ; (x-x1)^2
258	mov eax, ecx	258	mov eax, ecx
259	add edi,4	259	add edi,4
260	sub eax, [ebp+edi] ; y-y1	260	sub eax, [ebp+edi] ; y-y1
261	call wrappit	261	call wrappit
262	imul eax ; (y-y1)^2	262	imul eax ; (y-y1)^2
263	add eax,esi ; (x-x1)^2+(y-y1)^2	263	add eax,esi ; (x-x1)^2+(y-y1)^2
264	pop esi	264	pop esi
265		265
266	cmp esi,eax	266	cmp esi,eax
267	jb ok ; compare and take the smaller one	267	jb ok ; compare and take the smaller one
268	mov esi,eax	268	mov esi,eax
269		269
270	ok:	270	ok:
271	add edi,4	271	add edi,4
272	cmp [ebp+edi],dword 777	272	cmp [ebp+edi],dword 777
273	jne pixlup	273	jne pixlup
274		274
275	mov eax,esi ; now evaluate color...	275	mov eax,esi ; now evaluate color...
276		276
277	mov edi,24 ; 50 = max shaded distance	277	mov edi,24 ; 50 = max shaded distance
278	idiv edi	278	idiv edi
279		279
280	pop edi	280	pop edi
281	mov [image+51+edi],eax	281	mov [image+51+edi],eax
282	add edi,3	282	add edi,3
283		283
284	add ebx,1 ; bounce x loop	284	add ebx,1 ; bounce x loop
285	cmp ebx,256 ; xsize	285	cmp ebx,256 ; xsize
286	jne xlup	286	jne xlup
287		287
288	add ecx,1	288	add ecx,1
289	cmp ecx,256 ; ysize	289	cmp ecx,256 ; ysize
290	jne ylup	290	jne ylup
291		291
292	ret	292	ret
293		293
294	wrappit:	294	wrappit:
295	cmp eax,0 ; this makes the texture wrap	295	cmp eax,0 ; this makes the texture wrap
296	jg noabs	296	jg noabs
297	neg eax	297	neg eax
298	noabs:	298	noabs:
299	cmp eax,128	299	cmp eax,128
300	jb nowrap	300	jb nowrap
301	neg eax	301	neg eax
302	add eax,256	302	add eax,256
303	nowrap:	303	nowrap:
304	ret	304	ret
305		305
306	; *********************************************	306	; *********************************************
307	; ***** WINDOW DEFINITIONS AND DRAW *******	307	; ***** WINDOW DEFINITIONS AND DRAW *******
308	; *********************************************	308	; *********************************************
309		309
310		310
311	draw_image:	311	draw_image:
312		312
313	mov eax,7	313	mov eax,7
314	mov ebx,0x40000	314	mov ebx,0x40000
315	mov ecx,256*65536+255	315	mov ecx,256*65536+255
316	mov edx,14*65536+40;55	316	mov edx,14*65536+40;55
317	mcall	317	mcall
318		318
319	ret	319	ret
320		320
321		321
322	y_add equ 19 ; 30	322	y_add equ 19 ; 30
323	y_s equ 13	323	y_s equ 13
324		324
325	y_add2 equ 315 ;325	325	y_add2 equ 315 ;325
326	set equ 0 ;15	326	set equ 0 ;15
327		327
328	draw_window:	328	draw_window:
329		329
330	mov eax, 12 ; tell os about draw	330	mov eax, 12 ; tell os about draw
331	mov ebx, 1	331	mov ebx, 1
332	mcall	332	mcall
333		333
334	xor eax, eax ; define and draw window	334	xor eax, eax ; define and draw window
335	mov ebx, 220*65536+293	335	mov ebx, 220*65536+293
336	mov ecx, 50*65536+408	336	mov ecx, 50*65536+408
337	mov edx, [sc.work]	337	mov edx, [sc.work]
338	or edx, 0x34000000	338	or edx, 0x34000000
339	mov edi, title	339	mov edi, title
340	mcall	340	mcall
341		341
342	call draw_image	342	call draw_image
343		343
344	mov eax,8 ; Blue button	344	mov eax,8 ; Blue button
345	mov ebx,(set+190+27)*65536+17	345	mov ebx,(set+190+27)*65536+17
346	mov ecx,y_add*65536+y_s	346	mov ecx,y_add*65536+y_s
347	mov edx,11	347	mov edx,11
348	mov esi,0x005555bb	348	mov esi,0x005555bb
349	mcall	349	mcall
350	;mov eax,8 ; Red button	350	;mov eax,8 ; Red button
351	mov ebx,(set+208+27)*65536+17	351	mov ebx,(set+208+27)*65536+17
352	mov edx,12	352	mov edx,12
353	mov esi,0x00bb5555	353	mov esi,0x00bb5555
354	mcall	354	mcall
355	;mov eax,8 ; Green button	355	;mov eax,8 ; Green button
356	mov ebx,(set+253)*65536+17	356	mov ebx,(set+253)*65536+17
357	mov edx,13	357	mov edx,13
358	mov esi,0x0055bb55	358	mov esi,0x0055bb55
359	mcall	359	mcall
360		360
361	;mov eax, 8 ; tiled	361	;mov eax, 8 ; tiled
362	mov ebx, 90*65536+63	362	mov ebx, 90*65536+63
363	mov ecx, y_add*65536+y_s	363	mov ecx, y_add*65536+y_s
364	mov edx, 101	364	mov edx, 101
365	mov esi, [sc.work_button]	365	mov esi, [sc.work_button]
366	mcall	366	mcall
367		367
368	;mov eax, 8 ; stretch	368	;mov eax, 8 ; stretch
369	mov ebx, 154*65536+61	369	mov ebx, 154*65536+61
370	mov edx, 102	370	mov edx, 102
371	mcall	371	mcall
372		372
373	mov eax, 4	373	mov eax, 4
374	mov ebx, 215*65536+5	374	mov ebx, 215*65536+5
375	mov ecx, [sc.work_text]	375	mov ecx, [sc.work_text]
376	mov edx, apply_text	376	mov edx, apply_text
377	mov esi, apply_text.size	377	mov esi, apply_text.size
378	mcall	378	mcall
379		379
380	mov ebx, 14*65536+301	380	mov ebx, 14*65536+301
381	mov edx, image_buttons_text	381	mov edx, image_buttons_text
382	mov esi, image_buttons_text.size	382	mov esi, image_buttons_text.size
383	mcall	383	mcall
384		384
385	mov ebx, 14*65536+(y_add2+27)	385	mov ebx, 14*65536+(y_add2+27)
386	mov edx, simple_text	386	mov edx, simple_text
387	mov esi, simple_text.size	387	mov esi, simple_text.size
388	mcall	388	mcall
389		389
390	mov ecx, (y_add2)*65536+20	390	mov ecx, (y_add2)*65536+20
391	mov ebx, (13)*65536+25	391	mov ebx, (13)*65536+25
392	mov edx, 121	392	mov edx, 121
393	mov esi, [sc.work_button]	393	mov esi, [sc.work_button]
394	mov edi, 9	394	mov edi, 9
395	mov eax, 8	395	mov eax, 8
396	@@:	396	@@:
397	mcall	397	mcall
398	add ebx, 29*65536	398	add ebx, 29*65536
399	inc edx	399	inc edx
400	dec edi	400	dec edi
401	jnz @b	401	jnz @b
402		402
403		403
404	mov edx, 34+4	404	mov edx, 34+4
405	mov edi, 4	405	mov edi, 4
406	;mov eax, 8	406	;mov eax, 8
407	mov ebx, 13*65536+18	407	mov ebx, 13*65536+18
408	mov ecx, y_add*65536+y_s	408	mov ecx, y_add*65536+y_s
409	@@:	409	@@:
410	mcall	410	mcall
411	inc edx	411	inc edx
412	add ebx, 19*65536	412	add ebx, 19*65536
413	dec edi	413	dec edi
414	jnz @b	414	jnz @b
415		415
416		416
417	;-----------------------	417	;-----------------------
418	mov eax,8	418	mov eax,8
419	mov edx,14 ; button number	419	mov edx,14 ; button number
420	mov ebx,(13)*65536+17 ; button start x & size	420	mov ebx,(13)*65536+17 ; button start x & size
421	mov ecx,(y_add2+40)*65536+14 ; button start y & size	421	mov ecx,(y_add2+40)*65536+14 ; button start y & size
422		422
423	newcb:	423	newcb:
424	mov esi,[(edx-14)*4+colors]	424	mov esi,[(edx-14)*4+colors]
425		425
426	mcall	426	mcall
427		427
428	inc edx	428	inc edx
429	add ebx,20*65536	429	add ebx,20*65536
430		430
431	cmp edx,27	431	cmp edx,27
432	jnz newcb	432	jnz newcb
433	;-----------------------	433	;-----------------------
434		434
435	mov eax, 4	435	mov eax, 4
436	mov ebx, 94*65536+4+y_add	436	mov ebx, 94*65536+4+y_add
437	mov ecx, [sc.work_button_text]	437	mov ecx, [sc.work_button_text]
438	mov edx, la2	438	mov edx, la2
439	mov esi, la2.size	439	mov esi, la2.size
440	mcall	440	mcall
441		441
442	mov eax,12	442	mov eax,12
443	mov ebx,2	443	mov ebx,2
444	mcall	444	mcall
445		445
446	ret	446	ret
447		447
448		448
449		449
450	; DATA SECTION	450	; DATA SECTION
451		451
452	if lang eq ru	452	if lang eq ru
453	title db '¥¥à â®à ä® à ¡®ç¥£® áâ®« ',0	453	title db '¥¥à â®à ä® à ¡®ç¥£® áâ®« ',0
454	else	454	else
455	title db 'Background',0	455	title db 'Background',0
456	end if	456	end if
457		457
458	lsz apply_text,\	458	lsz apply_text,\
459	ru, "à¨¬¥¨âì:",\	459	ru, "à¨¬¥¨âì:",\
460	en, "Apply:"	460	en, "Apply:"
461		461
462	lsz image_buttons_text,\	462	lsz image_buttons_text,\
463	ru, "ë¡¥à¨â¥ ®¡à §¥æ:",\	463	ru, "ë¡¥à¨â¥ ®¡à §¥æ:",\
464	en, "Select pattern:"	464	en, "Select pattern:"
465		465
466	lsz simple_text,\	466	lsz simple_text,\
467	ru, "¤®æ¢¥âë© ä®:",\	467	ru, "¤®æ¢¥âë© ä®:",\
468	en, "Single-color background:"	468	en, "Single-color background:"
469		469
470	lsz la2,\	470	lsz la2,\
471	ru, " ",\	471	ru, " ",\
472	en, " TILED STRETCH"	472	en, " TILED STRETCH"
473		473
474		474
475	xx db 'x'	475	xx db 'x'
476		476
477	colors:	477	colors:
478	dd 0x770000	478	dd 0x770000
479	dd 0x007700	479	dd 0x007700
480	dd 0x000077	480	dd 0x000077
481	dd 0x777700	481	dd 0x777700
482	dd 0x770077	482	dd 0x770077
483	dd 0x007777	483	dd 0x007777
484	dd 0x777777	484	dd 0x777777
485	dd 0x335577	485	dd 0x335577
486	dd 0x775533	486	dd 0x775533
487	dd 0x773355	487	dd 0x773355
488	dd 0x553377	488	dd 0x553377
489	dd 0x111111	489	dd 0x111111
490	dd 0xcccccc	490	dd 0xcccccc
491		491
492	fill:	492	fill:
493	db 0x00,0x00,0x77	493	db 0x00,0x00,0x77
494	db 0x00,0x77,0x00	494	db 0x00,0x77,0x00
495	db 0x77,0x00,0x00	495	db 0x77,0x00,0x00
496	db 0x00,0x77,0x77	496	db 0x00,0x77,0x77
497	db 0x77,0x00,0x77	497	db 0x77,0x00,0x77
498	db 0x77,0x77,0x00	498	db 0x77,0x77,0x00
499	db 0x77,0x77,0x77	499	db 0x77,0x77,0x77
500	db 0x77,0x55,0x33	500	db 0x77,0x55,0x33

Subversion Repositories Kolibri OS

(root)/programs/media/pic4/trunk/pic4.asm – Rev 551 → 651