PureBoard

Code: Alles auswählen

InitSpriteDX9()
InitKeyboard()

Debug CheckResolutionDX9(32,#PB_D3D_Windowed)

If OpenScreenDX9(800,600,32,OpenWindow(0,0,0,800,600,#PB_Window_ScreenCentered|#PB_Window_SystemMenu,":)"),#PB_D3D_Windowed|#PB_D3D_AlphaBlending)
  ;SetWindowPos_(WindowID(),#HWND_TOPMOST,0,0,0,0,#SWP_NOSIZE|#SWP_NOMOVE) 
  hTexture = LoadTextureDX9("c:\link2.png") ;You should free the texture before you exit the program the library don't do it by itself (supports the following file formats: .bmp, .dds, .dib, .hdr, .jpg, .pfm, .png, .ppm, .tga)
  If hTexture = 0
    CloseScreenDX9()
    Debug "Couldn't load the texture!"
    End
  EndIf
  hTexture2 = CreateTextureDX9(256,256) ;You should free the texture before you exit the program the library don't do it by itself
  If hTexture2 = 0
    CloseScreenDX9()
    Debug "Couldn't create the texture!"
    End
  EndIf
  
  hSprite= LoadSpriteDX9("c:\link2.png")
  If hSprite = 0
    CloseScreenDX9()
    Debug "Couldn't load the sprite!"
    End
  EndIf
  
  If DrawingBufferStartDX9(hSprite, DrawingBuffer.D3D9_DrawingBuffer)
    For y = 0 To 56-1
      For x = 0 To 56-1
        DrawingBufferPlotDX9(DrawingBuffer,x,y,RGB(x*4,0,y*4))
      Next
    Next
    DrawingBufferStopDX9(hSprite)
  EndIf
  
  hTexture_DisplaySettings.DisplayTexture_Struc
  hTexture_Center.POINT
  hTexture_SrcRect.RECT
  ;ClipTexture...
  hTexture_SrcRect\top = 0
  hTexture_SrcRect\left = 0
  hTexture_SrcRect\bottom = 100
  hTexture_SrcRect\right = 100
  hTexture_DisplaySettings\pSrcRect = hTexture_SrcRect
  ;SetCenter...
  hTexture_Center\x = 50
  hTexture_Center\y = 50
  hTexture_DisplaySettings\pCenter = hTexture_Center
  ;I don't like red:
  hTexture_DisplaySettings\ColorFilter = $FF00FFFF ;Don't display the red channel (AARRGGBB)
  
  
  If DrawingBufferStartTextureDX9(hTexture2,@DrawingBuffer.D3D9_DrawingBuffer)
    Debug DrawingBuffer\PixelBuffer
    Debug DrawingBuffer\Pitch
    Debug DrawingBuffer\BytesperPixel
    For y = 0 To 256-1
      For x = y To 256-1
        DrawingBufferPlotDX9(DrawingBuffer,x,y,RGBA($FF,x,y,Random(255)))
      Next
      For x = 0 To y-1
        DrawingBufferPlotDX9(DrawingBuffer,x,y,$FFFFFFFF!RGBA($FF,x,y,$80)) ;Invert color
      Next
    Next
    DrawingBufferStopTextureDX9(hTexture2)
  EndIf
  
  alpha.f = 0.0
  Repeat
    alpha + 0.01
    ClearScreenDX9(RGBA(0,0,0,0))
    BoxDX9(5,5,600,400,RGBA(150,150,150,255))
    If DrawingBufferStartDX9(DrawingBuffer.D3D9_DrawingBuffer)
      Color = ConvertColorDX9(DrawingBuffer,RGBA(255,0,0,$FF))
      For y = 10 To 1*256-1
        For x = 10 To 2*256-1
          DrawingBufferPlotDX9(DrawingBuffer,x,y,Color,#PB_Plot_NoConvert)
        Next
      Next
      DrawingBufferStopDX9()
    EndIf
    
    SetAlphaBlendingDX9(#True,#D3DBLEND_SRCALPHA,#D3DBLEND_ONE) ;Default
    StartDX9() ;>
      DisplayTextureDX9(hTexture,100.0,600-Abs(500.0*Sin(alpha)),hTexture_DisplaySettings)
      DisplayTextureDX9(hTexture2,200.0,600-Abs(500.0*Sin(alpha)))
    StopDX9() ;<
    DisplaySpriteDX9(hSprite,Abs(500.0*Sin(alpha)),100)
    FlipBuffersDX9()
    DisableDebugger
    WE = WindowEvent()
    While WE
      If WE = #PB_Event_CloseWindow
        quit = 1
      EndIf
      WE = WindowEvent()
    Wend
    ExamineKeyboard()
  Until KeyboardPushed(#PB_Key_Escape) Or quit
  EnableDebugger
  FreeSpriteDX9(hSprite)
  FreeTextureDX9(hTexture)
  FreeTextureDX9(hTexture2)
  CloseScreenDX9()
Else
  Debug "OpenScreenDX9-Error"
EndIf