PureBasic

Code : Tout sélectionner

; code réaliser par monsieur dieppedalle david le mercredi 2 mars 2011 a 22 h

#Fenetre = 0
#image_2 = 2

UsePNGImageDecoder()
UseJPEG2000ImageDecoder()
UseJPEGImageDecoder()
UseTGAImageDecoder()
UseTIFFImageDecoder()

Global NewList Sprite.s()

Procedure Open_Window_0()
  If OpenWindow(#Fenetre, 367, 277, 600, 500, "New window ( 0 )",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    
    x = 10
    y = 10
    
    StartDrawing(WindowOutput(#Fenetre))
    DrawAlphaImage(ImageID(#image_2), x, y)
    largeur_image = ImageWidth(#image_2)
    hauteur_image = ImageHeight(#image_2)
    StopDrawing()
    
    Debug largeur_image
    Debug hauteur_image
    
    largeur_actuelle_lit = x - 1
    hauteur_actuelle_lit = y
    
    StartDrawing(WindowOutput(#Fenetre))
    
    Repeat
      
      If largeur_actuelle_lit < x + largeur_image
        largeur_actuelle_lit + 1
      Else
        largeur_actuelle_lit = x
        hauteur_actuelle_lit + 1
      EndIf
      
      DrawingMode(#PB_2DDrawing_AlphaBlend)
      couleur_pixel = Point(largeur_actuelle_lit, hauteur_actuelle_lit)
      Plot(largeur_actuelle_lit, hauteur_actuelle_lit, RGB(0, 0, 255))
      
      AddElement(Sprite())
      Sprite() = "Plot(100 + " + Str(largeur_actuelle_lit) + ", " + Str(hauteur_actuelle_lit) + ", " + Str(couleur_pixel) + ")"
      
      
    Until largeur_actuelle_lit = largeur_image + x And hauteur_actuelle_lit = hauteur_image + y
    
    StopDrawing()
    
    OpenFile(1, "sprite.txt")
    
    ForEach Sprite()
      FileSeek(1, Lof(1))  
       WriteStringN(1, Sprite())
    Next Sprite()
    
    CloseFile(1)
    
    Debug largeur_actuelle_lit - x
    Debug hauteur_actuelle_lit - y
    
    Repeat ; Start of the event loop
  
  Event = WaitWindowEvent() ; This line waits until an event is received from Windows
  
  WindowID = EventWindow() ; The Window where the event is generated, can be used in the gadget procedures
  
  GadgetID = EventGadget() ; Is it a gadget event?
  
  EventType = EventType() ; The event type
  
  ;You can place code here, and use the result as parameters for the procedures
  
  If Event = #PB_Event_Gadget
    
  EndIf
  
Until Event = #PB_Event_CloseWindow ; End of the event loop

  EndIf
EndProcedure

FichierParDefaut$ = ""   ; Répertoire et fichier par défaut qui seront affichés
  ;  Avec la chaîne suivante nous allons définir les filtres ("|" comme séparateur) pour l'affichage de fichier :
  ;  1er  : "Texte (*.txt)" comme nom, ".txt" et ".bat" comme extension autorisée
  ;  2ème : "PureBasic (*.pb)" comme nom, ".pb" comme extension autorisée
  ;  3ème : "Tous les fichiers (*.*)" comme nom, "*.*" comme extension autorisée, valide pour tous les fichiers
  
  Filtre$ = "Image PNG(*.png)|*.png;|Image JPG(*.jpg)|*.jpg;|Image GIF(*.gif)|*.gif;|Image BMP(*.bmp)|*.bmp;"
  Filtre  = 0    ; utiliser  par défaut le premier des trois filtres possibles
  Fichier$ = OpenFileRequester("Choisissez un fichier à charger", FichierParDefaut$, Filtre$, Filtre)
  
  If Fichier$
    If LoadImage(#image_2, Fichier$)
      Open_Window_0()

    Else
      
    EndIf
  Else
    
  EndIf