// Create the clipper using the DirectDraw object
                res = g_pDD->CreateClipper(0, &g_pClipper, NULL);
                if (DDFailedCheck(res, "Create clipper"))
                        FUCK();
                
                // Assign your window's HWND to the clipper
                res = g_pClipper->SetHWnd(0, g_hwnd);
                if (DDFailedCheck(res, "Assign hWnd to clipper"))
                        FUCK();
                
                // Attach the clipper to the primary surface
                res = g_pDDS->SetClipper(g_pClipper);
                if (DDFailedCheck(res, "Set clipper"))
                        FUCK();    

        int off_y = 200;

        RECT where;
        where.left = 0;
        where.top = 0 + off_y;
        where.right = g_image_w;
        where.bottom = g_image_h + off_y;

        g_pDDSBack->Blt(&where, g_pDDS_image, NULL, DDBLT_WAIT, NULL);    

        g_pDDSBack->BltFast(0, 200, g_pDDS_image, NULL, DDBLTFAST_NOCOLORKEY);    

;##############################################################################################################

; Copy any number of vertices from a system memory vertex buffer to
; the memory of a video vertex buffer and add an offset to each vertex

;##############################################################################################################

; Entry:
; rcx = The number of vertices to send
; rdx = Address of the locked region to write to
; r8 = Address of the first source vertex coordinate pair
; r9 = Address of the first source vertex diffuse value
; xmm0 = The Real4 value to add to each x coordinate (See notes)
; xmm1 = The Real4 value to add to each y coordinate (See notes)
; Return:
; rax = Address of the locked region after the one written to here
proc _VidVbSendVerticesAnyTrns,Count,ppbData,pFirstCoord,pFirstDiffuse
  Z = dword 0.0
  RHW = dword 1.0
  punpckldq xmm0,xmm1
  mov r11,rcx
  pshufd xmm0,xmm0,01000100b
  mov r10,(RHW shl 32) or Z
  shr rcx,1
  jz .SendLast
align 4
.Loop:
  movaps xmm2,[r8]
  addps xmm2,xmm0
  pextrq [rdx],xmm2,0
  pextrq [rdx+20],xmm2,1
  mov eax,[r9]
  mov [rdx+16],eax
  mov eax,[r9+4]
  mov [rdx+(20+16)],eax
  mov [rdx+8],r10
  add r8,16
  add r9,8
  lea rdx,[rdx+40]
  sub rcx,1
  jnz .Loop
.SendLast:
  test r11,1
  jz .return
  movq xmm2,[r8]
  pextrq [rdx],xmm2,0
  mov eax,[r9]
  mov [rdx+16],eax
  mov [rdx+8],r10
.ret:
  ret
endp
;##############################################################################################################