| 0,0 → 1,501 |
|---|
| ;----------------------------------------------------------------------------- |
| ;///// PART OF ATi RADEON 9000 DRIVER //////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| ; Copyright (c) 2004, mike.dld |
| ; Using BeOS driver - Copyright (c) 2002, Thomas Kurschel |
| ;----------------------------------------------------------------------------- |
| ; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
| ; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
| ; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE |
| ; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER |
| ; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING |
| ; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER |
| ; DEALINGS IN THE SOFTWARE. |
| ;----------------------------------------------------------------------------- |
| |
| include 'clipping.inc' |
| |
| struct RECT |
| left dd ? |
| top dd ? |
| right dd ? |
| bottom dd ? |
| ends |
| |
| virtual at ebp |
| r RECT |
| end virtual |
| |
| virtual at edi |
| r2 RECT |
| end virtual |
| |
| SR = sizeof.RECT |
| |
| macro movl val,reg { |
| mov reg,val |
| } |
| |
| EQUAL_LEFT = 00000001b |
| EQUAL_BOTTOM = 00000010b |
| EQUAL_RIGHT = 00000100b |
| EQUAL_TOP = 00001000b |
| |
| func calc_clipping_rects |
| begin |
| mov [cnt],0 |
| movzx ebp,word[0x3000] |
| shl ebp,5 |
| |
| cmp ebp,0x20 |
| jne @f |
| mov esi,viewport |
| mov edi,rct |
| mov ecx,sizeof.RECT/4 |
| cld |
| rep movsd |
| jmp .lp1 |
| @@: |
| movsx eax,word[ebp+0x00] |
| mov [rct.left],eax |
| mov [rct.right],eax |
| movsx eax,word[ebp+0x04] |
| mov [rct.top],eax |
| mov [rct.bottom],eax |
| movzx eax,word[ebp+0x08] |
| inc eax |
| add [rct.right],eax |
| movzx eax,word[ebp+0x0C] |
| inc eax |
| add [rct.bottom],eax |
| .lp1: |
| mov esi,viewport |
| mov edi,tr |
| mov ecx,sizeof.RECT/4 |
| cld |
| rep movsd |
| mov ebp,rct |
| call intersect_rect ; (ebp,tr)->(x1:edx,y1:eax,x2:ebx,y2:ecx)+CF |
| jc .exit |
| mov [rct.left],edx |
| mov [rct.top],eax |
| mov [rct.right],ebx |
| mov [rct.bottom],ecx |
| inc [cnt] |
| comment ^ |
| movsx eax,word[ebp+0x00] |
| mov [rct.left],eax |
| mov [rct.right],eax |
| movsx eax,word[ebp+0x04] |
| mov [rct.top],eax |
| mov [rct.bottom],eax |
| movsx eax,word[ebp+0x08] |
| inc eax |
| add [rct.right],eax |
| movsx eax,word[ebp+0x0C] |
| inc eax |
| add [rct.bottom],eax |
| ^ |
| movzx ecx,word[0x00003004] ; number of processes |
| jif ecx,be,1,.exit |
| |
| ; calculate clipping rectangles |
| |
| mov esi,1 |
| ; go forward through all windows |
| .next_window: |
| movzx edi,word[0x00003000] ; calling process number |
| |
| mov ax,[0x0000C000+esi*2] |
| jif ax,be,[0x0000C000+edi*2],.end_window.2 |
| |
| mov ebp,[cnt] |
| shl ebp,4 ; ebp *= SR |
| jz .exit |
| lea ebp,[rct+ebp-SR] |
| |
| push esi ;ecx esi |
| shl esi,5 |
| lodsd |
| mov [tr.left],eax |
| mov [tr.right],eax |
| lodsd |
| mov [tr.top],eax |
| mov [tr.bottom],eax |
| lodsd |
| jif eax,z,eax,.end_window,test |
| inc eax |
| add [tr.right],eax |
| lodsd |
| jif eax,z,eax,.end_window,test |
| inc eax |
| add [tr.bottom],eax |
| ; go backward through all rectangles |
| .next_rect: |
| |
| rc_top equ eax |
| rc_right equ ebx |
| rc_bottom equ ecx |
| rc_left equ edx |
| |
| call intersect_rect ; (ebp,tr)->(x1:edx,y1:eax,x2:ebx,y2:ecx)+CF |
| jc .is_finish |
| xor edi,edi |
| jif rc_top,ne,[r.top],@f |
| or edi,EQUAL_TOP |
| @@: jif rc_right,ne,[r.right],@f |
| or edi,EQUAL_RIGHT |
| @@: jif rc_bottom,ne,[r.bottom],@f |
| or edi,EQUAL_BOTTOM |
| @@: jif rc_left,ne,[r.left],@f |
| or edi,EQUAL_LEFT |
| @@: jmp [jtable_intersect+edi*4] |
| |
| .is_0000: |
| call copy_current |
| mov [r.left ],rc_right |
| mov [r2.right -SR],rc_left |
| mov [r2.left ],rc_left |
| mov [r2.right ],rc_right |
| mov [r2.bottom ],rc_top |
| mov [r2.left +SR],rc_left |
| mov [r2.right +SR],rc_right |
| mov [r2.top +SR],rc_bottom |
| movl [r.top ],esi |
| mov [r2.top ],esi |
| movl [r.bottom ],esi |
| mov [r2.bottom+SR],esi |
| add [cnt],2 |
| jmp .is_finish |
| .is_0001: |
| call copy_current |
| mov [r.top ],rc_bottom |
| mov [r2.bottom-SR],rc_top |
| mov [r2.left ],rc_right |
| mov [r2.top ],rc_top |
| mov [r2.bottom ],rc_bottom |
| movl [r.right ],esi |
| mov [r2.right ],esi |
| inc [cnt] |
| jmp .is_finish |
| .is_0010: |
| call copy_current |
| mov [r.left ],rc_right |
| mov [r2.right -SR],rc_left |
| mov [r2.left ],rc_left |
| mov [r2.right ],rc_right |
| mov [r2.bottom ],rc_top |
| movl [r.top ],esi |
| mov [r2.top ],esi |
| inc [cnt] |
| jmp .is_finish |
| .is_0011: |
| call copy_current |
| mov [r.bottom ],rc_top |
| mov [r2.left -SR],rc_right |
| mov [r2.top -SR],rc_top |
| jmp .is_finish |
| .is_0100: |
| call copy_current |
| mov [r.top ],rc_bottom |
| mov [r2.bottom-SR],rc_top |
| mov [r2.right ],rc_left |
| mov [r2.top ],rc_top |
| mov [r2.bottom ],rc_bottom |
| movl [r.left ],esi |
| mov [r2.left ],esi |
| inc [cnt] |
| jmp .is_finish |
| .is_0101: |
| call copy_current |
| mov [r.top ],rc_bottom |
| mov [r2.bottom-SR],rc_top |
| jmp .is_finish |
| .is_0110: |
| call copy_current |
| mov [r.bottom ],rc_top |
| mov [r2.right -SR],rc_left |
| mov [r2.top -SR],rc_top |
| jmp .is_finish |
| .is_0111: |
| mov [r.bottom ],rc_top |
| jmp .is_finish |
| .is_1000: |
| call copy_current |
| mov [r.left ],rc_right |
| mov [r2.right -SR],rc_left |
| mov [r2.left ],rc_left |
| mov [r2.right ],rc_right |
| mov [r2.top ],rc_bottom |
| movl [r.bottom ],esi |
| mov [r2.bottom ],esi |
| inc [cnt] |
| jmp .is_finish |
| .is_1001: |
| call copy_current |
| mov [r.top ],rc_bottom |
| mov [r2.left -SR],rc_right |
| mov [r2.bottom-SR],rc_bottom |
| jmp .is_finish |
| .is_1010: |
| call copy_current |
| mov [r.left ],rc_right |
| mov [r2.right -SR],rc_left |
| jmp .is_finish |
| .is_1011: |
| mov [r.left ],rc_right |
| jmp .is_finish |
| .is_1100: |
| call copy_current |
| mov [r.top ],rc_bottom |
| mov [r2.right -SR],rc_left |
| mov [r2.bottom-SR],rc_bottom |
| jmp .is_finish |
| .is_1101: |
| mov [r.top ],rc_bottom |
| jmp .is_finish |
| .is_1110: |
| mov [r.right ],rc_left |
| jmp .is_finish |
| .is_1111: |
| call delete_current |
| .is_finish: |
| sub ebp,SR |
| jif ebp,ae,rct,.next_rect |
| .end_window: |
| pop esi; ecx |
| .end_window.2: |
| inc esi |
| jif esi,be,[0x00003004],.next_window |
| ; dec ecx |
| ; jnz .next_window |
| |
| ; combine some rectangles if possible |
| ; with Result do begin |
| ; for i := cnt-1 downto 0 do if rct[i].Left >= 0 then |
| ; for j := cnt-1 downto 0 do if (j <> i) and (rct[j].Left >= 0) then |
| ; if (rct[i].Left = rct[j].Left) and (rct[i].Right = rct[j].Right) then begin |
| ; end else if (rct[i].Top = rct[j].Top) and (rct[i].Bottom = rct[j].Bottom) then begin |
| ; if (rct[i].Left = rct[j].Right) then begin |
| ; rct[i].Left := rct[j].Left; |
| ; rct[j].Left := -1; |
| ; end else if (rct[i].Right = rct[j].Left) then begin |
| ; rct[i].Right := rct[j].Right; |
| ; rct[j].Left := -1; |
| ; end; |
| ; end; |
| ; for i := cnt-1 downto 0 do if rct[i].Left < 0 then begin |
| ; for j := i to cnt-2 do |
| ; rct[j] := rct[j+1]; |
| ; dec(cnt); |
| ; end; |
| ; end; |
| |
| .combine_rects: |
| mov esi,[cnt] |
| shl esi,4 |
| add esi,rct |
| lea ebp,[esi-SR] |
| push ebp |
| .next_rect1: |
| sub esi,SR |
| jif esi,b,rct,.exit.combine |
| jif [esi+RECT.left],e,-1,.next_rect1 |
| push ebp |
| .next_rect2: |
| jif ebp,e,esi,.next_rect2.ok |
| jif [ebp+RECT.left],e,-1,.next_rect2.ok |
| |
| mov eax,[ebp+RECT.left] |
| mov ebx,[ebp+RECT.right] |
| mov ecx,[ebp+RECT.top] |
| mov edx,[ebp+RECT.bottom] |
| jif eax,ne,[esi+RECT.left],.not_left_right |
| jif ebx,ne,[esi+RECT.right],.not_left_right |
| jif edx,ne,[esi+RECT.top],@f |
| mov [esi+RECT.top],ecx |
| jmp .next_rect2.mark |
| @@: jif ecx,ne,[esi+RECT.bottom],.next_rect2.ok |
| mov [esi+RECT.bottom],edx |
| jmp .next_rect2.mark |
| .not_left_right: |
| jif ecx,ne,[esi+RECT.top],.next_rect2.ok |
| jif edx,ne,[esi+RECT.bottom],.next_rect2.ok |
| jif ebx,ne,[esi+RECT.left],@f |
| mov [esi+RECT.left],eax |
| jmp .next_rect2.mark |
| @@: jif eax,ne,[esi+RECT.right],.next_rect2.ok |
| mov [esi+RECT.right],ebx |
| .next_rect2.mark: |
| or [ebp+RECT.left],-1 |
| .next_rect2.ok: |
| sub ebp,SR |
| jif ebp,ae,rct,.next_rect2 |
| pop ebp |
| jmp .next_rect1 |
| .exit.combine: |
| |
| pop ebp |
| .next_rect3: |
| jif [ebp+RECT.left],ne,-1,@f |
| call delete_current |
| @@: sub ebp,SR |
| jif ebp,ae,rct,.next_rect3 |
| |
| ; remove unnecessary rectangles |
| ; for i := Result.cnt-1 downto 0 do with Result do |
| ; if not IntersectRect(rc,rct[i],r2) then begin |
| ; for j := i to cnt-2 do |
| ; rct[j] := rct[j+1]; |
| ; dec(cnt); |
| ; end; |
| |
| .exit: |
| mov esi,rct |
| mov ecx,[cnt] |
| ret |
| |
| delete_current: |
| push ecx |
| lea esi,[ebp+SR] ; esi = ebp+SR |
| mov edi,ebp ; edi = ebp |
| mov ecx,[cnt] ; ecx = cnt |
| shl ecx,4 ; ecx *= SR |
| add ecx,rct-SR ; ecx += rct-SR |
| sub ecx,ebp ; ecx -= ebp |
| cld |
| rep movsb |
| dec [cnt] |
| pop ecx |
| ret |
| |
| copy_current: |
| push ecx |
| mov edi,[cnt] |
| shl edi,4 |
| lea edi,[rct+edi] |
| mov esi,ebp |
| mov ecx,4 |
| cld |
| rep movsd |
| pop ecx |
| inc [cnt] |
| ret |
| |
| intersect_rect: ; ebp,tr |
| mov rc_top,[tr.top] |
| jif rc_top,ge,[r.bottom],.exit |
| mov rc_right,[tr.right] |
| jif rc_right,le,[r.left],.exit |
| mov rc_bottom,[tr.bottom] |
| jif rc_bottom,le,[r.top],.exit |
| mov rc_left,[tr.left] |
| jif rc_left,ge,[r.right],.exit |
| |
| jif rc_top,ge,[r.top],@f |
| mov rc_top,[r.top] |
| @@: jif rc_right,le,[r.right],@f |
| mov rc_right,[r.right] |
| @@: jif rc_bottom,le,[r.bottom],@f |
| mov rc_bottom,[r.bottom] |
| @@: jif rc_left,ge,[r.left],@f |
| mov rc_left,[r.left] |
| @@: clc |
| ret |
| .exit: |
| stc |
| ret |
| |
| endf |
| |
| func FC |
| begin |
| .x00: |
| .x01: |
| .x02: |
| .x04: |
| .x05: |
| .x06: |
| .x08: |
| .x09: |
| .x0A: |
| .x10: |
| .x11: |
| .x12: |
| .x14: |
| .x15: |
| .x16: |
| .x18: |
| .x19: |
| .x1A: |
| .x20: |
| .x21: |
| .x22: |
| .x24: |
| .x25: |
| .x26: |
| .x28: |
| .x29: |
| .x2A: |
| .x40: |
| .x41: |
| .x42: |
| .x44: |
| .x45: |
| .x46: |
| .x48: |
| .x49: |
| .x4A: |
| .x50: |
| .x51: |
| .x52: |
| .x54: |
| .x55: |
| .x56: |
| .x58: |
| .x59: |
| .x5A: |
| .x60: |
| .x61: |
| .x62: |
| .x64: |
| .x65: |
| .x66: |
| .x68: |
| .x69: |
| .x6A: |
| .x80: |
| .x81: |
| .x82: |
| .x84: |
| .x85: |
| .x86: |
| .x88: |
| .x89: |
| .x8A: |
| .x90: |
| .x91: |
| .x92: |
| .x94: |
| .x95: |
| .x96: |
| .x98: |
| .x99: |
| .x9A: |
| .xA0: |
| .xA1: |
| .xA2: |
| .xA4: |
| .xA5: |
| .xA6: |
| .xA8: |
| .xA9: |
| .xAA: |
| ret |
| .xXX: |
| ret |
| endf |
| |
| ;----------------------------------------------------------------------------- |
| ;///// END /////////////////////////////////////////////////////////////////// |
| ;----------------------------------------------------------------------------- |
| Property changes: |
|---|
| Added: svn:executable |
|---|
| +* |
|---|
| \ No newline at end of property |
|---|