Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 485 → Rev 109

/programs/demos/3dtcub10/trunk/3DTCUB10.ASM
20,7 → 20,6
dd 0x0 , 0x0 ; I_Param , I_Icon
 
include 'lang.inc'
include '..\..\..\macros.inc'
MAX_DEGS equ 512 ;quantity of angels 2^n.Minimize for speedup
MAX_POINTS equ 8 ;quantity of points
MAX_FACES equ 6 ;quantity of points
34,10 → 33,10
still:
mov eax,23 ; wait for system event with 2 ms timeout
mov ebx,2 ; wait 2 ms, then continue
mcall
int 0x40
 
; mov eax,11 ;If you want maximum speed! :)
; mcall
; int 0x40
 
dec eax ; window redraw request ?
je red
87,30 → 86,30
jmp exit
button:
mov eax,17
mcall
int 0x40
cmp ah,1
jne still
exit:
mov eax,-1
mcall
int 0x40
 
;Draw window
draw_window:
mov eax,12 ;Start
mov ebx,1
mcall
int 0x40
 
mov eax,0 ;Draw window
mov ebx,0*65536+(799) ;x start*65536+x size
mov ecx,0*65536+(599) ;y start*65536+y size
mov edx,0x00000000 ;0x03 use skinned window
mcall
int 0x40
 
call clear_screen
 
mov eax,12 ;End
mov ebx,2
mcall
int 0x40
ret
 
head_label: db "3D TEXTURED CUBE THE LITTLE SCREEN SAVER FOR MENUETOS. USE "
164,7 → 163,7
mov ebx,0*65536+800
mov ecx,0*65536+600
mov edx,0
mcall
int 40h
 
mov eax,4 ;Out Text
mov ebx,8*65536+8 ;x start*65536+y start
171,7 → 170,7
mov ecx,0x00ffffff ;color White
mov edx,head_label
mov esi,hl_end-head_label
mcall
int 0x40
ret
 
clear_screen_buffer:
179,7 → 178,7
mov ecx,800*65536+(600-40) ;sub 40 for antiflickering title
mov edx,0*65536+40
mov eax,7
mcall
int 0x40
 
mov eax,4 ;Out Text
mov ebx,8*65536+580 ;x start*65536+y start
190,7 → 189,7
mov edx,move_text
add edx,[step]
mov esi,130 ;mt_end-move_text
mcall
int 0x40
 
inc [n_step]
cmp [n_step],6
/programs/demos/3dtcub10/trunk/build_en.bat
1,5 → 1,4
@erase lang.inc
@echo lang fix en >lang.inc
@fasm 3dtcub10.asm 3dtcub10
@erase lang.inc
@pause
/programs/demos/3dtcub10/trunk/build_ru.bat
1,5 → 1,4
@erase lang.inc
@echo lang fix ru >lang.inc
@fasm 3dtcub10.asm 3dtcub10
@erase lang.inc
@pause