Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
31 halyavin 1 
use32
2 
      org     0x0
3 
 
4 
	db 'MENUET01'
5 
	dd 0x01
6 
	dd START
7 
	dd I_END
8 
	dd 0x100000
9 
	dd 0x7fff0
10 
	dd 0x0, 0x0
11 
 
12 
include 'lang.inc'
13 
START:
14 
 
15 
	call draw_window
16 
 
17 
 mov edi,my_img
18 
	mov ecx,64001*3/4
19 
	xor eax,eax
20 
	rep stosd
21 
 
22 
	mov esi,my_img
23 
	mov [count1],esi
24 
 
25 
	mov eax,3
26 
	int 0x40
27 
	mov [curtime],eax
28 
 
29 
still:
30 
 
31 
	mov eax,11
32 
	int 0x40
33 
 
34 
	cmp eax,1
35 
	je red
36 
	cmp eax,2
37 
	je key
38 
	cmp eax,3
39 
	je button
40 
	call image
41 
	mov eax,3
42 
	int 0x40
43 
	mov ebx,[curtime]
44 
	cmp eax,ebx
45 
	jz still
46 
	mov [curtime],eax
47 
	call print_fps
48 
	jmp still
49 
 
50 
red:
51 
	call draw_window
52 
	jmp still
53 
 
54 
key:
55 
	mov eax,2
56 
	int 0x40
57 
	cmp ah,1
58 
	jne still
59 
	mov eax,0xffffffff
60 
	int 0x40
61 
	jmp still
62 
 
63 
button:
64 
	mov eax,17
65 
	int 0x40
66 
 
67 
	cmp ah,1
68 
	jne still
69 
	mov eax,-1
70 
	int 0x40
71 
	retn
72 
 
73 
;Window
74 
 
75 
draw_window:
76 
 
77 
	mov eax,12
78 
	mov ebx,1
79 
	int 0x40
80 
 
81 
	mov eax,0
82 
	mov ebx,200*65536+325
83 
	mov ecx,150*65536+225
84 
	mov edx,0x00000000
85 
	mov esi,edx
86 
	mov edi,0x00100000
87 
	int 0x40
88 
 
89 
	mov eax,4
90 
	mov ebx,8*65536+8
91 
	mov ecx,0x00402020
92 
	mov edx,fire_label
93 
	mov esi,len00
94 
	int 0x40
95 
 
96 
	mov eax,8
97 
	mov ebx,(325-19)*65536+12
98 
	mov ecx,5*65536+12
99 
	mov edx,1
100 
	mov esi,0x00400000
101 
	int 0x40
102 
 
103 
	mov eax,12
104 
	mov ebx,2
105 
	int 0x40
106 
 
107 
	retn
108 
 
109 
penta:
110 
; Рисуем пентагpамму
111 
 
112 
	mov edi,my_img
113 
	mov ebx,(320)*3
114 
DrawP: mov     eax,0x00fc0000
115 
       add     edi,0x540*3
116 
       push    edi
117 
       mov     ecx,0x78
118 
ll_3:  mov [edi],eax
119 
       mov [edi+3],eax
120 
       mov [edi-3],eax
121 
       mov [edi+ebx],eax
122 
       add edi,6
123 
       add     edi,ebx
124 
       loop    ll_3
125 
       pop     edi
126 
       mov     ecx,0x60
127 
ll_4:  mov     [ebx+edi],eax
128 
       mov [edi],eax
129 
       mov [edi+3],eax
130 
       mov [edi-3],eax
131 
       add edi,3
132 
       add     edi,ebx
133 
       add     edi,ebx
134 
       loop    ll_4
135 
       mov     ecx,0x61
136 
ll_5:  mov     [ebx+edi],eax
137 
       mov [edi],eax
138 
       mov [edi+3],eax
139 
       mov [edi-3],eax
140 
       add edi,3
141 
       sub     edi,ebx
142 
       sub     edi,ebx
143 
       loop    ll_5
144 
       add     edi,0x98D1*3
145 
       push    edi
146 
       mov     ecx,0x78
147 
ll_6:  mov [edi],eax
148 
       mov [edi+ebx],eax
149 
       mov [edi+3],eax
150 
       mov [edi-3],eax
151 
       add edi,6
152 
       sub     edi,ebx
153 
       loop    ll_6
154 
       pop     edi
155 
       mov     ecx,0x8F*2
156 
ll_7:  mov [edi],eax
157 
       mov [edi+ebx],eax
158 
       add edi,3
159 
       loop ll_7
160 
 
161 
       retn
162 
 
163 
 
164 
fire:
165 
; _ВHИМАHИЕ_! Здесь самое интеpесное.
166 
; Алгоpитм гоpения.
167 
	mov esi,[count1]
168 
 mov edx,[count2]
169 
	mov ebx,320*3
170 
	mov ecx,0xffff
171 
Flame: cmp     esi,0xFA00*3+my_img       ; Псевдослучайная точка в пpедалах экp
172 
       jae     NxtP      ; если HЕТ - беpем следующую.
173 
       lodsd
174 
       dec esi                   ; Считываем ее цвет.
175 
       and      eax,0x00ff0000
176 
                                ; Точка чеpная? (гоpеть нечему?)
177 
       jz      NxtP      ; если ДА - беpем следующую.
178 
       sub     eax,0x00040000
179 
                                   ; Цветом на единицу меньшим
180 
       mov     [esi-2*3],eax       ;    ставим точку слева,
181 
       mov     [esi],eax         ;    спpава,
182 
       mov     [ebx+esi-1*3],eax    ;    снизу
183 
       mov     [esi-0x141*3],eax ;    и свеpху.
184 
NxtP:
185 
       add     esi,edx
186 
       cmp esi,0xffff*3+my_img
187 
       jbe loc_cont
188 
       sub esi,0xfffe*3
189 
loc_cont:
190 
        													          ; Беpем следующую
191 
       add     edx,3
192 
       cmp edx,0x10000*3
193 
       jbe loc_cont2
194 
       sub edx,0xfffe*3
195 
loc_cont2:
196 
                               ;    псевдослучайную точку.
197 
       ;jnz     Flame           ; И так 65536 pаз.
198 
	loop Flame
199 
	mov [count1],esi
200 
 mov [count2],edx
201 
	retn
202 
 
203 
image:
204 
	call penta
205 
	call fire
206 
 
207 
	mov ebx,my_img
208 
	mov ecx,320*65536+200
209 
	mov edx,2*65536+23
210 
	mov eax,7
211 
	int 0x40
212 
 
213 
	inc [fps]
214 
	retn
215 
 
216 
print_fps:
217 
	mov eax,13
218 
	mov ebx,(8+27*6)*65536+18
219 
	mov ecx,8*65536+8
220 
	mov edx,0x00000000
221 
	int 0x40
222 
	mov eax,47
223 
	xor ebx,ebx
224 
	mov bx,3
225 
	shl ebx,16
226 
	mov ecx,[fps]
227 
	mov edx,(8+27*6)*65536+8
228 
	mov esi,0x00400000
229 
	int 0x40
230 
	xor eax,eax
231 
	mov [fps],eax
232 
	retn
233 
 
234 
;DATA
235 
 
236 
count1	dd 0
237 
count2 dd 0
238 
curtime dd 0
239 
fps	dd 0
240 
fire_label	db 'Pentagramm in FIRE     FPS:'
241 
len00=$-fire_label
242 
	org 320*3*2
243 
my_img:
244 
 
245 
I_END:
246