Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                              ;;

;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;  VESA20.INC                                                  ;;

;;                                                              ;;

;;  Vesa 2.0 functions for MenuetOS                             ;;

;;                                                              ;;

;;  Copyright 2002 Ville Turjanmaa                              ;;

;;  Alexey, kgaz@crosswindws.net                                ;;

;;  - Voodoo compatible graphics                                ;;

;;  Juan M. Caravaca                                            ;;

;;  - Graphics optimimizations eg. drawline                     ;;

;;                                                              ;;

;;  See file COPYING for details                                ;;

;;                                                              ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision: 9679 $

uglobal

align 4

        bgr_cur_line    rd MAX_SCREEN_WIDTH

        bgr_next_line   rd MAX_SCREEN_WIDTH

endg

iglobal

align 4

        overlapping_of_points_ptr       dd overlapping_of_points

endg

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

; eax = x

; ebx = y

align 4

Vesa20_getpixel16:

        ; check for hardware cursor

        cmp     [_display.select_cursor], select_cursor

        je      @f

        cmp     [_display.select_cursor], 0

        jne     .no_mouseunder

  @@:

        ; check mouse area for putpixel

        test    ecx, 0x04000000         ; don't load to mouseunder area

        jnz     .no_mouseunder

        call    [_display.check_m_pixel]

        test    ecx, ecx                ; 0xff000000

        jnz     @f

  .no_mouseunder:

;        imul    ebx, [BytesPerScanLine] ; ebx = y * y multiplier

        mov     ebx, [BPSLine_calc_area+ebx*4]

        lea     edi, [eax*2]            ; edi = x*2

        add     edi, ebx                ; edi = x*2+(y*y multiplier)

        movzx   ecx, word[LFB_BASE+edi]

        shl     ecx, 3

        ror     ecx, 8

        shl     cx, 2

        ror     ecx, 8

        shl     cl, 3

        rol     ecx, 16

  @@:

        and     ecx, 0x00ffffff

        ret

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

; eax = x

; ebx = y

align 4

Vesa20_getpixel24:

        ; check for hardware cursor

        cmp     [_display.select_cursor], select_cursor

        je      @f

        cmp     [_display.select_cursor], 0

        jne     .no_mouseunder

  @@:

        ; check mouse area for putpixel

        test    ecx, 0x04000000         ; don't load to mouseunder area

        jnz     .no_mouseunder

        call    [_display.check_m_pixel]

        test    ecx, ecx                ; 0xff000000

        jnz     @f

  .no_mouseunder:

;        imul    ebx, [BytesPerScanLine] ; ebx = y * y multiplier

        mov     ebx, [BPSLine_calc_area+ebx*4]

        lea     edi, [eax+eax*2]        ; edi = x*3

        add     edi, ebx                ; edi = x*3+(y*y multiplier)

        mov     ecx, [LFB_BASE+edi]

  @@:

        and     ecx, 0x00ffffff

        ret

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

; eax = x

; ebx = y

align 4

Vesa20_getpixel32:

        ; check for hardware cursor

        cmp     [_display.select_cursor], select_cursor

        je      @f

        cmp     [_display.select_cursor], 0

        jne     .no_mouseunder

  @@:

        ; check mouse area for putpixel

        test    ecx, 0x04000000         ; don't load to mouseunder area

        jnz     .no_mouseunder

        call    [_display.check_m_pixel]

        test    ecx, ecx                ; 0xff000000

        jnz     @f

  .no_mouseunder:

;        imul    ebx, [BytesPerScanLine] ; ebx = y * y multiplier

        mov     ebx, [BPSLine_calc_area+ebx*4]

        lea     edi, [ebx+eax*4]        ; edi = x*4+(y*y multiplier)

        mov     ecx, [LFB_BASE+edi]

  @@:

        and     ecx, 0x00ffffff

        ret

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

; ebx = pointer

; ecx = size [x|y]

; edx = coordinates [x|y]

; ebp = pointer to 'get' function

; esi = pointer to 'init' function

; edi = parameter for 'get' function

align 16

vesa20_putimage:

virtual at esp

 putimg:

   .real_sx        dd ?

   .real_sy        dd ?

   .image_sx       dd ?

   .image_sy       dd ?

   .image_cx       dd ?

   .image_cy       dd ?

   .pti            dd ?

   .abs_cx         dd ?

   .abs_cy         dd ?

   .line_increment dd ?

   .winmap_newline dd ?

   .screen_newline dd ?

   .real_sx_and_abs_cx dd ?

   .real_sy_and_abs_cy dd ?

   .stack_data = 4*14

   .edi         dd      ?

   .esi         dd      ?

   .ebp         dd      ?

   .esp         dd      ?

   .ebx         dd      ?

   .edx         dd      ?

   .ecx         dd      ?

   .eax         dd      ?

   .ret_addr    dd      ?

   .arg_0       dd      ?

end virtual

        pushad

        sub     esp, putimg.stack_data

; save pointer to image

        mov     [putimg.pti], ebx

; unpack the size

        mov     eax, ecx

        and     ecx, 0xFFFF

        shr     eax, 16

        mov     [putimg.image_sx], eax

        mov     [putimg.image_sy], ecx

; unpack the coordinates

        mov     eax, edx

        and     edx, 0xFFFF

        shr     eax, 16

        mov     [putimg.image_cx], eax

        mov     [putimg.image_cy], edx

; calculate absolute (i.e. screen) coordinates

        ;mov     eax, [TASK_BASE]

        mov     eax, [current_slot_idx]

        shl     eax, 5 ; sizeof.WDATA

        mov     ebx, [eax + window_data + WDATA.box.left]

        add     ebx, [putimg.image_cx]

        mov     [putimg.abs_cx], ebx

        mov     ebx, [eax +window_data + WDATA.box.top]

        add     ebx, [putimg.image_cy]

        mov     [putimg.abs_cy], ebx

; real_sx = MIN(wnd_sx-image_cx, image_sx);

        mov     ebx, [eax + window_data + WDATA.box.width]       ; ebx = wnd_sx

        inc     ebx                                     ; WDATA.box.width is one pixel less than real window x-size

        sub     ebx, [putimg.image_cx]

        ja      @f

        add     esp, putimg.stack_data

        popad

        ret

  @@:

        cmp     ebx, [putimg.image_sx]