Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 8013 → Rev 8014

/programs/demos/3DS/A_PROCS.INC
111,7 → 111,7
 
draw_dots:
mov esi,[points_translated_ptr]
movzx ecx,[points_count_var]
mov ecx,[points_count_var]
.drw:
@@:
lodsd
486,24 → 486,24
jle .next
 
mov edi,[triangles_ptr]
mov ax,4
mov bx,4+4
mov [triangles_count_var],164*3 ;140
mov eax,4
mov ebx,4+4
mov [triangles_count_var],160*3 ;164*3 ;140
 
mov cx,80*3 ;68
mov ecx,80*3 ;68
@@:
stosw ;----
mov [edi],bx ; |
add edi,2 ; |
inc ax ; |
stosw ; |repeat 4 times
stosd ;----
mov [edi],ebx ; |
add edi,4 ; |
inc eax ; |
stosd ; |repeat 4 times
 
mov [edi],bx ; |
inc bx
add edi,2
stosw ; |
mov [edi],bx ; |
add edi,2 ;----
mov [edi],ebx ; |
inc ebx
add edi,4
stosd ; |
mov [edi],ebx ; |
add edi,4 ;----
loop @b
 
 
627,57 → 627,57
; init triangles list
 
mov edi,[triangles_ptr]
mov ax,5
mov bx,5+5
mov [triangles_count_var],204
mov eax,5
mov ebx,5+5
mov [triangles_count_var],200 ;204
 
mov cx,100
mov ecx,100
@@:
stosw ;----
mov [edi],bx ; |
add edi,2 ; |
inc ax ; |
stosw ; |repeat
stosd ;----
mov [edi],ebx ; |
add edi,4 ; |
inc eax ; |
stosd ; |repeat
 
mov [edi],bx ; |
inc bx
add edi,2
stosw ; |
mov [edi],bx ; |
add edi,2 ;----
mov [edi],ebx ; |
inc ebx
add edi,4
stosd ; |
mov [edi],ebx ; |
add edi,4 ;----
loop @b
 
mov ax,5
mov bx,[points_count_var]
sub bx,2
mov eax,5
mov ebx,[points_count_var]
sub ebx,2
mov dl,2
.nx:
mov cx,5
add [triangles_count_var],cx
mov ecx,5
add [triangles_count_var],ecx
@@:
stosw
add ax,5
stosw
mov word[edi],bx
add edi,2
stosd
add eax,5
stosd
mov dword[edi],ebx
add edi,4
loop @b
 
cmp dl,1
je @f
 
inc bx
inc ebx
jmp .lab
@@:
dec bx
dec ebx
.lab:
mov cx,5
add [triangles_count_var],cx
mov ecx,5
add [triangles_count_var],ecx
@@:
stosw
add ax,5
stosw
mov word[edi],bx
add edi,2
stosd
add eax,5
stosd
mov dword[edi],ebx
add edi,4
loop @b
 
dec dl
684,19 → 684,19
or dl,dl
jnz .nx
 
sub ax,25
stosw
sub ax,50
stosw
mov word[edi],bx
add edi,2
sub eax,25
stosd
sub eax,50
stosd
mov dword[edi],ebx
add edi,4
 
stosw
add ax,50
stosw
inc bx
mov word[edi],bx
add edi,2
stosd
add eax,50
stosd
inc ebx
mov dword[edi],ebx
add edi,4
add [triangles_count_var],2
 
mov dword[edi],-1 ; < - end mark
706,3 → 706,4
pop ebp
 
ret