PureBasic Forums - English

Code: Select all

; ------------------------------------------------------------
; Goal: display in the background of the transparent png rasters alike those of  Decrunchers
;-> https://youtu.be/sq4uurfvdBY?t=59

UsePNGImageDecoder()
UsePNGImageEncoder()

RygImagePath$="/home/manu/Desktop/1.png"

If InitSprite() = 0 Or InitKeyboard() = 0
  MessageRequester("Error", "Sprite or Keyboard system can't be initialized", 0)
  End
EndIf

MyScreenWidth.i=1280
MyScreenHeight.i=720
MyScreenColorBitsDepth.i=32

     Procedure DrawCoordsFrame()
    ; Draw the frame 0,0,1280,720
     
    ; Draw 0,0 at 0,16
    DrawText(0, 16, "0,0", RGB($FF,$FF,$FF), RGB($00,$00,$00))
    
    ; Draw 1280,0 at 1280,16
    DrawText(1280-64, 16, "1280,0", RGB($FF,$FF,$FF), RGB($00,$00,$00))
    
    ; Draw 0,720 at 0,720
    DrawText(0, 720-32, "0,720", RGB($FF,$FF,$FF), RGB($00,$00,$00))

    ; Draw 1280,720 at 1280,720
    DrawText(1280-64, 720-32, "1280,720", RGB($FF,$FF,$FF), RGB($00,$00,$00))
    
        ProcedureReturn 0
  EndProcedure

If OpenScreen(MyScreenWidth.i, MyScreenHeight.i, MyScreenColorBitsDepth.i, "Ryg Crunch Addict")
  
  LoadSprite(0, RygImagePath$)
  CreateSprite(1, MyScreenWidth, MyScreenHeight)
  
  ; 1 create some random Data : 720 * 4 RGB 32 bits values 
  Length.i=MyScreenHeight.i*4-1
  Dim RandomColors(Length)
  
  For i = 0 To Length
      RandomColors(i) = $00000000+Random(255,0)+Random(255,0)*255+Random(255,0)*255*255
  Next
  
  Repeat
    
    ; Inverse the buffers (the back become the front (visible)... And we can do the rendering on the back)
    
    FlipBuffers()
    
    ;ClearScreen(RGB(0,0,0))
    
    StartDrawing(SpriteOutput(1))
     
        ; change color 0 following raster position
    
    ; principle: 
    ; 1 table:  random data with 720/3 RGB 24 bits values
    ; 2 random variable within a range
    ; rndNbOfLines: number of vertical lines to draw in table [1] color
    ; rndLineLengh: length of line = up To when horizontally the line drawing will go, range 0 to 1280
    ; 2 put raster position in color 0
    ; take line y and fill it with RandomColors(y) till line y+rnd2 up to rnd1
    y.i=0
   
    While (y < MyscreenHeight)
      height=Random(20,7);
      Box(0, y, MyScreenWidth, height, RandomColors(height))
      y=y+height  
    Wend
      
    SpriteBlendingMode(#PB_Sprite_BlendSourceColor,  #PB_Sprite_BlendDestinationAlpha)
    StopDrawing()
    
    ; Draw our sprites
    
    DisplayTransparentSprite(1,0,0,255)                      ; display the decrunch raster
    DisplayTransparentSprite(0,0,0,0)                      ; display the fur mask
    
    ExamineKeyboard()
    
  Until KeyboardPushed(#PB_Key_Escape)
  
Else
  MessageRequester("Error", "Can't open a 1280x720 - 32 bit screen !", 0)
EndIf