Subversion Repositories Kolibri OS

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

invert_left_to_right:

	mov ebx,3

	jmp  rotate_counter_clockwise.1

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

invert_up_to_down:

	mov ebx,4

	jmp  rotate_counter_clockwise.1

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

rotate_clockwise:

	mov ebx,1

	jmp  rotate_counter_clockwise.1

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

rotate_counter_clockwise:

	mov ebx,2

.1:

	mov  eax,[soi]

	test eax,eax

	jz   still

	mov  eax,[RAW1_pointer]

	test eax,eax

	jz   @f

	cmp  [Total_Repeat_N],1

	ja   still

@@:

	push  ebx

	call  proc_position_correct

	mov  eax,[vertical_position_coorect]

	mov  ebx,[horizontal_position_coorect]

	mov  [horizontal_position_coorect],eax

	mov  [vertical_position_coorect],ebx

	pop  ebx

;	mov eax,image_file

; ebx - direction

; 1 - clockwise, 2 - counter clockwise

; 3 - Left&Right, 4 - Up&Down

	push	ebx

	push	dword image_file

;	call [plugin_rotate]

	call [rotate_Start]

    mov  ebx,[raw_pointer]

    mov  eax,[ebx+4]

    mov  [img_width],eax

    mov  eax,[ebx+8]

    mov  [img_high],eax

	call convert.img_resolution_ok

	jmp  kopen.1

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

calculate_arrows_offset:

	mov  eax,[arrows_offset]

	imul eax,[scaling_mode]

	mov  ebx,100

	xor  edx,edx

	div  ebx

	mov  [scroll_bar_data_vertical.ar_offset],eax

	mov  [scroll_bar_data_horizontal.ar_offset],eax

	ret

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

no_scaling:

	mov  eax,scaling_mode

	cmp  [eax],dword 100

	je   still

.1:

	mov  [eax],dword 100

	mov  [zoom_factors],dword zoom_factors.100

	mov  eax,[eax]

	jmp   zoom_plus.2

;	call calculate_arrows_offset

;	call draw_zoom_factors

;	jmp  red

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

scaling:

	mov  eax,[soi]

	test eax,eax

	jz   still

	mov  eax,scaling_mode

	xor  ebx,ebx

	cmp  [eax],ebx  ;dword 0

	je   still

	mov  [eax],ebx  ;dword 0

	mov  [zoom_factors],dword zoom_factors.1

	call .1

	call draw_zoom_factors

	jmp  still

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

.compens_x:

	call .get_x_y

	xor  ecx,ecx

	mov  cx,[wa_high_1]

	imul eax,ecx

	xor  edx,edx

	div  ebx

	ret

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

.compens_y:

	call .get_x_y

	xchg eax,ebx

	xor  ecx,ecx

	mov  cx,[wa_width_1]

	imul eax,ecx

	xor  edx,edx

	div  ebx

	ret

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

.get_x_y:

    mov  ebx,[raw_pointer]

    mov  eax,[ebx+4]

	mov  ebx,[ebx+8]

	ret

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

.fill_for_L_R:

	cmp   [no_fill],1

	je   @f

;	xor  eax,eax

;	mov  [no_fill],al

;	ret

;@@:

	pusha

	mov   ebx,[image_start_coordinates]

	mov   ecx,ebx

	shl   ecx,16

	mov   bx,ax

	mov   cx,[wa_high_1]

	mcall 13,,,[fill_color] ;0xffffff

	mov   ax,bx

	ror   ebx,16

	add   bx,ax

	add   bx,[wa_width_2]

	mov   ax,[wa_width_1]

;	add   ax,5

	sub   ax,bx

	rol   ebx,16

	mov   bx,ax

	mcall 13,,,[fill_color]  ;0xffffff

	popa

@@:

	ret

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

.fill_for_U_D:

	cmp   [no_fill],1

	je   @f

;	xor  eax,eax

;	mov  [no_fill],al

;	ret

;@@:

	pusha

	mov   ebx,[image_start_coordinates]

	mov   ecx,ebx

	shl   ecx,16

	mov   cx,ax

	mov   bx,[wa_width_1]

	mcall 13,,,[fill_color]  ;0xffffff

	mov   ax,cx

	ror   ecx,16

	add   cx,ax

	add   cx,[wa_high_2]

	mov   ax,[wa_high_1]

	add   ax,28  ;50

	sub   ax,cx

	rol   ecx,16

	mov   cx,ax

	mcall 13,,,[fill_color]  ;0xffffff

	popa

@@:

	ret

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

.1:

	call .get_x_y

	cmp  eax,ebx

	jb  .y

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

.x:

	call .compens_y

	cmp  ax,[wa_high_1]

	jbe @f

	call .compens_x

	mov  [wa_width_2],ax

	jmp  .4

@@:

	mov  [wa_high_2],ax

	jmp  .4

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

.y:

	call .compens_x

	cmp  ax,[wa_width_1]

	jbe  @f

	call .compens_y

	mov  [wa_high_2],ax

	jmp  .4

@@:

	mov  [wa_width_2],ax

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

.4:

	mov bx,[wa_width_2]

	shl ebx,16

	mov bx,[wa_high_2]

	xor  ecx,ecx

.5:

;	mov  eax,ebx

;	and  eax,0xffff

;	mov  [test1],eax

;	mov  eax,ebx

;	shr  eax,16

;	mov  [test2],eax

;	mov  eax,ecx

;	and  eax,0xffff

;	mov  [test3],eax

;	mov  eax,ecx

;	shr  eax,16

;	mov  [test4],eax

;	mov eax,image_file

;	mov  edx,[scaling_mode]

	movzx  esi,byte [filtering_flag]

;	mov  edi,[background_color]

	push	dword [background_color]	;edi - background color

	push	esi	; esi - filtering

	push	dword [scaling_mode]	;edx - scaling mode

	push	ecx	; ecx - start_coordinates

	push	ebx	; ebx - new_size

	push	dword image_file	;eax -  convert data table

;	pusha

;	mcall 26,9

;	mov  [test1],eax

;	popa

	call [Scaling_Start]

;	pusha

;	mcall 26,9

;	mov  ebx,[test1]

;	sub  eax,ebx

;	cmp  [test2],0

;	je  @f

;	add  eax,[test2]

;	shr  eax,1

;	cmp  eax,[test3]

;	jbe  @f

;	mov  [test3],eax

;@@:

;	mov  [test2],eax

;	popa

	mov  ecx,ebx

	mov  edx,[image_start_coordinates]

    mov  eax,edx

    shl  eax,16

    mov  ax,cx

    mov  [scroll_bar_data_vertical.y],eax

    mov  eax,edx

    mov  ebx,ecx

    shr  ebx,16

    mov  ax,bx

    mov  [scroll_bar_data_horizontal.x],eax

;	call correct_cur_area

;	movzx eax,[wa_width_1]

;	mov  [test1],eax

;	movzx eax,[wa_width_2]

;	mov  [test2],eax

;	movzx eax,[wa_high_1]

;	mov  [test3],eax

;	movzx eax,[wa_high_2]

;	mov  [test4],eax

	xor  eax,eax

	mov  ax,[wa_width_1]

	sub  ax,[wa_width_2]

	shr  ax,1

	test ax,ax

	jz  @f

	shl  eax,16

	add  edx,eax

	shr  eax,16

	call .fill_for_L_R

@@:

	mov  ax,[wa_high_1]

	sub  ax,[wa_high_2]

	shr  ax,1

	test ax,ax

	jz  @f

	add  edx,eax

	call .fill_for_U_D

@@:

	mov   esi,[img_resolution]

    cmp   [img_resolution_2],15

    jne  @f

	mov  esi,15

@@:

	mov  eax,[raw_pointer]

	mov  edi,[eax+20]

	add  edi,eax

;	mov  edi,[img_palette]

	xor  ebp,ebp

	mov  ebx,[raw_pointer_2]

	mov  eax,ecx

	test ax,ax

	jz   .no_draw  ;@f

	shr  eax,16

	test eax,eax

	jz   .no_draw ;@f

	cmp  [filtering_flag],0

	je   @f

	cmp  esi,8

	jne  @f

	mov  esi,24

@@:

	mcall 65

.no_draw:

;	mov  eax,ecx

;	shr  eax,16

;	mov  [test1],eax

;

;	mov  eax,ecx

;	and  eax,0xffff

;	mov  [test2],eax

;

;	mov  eax,edx

;	shr  eax,16

;	mov  [test3],eax

;

;	mov  eax,edx

;	and  eax,0xffff

;	mov  [test4],eax

	push ebx

	call draw_file_name_to_work_area

	pop  ebx

	mov  ecx,ebx  ;[raw_pointer_2]

	mcall 68,13

	xor  eax,eax

	mov  ax,[wa_width_2]

;	imul eax,100

; ��� = ��� * 100

    shl eax,2      ; ��������� �� 4

    lea eax,[eax+eax*4] ; ��������� �� 5

    lea eax,[eax+eax*4] ; ��������� �� 5

	mov  ebx,[img_width]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

	shl  edx,1

	cmp  ebx,edx

	jb   @f

	inc  eax

@@:

	mov  [zoom_auto_factor],eax

	ret

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

calculation_next_value_plus:

	mov  ebx,[zoom_auto_factor]

	mov  ecx,zoom_factors.min

	sub  ecx,4

@@:

	add  ecx,4

	cmp  ecx,dword zoom_factors.max

	jae  .max

	mov  eax,[ecx]

	cmp  eax,ebx

	jb   @r

@@:

	mov  eax,zoom_factors

	mov  [eax],ecx

;	jmp  zoom_plus.1

	ret

.max:

	mov  ecx,dword zoom_factors.max

	jmp  @r

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

calculation_next_value_minus:

	mov  ebx,[zoom_auto_factor]

	mov  ecx,zoom_factors.max

	add  ecx,4

@@:

	sub  ecx,4

	cmp  ecx,dword zoom_factors.min

	jbe  .min

	mov  eax,[ecx]

	cmp  eax,ebx

	ja   @r

@@:

	mov  eax,zoom_factors

	mov  [eax],ecx

;	jmp  zoom_plus.1

	ret

.min:

	mov  ecx,dword zoom_factors.min

	jmp  @r

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

proc_position_correct:

	mov  [position_coorect],1

	mov  eax,[scroll_bar_data_vertical.max_area]

	xor  ebx,ebx

	mov  bx,[wa_high_1]

	shr  ebx,1

	shl  eax,8

	add  ebx,[scroll_bar_data_vertical.position]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

	mov  [vertical_position_coorect],eax

	mov  eax,[scroll_bar_data_horizontal.max_area]

	xor  ebx,ebx

	mov  bx,[wa_width_1]

	shr ebx,1

	shl  eax,8

	add  ebx,[scroll_bar_data_horizontal.position]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

	mov  [horizontal_position_coorect],eax

	ret

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

zoom_plus:

;	cmp  [scaling_mode],dword 0

	mov  eax,[scaling_mode]

	test eax,eax

;	jz   no_scaling.1

;	jz   calculation_next_value_plus

	jnz  @f

	call  calculation_next_value_plus

	jmp  .1

@@:

;	jne  @f

;	mov  [scaling_mode],dword 100

;	mov  [zoom_factors],dword zoom_factors.100

;	call  draw_zoom_factors

;	jmp  red

;@@:

	mov  eax,zoom_factors

	cmp  [eax],dword zoom_factors.max

	jae  still

	add  [eax],dword 4

.1:

	mov  eax,[eax]

	mov  eax,[eax]

.2:

	mov  [scaling_mode],eax

	mov  [correct_scrollbar_100_flag],1

	call calculate_arrows_offset

	call  proc_position_correct

    call  drawimage

	call  set_draw_scrollbar_all

    call  draw_scrollbars

	call  set_nodraw_scrollbar_all

	call  draw_zoom_factors

	jmp  still

zoom_all:

;******************************

	mov  eax,wa_width_1

	mov  eax,[eax]

	push eax

	mov  eax,wa_high_1

	mov  eax,[eax]

	push eax

;******************************

	cmp  [position_coorect],0

	je   .correct_end

	mov  [position_coorect],0

	mov  eax,[scroll_bar_data_vertical.max_area]

;	xor  ebx,ebx

;	mov  bx,[wa_high_1]

;	shr  ebx,1

;	add  eax,ebx  ;[scroll_bar_data_vertical.cur_area]

	shl  eax,8

	mov  ebx,[vertical_position_coorect]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

;	shr  eax,8

	xor  ebx,ebx

	mov  bx,[wa_high_1]

	shr  ebx,1

	cmp  eax,ebx

	jae  @f

	xor  eax,eax

	jmp  .position_vertical_correct

@@:

	sub  eax,ebx

.position_vertical_correct:

	mov  [scroll_bar_data_vertical.position],eax

	mov  eax,[scroll_bar_data_horizontal.max_area]

;	xor  ebx,ebx

;	mov  bx,[wa_width_1]

;	shr  ebx,1

;	add  eax,ebx  ;[scroll_bar_data_horizontal.cur_area]

	shl  eax,8

	mov  ebx,[horizontal_position_coorect]

	test ebx,ebx

	jnz  @f

	inc  ebx

@@:

	xor  edx,edx

	div  ebx

;	shr  eax,8

	xor  ebx,ebx

	mov  bx,[wa_width_1]

	shr  ebx,1

	cmp  eax,ebx

	jae  @f

	xor  eax,eax

	jmp  .position_horizontal_correct

@@:

	sub  eax,ebx

.position_horizontal_correct:

	mov  [scroll_bar_data_horizontal.position],eax

.correct_end:

;****************************************************************************

; Vertical SCROLLBAR

; At a case of resizing of the window

; Check the position of a runner has crossed a limit

;****************************************************************************

    mov  eax,[scroll_bar_data_vertical.max_area]

	xor  ebx,ebx

	mov  bx,[wa_high_1]

	cmp  eax,ebx

	ja   @f

	xor  eax,eax

	jmp  .p_5

@@:

    sub  eax,ebx  ;[scroll_bar_data_vertical.cur_area]

    cmp  eax,[scroll_bar_data_vertical.position]

    jae  @f

.p_5:

    mov  [scroll_bar_data_vertical.position],eax

@@:

;****************************************************************************

; Horizontal SCROLLBAR

; At a case of resizing of the window

; Check the position of a runner has crossed a limit

;****************************************************************************

    mov  eax,[scroll_bar_data_horizontal.max_area]

	xor  ebx,ebx

	mov  bx,[wa_width_1]

	cmp  eax,ebx

	ja   @f

	xor  eax,eax

	jmp  .p_6

@@:

    sub  eax,ebx  ;[scroll_bar_data_horizontal.cur_area]

    cmp  eax,[scroll_bar_data_horizontal.position]

    jae  @f

.p_6:

    mov  [scroll_bar_data_horizontal.position],eax

@@:

;****************************************************************************

	mov   eax,[scroll_bar_data_horizontal.max_area]

	mov   ebx,[scroll_bar_data_vertical.max_area]

	sub   eax,[scroll_bar_data_horizontal.position]   ;100

	sub   ebx,[scroll_bar_data_vertical.position]    ;100

	xor   ecx,ecx

	mov   cx,word [wa_width_1]

	cmp   eax,ecx

	jbe   @f

	xor   eax,eax

	mov   ax,[wa_width_1]

@@:

	mov   [wa_width_2],ax

	mov   ecx,eax

	shl   ecx,16

	xchg  eax,ebx

	xor   edx,edx

	mov   dx,word [wa_high_1]

	cmp   eax,edx

	jbe   @f

	xor   eax,eax

	mov   ax,[wa_high_1]

@@:

	mov   [wa_high_2],ax

	mov   cx,ax

	call  correct_cur_area

	mov   ebx,ecx

	push eax

	mov  eax,[scroll_bar_data_vertical.max_area]

	cmp  eax,[scroll_bar_data_vertical.cur_area]

	jbe  .horizontal  ;@f

	mov  ax,[wa_width_1]

	sub  ax,[scroll_bar_data_vertical.size_x]

	mov  [wa_width_1],ax

	cmp  ax,[wa_width_2]

	jae  .horizontal

	mov  [wa_width_2],ax

.horizontal:

	mov  eax,[scroll_bar_data_horizontal.max_area]

	cmp  eax,[scroll_bar_data_horizontal.cur_area]

	jbe  .finish   ;@f

	mov  ax,[wa_high_1]

	sub  ax,[scroll_bar_data_horizontal.size_y]

	mov  [wa_high_1],ax

	cmp  ax,[wa_high_2]

	jae  .finish

	mov  [wa_high_2],ax

.finish:   ;@@:

	pop  eax

	mov  cx,[wa_width_2]

	shl ecx,16

	mov  cx,[wa_high_2]

	call  correct_cur_area

	mov   ebx,ecx

	mov  eax,[scroll_bar_data_horizontal.position]

;	imul eax,100

; ��� = ��� * 100

    shl eax,2      ; ��������� �� 4

    lea eax,[eax+eax*4] ; ��������� �� 5

    lea eax,[eax+eax*4] ; ��������� �� 5

	push ebx

	mov  ebx,[scaling_mode]

	xor  edx,edx

	div  ebx

;	shl  edx,1

;	cmp  edx,ebx

;	jb  @f

;	inc  eax

;@@:

	pop  ebx

	mov  ecx,eax

	shl  ecx,16

	mov  eax,[scroll_bar_data_vertical.position]

;	imul eax,100

; ��� = ��� * 100

    shl eax,2      ; ��������� �� 4

    lea eax,[eax+eax*4] ; ��������� �� 5

    lea eax,[eax+eax*4] ; ��������� �� 5

	push ebx

	mov  ebx,[scaling_mode]

	xor  edx,edx

	div  ebx

;	shl  edx,1

;	cmp  edx,ebx

;	jb  @f

;	inc  eax

;@@:

	pop  ebx

	mov  cx,ax

	call   scaling.5

;******************************

	pop  eax

	mov  ebx,wa_high_1

	mov  [ebx],eax

	pop  eax

	mov  ebx,wa_width_1

	mov  [ebx],eax

;******************************

	ret

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

zoom_minus:

;	cmp  [scaling_mode],dword 0

	mov  eax,[scaling_mode]

	test eax,eax

;	jz   no_scaling.1

;	jz   calculation_next_value_minus

	jnz  @f

	call  calculation_next_value_minus

	jmp  zoom_plus.1

@@:

;	je   no_scaling.1

;	jne  @f

;	mov  [scaling_mode],dword 100

;	mov  [zoom_factors],dword zoom_factors.100

;	call  draw_zoom_factors

;	jmp  red

;@@:

	mov  eax,zoom_factors

	cmp  [eax],dword zoom_factors.min

	jbe  still

	sub  [eax],dword 4

	jmp   zoom_plus.1

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