PureBasic

Code : Tout sélectionner

file$="image269-806131712-524416-.dds"
InitSprite()
Structure header
  stru_size.l   ;taille de la structure (124)
  flags.l       ;Flags to indicate valid fields. Always include DDSD_CAPS, DDSD_PIXELFORMAT, DDSD_WIDTH, DDSD_HEIGHT.
  height.l      ;hauteur de l'image en pixel
  width.l       ;largeur de l'image en pixels
  size.l        ;longueur d'une ligne de pixel en octet si le fichier n'est pas compresse, du total de l'image si il est compresse
  depth.l       ;For volume textures, this is the depth of the volume. dwFlags should include DDSD_DEPTH in this case.
  mipmapcount.l ;For items with mipmap levels, this is the total number of levels in the mipmap chain of the main image. dwFlags should include DDSD_MIPMAPCOUNT in this case.
  reserved.l[11];reserved
  pixelformat.l ;pixelformat
  ddscaps.w     ;16-byte value that specifies the capabilities structure.
  reserved2.l[2];reserve
endstructure
blah.header
*mem=AllocateMemory(FileSize(file$))
rd=ReadFile(#PB_Any,file$)
ReadData(rd,*mem,MemorySize(*mem))
CloseFile(rd)
CopyMemory(*mem+4,@blah,SizeOf(blah))
nb=Len(Str(blah\size))
off=128
Global main=OpenWindow(#PB_Any,0,80,1024,1024,"test")                 
Global screen=OpenWindowedScreen(WindowID(main),0,0,1024,1024,0,0,0)
  x=0
  y=0
ClearScreen($202020)
StartDrawing(ScreenOutput())
  Repeat
  ;
  color1=PeekW(*mem+off):off+2
  color2=PeekW(*mem+off):off+2
  r1=((color1 & %1111100000000000) >>11)
  g1=((color1 & %0000011111100000) >>5)
  b1=(color1 & %0000000000011111)
  ;  
  r2=((color2 & %1111100000000000) >>11)
  g2=((color2 & %0000011111100000) >>5)
  b2=(color2 & %0000000000011111)
  pix_enc=PeekL(*mem+off):off+4
  mask_x=30
  For yy=0 To 3
    For xx=0 To 3        
      mask=%11<<mask_x
      Select (pix_enc & mask)>>mask_x
      Case 00
        rc=r1
        gc=g1
        bc=b1
      Case 01
        rc=r2
        gc=g2
        bc=b2      
      Case 10
        rc=((2*r1)+r2)/3
        gc=((2*g1)+g2)/3
        bc=((2*b1)+b2)/3
      Case 11
        rc=((2*r2)+r1)/3
        gc=((2*g2)+g1)/3
        bc=((2*b2)+b1)/3        
      EndSelect
      If x+xx<blah\width And y+yy<blah\height
        Plot(x+xx,y+yy,RGB(rc,gc,bc))
      EndIf
    Next
  Next
x+4
If x=blah\width
  x=0
  y+4
EndIf

Until off=blah\size
StopDrawing()
FlipBuffers()
Repeat
ev=WaitWindowEvent()
Until ev=#PB_Event_CloseWindow