Subversion Repositories Kolibri OS

;               with a few graphics effects demonstration.

; compiler    : FASM

; system      : KolibriOS

; author      : Macgub aka Maciej Guba

; email       : macgub3@wp.pl

; web         : www.macgub.hekko.pl

; Fell free to use this intro in your own distribution of KolibriOS.

; Special greetings to KolibriOS team .

; I hope because my intros Christian Belive will be near to each of You.

; madis.kalme@mail.ee

; I tried optimizing it a bit, but don't know if it was successful. The objects

; can be:

; 1) Read from a file (*.3DS standard)

; 2) Written in manually (at the end of the code)

SIZE_Y equ 512				     ;      /////     I want definitely

TIMEOUT equ 10				     ;     ------     say:

ROUND equ 10				     ;     \ @ @/     keep smiling every

TEX_X equ 512	 ; texture width             ;      \ ./    / day.

TEX_Y equ 512	 ;         height            ;       \/    /

TEX_SHIFT equ 9  ; texture width shifting    ;     __||__ /

TEXTURE_SIZE EQU (TEX_X * TEX_Y)-1	     ;   /|      |

TEX equ SHIFTING ; TEX={SHIFTING | FLUENTLY} ;  / \      /

FLUENTLY = 0				     ; /   |    |

SHIFTING = 1				     ;     ------

CATMULL_SHIFT equ 8			     ;      |  |

LIGHT_SIZE equ 22			     ;      |  |

NON   =   0				     ;     -/  \-

MMX   =   1

SSE   =   2

SSE2  =   3

Ext   =   SSE2		 ;Ext={ NON | MMX | SSE | SSE2 }

USE_LFN = 1

	org    0x0

	db     'MENUET01'	; 8 byte id

	dd     0x01		; header version

	dd     START		; start of code

	dd     I_END		; size of image

	dd     MEM_END		; memory for app

	dd     MEM_END		; esp

	dd     I_Param		; I_Param

	dd     0x0		; I_Icon

	cld

     ;   mov    eax,14   ; window size according to cur res ...

     ;   int    0x40

     ;   sub    eax,150 shl 16 + 150

	mov    eax, 600 shl 16 + 600 ; ... or set manually

	mov    [size_y_var],ax

	shr    ax,1

	mov    [vect_y],ax

	movzx  ebx,ax

	lea    ebx,[ebx*3]

	push   ebx

	fninit

	fild   dword[esp]

	fstp   [rsscale]

	pop    ebx

	mov    [size_x_var],ax

	shr    ax,1

	mov    [vect_x],ax

	mov    [x_start],eax

	call   read_param

	call   read_from_disk	 ; read, if all is ok eax = 0

	cmp    eax,0

	jne    .gen

	mov    esi,[fptr]

	cmp    [esi],word 4D4Dh

	jne    .asc

	call   read_tp_variables ; init points and triangles count variables

	cmp    eax,0

	je     .gen

	jmp    .malloc

    .gen:

     if USE_LFN

	mov    [triangles_count_var],1000

	mov    [points_count_var],1000

	call   alloc_mem_for_tp

     end if

	call   generate_object

	jmp    .opt

    .asc:

	mov    [triangles_count_var],10000

	mov    [points_count_var],10000

	call   alloc_mem_for_tp

	call   read_asc

	jmp    .opt

    .malloc:

     if USE_LFN

	call   alloc_mem_for_tp

     end if

	call   read_from_file

    .opt:

				    ;  set point(0,0,0) in center and  calc all coords

				    ;  to be in <-1.0,1.0>

	call   normalize_all_light_vectors

	call   init_triangles_normals2

	call   init_point_normals

	call   init_envmap2

	call   init_envmap_cub

	call   generate_texture2

	call   init_sincos_tab

	call   do_color_buffer	 ; intit color_map

	mov    edi,bumpmap

	call   calc_bumpmap

	call   calc_bumpmap_coords   ; bump and texture mapping

	call   draw_window

	mov	[draw_win_at_first],0

	mov	ebx,TIMEOUT

	cmp	[speed_flag],1

	jne	.skip

	mov	eax,11

    .skip:

	int	0x40

	je	red

	cmp	eax,2		; key in buffer ?

	je	key

	cmp	eax,3		; button in buffer ?

	je	button

	mov	eax,9  ; get process info

	mov	ebx,procinfo

	mov	ecx,-1

	int	0x40

	mov	eax,[procinfo+42]    ; read params of window

	sub	eax,115

	mov	[size_x_var],ax

	shr	ax,1

	mov	[vect_x],ax

;

	mov	eax,[procinfo+46]

	sub	eax,30

	mov	[size_y_var],ax

	shr	ax,1

	mov	[vect_y],ax

	mov	[x_start],ax

	mov	eax,[procinfo+38]

	mov	[y_start],ax

	call	alloc_buffer_mem ;realloc mem for scr & z buffs

	call	draw_window

	mov	eax,2		; just read it and ignore

	int	0x40

	jmp	noclose

	mov	eax,17		; get id

	int	0x40

	jne	@f

	int	0x40

    @@:

	cmp	ah,30

	jge	add_vec_buttons

	call	update_flags	      ; update flags and write labels of flags

	cmp	ah,3		      ; ah = 3 -> shading model

	jne	.next_m6

	cmp	[dr_flag],2

	jne	@f

   ;     call    init_envmap2    ;   <----! this don't works in env mode

				 ;          and more than ~18 kb objects

 ;       call    init_envmap_cub2

     @@:

	cmp	[dr_flag],4

	jne	@f

	call	generate_texture2

     .next_m6:

				      ; ah = 5 -> scale-

	cmp	ah,5

	jne	@f

	mov	[scale],0.7

	fninit

	fld	[rsscale]

	fmul	[scale]

	fstp	[rsscale]

	cmp	ah,6		     ; ah = 6 ->  scale+

	jne	@f

	mov	[scale],1.3

	fninit

	fld	[rsscale]

	fmul	[scale]

	fstp	[rsscale]

	cmp	ah,9	; lights random                 ;    'flat'  0

	jne	.next_m5				;    'grd '  1

	call	make_random_lights			;    'env '  2

	call	normalize_all_light_vectors		;    'bump'  3

	call	do_color_buffer   ; intit color_map     ;    'tex '  4

      ;  cmp     [emboss_flag],1                         ;    'pos '  5

      ;  je      @f                                      ;    'dots'  6

      ;  cmp     [dr_flag],8

      ;  jge     @f

      ;  cmp     [dr_flag],2                             ;    'txgr'  7

      ;  jl      .next_m5                            ;    '2tex'  8

      ;  cmp     [dr_flag],3                             ;    'btex'  9

      ;  jg      .next_m5

    ; @@:

	call	init_envmap2	; update env map if shading model = environment or bump

    .next_m5:

	cmp	 ah,11

	je	 @f

	cmp	 ah,12

	je	 @f

	cmp	 ah,13

	jne	 .next_m4

      @@:

	call	 mirror

     .next_m4:

	cmp	 ah,14

	jne	 @f

	call	 exchange

     @@:

	cmp	 ah,15

	jne	 @f

	cmp	 [emboss_flag],1

	call	 init_envmap2

     @@:

;        cmp      ah,17

;        jne      .next_m

;        cmp      [move_flag],2

;        jne      @f

;        call     draw_window             ; redraw other labels to navigation buttons

;      @@:

;        cmp      [move_flag],0

;        jne      .next_m

;        call     draw_window             ; redraw other labels to navigation buttons

     .next_m:

	cmp	 ah,18

	jne	 .next_m2

     if USE_LFN

	mov	 [re_alloc_flag],1	 ; reallocate memory

	mov	 [triangles_count_var],1000

	mov	 [points_count_var],1000

	call	 alloc_mem_for_tp

	mov	 [re_alloc_flag],0

     end if

	mov	 bl,[generator_flag]

	or	 bl,bl

	jz	 .next_m2

	cmp	 bl,1

	jne	 @f

	call	 generate_object

	jmp	 .calc_norm

      @@:

	cmp	 bl,4

	jg	 @f

	movzx	 ax,bl		      ; ax < - object number

	call	 generate_object2

	jmp	.calc_norm

      @@:

	call	generate_object3

      .calc_norm:

	call	optimize_object1

	call	init_triangles_normals2

	call	init_point_normals

	call	calc_bumpmap_coords   ; bump and texture mapping

	cmp	 ah,19

	je	 @f

	cmp	 ah,20

	jne	 .next_m3

     @@:

	mov	 edi,bumpmap

	call	 calc_bumpmap

     .next_m3:

	cmp	ah,21		 ; re map bumps, texture coordinates

	jne	@f

	call	calc_bumpmap_coords

      @@:

	jmp	noclose

   add_vec_buttons:	       ; can move: object, camera,.. list is open

			       ;

	cmp	ah,30

	jne	.next

	cmp	[move_flag],0

	jne	@f

;        cmp     [move_flag],2

;        je      .set_light1

	sub	[vect_y],10

	jmp	.next

      @@:

	cmp	[move_flag],1

	jne	@f

	sub	[yobs],10   ;  observator = camera position

	jmp	.next

      @@:

	sub	[sin_amplitude],10

;--------------------------------------------------

;      .set_light1:          ;  r -

;        movzx   ebx,[light_no_flag]  ; * 22

;        mov     ecx,ebx

;        shl     ebx,4

;        shl     ecx,1

;        add     ebx,ecx

;        shl     ecx,1

;        add     ebx,ecx

;        add     ebx,lights+6    ; 6 -> light vector size

;

;        movzx   ecx,[light_comp_flag]

;        lea     ecx,[ecx*3}

;        add     ebx,ecx         ; ebx ->  color to set

      .next:

	cmp	ah,31

	jne	.next1

	cmp	[move_flag],1

	je	@f

	add	[vect_z],10

	jmp	.next1

      @@:

	add	[zobs],10	  ;  observator = camera position

     .next1:

	cmp	ah,33

	jne	.next2

	cmp	[move_flag],0

	jne	@f

	sub	[vect_x],10

	jmp	.next2

      @@:

	cmp	[move_flag],1

	jne	@f

	sub	[xobs],10	  ;  observator = camera position

	jmp	.next2

      @@:

	fninit

	fld	[sin_frq]

	fsub	[sin_delta]

	fstp	[sin_frq]

      .next2:

	cmp	ah,32

	jne	.next3

	cmp	[move_flag],0

	jne	@f

	add	[vect_x],10

	jmp	.next3

      @@:

	cmp	[move_flag],1

	jne	@f

	add	[xobs],10	  ;  observator = camera position

	jmp	.next3

      @@:

	fninit

	fld	[sin_frq]      ; change wave effect frequency

	fadd	[sin_delta]

	fstp	[sin_frq]

      .next3:

	cmp	ah,34

	jne	.next4

	cmp	[move_flag],1

	je	@f

	jmp	.next4

      @@:

	sub	[zobs],10	  ;  observator = camera position

      .next4:

	cmp	ah,35

	jne	.next5

	cmp	[move_flag],0

	jne	 @f

      ;  call    add_vector

	add	[vect_y],10

	jmp	.next5

      @@:

	cmp	[move_flag],1

	jne	@f

	add	[yobs],10	  ;  observator = camera position

	jmp	.next5

      @@:

	add	[sin_amplitude],10

      .next5:

	jne	.no_x

	inc	[angle_x]

	and	[angle_x],0xff

	mov	[angle_z],0

	jmp	.end_rot

	cmp	[r_flag],0

	jne	.no_y

	inc	[angle_y]

	and	[angle_y],0xff

	mov	[angle_z],0

	jmp	.end_rot

	cmp	[r_flag],1

	jne	.end_rot

	mov	cx,[angle_x]

	inc	cx

	and	cx,0xff

	mov	[angle_z],0

	mov	[angle_y],cx

	mov	[angle_x],cx

     .end_rot:

	mov	edi,matrix

	call	make_rotation_matrix

    RDTSC

    push eax

	mov	esi,[points_normals_ptr]

	mov	edi,[points_normals_rot_ptr]

	mov	ebx,matrix

	movzx	ecx,[points_count_var]

	call	rotary

	call	add_scale_to_matrix

	mov	edi,[points_rotated_ptr]

	mov	ebx,matrix

	movzx	ecx,[points_count_var]

	call	rotary

;    pop    ebx

;    sub    eax,ebx

;    sub    eax,41

;    push   eax

	mov	edi,[points_translated_ptr]

	movzx	ecx,[points_count_var]

	call	translate_points

;        jne     @f

;        call    calc_attenuation_light

;     @@:

	cmp	[fire_flag],0

	jne	@f

	call	clrscr		; clear the screen

     @@:

	cmp	[catmull_flag],1  ;non sort if Catmull = on

	je	.no_sort

	call	sort_triangles

      .no_sort:

	cmp	[dr_flag],7	  ; fill if 2tex and texgrd

	jge	@f

	cmp	[catmull_flag],0  ;non fill if Catmull = off

	je	.non_f

	cmp	[dr_flag],6	  ; non fill if dots

	je	.non_f

      @@:

	call	fill_Z_buffer	  ; make background

     .non_f:

;    RDTSC

;    push eax

	cmp	[dr_flag],6

	jne	@f

	call	 draw_dots

	jmp	 .blurrr

      @@:

	call	draw_triangles	; draw all triangles from the list

      .blurrr:

	cmp  [sinus_flag],0

	je   @f

	call do_sinus

      @@:

	cmp	[fire_flag],0

	jne	@f

	cmp	[blur_flag],0

	je	.no_blur  ; no blur, no fire

	movzx	ecx,[blur_flag]

	call	blur_screen    ; blur and fire

	jmp	.no_blur

    @@:

	cmp	[emboss_flag],0

	jne	.emb	       ; if emboss=true -> no fire

	movzx	ecx,[fire_flag]

	call	blur_screen    ; blur and fire

    .no_blur:		       ; no blur, no fire

	cmp	[emboss_flag],0

	je	@f

     .emb:

	call	do_emboss

    je	    .no_inc_bright

    movzx   ebx,[inc_bright_flag]

    shl     ebx,4

    mov     esi,[screen_ptr]

    movzx   ecx,word[size_y_var]

    movzx   eax,word[size_x_var]

    mul     ecx

    lea     ecx,[eax*3]

if (Ext = MMX)|(Ext = SSE)

    mov      bh,bl

    push     bx

    shl      ebx,16

    pop      bx

    push     ebx

    push     ebx

    movq     mm0,[esp]

    add      esp,8

else if Ext >= SSE2

    mov      bh,bl

    push     bx

    shl      ebx,16

    pop      bx

    movd     xmm0,ebx

    shufps   xmm0,xmm0,0

end if

  .oop:

if Ext=NON

    lodsb

    add     al,bl

    jnc     @f

    mov     byte[esi-1],255

    loop    .oop

   @@:

    mov     [esi-1],al

    loop    .oop

else if (Ext=MMX)|(Ext=SSE)

    movq    mm1,[esi]

    movq    mm2,[esi+8]

    paddusb mm1,mm0

    paddusb mm2,mm0

    movq    [esi],mm1

    movq    [esi+8],mm2

    add     esi,16

    sub     ecx,16

    jnz     .oop

else

    movaps  xmm1,[esi]

    paddusb xmm1,xmm0

    movaps  [esi],xmm1

    add     esi,16

    sub     ecx,16

    jnc     .oop

end if

    je	    .no_dec_bright

    movzx   ebx,[dec_bright_flag]

    shl     ebx,4

    mov     esi,[screen_ptr]

    movzx   eax,word[size_x_var]

    movzx   ecx,word[size_y_var]

    mul     ecx

    lea     ecx,[eax*3]

 if (Ext = MMX)|(Ext = SSE)

    mov      bh,bl

    push     bx

    shl      ebx,16

    pop      bx

    push     ebx

    push     ebx

    movq     mm0,[esp]

    add      esp,8

else if Ext >=SSE2

    mov      bh,bl

    push     bx

    shl      ebx,16

    pop      bx

    movd     xmm0,ebx

    shufps   xmm0,xmm0,0

end if

 .oop1:

if Ext=NON

    lodsb

    sub     al,bl

    jb	    @f

    mov     [esi-1],al

    loop    .oop1

   @@:

    mov     byte[esi-1],0

    loop    .oop1

else if (Ext = MMX)|(Ext=SSE)

    movq    mm1,[esi]

    psubusb mm1,mm0

    movq    [esi],mm1

    add     esi,8

    sub     ecx,8

    jnz     .oop1

else

    movaps  xmm1,[esi]

    psubusb xmm1,xmm0

    movaps  [esi],xmm1

    add     esi,16

    sub     ecx,16

    jnc     .oop1

end if

  .no_dec_bright:

;======================================commmented====================

if 0

if Ext >= SSE

    cmp     [max_flag],0

    je	    .no_max

    ;movzx   ebx,[max_flag]

 .again_max:

;    push       ecx

    mov        edi,screen

    mov        ecx,SIZE_X*3/4

  ;   ;    pxor       mm5,mm5

    xor        eax,eax

    rep        stosd

  .calc_max:

  @@:

    movq       mm0,[edi+SIZE_X*3]

    movq       mm1,[edi-SIZE_X*3]

    movq       mm2,[edi-3]

    movq       mm3,[edi+3]

    pmaxub	mm2,mm3

    pmaxub	mm0,mm2

    add 	edi,8

    loop	@b

    mov        ecx,SIZE_X*3/4

    rep        stosd

end if

    cmp     [min_flag],0

    je	    .no_min

;    push       ecx

    mov        edi,screen

    mov        ecx,SIZE_X*3/4

  ;   ;    pxor       mm5,mm5

    xor        eax,eax

    rep        stosd

  @@:

    movq       mm0,[edi+SIZE_X*3]

    movq       mm1,[edi-SIZE_X*3]

    movq       mm2,[edi-3]

    movq       mm3,[edi+3]

    pminub	mm2,mm3

    pminub	mm0,mm2

    add 	edi,8

    loop	@b

    rep        stosd

end if

.no_min:

end if

    sub eax,[esp]

    sub eax,41

;    pop     eax

  .dc:

    xor     edx,edx

    mov     edi,10

    div     edi

    add     dl,30h

    mov     [STRdata+ecx-1],dl

    loop    .dc

    pop eax

    mov     ebx,[screen_ptr]

    mov     ecx,[size_y_var]

  ;  mov     ecx,SIZE_X shl 16 + SIZE_Y

    mov     edx,5 shl 16 + 25

    int     0x40

    mov  bx,[size_x_var]

    add  ebx,18

    shl  ebx,16

    mov  bx,60

    mov  cx,[size_y_var]

    sub  cx,2

    shl  ecx,16

    mov  cx,9

    xor  edx,edx

    int  40h

    mov  bx,[size_x_var]

    add  ebx,18

    shl  ebx,16

    mov  bx,[size_y_var]

    sub  bx,2	      ; [x start] *65536 + [y start]

    mov  ecx,0x00888888

    mov  edx,STRdata		   ; pointer to text beginning

    mov  esi,10 		   ; text length

    int  40h

;-------------------------PROCEDURES---------------------------------------------

;--------------------------------------------------------------------------------

include "TEX3.INC"

include "FLAT_CAT.INC"

include "TEX_CAT.INC"

include "BUMP_CAT.INC"

include "3DMATH.INC"

include "GRD_LINE.INC"

include "GRD3.INC"

include "FLAT3.INC"

include "BUMP3.INC"

include "B_PROCS.INC"

include "A_PROCS.INC"

include "GRD_CAT.INC"

include "BUMP_TEX.INC"

include "GRD_TEX.INC"

include "TWO_TEX.INC"

include "ASC.INC"

    mov     eax, 68

    mov     ebx, 11

    int     0x40    ;  -> create heap, to be sure

    movzx    eax,word[size_y_var]

    mul      ecx

   ; add      eax,100

    push     eax

    lea      ecx,[eax*3]

    mov      eax,68

    mov      ebx,20

    mov      edx,[screen_ptr]

    cmp      [draw_win_at_first],1

    jne      @f

    xor      edx,edx

  @@:

    int      0x40

    mov      [screen_ptr],eax

    shl      ecx,2

    mov      eax,68

    mov      ebx,20

    mov      edx,[Zbuffer_ptr]

    cmp      [draw_win_at_first],1

    jne      @f

    xor      edx,edx

  @@:

    int      0x40

    mov      [Zbuffer_ptr],eax

;old Menuet style alloc

    movzx    ecx,word[size_x_var]

    movzx    eax,word[size_y_var]

    add      eax,200

    mul      ecx

    lea      ecx,[eax*3]

    add      ecx,16

    and      ecx,0xfffffff0

    push     ecx

    shl      eax,2

    add      ecx,eax

    add      ecx,MEM_END

    mov      ebx,1

    mov      eax,64	; allocate mem  - resize app mem

    int      0x40

    mov      [screen_ptr],MEM_END

    mov      [Zbuffer_ptr],MEM_END

    pop      ecx

    add      [Zbuffer_ptr],ecx

end if

ret

; updates flags and writing flag description

; in    ah - button number

	push	ax

	mov	edi,menu

      .ch_another:

	cmp	ah,byte[edi]	 ; ah = button id

	jne	@f

	mov	bl,byte[edi+11]  ; max_flag + 1

	cmp	bl,255

	je	.no_write

	inc	byte[edi+12]	 ; flag

	cmp	byte[edi+12],bl

	jne	.write

	mov	byte[edi+12],0

	jmp	.write

      @@:

	add	edi,17

	cmp	byte[edi],-1

	jne	.ch_another

     .write:

;     clreol   {pascal never dies}

;          * eax = 13 - function number

;  * ebx = [coordinate on axis x]*65536 + [size on axis x]

;  * ecx = [coordinate on axis y]*65536 + [size on axis y]

;  * edx = color 0xRRGGBB or 0x80RRGGBB for gradient fill

	movzx	ecx,byte[edi]

	sub	cl,2

	lea	ecx,[ecx*3]

	lea	ecx,[ecx*5]

	add	ecx,28

	shl	ecx,16

	add	ecx,14	 ;  ecx = [coord y]*65536 + [size y]

	mov	bx,[size_x_var]

	shl	ebx,16

	add	ebx,(12+70)*65536+25	 ; [x start] *65536 + [size x]

	mov	edx,0x00000000			;  color  0x00RRGGBB

	int	0x40

	movzx	ebx,byte[edi]

	sub	bl,2

	lea	ebx,[ebx*3]

	lea	ebx,[ebx*5]

	mov	cx,[size_x_var]

	shl	ecx,16

	add	ebx,ecx

	add	ebx,(12+70)*65536+28	 ; [x start] *65536 + [y start]

	mov	ecx,0x00ddeeff			; font 1 & color ( 0xF0RRGGBB )

	movzx	edx,byte[edi+12]		; current flag

	shl	edx,2				; * 4 = text length

	add	edx,dword[edi+13]		; pointer to text beginning

	mov	esi,4				; text length -

						; flag description 4 characters

	int	0x40

	pop	ax

ret

normalize_all_light_vectors:

	mov	edi,lights

     @@:

	call	normalize_vector	   ;       3dmath.inc

	add	edi,LIGHT_SIZE

	cmp	edi,lightsend	;ecx

	jl	@b

ret

;macro .comment222

;                                ; planar mapping

;        mov     esi,points

;        mov     edi,tex_points

;      @@:

;         add     esi,2

;         movsd

;         cmp     dword[esi],dword -1

;         jne     @b

;      sub   esp,4

      fldpi

      fadd	st,st

      mov	esi,[points_ptr]

      mov	edi,tex_points

      movzx	ecx,[points_count_var]

      inc	ecx

;      cmp       [map_tex_flag],1

;      jne       .cylindric

      ; spherical mapping around y axle

      fld	dword[esi]     ; x coord

      fld	dword[esi+8]   ; z coord

      fpatan		       ; arctg(st1/st)

;      fdiv      .Pi2

      fdiv	st0,st1

      fimul	[tex_x_div2]

      fiadd	[tex_x_div2]

      fistp	word[edi]      ; x

      fld	dword[esi]     ; x

      fmul	st,st0

      fld	dword[esi+4]   ; y

      fmul	st,st0

      fld	dword[esi+8]   ; z

      fmul	st,st0

      faddp

      faddp

      fsqrt

      fpatan

      fldpi

      fdivp

      fimul    [tex_y_div2]

      fiadd    [tex_y_div2]

      fistp    word[edi+2]     ; y

      add      edi,4

      loop     @b

      ffree    st0

;      jmp      .end_map

;  .cylindric:

;       fld     dword[esi]     ; around y axle

;       fld     dword[esi+8]

;       fpatan

;       fdiv    st0,st1

;       fimul   [tex_x_div2]

;       fiadd   [tex_x_div2]

;       fistp   word[edi]

;       fimul   [tex_y_div2]

;       fiadd   [tex_y_div2]

;       fistp   word[edi+2]

;       add     edi,4

;       loop    .cylindric

;       ffree    st0

;;      mov      esp,ebp

;   .end_map:

ret

;env_map 512 x 512 x 3 bytes

.temp  equ word   [ebp-2]

.nEy   equ word  [ebp-4]

.nEx   equ word  [ebp-6]

.col_r equ    [ebp-8]

.col_g equ    [ebp-9]

.col_b equ    [ebp-10]

	 mov	  ebp,esp

	 sub	  esp,20

	 mov	  edi,envmap

	 fninit

    .ie_ver:

	 mov	  cx,- TEX_X / 2 ;256   ; cx - horizontal coord = x

    .ie_hor:

	 xor	  ebx,ebx

	 mov	  dword .col_b, 0

     .light:

	 lea	  esi,[lights+ebx]

	 fld	  dword[esi]	 ; light vector x cooficient

	 fimul	  [tex_x_div2] ;[i256]

	 mov	  .temp,cx

	 fisubr   .temp

	 fistp	  .nEx

	 fld	  dword[esi+4]	 ; light vector y cooficient

	 fimul	  [tex_y_div2] ;[i256]

	 mov	  .temp,dx

	 fisubr   .temp

	 fistp	  .nEy

	 jl	  .update_counters

	 cmp	  .nEy,- TEX_Y / 2 ;256

	 jl	  .update_counters

	 cmp	  .nEx,TEX_X / 2 ;256

	 jg	  .update_counters

	 cmp	  .nEy,TEX_Y / 2 ;256

	 jg	  .update_counters

	 fmul	  st,st0

	 fild	  .nEy

	 fmul	  st,st0

	 faddp

	 fsqrt

	 fisubr   [i256]

	 fmul	  [env_const]

	 fidiv	  [i256]   ; st - 'virtual' dot product

	 fstsw	  ax

	 sahf

	 jb	  @f

	 ffree	  st

	 fld1	  ;[dot_max]

      @@:

	 fcom	  [dot_min]

	 fstsw	  ax

	 sahf

	 ja	  @f

	 ffree	  st

	 fldz	  ;[dot_min]

      @@:

	 push	  ebp

	 movzx	  ax,byte[esi+21]

	 push	  ax  ;- shines

	 mov	  al,byte[esi+14]   ; b    orginal color

	 push	  ax

	 mov	  al,byte[esi+13]   ; g

	 push	  ax

	 mov	  al,byte[esi+12]   ; r

	 push	  ax

	 mov	  al,byte[esi+20]   ; b     max color

	 push	  ax

	 mov	  al,byte[esi+19]   ; g

	 push	  ax

	 mov	  al,byte[esi+18]   ; r

	 push	  ax

	 mov	  al,byte[esi+17]   ; b    min col

	 push	  ax

	 mov	  al,byte[esi+16]   ; g

	 push	  ax

	 mov	  al,byte[esi+15]   ; r

	 push	  ax

	 push	  eax	      ; earlier - dot pr

      ;  fstp     .dot_product

      ;  push     .dot_product

	 call	  calc_one_col

	 pop	  ebp

	 ; eax-0x00rrggbb

	 cmp	  al,.col_b

	 jbe	  @f

	 mov	  .col_b,al

   @@:			      ;  eax - ggbb00rr

	 shr	  ax,8