Rev 5665 | Rev 6215 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 5665 | Rev 6190 | ||
---|---|---|---|
Line 23... | Line 23... | ||
23 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
23 | include '../../../develop/libraries/box_lib/trunk/box_lib.mac' |
24 | 24 | ||
Line 25... | Line 25... | ||
25 | @use_library |
25 | @use_library |
Line -... | Line 26... | ||
- | 26 | ||
- | 27 | macro DrawBar x, y, width, height, color |
|
- | 28 | { |
|
- | 29 | mcall 13, (x) shl 16 + (width), (y) shl 16 + (height), color |
|
- | 30 | } |
|
- | 31 | ||
- | 32 | macro DrawRectangle x, y, w, h, color |
|
- | 33 | { |
|
- | 34 | DrawBar x,y,w,1,color |
|
- | 35 | DrawBar x,y+h,w,1 |
|
- | 36 | DrawBar x,y,1,h |
|
- | 37 | DrawBar x+w,y,1,h+1 |
|
- | 38 | } |
|
- | 39 | ||
26 | 40 | ||
27 | align 4 |
41 | align 4 |
Line -... | Line 42... | ||
- | 42 | START: |
|
28 | START: |
43 | |
29 | 44 | ||
30 | load_libraries l_libs_start,end_l_libs |
45 | load_libraries l_libs_start,end_l_libs |
31 | inc eax |
46 | inc eax |
Line 165... | Line 180... | ||
165 | call [check_box_draw2] |
180 | call [check_box_draw2] |
166 | jmp still |
181 | jmp still |
167 | 182 | ||
Line 168... | Line 183... | ||
168 | draw_window: |
183 | draw_window: |
169 | mov al,12 |
- | |
170 | mcall ,1 |
184 | mcall 12,1 |
Line 171... | Line 185... | ||
171 | 185 | ||
172 | mov al,14 |
186 | mov al,14 |
173 | mcall ;eax=14 - get screen max x & max y |
187 | mcall ;eax=14 - get screen max x & max y |
174 | movzx ecx,ax |
188 | movzx ecx,ax |
Line 179... | Line 193... | ||
179 | shl ecx,16 |
193 | shl ecx,16 |
180 | lea ecx,[ecx-70 shl 16+132] |
194 | lea ecx,[ecx-70 shl 16+132] |
181 | 195 | ||
Line 182... | Line 196... | ||
182 | xor eax,eax |
196 | xor eax,eax |
- | 197 | mov edx, 0x01000000 |
|
183 | mcall , , ,[color1],0x01000000 ;define and draw window |
198 | mcall ;define and draw window |
Line -... | Line 199... | ||
- | 199 | ||
184 | 200 | DrawRectangle 0,0,332,132,[color1] |
|
185 | mov al,13 |
201 | mov al,13 |
186 | mcall ,<0,333> ,<0,133> |
202 | mcall ,<1,331>,<1,1>,[color2] |
187 | mcall ,<1,331>,<1,131>,[color2] |
203 | mcall ,<1,1>,<1,131> |
Line 188... | Line 204... | ||
188 | mcall ,<2,330>,<2,130>, [color3] |
204 | mcall ,<2,330>,<2,130>, [color3] |
189 | 205 | ||
190 | mov al,8 |
206 | mov al,8 |