WebSVN – Kolibri OS – Diff – /programs/demos/3dcube2/trunk/3DCUBE2.ASM

+;
 ; 3D POLYGONAL CUBE - ASCL
+;
 ; Pavlushin Evgeni
 ; mail: waptap@mail.ru       site: www.deck4.narod.ru
+;
 ; Create on base 3D test sample
 ; Mikolaj Felix mfelix@polbox.com
+;
 use32
                org     0x0
                db     'MENUET01'              ; 8 byte id
                dd     0x01                    ; header version
                dd     START                   ; start of code
                dd     I_END                   ; size of image
                dd     0x30000                  ; memory for app
                dd     0x30000                  ; esp
                dd     0x0 , 0x0               ; I_Param , I_Icon
 MAX_POINTS equ 8
 MAX_TRIANGLES equ 12
 SCREEN_X equ 320
 SCREEN_Y equ 200
 include 'lang.inc'
 include '..\..\..\macros.inc'
+;purge mov
 include 'ascl.inc'
 include 'ascgl.inc'
 START:
+init_sin_cos:
+	finit
+	fldz
+	xor edi,edi
+	mov ecx,512
+isc_make:
+	fld st0
+	fsincos
+	fmul [fixed_point_const]
+	fistp word [cos_table+edi]
+	fmul [fixed_point_const]
+	fistp word [sin_table+edi]
+	fadd [inc_angle]
+	add edi,2
+	loop isc_make
+	fstp st0
+red:
     call draw_window
-   	call init_sin_cos
 still:
     mov eax,11
     mcall
     dec eax
 ;    cmp  eax,1                  ; window redraw request ?
     jz   red
     dec eax
 ;    cmp  eax,2                  ; key in buffer ?
     jz   key
     dec eax
 ;    cmp  eax,3                  ; button in buffer ?
     jz   button
     fps  230,8,cl_White,cl_Black
 main_loop:
 	mov esi,object
 	mov edi,object_rotated
 	mov ecx,MAX_POINTS*3
 	cld
 	rep movsw
 	mov esi,angle_x
 	mov edi,object_rotated
 	mov ecx,MAX_POINTS
 	call rotate_points
 	mov esi,object_rotated
 	mov edi,object_translated
 	mov ecx,MAX_POINTS
 	call translate_points
 	call draw_faces
 	call clear_screen_buffer
 	add [angle_x],2
 	add [angle_y],3
 	add [angle_z],1
      jmp still
-red:
-     call draw_window
      jmp still
 key:
      mov eax,2
      mcall
      jmp still
 button:
      mov eax,17
      mcall
      cmp ah,1
      jne still
 exit:
      mov eax,-1
      mcall
 ;Draw window
 draw_window:
     mov eax,12  ;Start
     mov ebx,1
     mcall
     mov eax,0   ;Draw window
     mov ebx,100*65536+(SCREEN_X+9) ;x start*65536+x size
     mov ecx,100*65536+(SCREEN_Y+26) ;y start*65536+y size
     mov edx,0x14000000         ;0x03 use skinned window
     mov edi,title
     mcall
     mov eax,12  ;End
     mov ebx,2
     mcall
     ret
 title db '3D TEST SAMPLE FOR MENUETOS',0
 ; Draw faces procedure
 draw_faces:
 	mov esi,link
 	mov ecx,MAX_TRIANGLES
 df_draw:
 	push ecx
 	mov ecx,3
 	mov edi,@@tx1 ;bp
 df_get_point:
-	xor bh,bh
-	mov bl,byte [esi]
+	movzx	ebx, byte [esi]
-	shl bx,2
-	mov ax,word [object_translated+bx]
+	movzx	eax, word [object_translated + ebx*4]
-	mov word [edi],ax
+	stosd
-	mov ax,word [object_translated+bx+2]
+	movzx	eax, word [object_translated + ebx*4 + 2]
-	mov word [edi+2],ax
+	stosd
 	inc esi
-	add edi,4
 	dec ecx
 	jnz df_get_point
-	mov ax,[@@ty1]
+	mov eax,[@@ty1]
-	sub ax,[@@ty3]
+	sub eax,[@@ty3]
-	mov bx,[@@tx2]
+	mov ebx,[@@tx2]
-	sub bx,[@@tx1]
+	sub ebx,[@@tx1]
-	imul bx
-	shl edx,16
-	mov dx,ax
+	imul ebx
-	push edx
+	push eax
-	mov ax,[@@tx1]
+	mov eax,[@@tx1]
-	sub ax,[@@tx3]
+	sub eax,[@@tx3]
-	mov bx,[@@ty2]
+	mov ebx,[@@ty2]
-	sub bx,[@@ty1]
+	sub ebx,[@@ty1]
-	imul bx
-	shl edx,16
-	mov dx,ax
+	imul ebx
 	pop ebx
-	sub ebx,edx
-	or ebx,ebx
+	sub ebx,eax
-	jge df_next
+	jge df_next
-	xor ah,ah
-	mov al,byte [si]
+	movzx	eax, byte [esi]
- mov  [@@xcol],ax
+	mov  	[@@xcol], eax
 	call filled_triangle
 df_next:
-	inc si
+	inc esi
 	pop ecx
 	dec ecx
 	jnz df_draw
 	ret
 ;modify
 ;include graphlib.asm
 clear_screen_buffer:
 ;outscrbuf
  mov ebx,scrbuf
  mov ecx,SCREEN_X*65536+SCREEN_Y
  mov edx,5*65536+22
- mov ax,7
+ mov eax,7
  mcall
 ;White background
  mov edi,scrbuf
  mov ecx,(SCREEN_X*SCREEN_Y*3)/4
  mov eax,0xffffffff
  cld
  rep stosd
 	ret
 ;include triangle.asm
 ; Mikolaj Felix 14/5/2001
 ; mfelix@polbox.com
 ;filled trangle procedure
+align 4
-@@tx1  dw 0
+@@tx1  dd 0
-@@ty1  dw 0
+@@ty1  dd 0
-@@tx2  dw 0
+@@tx2  dd 0
-@@ty2  dw 0
+@@ty2  dd 0
-@@tx3  dw 0
+@@tx3  dd 0
-@@ty3  dw 0
+@@ty3  dd 0
-@@xcol dw 0
+@@xcol dd 0
-@@dx12 dw 0
+@@dx12 dd 0
-@@dx13 dw 0
+@@dx13 dd 0
-@@dx23 dw 0
+@@dx23 dd 0
 filled_triangle:
- mov ax,[@@xcol]  ;trnsforming color
+ mov eax,[@@xcol]  ;trnsforming color
  mov bl,al        ;byte bbbggrrx
  mov dl,al        ;to 3 byte
  mov dh,al        ;bbbxxxxx ggxxxxxx rrxxxxxx
  and dh,00000001b
  and al,11100000b
  and bl,00011000b
  and dl,00000110b
  shl bl,3
  shl dl,5
  cmp dh,1
  jne no_bitup
  or  al,00011111b
  or  bl,00111111b
  or  dl,00111111b
 no_bitup:
  shl eax,8 ;puck colors
  mov al,bl
  shl eax,8
  mov al,dl
  mov dword [@@rgb],eax
- mov eax,0 ; for 16 bit instructions
-	mov ax,[@@ty1]
+	mov eax,[@@ty1]
-	cmp ax,[@@ty3]
+	cmp eax,[@@ty3]
 	jb ft_check1
-	xchg ax,[@@ty3]
+	xchg eax,[@@ty3]
-	mov [@@ty1],ax
+	mov [@@ty1],eax
-	mov ax,[@@tx1]
+	mov eax,[@@tx1]
-	xchg ax,[@@tx3]
+	xchg eax,[@@tx3]
-	mov [@@tx1],ax
+	mov [@@tx1],eax
 ft_check1:
-	mov ax,[@@ty2]
+	mov eax,[@@ty2]
-	cmp ax,[@@ty3]
+	cmp eax,[@@ty3]
 	jb ft_check2
-	xchg ax,[@@ty3]
+	xchg eax,[@@ty3]
-	mov [@@ty2],ax
+	mov [@@ty2],eax
-	mov ax,[@@tx2]
+	mov eax,[@@tx2]
-	xchg ax,[@@tx3]
+	xchg eax,[@@tx3]
-	mov [@@tx2],ax
+	mov [@@tx2],eax
 ft_check2:
-	mov ax,[@@ty1]
+	mov eax,[@@ty1]
-	cmp ax,[@@ty2]
+	cmp eax,[@@ty2]
 	jb ft_check3
-	xchg ax,[@@ty2]
+	xchg eax,[@@ty2]
-	mov [@@ty1],ax
+	mov [@@ty1],eax
-	mov ax,[@@tx1]
+	mov eax,[@@tx1]
-	xchg ax,[@@tx2]
+	xchg eax,[@@tx2]
-	mov [@@tx1],ax
+	mov [@@tx1],eax
 ft_check3:
-	mov bx,[@@ty2]
+	mov ebx,[@@ty2]
-	sub bx,[@@ty1]
+	sub ebx,[@@ty1]
 	jnz ft_dx12_make
-	mov [@@dx12],word 0
+	mov [@@dx12],dword 0
 	jmp ft_dx12_done
 ft_dx12_make:
-	mov ax,[@@tx2]
+	mov eax,[@@tx2]
-	sub ax,[@@tx1]
+	sub eax,[@@tx1]
-	shl ax,7
+	shl eax,7
-	cwd
+	cdq
-	idiv bx
+	idiv ebx
-	mov [@@dx12],ax			; dx12 = (x2-x1)/(y2-y1)
+	mov [@@dx12],eax			; dx12 = (x2-x1)/(y2-y1)
 ft_dx12_done:
-	mov bx,[@@ty3]
+	mov ebx,[@@ty3]
-	sub bx,[@@ty1]
+	sub ebx,[@@ty1]
 	jnz ft_dx13_make
-	mov [@@dx13],word 0
+	mov [@@dx13],dword 0
 	jmp ft_dx13_done
 ft_dx13_make:
-	mov ax,[@@tx3]
+	mov eax,[@@tx3]
-	sub ax,[@@tx1]
+	sub eax,[@@tx1]
-	shl ax,7
+	shl eax,7
-	cwd
+	cdq
-	idiv bx
+	idiv ebx
-	mov [@@dx13],ax			; dx13 = (x3-x1)/(y3-y1)
+	mov [@@dx13],eax			; dx13 = (x3-x1)/(y3-y1)
 ft_dx13_done:
-	mov bx,[@@ty3]
+	mov ebx,[@@ty3]
-	sub bx,[@@ty2]
+	sub ebx,[@@ty2]
 	jnz ft_dx23_make
-	mov [@@dx23],word 0
+	mov [@@dx23],dword 0
 	jmp ft_dx23_done
 ft_dx23_make:
-	mov ax,[@@tx3]
+	mov eax,[@@tx3]
-	sub ax,[@@tx2]
+	sub eax,[@@tx2]
-	shl ax,7
+	shl eax,7
-	cwd
+	cdq
-	idiv bx
+	idiv ebx
-	mov [@@dx23],ax			; dx23 = (x3-x2)/(y3-y2)
+	mov [@@dx23],eax			; dx23 = (x3-x2)/(y3-y2)
 ft_dx23_done:
-	mov ax,[@@tx1]
+	mov eax,[@@tx1]
-	shl ax,7
+	shl eax,7
-	mov bx,ax
+	mov ebx,eax
-	mov cx,[@@ty1]
+	mov ecx,[@@ty1]
 ft_loop1:
  pushad
-	mov [@@ly],cx
+	mov [@@ly],ecx
-	mov dx,bx
+	mov edx,ebx
-	shr dx,7
+	shr edx,7
-	mov [@@lx2],dx
+	mov [@@lx2],edx
-	mov dx,ax
+	mov edx,eax
-	shr dx,7
+	shr edx,7
-	mov [@@lx1],dx
+	mov [@@lx1],edx
-	mov ax,[@@xcol]
+	mov eax,[@@xcol]
- mov [@@lcol],ax
+ mov [@@lcol],eax
  call horizontal_line
  popad
-	add ax,[@@dx13]
+	add eax,[@@dx13]
-	add bx,[@@dx12]
+	add ebx,[@@dx12]
-	inc cx
+	inc ecx
-	cmp cx,[@@ty2]
+	cmp ecx,[@@ty2]
 	jb ft_loop1
-	mov bx,[@@tx2]
+	mov ebx,[@@tx2]
-	shl bx,7
+	shl ebx,7
-	mov cx,[@@ty2]
+	mov ecx,[@@ty2]
 ft_loop2:
  pushad
-	mov [@@ly],cx
+	mov [@@ly],ecx
-	mov dx,bx
+	mov edx,ebx
-	shr dx,7
+	shr edx,7
-	mov [@@lx2],dx
+	mov [@@lx2],edx
-	mov dx,ax
+	mov edx,eax
-	shr dx,7
+	shr edx,7
-	mov [@@lx1],dx
+	mov [@@lx1],edx
- mov ax,[@@xcol]
+ mov eax,[@@xcol]
- mov [@@lcol],ax
+ mov [@@lcol],eax
 	call horizontal_line
  popad
-	add ax,[@@dx13]
+	add eax,[@@dx13]
-	add bx,[@@dx23]
+	add ebx,[@@dx23]
 	inc ecx
-	cmp cx,[@@ty3]
+	cmp ecx,[@@ty3]
 	jb ft_loop2
 	ret
 ;horizontal line subproc
+align 4
-@@lx1  dw 0
+@@lx1  dd 0
-@@lx2  dw 0
+@@lx2  dd 0
-@@ly   dw 0
+@@ly   dd 0
-@@lcol dw 0
+@@lcol dd 0
 @@rgb  dd 0
 horizontal_line:
- mov ecx,0
- mov cx,[@@lx1]
+ mov ecx,[@@lx1]
- cmp cx,[@@lx2]
+ sub ecx,[@@lx2]
  ja  x12
  je  ext
 ; ret
- mov cx,[@@lx2]
- sub cx,[@@lx1]
+ neg ecx
  mov edi,3
  jmp xx
 x12:
- mov cx,[@@lx1]
- sub cx,[@@lx2]
  mov edi,-3
  jmp xx
 ext:
  mov ecx,-1 ;1
 ; sub ebp,3
 xx:
- mov eax,0
- mov ax,[@@ly]
+ mov eax,[@@ly]
  mov ebx,SCREEN_X ;320
  mul ebx
- mov ebp,0
- mov bp,[@@lx1] ;for correct 16 bit size
- add eax,ebp
+ add eax,[@@lx1]
- mov ebx,3
- mul ebx
- mov ebp,eax
- sub ebp,3   ;for delete  white dots
+ lea ebp,[eax*3-3]	; for delete white dots
  add ecx,2
 loo:
  mov eax,dword [@@rgb]
  mov bl,al
  shr eax,8 ;puck colors
  mov byte [scrbuf+ebp],ah
  mov byte [scrbuf+ebp+1],al
  mov byte [scrbuf+ebp+2],bl
  add ebp,edi
  dec ecx
  jnz loo
 	ret
 ;include fixed3d.asm
 ; Mikolaj Felix 25/5/2001
 ; mfelix@polbox.com
 ;------------------------------------------------------------
 ;	ds:si	- offset to angles
 ;	ds:di	- offset to 3d points
 ;	cx	- number of points
 ;------------------------------------------------------------
 @@sin_x dw 0
 @@cos_x dw 0
 @@sin_y dw 0
 @@cos_y dw 0
 @@sin_z dw 0
 @@cos_z dw 0
 @@px equ word [edi]
 @@py equ word [edi+2]
 @@pz equ word [edi+4]
 rotate_points:
  push edi
 	mov edi,@@sin_x
 	mov edx,3
 rp_sin_cos:
-	mov bx,word [esi]
+	mov ebx, [esi]
-	and bx,511
+	and ebx,511
-	shl bx,1
-	mov ax,word [sin_table+bx]
+	mov ax,word [sin_table+ebx*2]
 	mov word [edi],ax
-	mov ax,word [cos_table+bx]
+	mov ax,word [cos_table+ebx*2]
 	mov word [edi+2],ax
 	add esi,2
 	add edi,4
 	dec edx
 	jnz rp_sin_cos
 	pop edi
 rp_rotate:
 	; rotate around x-axis
 	mov ax,@@py
 	imul [@@cos_x]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@pz
 	imul [@@sin_x]
 	sub bx,ax
 	sbb si,dx
 	shrd bx,si,14
 	push bx
 	mov ax,@@py
 	imul [@@sin_x]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@pz
 	imul [@@cos_x]
 	add bx,ax
 	adc si,dx
 	shrd bx,si,14
 	pop @@py
 	mov @@pz,bx
 	; rotate around y-axis
 	mov ax,@@px
 	imul [@@cos_y]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@pz
 	imul [@@sin_y]
 	sub bx,ax
 	sbb si,dx
 	shrd bx,si,14
 	push bx
 	mov ax,@@px
 	imul [@@sin_y]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@pz
 	imul [@@cos_y]
 	add bx,ax
 	adc si,dx
 	shrd bx,si,14
 	pop @@px
 	mov @@pz,bx
 	; rotate around z-axis
 	mov ax,@@px
 	imul [@@cos_z]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@py
 	imul [@@sin_z]
 	sub bx,ax
 	sbb si,dx
 	shrd bx,si,14
 	push bx
 	mov ax,@@px
 	imul [@@sin_z]
 	mov bx,ax
 	mov si,dx
 	mov ax,@@py
 	imul [@@cos_z]
 	add bx,ax
 	adc si,dx
 	shrd bx,si,14
 	pop @@px
 	mov @@py,bx
 	add edi,6
 	dec ecx
 	jnz rp_rotate
 	ret
 ;------------------------------------------------------------
 ;	ds:si	- offset to 3d points
 ;	es:di	- offset to 2d points
 ;	cx	- number of points
 ;------------------------------------------------------------
  mx dw 0
  my dw 0
 translate_points:
  pushad
  mov eax,37
  mov ebx,1
  mcall
  mov ebx,eax
  shr eax,16
  and ebx,0xffff
  cmp ax,SCREEN_X
  jna x_n
  mov ax,0 ;SCREEN_X
 x_n:
  cmp bx,SCREEN_Y
  jna y_n
  mov bx,0 ;SCREEN_Y
 y_n:
  mov [mx],ax
  mov [my],bx
  popad
- mov ebx,0  ;?
-	mov bx,word [esi+4]
+	movzx ebx,word [esi+4]
  mov ax,[my]
  cmp ax,0
  jng no_m
  shl ax,3
  add bx,ax
 no_m:
  add bx,256  ; Z factor (zoom)
- mov eax,0  ;?
-	mov ax,word [esi]
+ 	movsx eax,word [esi]
-	shl ax,8
+	shl eax,8
-	cwd
+	cdq
-	idiv bx; bx
+	idiv ebx
-	add ax,(SCREEN_X/2) ;160         ;X factor (center X)
+	add eax,(SCREEN_X/2) ;160         ;X factor (center X)
-	stosw
+	stosw
- mov eax,0  ;?
-	mov ax,word [esi+2]
+	movsx eax,word [esi+2]
-	shl ax,8
+	shl eax,8
-	cwd
+	cdq
-	idiv bx
+	idiv ebx
-	add ax,(SCREEN_Y/2) ;100         ;Y factor (center Y)
+	add eax,(SCREEN_Y/2) ;100         ;Y factor (center Y)
 	stosw
 	add esi,6
 	dec ecx
 	jnz translate_points
 	ret
-init_sin_cos:
-	finit
-	fldz
-	fstp [temp]
-	xor edi,edi
-	mov ecx,512
-isc_make:
-	fld [temp]
-	fld st0
-	fld st0
-	fsin
-	fmul [fixed_point_const]
-	fistp word [sin_table+edi]
-	fcos
-	fmul [fixed_point_const]
-	fistp word [cos_table+edi]
-	fadd [inc_angle]
-	fstp [temp]
-	add edi,2
-	loop isc_make
-	ret
-temp dd 0
 fixed_point_const dd 16384.0
 inc_angle dd 0.01227184630309			; pi/256
 angle_x dw 0
 angle_y dw 0
 angle_z dw 0
 object	dw -50,-50,-50, 50,-50,-50, 50,50,-50, -50,50,-50
       	dw -50,-50, 50, 50,-50, 50, 50,50, 50, -50,50, 50
 link:
  db  0,1,2,10000011b, 0,2,3,10000011b ;purpure   side
  db  5,4,7,00000111b, 5,7,6,00000111b ;soft-red  side
  db  1,5,6,00011000b, 1,6,2,00011000b ;soft-lime side
  db  4,0,3,11100001b, 4,3,7,11100001b ;soft-blue side
  db  4,5,1,00011111b, 1,0,4,00011111b ;yellow    side
  db  3,2,6,00000000b, 3,6,7,00000000b ;black     side
 sin_table:
 rw 512
 cos_table:
 rw 512
 object_rotated:
 rw MAX_POINTS*3
 object_translated:
 rw MAX_POINTS*2
 scrbuf:
 I_END:

Subversion Repositories Kolibri OS

(root)/programs/demos/3dcube2/trunk/3DCUBE2.ASM – Rev 551 → 625