image to Icone (et pixeliseur)

[Kwai chang caine]

Merci de ton explication ZORRO
Ce serait donc ça

C'est vrai que la plupart des images du web, sont en jpg, et même si elles sont grandes, elle n'en reste pas moins compressée
Je pensais bêtement que même compressée, si elles étaient bien plus grandes, et qu'on les réduisait, on avait bien assez de pixels, puisque l'on réduit pour faire un bel icone...

Artiste comme toi, j'aurais toujours rêvé l'être.
J'ai toujours admiré le talent des peintres sur les trottoirs, les murs, etc. ..
Bien souvent pour eux, c'est banal...ils sont nés avec...Et ça. ..ca me blase....

Deja petit, être félicité pour ton joli dessin de chien, alors que je m'étais evertué à bien faire ressortir les généreuses mamelles d'un de mes ruminants laitier préféré
J'ai vite compris, comme pour la programmation d'ailleurs, qu'adulte, je ne serais pas une figure de proue de l'équipe marvel

Alors, essayer de dessiner un icone....je vais pas oser...
Audiard disait que c'est à ça qu'on les reconnaît, ça me laisse donc un peu d'espoir. ..J'suis peut être pas si con que ça

[Zorro]

deja test le code que je donne en premiere partie de ce topic
il permet de transformer une image (ou photo) en icone ... rien de plus simple

pis sinon , il faut comprendre que le pixel Art c'est l'art de reproduire une chose en pixel
en moins de pixel possible ...

tiens tiens ... en clair c'est un peu comme pixeliser en fait ... et un ordinateur, ben ça sait tres bien pixeliser

la preuve : ce petit code , tu charges une image , et tu choisi un taux de pixelisation
et le bouton calcul fait le boulot

plus qu'a sauver , et a encoder en icone avec le code ci dessus

voici le Pixeliser qui tue sa race
avec ça, tu va devenir le pro du Pixel-art

Code : Tout sélectionner

;***********************************************
;Titre  :Pixeliser
;Auteur  : Zorro
;Date  :15/10/2016
;Heure  :16:43:42
;Version Purebasic :  PureBasic 5.50 (Windows - x64)
;Version de l'editeur :EPB V2.64
; Libairies necessaire : Aucune 
;***********************************************

;***********************************************
;{- Enumerations / DataSections
;{ Windows
UseJPEGImageDecoder()
UseJPEGImageEncoder()
UsePNGImageDecoder()
UsePNGImageEncoder()
Enumeration
		#Win
		#file
EndEnumeration
;}
;{ Gadgets
Enumeration
		#Image_0
		#Image_1
		#Text_Titre
		#Text_auteur
		#Button_Load
		#Button_Save
		#Button_calcul
		#progress_calcul
		#image_origine
		#image_origine_gadget
		#image_modifie
		#image_modifie_gadget
		#image_modifie2
		#Text_version
		
		#valeur
		#batch_convert
		#valeur_text
EndEnumeration
;}
;{ Fonts
Enumeration
		#Font_Text_Titre
EndEnumeration
;}
;{ Images
Enumeration
		#Image_Image_0
		#Image_Image_1
EndEnumeration
;}
Structure image_file
		image_file.s
		image_file_batch.s
		repertoire_sortie.s
		here.s
		name_image.s
		extens_image.s
		Largeur_image.i
		hauteur_image.i
		vall.i
EndStructure
Global image_file.image_file
Global Dim Image_or.d(1,1)
Global Dim Image_res.d(1,1)

; **********************************
;-declaration Procedures
Declare openwindow_win()
Declare calcul()
Declare save(flag)
Declare load(flag)
Declare save_ini()
Declare load_ini()

; **********************************
Define.l Event
;}
Load_ini()
OpenWindow_Win()
;{- Event loop
Repeat
		Event = WaitWindowEvent(12)
		Select Event
				; ///////////////////
		Case #PB_Event_Gadget
				Select EventGadget()
				Case #Image_0
				Case #Image_1
				Case #batch_convert
						;-bath_convert
						image_file\image_file_batch.s=OpenFileRequester("choisir Les images a convertir",image_file\here.s,"*.jpg;*.png;*.bmp",1,#PB_Requester_MultiSelection)
						image_file\repertoire_sortie.s=PathRequester("indiquez le repertoire de sortie",image_file\here.s)
						While image_file\image_file_batch.s
								;Debug image_file\image_file_batch.s
								SetWindowTitle(#win,"calcul img:"+image_file\image_file_batch.s)
								image_file\image_file.s=image_file\image_file_batch.s
								;load image en cours
								Load(#true)
								;calcul
								Calcul()
								image_file\image_file_batch.s = NextSelectedFileName()
								save(#True)
						Wend
						
				Case #Text_Titre
				Case #Text_auteur
				Case #Button_Load
						;-load
						Load(#false)
				Case #Button_Save
						;-Save
						save(#false)
				Case #Button_calcul
						;-calcul
						Calcul()
				Case #valeur						
						image_file\vall.i=getGadgetstate(#Valeur)
						SetGadgetText(#valeur_text,str(image_file\vall.i))
				EndSelect
				; ////////////////////////
		Case #PB_Event_CloseWindow
				Select EventWindow()
				Case #Win
						Save_ini()
						CloseWindow(#Win)
						Break
				EndSelect
		EndSelect
Forever
;
;}
;- Procedures Zone
Procedure OpenWindow_Win()
		If OpenWindow(#Win, 271, 98, 600, 550, "Pixeliser by Dobro", #PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_TitleBar)
				;;If CreateGadgetList(WindowID(#Win))
				ImageGadget(#Image_0, 230, 10, 325, 235, 0, #PB_Image_Border)
				ImageGadget(#Image_1, 230, 270, 325, 235, 0, #PB_Image_Border)
				TextGadget(#Text_Titre, 10, 15, 180, 40, "Pixeliser")
				TextGadget(#Text_version, 10, 55, 50, 40,Version.s )
				TextGadget(#Text_auteur, 10, 95, 50, 20, "By Zorro")
				ButtonGadget(#Button_calcul, 10, 375, 55, 50, "Calcul")
				ProgressBarGadget(#progress_calcul, 70, 375+35,150, 15, 1, 100)
				ButtonGadget(#Button_Load, 10, 440, 80, 25, "Load")
				ButtonGadget(#Button_Save, 10, 470, 80, 25, "Save")
				ButtonGadget(#batch_convert,130, 470, 80, 25, "Batch_convert")				
				TrackBarGadget(#valeur,10,150,150,30,1,8)				
				TextGadget(#valeur_text,200,150,30,30,str(image_file\vall.i))
				setGadgetstate(#Valeur,image_file\vall.i)
				DisableGadget(#batch_convert, #true)
				; Gadget Fonts
				SetGadgetFont(#Text_Titre, LoadFont(#Font_Text_Titre, "Arial", 20, #PB_Font_HighQuality))
				;EndIf
		EndIf
EndProcedure

Procedure Calcul()
		Save_ini()
		if IsImage(#image_origine)
				; defisher
				; ***************************************************
				taille_pixel=image_file\vall.i
				CreateImage(#image_modifie, image_file\Largeur_image,image_file\hauteur_image)
				StartDrawing(ImageOutput(#image_modifie))
						For x=0 to image_file\Largeur_image-1 
								For y=0 to image_file\hauteur_image-1  
										pixl=Image_or.d(x,y)					
										box(x,y,taille_pixel,taille_pixel,pixl)
										y=y+(taille_pixel-1)
								Next y
								SetGadgetState(#progress_calcul, x)							
								WaitWindowEvent(2)
								x=x+(taille_pixel-1)
						Next x
				StopDrawing()
				; ***************************************************	
				SetGadgetState(#Image_1, imageId(#image_modifie))
				SetGadgetState(#progress_calcul, 0)			
				DisableGadget(#batch_convert, #False)
		Endif
Endprocedure

Procedure Save(flag)
		CopyImage(#image_modifie2,#image_modifie)
		FreeImage(#image_modifie2)
		if flag=#false
				path_save.s=SaveFileRequester("ou sauver ?" ,image_file\here.s+image_file\name_image.s+"."+image_file\extens_image.s,"*.jpg;*.png;*.bmp",1)
		Else
				path_save.s=image_file\repertoire_sortie.s+image_file\name_image.s+"."+image_file\extens_image.s
		Endif
		select LCase(image_file\extens_image.s)
				Case "jpg"
						SaveImage(#image_modifie,path_save.s,#PB_ImagePlugin_JPEG,10)
				case "bmp"
						SaveImage(#image_modifie,path_save.s,#PB_ImagePlugin_BMP)
				case "png"
						SaveImage(#image_modifie,path_save.s,#PB_ImagePlugin_PNG)
				EndSelect
		Endprocedure
		
		Procedure Load(flag)
				load_ini()
				if flag=#false
						image_file\image_file.s=OpenFileRequester("choisir une image",image_file\here.s,"*.jpg;*.png;*.bmp",1)
				Endif
				if  image_file\image_file.s<>""
						image_file\here.s=GetPathPart( image_file\image_file.s)
						image_file\name_image.s=GetFilePart( image_file\image_file.s,#PB_FileSystem_NoExtension)
						image_file\extens_image.s=GetExtensionPart( image_file\image_file.s)
						If LoadImage(#image_origine, image_file\image_file.s)
								CopyImage(#image_origine,#image_origine_gadget)
								ResizeImage(#image_origine_gadget,325,235)
								image_file\Largeur_image=325
								image_file\hauteur_image=235
								SetGadgetState(#Image_0, imageId(#image_origine_gadget))		
								Dim Image_or.d(image_file\Largeur_image+10,image_file\hauteur_image+10)
								; Scan
								StartDrawing(ImageOutput(#image_origine_gadget))
										For y=0 to image_file\hauteur_image-1
												For x=0 to image_file\Largeur_image-1
														Image_or(x,y)=point(x,y)
												Next x
										Next y
								StopDrawing()
						Else
								MessageRequester("erreur", "pas pu charger cette image !")
						Endif
				Endif
		EndProcedure
		
		procedure Save_ini()
				If Openfile(#file,GetCurrentDirectory()+"Pixeliser.ini")
								;-save_ini
								writeStringN(#file,image_file\here.s)
								image_file\vall.i=getGadgetstate(#Valeur)
								writeStringN(#file,str(image_file\vall.i))
						CloseFile(#file)
				Else
						image_file\here.s=GetCurrentDirectory()
Endif;]
EndProcedure

Procedure load_ini()
		if FileSize(GetCurrentDirectory()+"Pixeliser.ini")>1
				If Openfile(#file,GetCurrentDirectory()+"Pixeliser.ini")
								image_file\here.s=ReadString(#file)
								image_file\vall.i=val(ReadString(#file))
						CloseFile(#file)
				Endif
		Else
		image_file\here.s=GetCurrentDirectory();|
		Endif
EndProcedure
;Epb

[Micoute]

Super, merci pour le partage.

[Kwai chang caine]

Super idée que tu as eue
Merci beaucoup

Je testerais ton code dès que possible...
C'est dans ce genre de moment, qu'on serait prêt à remettre la main au porte flouze pour lancer un code pb sur android, si "quinquin" qui nous lit parfois de là haut, voit ce que je veux dire

[Ar-S]

J'ai fait un soft avec des canvas pour convertir des images en icones.
Le soft permet de convertir des images en 4, 8, 24 et 32 bit avec des tailles de 16x16 à 256x256
Mais je n'arrive pas à faire fonctionner ces routines pour les sauver en images.
Dommage que PB ne propose pas un saveimage en prenant en compte les images. Surtout qu'il les prend en compte pour les toolbars et autres gadgets.

Voilà mon code en l'état sans les routines.

Code : Tout sélectionner

; Icon'it 
; By Ar-S // oct 2016
; PB 5.50 x86
; Glisser déposer une image sur le soft
; choisissez la taille, le format et les options
; sauvez

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

UsePNGImageEncoder()

Declare Lock(State_lock)
Declare RempliCanvas()
Declare Cloneimage()
Declare DessineImages()
Declare ConvertImage(encodage)
Declare CreateIcon(Image.l)
Declare.i SaveIcon(hIcon, filename$)

Macro Mess(message)
  SetGadgetText(#aff,"Images converties en " + message + " couleurs.")
  SetGadgetColor(#aff,#PB_Gadget_BackColor, $00FF00)
EndMacro

Macro Mess2(message2)
  SetGadgetText(#aff,"Taille de l'image " + message2)
EndMacro

Enumeration
  #LDVM
  #chk_bordure
  #Chk_transp
  #Txt_col
  #Chk_4b
  #Chk_8b
  #Chk_24b
  #Chk_32b
  #AFF
  #g_titre
  #titre
  #Sauve
  
  ; Traitement des futures images
  #Ori
  #im_enc
  #IM
EndEnumeration

Enumeration 20 ; canvas 
  #Bt_16
  #Bt_32
  #Bt_64
  #Bt_128
  #Bt_256
EndEnumeration

Enumeration 30 ; images des canvas
  #ico_16
  #ico_32
  #ico_64
  #ico_128
  #ico_256
EndEnumeration



Global titre = CatchImage(#titre, ?titre_s, ?titre_e - ?titre_s)
Global Couleur,Format_Image, Prof_Image, IM_A_SAUVER
Global.b COLORSTATE, TRANSPARENT, State_lock
Global Name$,Path$,oldmessage.s

IM_A_SAUVER = 0

Procedure Cloneimage()
  
  For i = #ico_16 To #ico_256
    CopyImage(#ori,i)  
  Next
  ResizeImage(#ico_256,256,256,LeMode)
  ResizeImage(#ico_128,128,128,LeMode)
  ResizeImage(#ico_64,64,64,LeMode)
  ResizeImage(#ico_32,32,32,LeMode)
  ResizeImage(#ico_16,16,16,LeMode)
  FreeImage(#ori)
  ; L'image originale devient la plus grande (256 pixels) pour une traitement futur plus rapide
  CopyImage(#ico_256,#ori)  
EndProcedure

Procedure Lock(State_lock)
  DisableGadget(#chk_bordure,State_lock)
  DisableGadget(#Chk_transp,State_lock)
  DisableGadget(#Chk_4b,State_lock)
  DisableGadget(#Chk_8b,State_lock)
  DisableGadget(#Chk_24b,State_lock)
  DisableGadget(#Chk_32b,State_lock)
  DisableGadget(#Sauve,State_lock)
  DisableGadget(#bt_16,State_lock)
  DisableGadget(#bt_32,State_lock)
  DisableGadget(#bt_64,State_lock)
  DisableGadget(#bt_128,State_lock)
  DisableGadget(#bt_256,State_lock)
EndProcedure


Procedure ConvertImage(encodage)
  Protected *IM
  CopyImage(#ori,#im_enc)
  *IM = EncodeImage(#im_enc ,#PB_ImagePlugin_PNG, #PB_Image_FloydSteinberg, encodage)
  CatchImage(#im_enc, *IM)
  For i = #ico_16 To #ico_256
    CopyImage(#im_enc,i)  
  Next
  ResizeImage(#ico_256,256,256,LeMode)
  ResizeImage(#ico_128,128,128,LeMode)
  ResizeImage(#ico_64,64,64,LeMode)
  ResizeImage(#ico_32,32,32,LeMode)
  ResizeImage(#ico_16,16,16,LeMode)  
  
EndProcedure


Procedure RempliCanvas()
  For i =   #Bt_16 To #Bt_256
    L = GadgetWidth(i) : H = GadgetHeight(i)
    StartDrawing(CanvasOutput(i))
    Box(0,0,L,H,$0)
    StopDrawing()
  Next
  
EndProcedure

Procedure DessineImages()
  For i = 1 To 5
    StartDrawing(CanvasOutput(i+19))
    
    DrawingMode(#PB_2DDrawing_Default)
    DrawImage(ImageID(29+i),0,0)
    
    If COLORSTATE = 1
      DrawingMode(#PB_2DDrawing_Outlined)
      Box(0,0,ImageWidth(29+i),ImageHeight(29+i), Couleur)
    EndIf
    
    StopDrawing()
    
  Next  
EndProcedure



Procedure OpenWindow_LDVM()
  If OpenWindow(#LDVM, 613, 300, 522, 300, "Pure Basic Icon Creator // LDVMULTIMEDIA", #PB_Window_ScreenCentered|#PB_Window_SystemMenu     )
    
    HideWindow(#LDVM,1)
    ImageGadget(#g_titre,10,1,233,53, titre)
    
    CanvasGadget(#Bt_16, 9, 258, 16, 16, 0)
    CanvasGadget(#Bt_32, 28, 242, 32, 32, 0)
    CanvasGadget(#Bt_64, 62, 210, 64, 64, 0)
    CanvasGadget(#Bt_128, 129, 146, 128, 128, 0)
    CanvasGadget(#Bt_256, 261, 18, 256, 256, 0)
    RempliCanvas()
    
    CheckBoxGadget(#chk_bordure, 5, 55, 160, 18, "Ajouter une bordure")
    CheckBoxGadget(#Chk_transp, 5, 78, 220, 18, "Gérer la transparence (vista et +)")
    TextGadget(#Txt_col, 5, 100, 200, 18, "Convesion des couleurs", #SS_CENTERIMAGE)
    OptionGadget(#Chk_4b, 5, 120, 75, 20, "4 bits")
    OptionGadget(#Chk_8b, 5, 143, 75, 20, "8 bits")
    OptionGadget(#Chk_24b, 5, 166, 75, 20, "24 bits")
    OptionGadget(#Chk_32b, 5, 190, 56, 20, "32 bits")
    StringGadget(#AFF, 2, 277, 415, 20, "Faites un glisser/déposer de l'image à transformer en icone", #PB_String_ReadOnly|#ES_CENTER)
    ButtonGadget(#Sauve,418,276,100,22,"Sauver l'icone")
    SetGadgetState(#Chk_32b,1)
    EnableWindowDrop(#LDVM, #PB_Drop_Files, #PB_Drag_Copy)
    State_Lock = 1
    Lock(State_Lock)
    
    HideWindow(#LDVM,0)
  EndIf
EndProcedure

OpenWindow_LDVM()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_WindowDrop 
      Select EventDropType() 
          
        Case #PB_Drop_Files
          Debug "Drop file: " + EventDropFiles()
          If LoadImage(#ori, EventDropFiles())
            Format_Image = ImageFormat(#ori)
            Prof_Image  = ImageDepth(#Ori,#PB_Image_InternalDepth)
            Name$ = GetFilePart(EventDropFiles(),#PB_FileSystem_NoExtension)
            Path$ = GetPathPart(EventDropFiles())
            Lock(0)
            Select Prof_Image
              Case 4
                SetGadgetState(#Chk_4b,1)
              Case 8
                SetGadgetState(#Chk_8b,1)
              Case 24
                SetGadgetState(#Chk_24b,1)
              Case 32
                SetGadgetState(#Chk_32b,1)
              Default
                SetGadgetState(#Chk_24b,1)
            EndSelect
            
            SetGadgetColor(#aff,#PB_Gadget_BackColor,$00ff00)
            ; Gestion des images 
            ; Filtre des icones
            
            If Format_Image = #PB_ImagePlugin_ICON
              SetGadgetText(#Aff, "Le format icone n'est pas pris en charge")
              FreeImage(#ORI)
            Else  
              ; Si non PNG, on desactive la case transparence
              If Format_Image <> #PB_ImagePlugin_PNG
                DisableGadget(#Chk_transp,1)
              Else
                DisableGadget(#Chk_transp,0)
              EndIf
              
              IM_A_SAUVER = 0
              CloneImage()
              
              DessineImages()
            EndIf
          Else
            Debug "ce n'est pas une image"
          EndIf
          
      EndSelect
      
    Case #PB_Event_Gadget
      Select EventGadget()
          
          ; SAUVEGARDE
        Case #Sauve
          If  IM_A_SAUVER <> 0
            
            Filtre$ = "Icone (*.ico)|*.ico;"
            Fichier$ = SaveFileRequester("Sauvegarder l'icone", path$+Name$+".ico", Filtre$, 0)
            If Fichier$
              MessageRequester("Information", "Vous avez choisi ce fichier :"+Chr(10)+Fichier$, 0)
;               icon_id=CreateIcon(IM_A_SAUVER)
;               SaveIcon(icon_id, Fichier$)
              
            Else
              SetGadgetText(#aff,"L'opération a été annulée.")
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$0000ff)
            EndIf
            
            
            
          Else
            MessageRequester("Information","Vous devez d'abord sélectionner l'image à convertir !",0)  
          EndIf
          
          
          
          
          ; CANVAS 
        Case #bt_16
          Select EventType()
              
            Case #PB_EventType_MouseLeave  
              SetGadgetText(#aff,oldmessage.s)
              
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_16,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("16x16")
              
            Case #PB_EventType_LeftClick
              Debug "clap"
              SetGadgetText(#aff, "Icone de sortie en 16x16")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_16
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
              
          EndSelect
          
          
          
        Case #Bt_32
          Select EventType()
              
            Case #PB_EventType_MouseLeave  
              SetGadgetText(#aff,oldmessage.s)
              
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_32,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("32x32")
              
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 32x32")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_32
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
              
          EndSelect
          
        Case #Bt_64
          Select EventType()
              
            Case #PB_EventType_MouseLeave  
              SetGadgetText(#aff,oldmessage.s)
              
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_64,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("64x64")
              
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 64x64") 
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_64
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
              
          EndSelect
          
        Case #Bt_128
          Select EventType()
              
            Case #PB_EventType_MouseLeave  
              SetGadgetText(#aff,oldmessage.s)
              
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_128,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("128x128")
              
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 128x128") 
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_128
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
              
          EndSelect
          
        Case #Bt_256
          Select EventType()
              
            Case #PB_EventType_MouseLeave  
              SetGadgetText(#aff,oldmessage.s)
              
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_256,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("256x256")
              
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 256x256")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_256
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
              
          EndSelect
          
          
        Case #chk_bordure
          If GetGadgetState(#chk_bordure) = 1
            Couleur = ColorRequester()
            COLORSTATE = 1
          Else
            COLORSTATE = 0   
          EndIf
          DessineImages()
          
        Case #Chk_transp
          If GetGadgetState(#Chk_transp) = 1
            TRANSPARENT = 1
          Else
            TRANSPARENT = 0  
          EndIf
          DessineImages()
          
        Case #Chk_4b
          ConvertImage(4)
          DessineImages()
          Mess("16")
          Prof_Image = 4
        Case #Chk_8b
          ConvertImage(8)
          DessineImages()
          Mess("256")
          Prof_Image = 8
        Case #Chk_24b
          ConvertImage(24)
          DessineImages()
          Mess("16,8 millions de")
          Prof_Image = 16
        Case #Chk_32b
          ConvertImage(32)
          DessineImages()
          Mess("4 milliards de" )
          Prof_Image = 32
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #LDVM
          CloseWindow(#LDVM)
          Break
      EndSelect
  EndSelect
ForEver





DataSection
  titre_s:
  ; size : 8845 bytes
  Data.q $78451800E1FFD8FF,$002A494900006669,$0000000000000008,$1100ECFF00000000,$000100796B637544,$FF00005000000004,$3A707474682F03E1,$6F64612E736E2F2F,$782F6D6F632E6562
  Data.q $002F302E312F7061,$656B636170783F3C,$3D6E696765622074,$64692022BFBBEF22,$704D304D3557223D,$65727A4869686543,$636B7A63544E7A53,$783C203E3F226439,$6174656D706D783A
  Data.q $783A736E6C6D7820,$3A65626F6461223D,$2F6174656D3A736E,$74706D783A782022,$65626F6441223D6B,$726F4320504D5820,$30632D352E352065,$35312E3937203132,$3032202C32373735
  Data.q $33312F31302F3431,$303A34343A39312D,$2020202020202030,$6664723C203E2220,$6C6D78204644523A,$223D6664723A736E,$772F2F3A70747468,$726F2E33772E7777,$302F393939312F67
  Data.q $6664722D32322F32,$2D7861746E79732D,$723C203E2223736E,$72637365443A6664,$72206E6F69747069,$74756F62613A6664,$6E6C6D782022223D,$68223D706D783A73,$736E2F2F3A707474
  Data.q $632E65626F64612E,$312F7061782F6D6F,$6C6D7820222F302E,$4D4D706D783A736E,$2F3A70747468223D,$626F64612E736E2F,$61782F6D6F632E65,$6D6D2F302E312F70,$736E6C6D7820222F
  Data.q $223D66655274733A,$6E2F2F3A70747468,$2E65626F64612E73,$2F7061782F6D6F63,$707954732F302E31,$72756F7365522F65,$2022236665526563,$616572433A706D78,$3D6C6F6F54726F74
  Data.q $502065626F644122,$706F68736F746F68,$3431303220434320,$776F646E69572820,$4D706D7820222973,$6E6174736E493A4D,$6D78223D44496563,$31303A6469692E70,$3139413946343535
  Data.q $3838364531313846,$3636413131423330,$2022373241453342,$6F443A4D4D706D78,$4449746E656D7563,$69642E706D78223D,$4634353531303A64,$3131384631394239,$3142333038383645
  Data.q $4145334236364131,$6D783C203E223732,$697265443A4D4D70,$206D6F7246646576,$6E693A6665527473,$444965636E617473,$69692E706D78223D,$4634353531303A64,$3131384631393839
  Data.q $3142333038383645,$4145334236364131,$6552747320223732,$656D75636F643A66,$6D78223D4449746E,$31303A6469642E70,$3139393946343535,$3838364531313846,$3636413131423330
  Data.q $2F22373241453342,$3A6664722F3C203E,$7470697263736544,$722F3C203E6E6F69,$203E4644523A6664,$6D706D783A782F3C,$783F3C203E617465,$652074656B636170,$3E3F2272223D646E
  Data.q $626F64410E00EEFF,$01000000C0640065,$020202008400DBFF,$0302020202020202,$0202030403020202,$0404040404050403,$0505050505050605,$0607070807070606,$0C0C09090A0A0909
  Data.q $0C0C0C0C0C0C0C0C,$0303010C0C0C0C0C,$0906060905040503,$0E0E0F0D0B090B0D,$0C0C0C0C0F0F0E0E,$0C0C0C0C0C0F0F0C,$0C0C0C0C0C0C0F0C,$0C0C0C0C0C0C0C0C,$0C0C0C0C0C0C0C0C
  Data.q $C0FF0C0C0C0C0C0C,$03E9003500081100,$1103011102001101,$020000C000C4FF01,$0000000101010501,$0908000000000000,$02030A0605040007,$0103000302000101,$0000000000000000
  Data.q $0207050406000000,$0203010010010803,$0B0A080404030404,$0403020100000000,$3121070612000511,$1522611451410813,$6242B132A1817109,$7252911643239282,$C21936D3B373B2A2
  Data.q $B4947434246333D2,$0302030100111856,$0003080704070604,$1103020001000000,$1251413106052104,$91F00713B1817161,$6252423222D1C1A1,$161433238272E115,$245343D2C2B2A292
  Data.q $030C00DAFF352573,$3F00110311020001,$DFDE7DA110187800,$7B4D576B2BD9B9AD,$60D4C0218F658D7F,$B4915510AE53C0FA,$B388019A8046A98A,$E4947D95362C36DD,$AEB25B43608EDF12
  Data.q $8FDD6E323F5D0834,$25E9157C522BD4DD,$25FC3467887300FF,$6FDF8EAF48060D32,$67DC3E31DF2D66C1,$78622662B05E29A9,$13EA324F81AC43C8,$3FB8D2DEA0197D4C,$0EA47D34CB07C841
  Data.q $376EB7B76D6722FA,$BF6F4F6D68E62A66,$7C1B52B83CB2D2B2,$34346ABA2A077421,$E092ED864B1C8F3C,$0E58DC4FCFCCA536,$30D623488BB7D067,$2EEE15352A25CE52,$EBB99DDBD6EE6DF3
  Data.q $760A9E15CD06492D,$4754853C3569E853,$8145C66B1631E013,$FCEA769A655FC1DB,$1D0D8E6B83513473,$BDFD64BE5C2304A7,$5139D7DFE15A6A45,$F28A4A163304A592,$1C0A9F2840F523F8
  Data.q $1D96298D4D697642,$A7C241DBE92ACC07,$FBDE6EA6D86B40D5,$259DB8D8E17EDBB1,$ED734B9CDAE6D62D,$410956B40F53DAB2,$47024503A8345728,$10CF7BAB04823902,$6C388D33A94291F2
  Data.q $02875666EE58F1A3,$66C4905F288A7A28,$A52A90B6A5EEFB94,$293190303100D0A8,$42A968E521DD386A,$2D49FBB1A7F7EB6E,$91EA2AA3AA41DD76,$093C804C9E8F6C53,$1523810FB0B88465
  Data.q $E2F4158D064C66D2,$9D0E8DC45DF46C9C,$347444FD007130C2,$3300FFC8A0D4C755,$7B377BA20DF5927D,$D45C8B4C261A0E73,$9A3F1DB39F68ECA3,$163AB38A8FF6ED1D,$00FFBA00FF593E32
  Data.q $4DDA993B6BA7A2F4,$3EB8C1553FBA6EDE,$9E6CD5D1A1A2079A,$1850FE242D9A6D41,$2A3D6C1A72FC0D95,$0A326C7657D23287,$9D4DD7694D7B833D,$ACA6DF865AD464AA,$2D18CCD007B76FB3
  Data.q $15092101519FE729,$28CB240600C09324,$79C9585852C5A58D,$3FD2EC52D266613B,$8CD6823BD59F3D33,$923EC97C1B946B44,$3A24704B4765AAD9,$E7C485FA42099555,$3152E783B4AD743F
  Data.q $D01E86AB6989F95D,$48B1BC9523A33F9D,$E369F0B84661F74B,$CE651B32B903A0C2,$E397BCA0131BDE1D,$8B83A0262DB490BE,$778B4B2454383C46,$720C5908C56321C1,$B6BDBD2BEE28085D
  Data.q $B9899AD36DFBDEED,$D62DFAB2C9CD2BB7,$7529AB8421CE7AF6,$5353815A91125275,$D7D26BBEE2C04143,$4CD32CBF8956B472,$40FAE6E5CF24119E,$F93D6931A54E9304,$1B76B9936CDBBAD1
  Data.q $E110EB879D592482,$5095169294530AF7,$E3C083781084A6A4,$93EA82BF8869BD90,$A50F6D5BE6CB4A4C,$335FB4EDA577100F,$3473D1C2ED2E6E25,$7BEC947C319DF63B,$2A91D5E2A054A016
  Data.q $69613A927EFC145A,$21121FD0D0B5E449,$09AE8E98C3B5E78B,$63229C68DE56DA89,$D915D4B1E3900081,$13EFD13D8D12A3BB,$D5AC7E5B4C92B665,$B7D997B2E55CA211,$E90B346ACBD7A924
  Data.q $CF29ADA895AE9534,$9500306BBFE512CB,$7BCF1CB8A6A46343,$54DA504F9CCA0E58,$05EAF8BBDD64FE43,$887300FF25E9E781,$F4AF55BA8F9A00FF,$7BB6E0B76FE7BF13,$85D09A0BB717CC4F
  Data.q $4B69468A8A10986B,$3D80E0A5CACDC031,$6BA7D1DCE6385EBE,$AB6866A14B74A94F,$5729E41DD0FE8C66,$4E6F2FBAB447775A,$42EAD21FD1D4CEE5,$D5BD94FA657C1E17,$890A9773060D2821
  Data.q $2A65BFCE1D0709A0,$3E77D2A1ABDC49DC,$BA5D2A5A2BBF6C21,$CB86DAD45DDB149D,$CECE0CA760D7CC67,$A8F9F60B4A100C9B,$A29F7274854A0304,$D1BEB5119A63C4B5,$9355908DD04D57F1
  Data.q $FE2D8BB677B8D68E,$00FF0BEC7FBCBD64,$DD47CD0FCEFD97B4,$B76FE7BF0BF4E72B,$E3EE7691F959BDE0,$65A6316F19B54289,$0F06D592F5919445,$DD2ED0E12BDD47CD,$DE057DA4DCA33D3B
  Data.q $B19926FE1DEEC2E6,$8443244EBC4B28EB,$0E1B5281744BCBE2,$384EE3A07120E604,$0285208E6B328FED,$798C64490BCF45EF,$3A4D17A94F10D018,$80851694D6A1EDDB,$4DAA412C0EE2A152
  Data.q $AB8FE9D50E4D4B73,$DB1DE6B74A08AC8A,$A5551D6945DEB036,$AD07A5A2F4B73665,$660DCAADD3920A72,$4A111D2DAA525250,$4E86BEA7389E508A,$E64A1B2DD48AE662,$5D0BB93345268636
  Data.q $3B4CD5DBB4865D51,$66615D5DF6D5A552,$DA0E3794C4B5A6C9,$6809648AB76A8DD1,$660AA76684524201,$6BCA67A7DB8DC2A9,$A4B92A839F4EF482,$ECF6C4F1DB212C8C,$AFAF5F43B3FD51EC
  Data.q $B23423A701DD72CB,$518907F273391D81,$80F6428AEC38A814,$4A5B26DB4B944BC0,$1D8026E3383ADCE7,$B64F7D69903D1DA5,$E896C33EBC7383BB,$594101A88CD986D7,$F09490D782526BCB
  Data.q $47967D71E2F140CC,$AE4B1640E11C9E33,$0E0E149DADE8722F,$9DA6F895BAD9C873,$49DB8B0D96727FDC,$B029EF7AE0E2921A,$2E99EC0085D69ECD,$009FCCDB0369D303,$31BC6E2F2D063C09
  Data.q $8C692255FAA8DFCA,$DB4D4435CD385E84,$386DF6494773C7C5,$DDB15E6EBEF3B902,$D5A8486B56374D9D,$34876191E2E0923A,$2219666E63FB1619,$74DF23C05A5B55C1,$AEA98503D414972B
  Data.q $97DFD63B891B0DF9,$DB587EF9D072D369,$693BF1DF8E06A3B1,$C6E9C6AAC1164CE3,$EE01BEE6EC1B5DD2,$9A2041D3B28CE821,$DE87570AA465E100,$018273D0D391E838,$EE16EE856550B656
  Data.q $7AB87DD26E37D28D,$DC9766D62DD9C394,$C49CC54CA1ED32C9,$A89556C80919EE76,$4B79899582C757A0,$05E6B90476C5E9DE,$790E40B95B19B4AD,$BEA7A2F5EC8A7418,$4EED221616AFF14E
  Data.q $97B0B9A6367D5CDC,$7C1D832A8876772F,$AFE5508E3A6A4D00,$7CD75716177FEF21,$2F099EF436B28FE4,$B3228FB1CB1FE44A,$38F57E238F6B8B49,$2E7DADEA4E3BB29F,$204A3AE8ADB9A6D6
  Data.q $A40BF5C70F622281,$FD1675C0E394723F,$6CE48A98D1A9C4C1,$991B52AC6A8279A4,$92DBD3528FB13C25,$F20E1EEFF1ECE559,$A9A7263D6FF5775C,$9D66E47C0DD9AB6E,$0ED35460D4E22A2F
  Data.q $1C49099DD794E22D,$A295EAC2927D8C7E,$3C30102FB2AB67E1,$065814FAD30E8A76,$E4A7F9164DFDDBA1,$CCACF0916DF5A63F,$A1050754391E8AFB,$EC9D211123F0205E,$DAA61C7398D8AF3C
  Data.q $71A31D737A6B82E5,$EFB2A0534C1FBC07,$4D7EA87EDAD9BB83,$07C7E77129167E11,$B42601B86D65E893,$32B909C3F0090DCC,$DC466E1D0BED9ADA,$0EC4AF7C948F3EBF,$B7643B2438EC7807
  Data.q $DB7CA9C09CADF5B2,$34658BA95B8AE5A0,$798B2D479645665A,$27BA3FECA8933BB1,$AAC0ADB56CA34C6E,$8C2B4F094C406DF1,$7852F3D495120586,$F54D3917C7477D05,$98BF59F0DD6C473E
  Data.q $3ECEC7A81BBC581A,$6EC27A7A7CF1C7B1,$A4A010975087B88D,$45918A45861154A8,$82BBE9D792CCDFCE,$63CCC24D0A584EB2,$FB47A94FA309A082,$ADA8E33DD4DF2A5C,$0CC4D5DABE064AF7
  Data.q $019B57EA1FED9B43,$4D747427760A35A8,$69135DE1F6313B88,$89CB91EB94F7D980,$AD11B7BF969A4742,$419D2B7538917424,$C0016D04F49D1569,$DBB75BA1B447E275,$8E88906273DDC50D
  Data.q $94A4825CAB23CBA5,$C15155C2A65296F4,$4C03983D7C2E5755,$CAB1A349A23880B3,$C25907D21098245F,$8FFB6BE76F54A49E,$33E3C062B771D77A,$94FAB44F118BCCA2,$FB2D290115BD6397
  Data.q $0F45E24142924A8A,$4143C0CCDB5D279E,$87EB32CE9EBED23B,$77907220AD3DF3B1,$62AFB642F14AD9ED,$893E566F70F12EF3,$0909147A929685FA,$7139524A09097004,$89391E4AD3CCC2A0
  Data.q $F6C5B6DCB2DB8ADB,$6FA0D5F2A4B510EE,$3DDB6CBBD6FA38ED,$D6446CB72482774F,$E501054A96B60A64,$F3DE6B4D2C4F4AC5,$BDBD3DB314A7C158,$2E8F138C642F4BB3,$1A6F4F742E5AA715
  Data.q $7B2677DB8BEC5D87,$686AF386EEB1F996,$2045F5C7394CEB82,$550A1E9A2805858A,$8987336743DBF878,$4296473DB3CF82BF,$5AE386F7590D68F1,$BE4DDD84BD4E94FA,$AFD7149518144693
  Data.q $5B60FC139252D715,$B9B52610D7C80715,$EEB96537B1872669,$144ED2C88C6D2C4B,$B8B744B1D3B8C370,$5DA26EB9E676CB2F,$56F12F8E99D697F1,$F34FC5F250DF7B95,$A6FC7FA2F57C120F
  Data.q $508F1706E0434BDE,$72C45D68B1430AFD,$400A5346F9167914,$0890842D5C87342D,$C4159913A7A0351D,$19665C2BD1809983,$6FE247A71B86A43D,$AB2D3BD290E59EC2,$C21726FB727AD71C
  Data.q $B329BBB847BA6CD5,$0002A25DF2B095EF,$7689D907E0299200,$B3976890F224D7B6,$696F2C9E8D24EFEC,$33BADCEEBC011870,$EB8199A6DBCC4BDA,$7CAE9294328DBA02,$6E5E402B6F631C06
  Data.q $A512369E2B4B94BB,$9DB24260D55173AC,$420BE83B2EEC8905,$AACC4790103808C5,$B7C3DE6EEE4E1BD1,$A1AF8BBB35312DA1,$23FD138A0AA90A20,$0FC0F3C8A0CD8C85,$B3A565AE3CF4DC7A
  Data.q $257E397B75CFC141,$736FA98B6081F658,$27A9A6425C42CCE1,$9D56C774D300AF30,$FF4C723E56EAA968,$1D27F7D17E3C0E00,$68FC61A6311DDA6A,$00A854D74CBF6D47,$4A1A435E1AAEE83E
  Data.q $D266ADC475E3EDC0,$EDA46ED7FD3E174D,$7AA9E446CC0BDFE7,$4FC2CEAEED3E4357,$558E78CA8468D4B9,$5238F348EC414E2B,$B7BB6BE7A521B8BC,$4AD74CE6F4A1577C,$ED5F7F0C11FD66CB
  Data.q $BD4BC5A38EF4D593,$724DE2A7D703EDBD,$FE53203D81895C29,$FC13874A1F7295C9,$F71300FFB2C9ED18,$D0C6D5C93C50ECAF,$DD11F369686C217F,$4EDBC3B64DEAE9F1,$6F0BE2157DA69B9A
  Data.q $D420480BA9B286FA,$6F240349331C0471,$2C2ECDB20F0B862B,$F7E5500E7162F1E5,$A67A2F5BD0FEB460,$C90E43CBD66D660C,$262A09212504B421,$DA312C8318720089,$8DF965345130E744
  Data.q $152E0F57147F7FDE,$5AB8E3D2DD4C24F6,$A8E37E552EACFDC2,$D525A5666D5B9727,$1EA99C907CA06564,$E9C10096F77B85C1,$920FB7D54EDA6EC5,$3B1A1B70B001C3E9,$B95B63B7ED5E1305
  Data.q $EB1445593D060131,$493F4AC5A3563C85,$B4138C2164552EC3,$D73B3379EA5F4FAC,$DD99001A367CD246,$E4B02D28C4F4669F,$B2C54855D172D626,$EBE9F4DD44A281CF,$294B2B74ABDF8E76
  Data.q $008E92A7F0F69969,$E625BC3E2AA0BC94,$FC4534A617690E71,$226047AD71400B82,$8BDEDCB8DD6CE59D,$EA8E884A6F95FBB7,$709C84FA01BFD126,$71D54BA9BFDB24B0,$E83DDA07B5C5B9B5
  Data.q $DE0E8D749791D10F,$714ADB901D884B99,$B7882B28CD3967AA,$C534AF6AA5B56CB4,$9138000BF1E5B065,$24F5A1FD76CB6DB5,$6145DDB643BA952B,$0E9C1100FF320F71,$481F816321B31C4A
  Data.q $C60A0E0D734E4CC7,$02310F0B98AE18FE,$A7F8EF203D0EF187,$D2E28D767317DAF3,$DA96DA88904F6051,$70E80CB58072B194,$ED119F3457697D0A,$AE1C257C5B8EC3A8,$8C7596A6359C17DA
  Data.q $78B27FDCEE477886,$B5E5CCCF9610771F,$EC3624853B747AA3,$24EB5202A70B6109,$9E0F985B312AFBD0,$F5DF3DBA4EEFA14E,$5E59E400FF593F6D,$200E9BDBF74BD8C7,$82C8931416139929
  Data.q $5ECD6BFB341C63CB,$A665C498F29B4F0A,$F9F6B84193FB9887,$B60D8B768D759D65,$789E385282E2526A,$6EC4026A18BB6565,$40F2C88696AB7BB3,$6C1B80EF56D19053,$C82314C936B45286
  Data.q $5A87FA2350ECB463,$96DCD9E228B9B3E6,$0953C3633946B7BB,$1F8842C700800365,$7F5C391ACC463859,$9A78E299904EF512,$F4CDCE8FDC21020E,$CA9E78DBE957B32D,$FFE279788F2DA31D
  Data.q $E645563BF0682300,$7047FA69D3FCAE94,$AB4E832D6D4DEF4C,$BB1880474DC8683C,$6CA3DA5EED248959,$DA861DE714DAED74,$846379A484AE2C9C,$6166F99B452AAD82,$16AB84D32D990BE9
  Data.q $BAC60C9E8D7D6EF6,$2E252E0114400848,$20C7D83B849D1F0E,$2179351DEBF53E3D,$0A587BB0C0017BB8,$D1AB3E3BE999DD6C,$6331AA4B195CA5D6,$93D530B678029C93,$734B3BE60916C09A
  Data.q $7464A37814209E67,$3529D086A94B1DAA,$54E212245A8B91E0,$784C47B344B367A7,$E20B0C80222184AD,$09815508AC4260CC,$40B6B13B41D27C09,$B3F070FAD33D2671,$34DC7A0F75727D99
  Data.q $00FF6FFCA8B5AD50,$FE3B53FC6BECF922,$B43BAD8EB5D85FBD,$00FF887E390F2BF5,$8FDD77DCA193FB58,$2A98382458A7D7B6,$4224BFBF38C91FA1,$995F6393165970EA,$32F4512E98B31DC2
  Data.q $8B0CD453B99A7053,$E0F9FE15C7CCE69C,$3137E179DAA7265C,$D6684B2FB85B3B3F,$E73D6EFD98A5E50F,$B3081E7A6A67D015,$0A0A285108A9BAC4,$38D0C486364B87E1,$9530976439EA312F
  Data.q $BD83FB13C5BC56D2,$AC5B00FF36B56B3B,$5D10B211C5BE3DB5,$1155214F4D1AFA94,$D08CE36E09067C52,$F1EE76FAE5BEE0ED,$F580E3DA6014ED85,$7467DAB80B773E94,$625EDFEE0BDC647B
  Data.q $71390C5CB04BA25F,$BC07D6E9B3B40F1C,$3788E340E0A135D1,$D15411371C960DB7,$071E0033EC9932A6,$521A9AA09D72C7CC,$1943DBF0B9E0719B,$585C9510B52E7689,$0AB70F1A45E5512A
  Data.q $B7E2839DE0F747D7,$CC476B2E65808DCC,$AEA4AB3D10B4D3EA,$6CF936D299F06CDA,$87D1874AA0ADA804,$9999BCE0142C08C8,$14F3180F64EEF8C6,$77D9962CD1AE5E47,$A9A5366396A58E19
  Data.q $6320CB3E061C344A,$3653F7D1CAAE2B49,$EEC97D2F57920A36,$56D4A52EDCBB5B43,$DDAE85225BD6BAF7,$1697A58A69A11A20,$00880FA014170A9F,$B876E2C65AFA32E1,$A3B84B0E5BE94BAF
  Data.q $A9307727400BD36F,$EC625722F6F2B477,$B27170574DDBC52F,$0E1EBE92CBB7CD85,$C1D9774C9B7F5921,$33937A5571E766C9,$F538D987088E1A17,$8C9D1B8FED025493,$0E31A6BF16E7461E
  Data.q $00FFE3E931C1F8EF,$76E85E9AE2A67FAE,$D2B1762BDBC1BDC8,$6CD48D684BBDA5EC,$07E5345501E4C181,$F93737988F877D25,$9B15D318ED613C77,$3B6BDDAE6D622D69,$D083EE4ECA635EBE
  Data.q $57BF3AD1F0D2FA77,$EDC2695367B126ED,$3AB377A17F69F3BE,$0F70D9F70A81034A,$F16B8EF81C3EDDA3,$BD56D8942676624E,$306F2C097FC7957F,$A9B84FF7A76F0E76,$EDA67D6FD9FDBA5F
  Data.q $1A8B9FC61981AC6E,$7A1A75CA1DE71EE3,$AF4F1139B0900AB1,$8B79895EB289E198,$B10FD3B25A7A0FB8,$624AF31C901A3210,$E8613744EA03A3DF,$E8BF9A989B937CCD,$373F25D7FEB41323
  Data.q $21F7F49E7815CBAB,$C242C3407E60458A,$AB00FF77F98FDC97,$FD712E76F838E057,$FD3F18DDFB72AD43,$C500FFC7C5BEB845,$F7587FD087F9086F,$3F6600FF016953AF,$F07FB0BB4CEE4DFC
  Data.q $FC47FEC59BEA1FEC,$D400FFA57991D50E,$D1871C5913DC91FD,$69344319AF99A58B,$B6E3E3B08FA5CD03,$D7E5C23A1E8DC82E,$829E1B7427A6F8B8,$073C52E230651241,$1F73116EFE3465A2
  Data.q $69F4AAD77B829EE1,$00F86FA3F66BE3AD,$A8E9BA24D87D26F7,$6AF427B42154054D,$B58335238761F629,$C87E9ACBC769BE63,$56C92C5D8CA909EE,$B797105885C02A04,$DB69B0ED4CE3BD7A
  Data.q $D4A945DDF1C38E3D,$B60C4BC765A100FF,$B310B8C5559F6ED4,$E1F31A071280BAC0,$34ADC53597BBCB8A,$134BB06490EFF4A6,$34688DC6C5A59966,$496E544A4393B4D9,$A55EEF50CFB77E7F
  Data.q $F6330A3359A3DAD2,$F83AEE2DB675EB98,$B671595B94746642,$A571D472C5F4F4FD,$A3E6A57B27170D6A,$066F594E5BEA48AA,$266E64C38B2E205E,$1F063BA6E62EE695,$AE26EFDF762C182E
  Data.q $44C24FD173952AD0,$31AF2E63069DFA92,$224EF05B87E40929,$E486910AB8DAE740,$72E7409F6F419AC1,$13E23E304775D4B5,$AFBD736DBB17ED37,$FB5010E8DCB98DEA,$6D5C02CA7DAB1271
  Data.q $AEDB160A52E1B6A5,$AF7185204092423A,$E16306F7362C4E21,$723319678F85A0D6,$6E7423183600FFF6,$294EE124EB432B1B,$7183F6DCCD76EF75,$BA618F0B4B960535,$944601B9995E7ACD
  Data.q $360538122C2B8AD3,$FC15A5F3A198074D,$BE5A959E8DD8896F,$0375AC86BDB7BB93,$B363785AE2041DF1,$DAEDBA131A48B5A3,$6DFBBAD5EE3FFBDB,$E49159172124108F,$49615B2A3C69E33C
  Data.q $3C5FDA394EE9230B,$2D0D6AA380989737,$1C271F13DE4CE96E,$2DA1287B45A8F647,$D7EBF0427753D4C2,$650E096A5FDB85AB,$A590320D333FFD62,$4A1B522A6BFB961C,$27C9472DC52933C5
  Data.q $BCE36DF41B76DF1C,$62BE4FD716057AFA,$3706A3C14003CD0D,$74CBAE30C5AD8FD3,$BA8B2635A3C1C655,$B7DDD775AA2E7EE6,$94AC21AD7AA69D13,$26FC70AA6A3909E2,$54F8C5B1F2D9CADE
  Data.q $D47DD976E752EB2C,$D948AA1BDE3CB64C,$D979397BBB2D10D4,$C7EE28D7D2745FED,$49A9ABE96E21B9B4,$BC525A4A94C2B8E9,$8DBD5F78DE5E8E16,$97065B717AA43EF1,$0EA8630DB5BFB6BC
  Data.q $4EC5DDEA093F3C2D,$36FCECE786DE35FB,$90B456D598DB4F2C,$90237D46209757DC,$7D4A94BF42C1520B,$8082BD99679178BE,$4F173434A94D15F6,$389AA6FDA48E24F1,$AF6FCA42D4F3CEFE
  Data.q $9465627ABA995B79,$622A31D722FAAD5C,$E4C9BA71D1740B4C,$40A123F4745C690B,$9B53B952A5B870F1,$F4C0BD0A32BBE612,$9F2CEB74CB5E7A0F,$A8EFC8779A0B6BCB,$6A677F9CEEDCA87E
  Data.q $C7E75FA46FBF3614,$5A9F167A8B75C48E,$4FFBA4214E1528ED,$BC4F1C5FB1FA908F,$9BAEFDDD8D939B96,$F48903461C1C32B0,$B08AB7C3024EEADB,$36997EE49CAD9E6C,$61B992FDB4FBF2A7
  Data.q $16DC68A91521F2A2,$99ACE7DF0733A713,$CB687B49AACEA5E6,$B1EEF73475609B89,$5A61F66BE2807E02,$4BF8E9BB059CD5ED,$D355033FEC3CB772,$C5A0A09B98716F27,$0AAD8423B771D890
  Data.q $AF201F621E460D1C,$6F79BAF4C18CE505,$0A99B423EF1828DE,$CD450AFE76712391,$6CCA4481827157B0,$D04F8A1F0AF0297E,$E682AAB2CD5C7278,$6C6E4CAF7BF9B385,$A7FB78278011BB13
  Data.q $854A593B632577DC,$25D24C6F7C6A3A6D,$A44E4B02470EA985,$525391CC888AA690,$A0A585049B16960F,$DBC9666D36DF16E0,$A37D45859D439A3B,$9736B1CF23787A65,$71CE6EA3654FC9F1
  Data.q $6518E1072A633E48,$1A49CE43ACD0A0D3,$E3F3D43EC91B185F,$F8075BF157DAB01C,$5D524A0514161A06,$9CEEDB2675C0FCCF,$50E93C6A3AD1A99D,$4695848BD76ECA92,$5B424A4801C99561
  Data.q $9CC2955250085059,$1A1A3FDEDC51F8B8,$3C6C375D72D48201,$CADBE6708FCCF830,$0EEE4929D5B10107,$77D6A206EE577BBC,$E25A28E795F85AC7,$4BAA086853D15607,$FB2099E140E84288
  Data.q $C631682B1D2BBF30,$252CA80B0BB6D8B5,$553434906778902F,$774337A9C414B4DC,$8AFB8D6A5F5BBA25,$71A99513DAA4ABF5,$E7DB479E4F5471DF,$9084C5852E97568E,$E6D06450AB0B3E3B
  Data.q $F0A6EEB1B1E53651,$B9C3ECAF131CFBEA,$D0D5CE54E8F9CE5B,$39871C5228EAB659,$7148595B5C74150C,$2681434125A8E4AC,$93FBF2199EA7A286,$FCEA84F5A635412D,$B679796B8F259695
  Data.q $0EFBBE1347E887B7,$B1238BD17E90F153,$DD1B73ADC3D13025,$E565D7A5FBDB4494,$B0F60AF18AA88316,$795ACC4738FA2910,$915CB4A997F6291C,$F01EC283BABCF0F8,$502CBB792A603F98
  Data.q $5C527BA4820532EA,$10B91707C1FA4951,$5D23AD7995D51E22,$A7B7C91DE56D8A98,$B85F2C8B17A38FEE,$7B1242601502AB10,$12A6CD6F479FEDA0,$3DB5CCCAE594D0EF,$4229ADDBD4D29A6B
  Data.q $35A80014E649018A,$90D50562A0D28006,$9DA9435E5368109B,$0FADB53D30478E96,$A894C290EC1CB814,$6A4BC9A62591C2AD,$714AF7E195D6D571,$3F3EC5C549FB3456,$9DA28523D09AE9CD
  Data.q $333888EC9965E5BD,$D23F38EFE715511B,$F3112A7131E46FC7,$5350DFB600FFF86A,$4DEF6F33CBF6CBBE,$5389E3204C41B7CA,$8D32CBCBCB1C24EE,$2FD33E712A4DA549,$610D6A29B511DF8E
  Data.q $60C01B28590E9C77,$FAB9338DD8D1CD8B,$1B3E65E6B6AF5B68,$C70307E20A8853A0,$1CC539CEE6B6E3C8,$E64FE5DD519B0C14,$ECA3DE96DC70D885,$CB330253D774AB51,$575AEE3A64485488
  Data.q $D664FCB443C555F9,$F9D876BD799168A5,$0F7A6EA5D3276D4C,$11DB2D6DDDDB45B4,$3DE27DC2E2802419,$E55B27CEFA5135AA,$EB9CAB944A6BC250,$782B77216F31C7FC,$6C377BB6FD913B0C
  Data.q $81643D45E7B4ECD1,$17E7924401594C53,$AEB46293B7AA9D1A,$21B3B67685DED9E9,$C81157404B259AC2,$9CE36CAE11071EF1,$2AEF8EBAE45EC151,$4695E286C32E347F,$ECF29C68E15AECB8
  Data.q $0A99F4A8544C4ACF,$F6954AD4D923210E,$57CBA55F3F5D86E2,$912A1A0F3480F3B0,$EECFAEB668D5F4C3,$5FA35C169D2AB13E,$9F94A03F0851B579,$829DFA08C8621FB7,$2004531DDBE67FE1
  Data.q $DB3B7B1C813EEF38,$8E49A8E4885CC33F,$E7404A48C8C814C3,$06325A5B5F4C01C0,$CDBAA0D61965A1D1,$D5911B3D7127F1A5,$A59F8E86BB56D072,$75C75574963E659C,$76DC3E929214E634
  Data.q $95877AA78595104F,$4A6B37B3E1C6BADF,$A2F56D2F31F60E4D,$E4D12C5D65DCB75F,$126C155B375CDBA9,$061E94BF0FB88572,$9C43E91CCA6D1483,$B16248CC97520B70,$B213533887341074
  Data.q $2DF6036BD97213BC,$021B5228E8330E33,$C8A2A00018868787,$5C2DF58E8B7B7924,$A42D895D716ED16D,$082A545229C9D3BA,$8D1A96C7F8AA0838,$D59CFED8017767A9,$E7DB959125B56777
  Data.q $E4B18290E2FA6A3A,$14B7AF48FA4941A0,$D3A26935253339D7,$950C636CAE323F32,$BFED9ED54ED8F4BC,$AAF459C6FCED2562,$4D92A4AAD0E48865,$9D75E29A24F32449,$D4A4A612CA9B6D9B
  Data.q $70C061B2F8536773,$20CF86B204A4714C,$BBBA04834B4C1C9A,$56A366EE46C7EC9B,$346821F5B11B62BD,$5211B2BE29CEA8FC,$D2D0D494A478E280,$7896755331A515BE,$C9F5C842ABD2D0A4
  Data.q $0145CBC3487C6BB0,$CEB1ECC721C4BEC6,$996968C7B5559BA2,$430C281A974F386E,$9B37C714F7669F6E,$EBBDB2A389E827F7,$44AD0AA010C88E36,$32D8B1F5DF9D118F,$11DF6CDE0995B818
  Data.q $C9E6DB8F11D437F4,$853862476CED365C,$269ECA69C3BA9F09,$DAD6E2A4269987A7,$7BD639488D3690D5,$DAE0514CE24B9B71,$4AE2D004AF52DA68,$3D68A55D710741A5,$775B5965AB37BBD4
  Data.q $8D53A899366C4750,$496D59082A4948AD,$561C4755A04990CE,$A35CA7D498AC65DC,$4D033486D1655D5B,$B4D7D983CD59EE84,$5BA25A9601530819,$260600784A004542,$AC25762B6F620BC3
  Data.q $AB29CD98309732CF,$AA1DCB03A080318A,$815508AC42E07EBD,$5FA6D4539ECECD0B,$CE79E02BC342E01A,$0A812BADF17A8E6E,$D5A7D1BBA70A3FE9,$F4D55F43BFD90B81,$F614CE2B04A6ECAB
  Data.q $00FFEAF091B04260,$4C85C054F9AB74C4,$04A6CD2F1DF63B7C,$A7342A0486A7802C,$4311FED3B010581E,$1658084C9D5F7AEB,$3D43E79E3A7400FF,$64D113D51602277F,$85C0B40C5F26971E
  Data.q $F5EFFEB9570B817B,$2BADF05A7DCBEB93,$E953F4D207370B81,$57082C4FBBA7D229,$D4877C7AE4AD10B8,$5FA415029BE3C965,$2DC79BA7973E6686,$F4C85B21F0642130,$0436C797CBA84FF9
  Data.q $66E8DD9B057E522C,$87D3858F5D21B0FA,$2FBD962B04569F46,$089C2B046E7E72EC,$FCB4DCFAA9746E5E,$65D97F7A0D5F08AC,$02AB10F85E08DCFC
  Data.b $15,$60,$42,$FF,$D9
  titre_e:
EndDataSection

[Zorro]

tu dis qu'il faut deposer l'image sur ta fenetre
mais chez moi, le Drag an Drop n'est pas en fonction !! (curseur en panneau de Stationnement interdit )

[Ar-S]

Essaye sans ton EPB pour voir

[Zorro]

Essaye sans ton EPB pour voir

oui bizarre, encore un bug a denicher

bon pour ton code, chez moi tel quel ça fonctionne !

il faut un petit temps avant de voir generer l'icone, mais ça marche !

Code : Tout sélectionner

 ; Icon'it
; By Ar-S // oct 2016
; PB 5.50 x86
; Glisser déposer une image sur le soft
; choisissez la taille, le format et les options
; sauvez

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

UsePNGImageEncoder()

Declare Lock(State_lock)
Declare RempliCanvas()
Declare Cloneimage()
Declare DessineImages()
Declare ConvertImage(encodage)
Declare CreateIcon(Image.l)
Declare.i SaveIcon(hIcon, filename$)

Macro Mess(message)
  SetGadgetText(#aff,"Images converties en " + message + " couleurs.")
  SetGadgetColor(#aff,#PB_Gadget_BackColor, $00FF00)
EndMacro

Macro Mess2(message2)
  SetGadgetText(#aff,"Taille de l'image " + message2)
EndMacro

Enumeration
  #LDVM
  #chk_bordure
  #Chk_transp
  #Txt_col
  #Chk_4b
  #Chk_8b
  #Chk_24b
  #Chk_32b
  #AFF
  #g_titre
  #titre
  #Sauve
 
  ; Traitement des futures images
  #Ori
  #im_enc
  #IM
EndEnumeration

Enumeration 20 ; canvas
  #Bt_16
  #Bt_32
  #Bt_64
  #Bt_128
  #Bt_256
EndEnumeration

Enumeration 30 ; images des canvas
  #ico_16
  #ico_32
  #ico_64
  #ico_128
  #ico_256
EndEnumeration



Global titre = CatchImage(#titre, ?titre_s, ?titre_e - ?titre_s)
Global Couleur,Format_Image, Prof_Image, IM_A_SAUVER
Global.b COLORSTATE, TRANSPARENT, State_lock
Global Name$,Path$,oldmessage.s

IM_A_SAUVER = 0

Procedure Cloneimage()
 
  For i = #ico_16 To #ico_256
    CopyImage(#ori,i) 
  Next
  ResizeImage(#ico_256,256,256,LeMode)
  ResizeImage(#ico_128,128,128,LeMode)
  ResizeImage(#ico_64,64,64,LeMode)
  ResizeImage(#ico_32,32,32,LeMode)
  ResizeImage(#ico_16,16,16,LeMode)
  FreeImage(#ori)
  ; L'image originale devient la plus grande (256 pixels) pour une traitement futur plus rapide
  CopyImage(#ico_256,#ori) 
EndProcedure

Procedure Lock(State_lock)
  DisableGadget(#chk_bordure,State_lock)
  DisableGadget(#Chk_transp,State_lock)
  DisableGadget(#Chk_4b,State_lock)
  DisableGadget(#Chk_8b,State_lock)
  DisableGadget(#Chk_24b,State_lock)
  DisableGadget(#Chk_32b,State_lock)
  DisableGadget(#Sauve,State_lock)
  DisableGadget(#bt_16,State_lock)
  DisableGadget(#bt_32,State_lock)
  DisableGadget(#bt_64,State_lock)
  DisableGadget(#bt_128,State_lock)
  DisableGadget(#bt_256,State_lock)
EndProcedure


Procedure ConvertImage(encodage)
  Protected *IM
  CopyImage(#ori,#im_enc)
  *IM = EncodeImage(#im_enc ,#PB_ImagePlugin_PNG, #PB_Image_FloydSteinberg, encodage)
  CatchImage(#im_enc, *IM)
  For i = #ico_16 To #ico_256
    CopyImage(#im_enc,i) 
  Next
  ResizeImage(#ico_256,256,256,LeMode)
  ResizeImage(#ico_128,128,128,LeMode)
  ResizeImage(#ico_64,64,64,LeMode)
  ResizeImage(#ico_32,32,32,LeMode)
  ResizeImage(#ico_16,16,16,LeMode) 
 
EndProcedure


Procedure RempliCanvas()
  For i =   #Bt_16 To #Bt_256
    L = GadgetWidth(i) : H = GadgetHeight(i)
    StartDrawing(CanvasOutput(i))
    Box(0,0,L,H,$0)
    StopDrawing()
  Next
 
EndProcedure

Procedure DessineImages()
  For i = 1 To 5
    StartDrawing(CanvasOutput(i+19))
   
    DrawingMode(#PB_2DDrawing_Default)
    DrawImage(ImageID(29+i),0,0)
   
    If COLORSTATE = 1
      DrawingMode(#PB_2DDrawing_Outlined)
      Box(0,0,ImageWidth(29+i),ImageHeight(29+i), Couleur)
    EndIf
   
    StopDrawing()
   
  Next 
EndProcedure

Procedure CreateIcon(Image.l)
      ;Octavius
      Protected NewIcon.ICONINFO,Mask.l,Icon.l
      Mask=CreateImage(#PB_Any,ImageWidth(Image),ImageHeight(Image),32)
      NewIcon\fIcon=#True
      NewIcon\hbmMask=ImageID(Mask)
      NewIcon\hbmColor=ImageID(Image)
      Icon=CreateIconIndirect_(@NewIcon)
      FreeImage(Mask)
      ProcedureReturn Icon
EndProcedure
Procedure.i SaveIcon(hIcon, filename$)
      ;Srod
      Protected result, iconinfo.ICONINFO, hbmMask, hbmColor
      Protected cbitmap.BITMAP, cwidth, cheight, cbitsperpixel, colorcount, colorplanes
      Protected mbitmap.BITMAP, mwidth, mheight, fIcon, xHotspot, yHotspot
      Protected file, imagebytecount, hdc, oldbitmap, mem, bytesinrow, temp
      Protected *bitmapinfo.BITMAPINFO
      ;Get information regarding the icon.
      If Not(GetIconInfo_(hIcon, iconinfo)) : ProcedureReturn 0 : EndIf ;Not a valid icon handle.
      fIcon=2-iconinfo\fIcon  ;icon = 1, cursor = 2,
      If fIcon=2  ;Cursor.
            xHotspot=iconinfo\xHotspot
            yHotspot=iconinfo\yHotspot
      EndIf
      ;Allocate memory for a BITMAPINFO structure + a color table with 256 entries.
      *bitmapinfo = AllocateMemory(SizeOf(BITMAPINFO) + SizeOf(RGBQUAD)<<8)
      If *bitmapinfo = 0 : ProcedureReturn 0 :EndIf
      ;Get the mask (AND) bitmap, which, if the icon is B/W monochrome, contains the colour bitmap.
      hbmMask=iconinfo\hbmMask
      GetObject_(hbmMask, SizeOf(BITMAP),mbitmap)
      mwidth= mbitmap\bmWidth
      mheight= mbitmap\bmHeight
      ;Get the colour (XOR) bitmap.
      hbmColor=iconinfo\hbmColor
      If hbmColor
            GetObject_(hbmColor, SizeOf(BITMAP),cbitmap)
            cwidth= cbitmap\bmWidth
            cheight= cbitmap\bmHeight
            cbitsperpixel = cbitmap\bmBitsPixel
            If cbitsperpixel = 0 : cbitsperpixel = 1 : EndIf
            If cbitsperpixel < 8
                  colorcount=Pow(2,cbitsperpixel) ;colorcount = 0 if 8 or more bpp.
            EndIf
            colorplanes=cbitmap\bmplanes
      Else ;Monochrome icon.
            cwidth= mwidth
            cheight= mheight/2
            cbitsperpixel = 1
            colorcount=2
            colorplanes=1
            mheight=cheight
      EndIf
      ;Ready to start creating the file.
      file=CreateFile(#PB_Any,filename$)
      If file
            ;Write the data.
            ;word = 0
            WriteWord(file,0)
            ;word = 1 for icon, 2 for cursor.
            WriteWord(file,ficon) ;1 for icon, 2 for cursor.
            ;word = number of icons in file.
            WriteWord(file,1)  ;***CHANGE IF EXTENDING CODE TO MORE THAN ONE ICON***
            ;16 byte ICONDIRENTRY structure, one for each icon.
            WriteByte(file, cwidth)
            WriteByte(file, cheight)
            WriteByte(file, colorcount)
            WriteByte(file, 0) ;Reserved.
            If ficon=1   ;Icon.
                  WriteWord(file, colorplanes) ;Should equal 1, -but just in case!
                  WriteWord(file, cbitsperpixel)
            Else ;Cursor.
                  WriteWord(file, xhotspot)
                  WriteWord(file, yhotspot)
            EndIf
            WriteLong(file,0) ;TEMPORARY! WE NEED TO RETURN WHEN WE KNOW THE EXACT QUANTITY.
            ; Size of (InfoHeader + ANDbitmap + XORbitmap)
            WriteLong(file,Loc(file)+4)  ;FilePos, where InfoHeader starts
            ;Now the image data in the form BITMAPINFOHEADER (40 bytes) + colour map for the colour bitmap
            ;+ bits of colour bitmap + bits of mask bitmap. Gulp! One for each icon.
            ;40 byte BITMAPINFOHEADER structure.
            imagebytecount=SizeOf(BITMAPINFOHEADER)
            WriteLong(file, imagebytecount) ;Should be 40.
            WriteLong(file, cwidth)
            WriteLong(file, cheight+mheight) ;Combined heights of colour + mask images.
            WriteWord(file, colorplanes) ;Should equal 1, -but just in case!
            WriteWord(file, cbitsperpixel)
            WriteLong(file, 0) ;Compression.
            WriteLong(file, 0) ;Image size. Valid to set to zero if there's no compression.
            WriteLong(file, 0) ;Unused.
            WriteLong(file, 0) ;Unused.
            WriteLong(file, 0) ;Unused.
            WriteLong(file, 0) ;Unused.
            ;Colour map. Only applies for <= 8 bpp.
            hdc=CreateCompatibleDC_(0) ;Needed in order to get the colour table.
            If hbmColor = 0   ;Monochrome icon.
                  WriteLong(file, #Black)
                  WriteLong(file, #White)
                  imagebytecount+SizeOf(rgbquad)*2
            ElseIf cbitsperpixel<=8 ;Includes 1 bit non-monochrome icons.
                  ;Get colour table.
                  temp=Pow(2,cbitsperpixel)
                  bytesinrow = SizeOf(rgbquad)*temp
                  mem=AllocateMemory(bytesinrow)
                  oldbitmap=SelectObject_(hdc, hbmColor)
                  GetDIBColorTable_(hdc, 0, temp, mem)     
                  WriteData(file, mem, bytesinrow) ;Write color table.
                  FreeMemory(mem)
                  SelectObject_(hdc, oldbitmap)
                  imagebytecount+bytesinrow
            EndIf
            ;Now the colour image bits. We use GetDiBits_() for this.
            bytesinrow = (cwidth*cbitsperpixel+31)/32*4  ;Aligned to a 4-byte boundary.
            bytesinrow * cheight
            mem=AllocateMemory(bytesinrow)
            *bitmapinfo\bmiHeader\biSize=SizeOf(BITMAPINFOHEADER)
            *bitmapinfo\bmiHeader\biWidth=cwidth
            *bitmapinfo\bmiHeader\biPlanes=colorplanes
            *bitmapinfo\bmiHeader\biBitCount=cbitsperpixel
            If hbmColor
                  *bitmapinfo\bmiHeader\biHeight=cheight
                  GetDIBits_(hdc,hbmColor,0,cheight,mem,*bitmapinfo,#DIB_RGB_COLORS)
            Else ;Monochrome color image is the bottom half of the mask image.
                  *bitmapinfo\bmiHeader\biHeight=2*cheight
                  GetDIBits_(hdc,hbmMask,0,cheight,mem,*bitmapinfo,#DIB_RGB_COLORS)
            EndIf
            WriteData(file, mem, bytesinrow)
            FreeMemory(mem)
            imagebytecount+bytesinrow
            ;Now the mask image bits. We use GetDiBits_() for this.
            bytesinrow = (mwidth+31)/32*4  ;Aligned to a 4-byte boundary.
            bytesinrow * mheight
            mem=AllocateMemory(bytesinrow)
            *bitmapinfo\bmiHeader\biWidth=mwidth
            *bitmapinfo\bmiHeader\biPlanes=1
            *bitmapinfo\bmiHeader\biBitCount=1
            If hbmColor
                  *bitmapinfo\bmiHeader\biHeight=mheight
                  GetDIBits_(hdc,hbmMask,0,mheight,mem,*bitmapinfo,#DIB_RGB_COLORS)
            Else
                  *bitmapinfo\bmiHeader\biHeight=2*mheight
                  GetDIBits_(hdc,hbmMask,mheight,mheight,mem,*bitmapinfo,#DIB_RGB_COLORS)
            EndIf
            WriteData(file, mem, bytesinrow)
            FreeMemory(mem)
            imagebytecount+bytesinrow
            DeleteDC_(hdc)
            ;Finally, return to the field we missed out.
            FileSeek(file, 14)
            WriteLong(file, imagebytecount)
      CloseFile(file)
      result= 1 ;Signal everything is fine.
      Else ;>
      result= 0
      EndIf;>
      DeleteObject_(hbmMask) ;These are copies created as a result of GetIconInfo_() and so require deleting.
      DeleteObject_(hbmColor)
      FreeMemory(*bitmapinfo)
      ProcedureReturn result
EndProcedure



Procedure OpenWindow_LDVM()
  If OpenWindow(#LDVM, 613, 300, 522, 300, "Pure Basic Icon Creator // LDVMULTIMEDIA", #PB_Window_ScreenCentered|#PB_Window_SystemMenu     )
   
    HideWindow(#LDVM,1)
    ImageGadget(#g_titre,10,1,233,53, titre)
   
    CanvasGadget(#Bt_16, 9, 258, 16, 16, 0)
    CanvasGadget(#Bt_32, 28, 242, 32, 32, 0)
    CanvasGadget(#Bt_64, 62, 210, 64, 64, 0)
    CanvasGadget(#Bt_128, 129, 146, 128, 128, 0)
    CanvasGadget(#Bt_256, 261, 18, 256, 256, 0)
    RempliCanvas()
   
    CheckBoxGadget(#chk_bordure, 5, 55, 160, 18, "Ajouter une bordure")
    CheckBoxGadget(#Chk_transp, 5, 78, 220, 18, "Gérer la transparence (vista et +)")
    TextGadget(#Txt_col, 5, 100, 200, 18, "Convesion des couleurs", #SS_CENTERIMAGE)
    OptionGadget(#Chk_4b, 5, 120, 75, 20, "4 bits")
    OptionGadget(#Chk_8b, 5, 143, 75, 20, "8 bits")
    OptionGadget(#Chk_24b, 5, 166, 75, 20, "24 bits")
    OptionGadget(#Chk_32b, 5, 190, 56, 20, "32 bits")
    StringGadget(#AFF, 2, 277, 415, 20, "Faites un glisser/déposer de l'image à transformer en icone", #PB_String_ReadOnly|#ES_CENTER)
    ButtonGadget(#Sauve,418,276,100,22,"Sauver l'icone")
    SetGadgetState(#Chk_32b,1)
    EnableWindowDrop(#LDVM, #PB_Drop_Files, #PB_Drag_Copy)
    State_Lock = 1
    Lock(State_Lock)
   
    HideWindow(#LDVM,0)
  EndIf
EndProcedure

OpenWindow_LDVM()

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_WindowDrop
      Select EventDropType()
         
        Case #PB_Drop_Files
          Debug "Drop file: " + EventDropFiles()
          If LoadImage(#ori, EventDropFiles())
            Format_Image = ImageFormat(#ori)
            Prof_Image  = ImageDepth(#Ori,#PB_Image_InternalDepth)
            Name$ = GetFilePart(EventDropFiles(),#PB_FileSystem_NoExtension)
            Path$ = GetPathPart(EventDropFiles())
            Lock(0)
            Select Prof_Image
              Case 4
                SetGadgetState(#Chk_4b,1)
              Case 8
                SetGadgetState(#Chk_8b,1)
              Case 24
                SetGadgetState(#Chk_24b,1)
              Case 32
                SetGadgetState(#Chk_32b,1)
              Default
                SetGadgetState(#Chk_24b,1)
            EndSelect
           
            SetGadgetColor(#aff,#PB_Gadget_BackColor,$00ff00)
            ; Gestion des images
            ; Filtre des icones
           
            If Format_Image = #PB_ImagePlugin_ICON
              SetGadgetText(#Aff, "Le format icone n'est pas pris en charge")
              FreeImage(#ORI)
            Else 
              ; Si non PNG, on desactive la case transparence
              If Format_Image <> #PB_ImagePlugin_PNG
                DisableGadget(#Chk_transp,1)
              Else
                DisableGadget(#Chk_transp,0)
              EndIf
             
              IM_A_SAUVER = 0
              CloneImage()
             
              DessineImages()
            EndIf
          Else
            Debug "ce n'est pas une image"
          EndIf
         
      EndSelect
     
    Case #PB_Event_Gadget
      Select EventGadget()
         
          ; SAUVEGARDE
        Case #Sauve
          If  IM_A_SAUVER <> 0
           
            Filtre$ = "Icone (*.ico)|*.ico;"
            Fichier$ = SaveFileRequester("Sauvegarder l'icone", path$+Name$+".ico", Filtre$, 0)
            If Fichier$
              MessageRequester("Information", "Vous avez choisi ce fichier :"+Chr(10)+Fichier$, 0)
               icon_id=CreateIcon(IM_A_SAUVER)
               SaveIcon(icon_id, Fichier$)
             
            Else
              SetGadgetText(#aff,"L'opération a été annulée.")
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$0000ff)
            EndIf
           
           
           
          Else
            MessageRequester("Information","Vous devez d'abord sélectionner l'image à convertir !",0) 
          EndIf
         
         
         
         
          ; CANVAS
        Case #bt_16
          Select EventType()
             
            Case #PB_EventType_MouseLeave 
              SetGadgetText(#aff,oldmessage.s)
             
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_16,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("16x16")
             
            Case #PB_EventType_LeftClick
              Debug "clap"
              SetGadgetText(#aff, "Icone de sortie en 16x16")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_16
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
             
          EndSelect
         
         
         
        Case #Bt_32
          Select EventType()
             
            Case #PB_EventType_MouseLeave 
              SetGadgetText(#aff,oldmessage.s)
             
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_32,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("32x32")
             
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 32x32")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_32
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
             
          EndSelect
         
        Case #Bt_64
          Select EventType()
             
            Case #PB_EventType_MouseLeave 
              SetGadgetText(#aff,oldmessage.s)
             
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_64,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("64x64")
             
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 64x64")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_64
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
             
          EndSelect
         
        Case #Bt_128
          Select EventType()
             
            Case #PB_EventType_MouseLeave 
              SetGadgetText(#aff,oldmessage.s)
             
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_128,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("128x128")
             
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 128x128")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_128
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
             
          EndSelect
         
        Case #Bt_256
          Select EventType()
             
            Case #PB_EventType_MouseLeave 
              SetGadgetText(#aff,oldmessage.s)
             
            Case #PB_EventType_MouseEnter
              SetGadgetAttribute(#Bt_256,#PB_Canvas_Cursor, #PB_Cursor_Hand )
              Mess2("256x256")
             
            Case #PB_EventType_LeftClick
              SetGadgetText(#aff, "Icone de sortie en 256x256")
              oldmessage.s = GetGadgetText(#aff)
              IM_A_SAUVER = #ico_256
              SetGadgetColor(#aff,#PB_Gadget_BackColor,$00FF00)
             
          EndSelect
         
         
        Case #chk_bordure
          If GetGadgetState(#chk_bordure) = 1
            Couleur = ColorRequester()
            COLORSTATE = 1
          Else
            COLORSTATE = 0   
          EndIf
          DessineImages()
         
        Case #Chk_transp
          If GetGadgetState(#Chk_transp) = 1
            TRANSPARENT = 1
          Else
            TRANSPARENT = 0 
          EndIf
          DessineImages()
         
        Case #Chk_4b
          ConvertImage(4)
          DessineImages()
          Mess("16")
          Prof_Image = 4
        Case #Chk_8b
          ConvertImage(8)
          DessineImages()
          Mess("256")
          Prof_Image = 8
        Case #Chk_24b
          ConvertImage(24)
          DessineImages()
          Mess("16,8 millions de")
          Prof_Image = 16
        Case #Chk_32b
          ConvertImage(32)
          DessineImages()
          Mess("4 milliards de" )
          Prof_Image = 32
      EndSelect
    Case #PB_Event_CloseWindow
      Select EventWindow()
        Case #LDVM
          CloseWindow(#LDVM)
          Break
      EndSelect
  EndSelect
ForEver





DataSection
  titre_s:
  ; size : 8845 bytes
  Data.q $78451800E1FFD8FF,$002A494900006669,$0000000000000008,$1100ECFF00000000,$000100796B637544,$FF00005000000004,$3A707474682F03E1,$6F64612E736E2F2F,$782F6D6F632E6562
  Data.q $002F302E312F7061,$656B636170783F3C,$3D6E696765622074,$64692022BFBBEF22,$704D304D3557223D,$65727A4869686543,$636B7A63544E7A53,$783C203E3F226439,$6174656D706D783A
  Data.q $783A736E6C6D7820,$3A65626F6461223D,$2F6174656D3A736E,$74706D783A782022,$65626F6441223D6B,$726F4320504D5820,$30632D352E352065,$35312E3937203132,$3032202C32373735
  Data.q $33312F31302F3431,$303A34343A39312D,$2020202020202030,$6664723C203E2220,$6C6D78204644523A,$223D6664723A736E,$772F2F3A70747468,$726F2E33772E7777,$302F393939312F67
  Data.q $6664722D32322F32,$2D7861746E79732D,$723C203E2223736E,$72637365443A6664,$72206E6F69747069,$74756F62613A6664,$6E6C6D782022223D,$68223D706D783A73,$736E2F2F3A707474
  Data.q $632E65626F64612E,$312F7061782F6D6F,$6C6D7820222F302E,$4D4D706D783A736E,$2F3A70747468223D,$626F64612E736E2F,$61782F6D6F632E65,$6D6D2F302E312F70,$736E6C6D7820222F
  Data.q $223D66655274733A,$6E2F2F3A70747468,$2E65626F64612E73,$2F7061782F6D6F63,$707954732F302E31,$72756F7365522F65,$2022236665526563,$616572433A706D78,$3D6C6F6F54726F74
  Data.q $502065626F644122,$706F68736F746F68,$3431303220434320,$776F646E69572820,$4D706D7820222973,$6E6174736E493A4D,$6D78223D44496563,$31303A6469692E70,$3139413946343535
  Data.q $3838364531313846,$3636413131423330,$2022373241453342,$6F443A4D4D706D78,$4449746E656D7563,$69642E706D78223D,$4634353531303A64,$3131384631394239,$3142333038383645
  Data.q $4145334236364131,$6D783C203E223732,$697265443A4D4D70,$206D6F7246646576,$6E693A6665527473,$444965636E617473,$69692E706D78223D,$4634353531303A64,$3131384631393839
  Data.q $3142333038383645,$4145334236364131,$6552747320223732,$656D75636F643A66,$6D78223D4449746E,$31303A6469642E70,$3139393946343535,$3838364531313846,$3636413131423330
  Data.q $2F22373241453342,$3A6664722F3C203E,$7470697263736544,$722F3C203E6E6F69,$203E4644523A6664,$6D706D783A782F3C,$783F3C203E617465,$652074656B636170,$3E3F2272223D646E
  Data.q $626F64410E00EEFF,$01000000C0640065,$020202008400DBFF,$0302020202020202,$0202030403020202,$0404040404050403,$0505050505050605,$0607070807070606,$0C0C09090A0A0909
  Data.q $0C0C0C0C0C0C0C0C,$0303010C0C0C0C0C,$0906060905040503,$0E0E0F0D0B090B0D,$0C0C0C0C0F0F0E0E,$0C0C0C0C0C0F0F0C,$0C0C0C0C0C0C0F0C,$0C0C0C0C0C0C0C0C,$0C0C0C0C0C0C0C0C
  Data.q $C0FF0C0C0C0C0C0C,$03E9003500081100,$1103011102001101,$020000C000C4FF01,$0000000101010501,$0908000000000000,$02030A0605040007,$0103000302000101,$0000000000000000
  Data.q $0207050406000000,$0203010010010803,$0B0A080404030404,$0403020100000000,$3121070612000511,$1522611451410813,$6242B132A1817109,$7252911643239282,$C21936D3B373B2A2
  Data.q $B4947434246333D2,$0302030100111856,$0003080704070604,$1103020001000000,$1251413106052104,$91F00713B1817161,$6252423222D1C1A1,$161433238272E115,$245343D2C2B2A292
  Data.q $030C00DAFF352573,$3F00110311020001,$DFDE7DA110187800,$7B4D576B2BD9B9AD,$60D4C0218F658D7F,$B4915510AE53C0FA,$B388019A8046A98A,$E4947D95362C36DD,$AEB25B43608EDF12
  Data.q $8FDD6E323F5D0834,$25E9157C522BD4DD,$25FC3467887300FF,$6FDF8EAF48060D32,$67DC3E31DF2D66C1,$78622662B05E29A9,$13EA324F81AC43C8,$3FB8D2DEA0197D4C,$0EA47D34CB07C841
  Data.q $376EB7B76D6722FA,$BF6F4F6D68E62A66,$7C1B52B83CB2D2B2,$34346ABA2A077421,$E092ED864B1C8F3C,$0E58DC4FCFCCA536,$30D623488BB7D067,$2EEE15352A25CE52,$EBB99DDBD6EE6DF3
  Data.q $760A9E15CD06492D,$4754853C3569E853,$8145C66B1631E013,$FCEA769A655FC1DB,$1D0D8E6B83513473,$BDFD64BE5C2304A7,$5139D7DFE15A6A45,$F28A4A163304A592,$1C0A9F2840F523F8
  Data.q $1D96298D4D697642,$A7C241DBE92ACC07,$FBDE6EA6D86B40D5,$259DB8D8E17EDBB1,$ED734B9CDAE6D62D,$410956B40F53DAB2,$47024503A8345728,$10CF7BAB04823902,$6C388D33A94291F2
  Data.q $02875666EE58F1A3,$66C4905F288A7A28,$A52A90B6A5EEFB94,$293190303100D0A8,$42A968E521DD386A,$2D49FBB1A7F7EB6E,$91EA2AA3AA41DD76,$093C804C9E8F6C53,$1523810FB0B88465
  Data.q $E2F4158D064C66D2,$9D0E8DC45DF46C9C,$347444FD007130C2,$3300FFC8A0D4C755,$7B377BA20DF5927D,$D45C8B4C261A0E73,$9A3F1DB39F68ECA3,$163AB38A8FF6ED1D,$00FFBA00FF593E32
  Data.q $4DDA993B6BA7A2F4,$3EB8C1553FBA6EDE,$9E6CD5D1A1A2079A,$1850FE242D9A6D41,$2A3D6C1A72FC0D95,$0A326C7657D23287,$9D4DD7694D7B833D,$ACA6DF865AD464AA,$2D18CCD007B76FB3
  Data.q $15092101519FE729,$28CB240600C09324,$79C9585852C5A58D,$3FD2EC52D266613B,$8CD6823BD59F3D33,$923EC97C1B946B44,$3A24704B4765AAD9,$E7C485FA42099555,$3152E783B4AD743F
  Data.q $D01E86AB6989F95D,$48B1BC9523A33F9D,$E369F0B84661F74B,$CE651B32B903A0C2,$E397BCA0131BDE1D,$8B83A0262DB490BE,$778B4B2454383C46,$720C5908C56321C1,$B6BDBD2BEE28085D
  Data.q $B9899AD36DFBDEED,$D62DFAB2C9CD2BB7,$7529AB8421CE7AF6,$5353815A91125275,$D7D26BBEE2C04143,$4CD32CBF8956B472,$40FAE6E5CF24119E,$F93D6931A54E9304,$1B76B9936CDBBAD1
  Data.q $E110EB879D592482,$5095169294530AF7,$E3C083781084A6A4,$93EA82BF8869BD90,$A50F6D5BE6CB4A4C,$335FB4EDA577100F,$3473D1C2ED2E6E25,$7BEC947C319DF63B,$2A91D5E2A054A016
  Data.q $69613A927EFC145A,$21121FD0D0B5E449,$09AE8E98C3B5E78B,$63229C68DE56DA89,$D915D4B1E3900081,$13EFD13D8D12A3BB,$D5AC7E5B4C92B665,$B7D997B2E55CA211,$E90B346ACBD7A924
  Data.q $CF29ADA895AE9534,$9500306BBFE512CB,$7BCF1CB8A6A46343,$54DA504F9CCA0E58,$05EAF8BBDD64FE43,$887300FF25E9E781,$F4AF55BA8F9A00FF,$7BB6E0B76FE7BF13,$85D09A0BB717CC4F
  Data.q $4B69468A8A10986B,$3D80E0A5CACDC031,$6BA7D1DCE6385EBE,$AB6866A14B74A94F,$5729E41DD0FE8C66,$4E6F2FBAB447775A,$42EAD21FD1D4CEE5,$D5BD94FA657C1E17,$890A9773060D2821
  Data.q $2A65BFCE1D0709A0,$3E77D2A1ABDC49DC,$BA5D2A5A2BBF6C21,$CB86DAD45DDB149D,$CECE0CA760D7CC67,$A8F9F60B4A100C9B,$A29F7274854A0304,$D1BEB5119A63C4B5,$9355908DD04D57F1
  Data.q $FE2D8BB677B8D68E,$00FF0BEC7FBCBD64,$DD47CD0FCEFD97B4,$B76FE7BF0BF4E72B,$E3EE7691F959BDE0,$65A6316F19B54289,$0F06D592F5919445,$DD2ED0E12BDD47CD,$DE057DA4DCA33D3B
  Data.q $B19926FE1DEEC2E6,$8443244EBC4B28EB,$0E1B5281744BCBE2,$384EE3A07120E604,$0285208E6B328FED,$798C64490BCF45EF,$3A4D17A94F10D018,$80851694D6A1EDDB,$4DAA412C0EE2A152
  Data.q $AB8FE9D50E4D4B73,$DB1DE6B74A08AC8A,$A5551D6945DEB036,$AD07A5A2F4B73665,$660DCAADD3920A72,$4A111D2DAA525250,$4E86BEA7389E508A,$E64A1B2DD48AE662,$5D0BB93345268636
  Data.q $3B4CD5DBB4865D51,$66615D5DF6D5A552,$DA0E3794C4B5A6C9,$6809648AB76A8DD1,$660AA76684524201,$6BCA67A7DB8DC2A9,$A4B92A839F4EF482,$ECF6C4F1DB212C8C,$AFAF5F43B3FD51EC
  Data.q $B23423A701DD72CB,$518907F273391D81,$80F6428AEC38A814,$4A5B26DB4B944BC0,$1D8026E3383ADCE7,$B64F7D69903D1DA5,$E896C33EBC7383BB,$594101A88CD986D7,$F09490D782526BCB
  Data.q $47967D71E2F140CC,$AE4B1640E11C9E33,$0E0E149DADE8722F,$9DA6F895BAD9C873,$49DB8B0D96727FDC,$B029EF7AE0E2921A,$2E99EC0085D69ECD,$009FCCDB0369D303,$31BC6E2F2D063C09
  Data.q $8C692255FAA8DFCA,$DB4D4435CD385E84,$386DF6494773C7C5,$DDB15E6EBEF3B902,$D5A8486B56374D9D,$34876191E2E0923A,$2219666E63FB1619,$74DF23C05A5B55C1,$AEA98503D414972B
  Data.q $97DFD63B891B0DF9,$DB587EF9D072D369,$693BF1DF8E06A3B1,$C6E9C6AAC1164CE3,$EE01BEE6EC1B5DD2,$9A2041D3B28CE821,$DE87570AA465E100,$018273D0D391E838,$EE16EE856550B656
  Data.q $7AB87DD26E37D28D,$DC9766D62DD9C394,$C49CC54CA1ED32C9,$A89556C80919EE76,$4B79899582C757A0,$05E6B90476C5E9DE,$790E40B95B19B4AD,$BEA7A2F5EC8A7418,$4EED221616AFF14E
  Data.q $97B0B9A6367D5CDC,$7C1D832A8876772F,$AFE5508E3A6A4D00,$7CD75716177FEF21,$2F099EF436B28FE4,$B3228FB1CB1FE44A,$38F57E238F6B8B49,$2E7DADEA4E3BB29F,$204A3AE8ADB9A6D6
  Data.q $A40BF5C70F622281,$FD1675C0E394723F,$6CE48A98D1A9C4C1,$991B52AC6A8279A4,$92DBD3528FB13C25,$F20E1EEFF1ECE559,$A9A7263D6FF5775C,$9D66E47C0DD9AB6E,$0ED35460D4E22A2F
  Data.q $1C49099DD794E22D,$A295EAC2927D8C7E,$3C30102FB2AB67E1,$065814FAD30E8A76,$E4A7F9164DFDDBA1,$CCACF0916DF5A63F,$A1050754391E8AFB,$EC9D211123F0205E,$DAA61C7398D8AF3C
  Data.q $71A31D737A6B82E5,$EFB2A0534C1FBC07,$4D7EA87EDAD9BB83,$07C7E77129167E11,$B42601B86D65E893,$32B909C3F0090DCC,$DC466E1D0BED9ADA,$0EC4AF7C948F3EBF,$B7643B2438EC7807
  Data.q $DB7CA9C09CADF5B2,$34658BA95B8AE5A0,$798B2D479645665A,$27BA3FECA8933BB1,$AAC0ADB56CA34C6E,$8C2B4F094C406DF1,$7852F3D495120586,$F54D3917C7477D05,$98BF59F0DD6C473E
  Data.q $3ECEC7A81BBC581A,$6EC27A7A7CF1C7B1,$A4A010975087B88D,$45918A45861154A8,$82BBE9D792CCDFCE,$63CCC24D0A584EB2,$FB47A94FA309A082,$ADA8E33DD4DF2A5C,$0CC4D5DABE064AF7
  Data.q $019B57EA1FED9B43,$4D747427760A35A8,$69135DE1F6313B88,$89CB91EB94F7D980,$AD11B7BF969A4742,$419D2B7538917424,$C0016D04F49D1569,$DBB75BA1B447E275,$8E88906273DDC50D
  Data.q $94A4825CAB23CBA5,$C15155C2A65296F4,$4C03983D7C2E5755,$CAB1A349A23880B3,$C25907D21098245F,$8FFB6BE76F54A49E,$33E3C062B771D77A,$94FAB44F118BCCA2,$FB2D290115BD6397
  Data.q $0F45E24142924A8A,$4143C0CCDB5D279E,$87EB32CE9EBED23B,$77907220AD3DF3B1,$62AFB642F14AD9ED,$893E566F70F12EF3,$0909147A929685FA,$7139524A09097004,$89391E4AD3CCC2A0
  Data.q $F6C5B6DCB2DB8ADB,$6FA0D5F2A4B510EE,$3DDB6CBBD6FA38ED,$D6446CB72482774F,$E501054A96B60A64,$F3DE6B4D2C4F4AC5,$BDBD3DB314A7C158,$2E8F138C642F4BB3,$1A6F4F742E5AA715
  Data.q $7B2677DB8BEC5D87,$686AF386EEB1F996,$2045F5C7394CEB82,$550A1E9A2805858A,$8987336743DBF878,$4296473DB3CF82BF,$5AE386F7590D68F1,$BE4DDD84BD4E94FA,$AFD7149518144693
  Data.q $5B60FC139252D715,$B9B52610D7C80715,$EEB96537B1872669,$144ED2C88C6D2C4B,$B8B744B1D3B8C370,$5DA26EB9E676CB2F,$56F12F8E99D697F1,$F34FC5F250DF7B95,$A6FC7FA2F57C120F
  Data.q $508F1706E0434BDE,$72C45D68B1430AFD,$400A5346F9167914,$0890842D5C87342D,$C4159913A7A0351D,$19665C2BD1809983,$6FE247A71B86A43D,$AB2D3BD290E59EC2,$C21726FB727AD71C
  Data.q $B329BBB847BA6CD5,$0002A25DF2B095EF,$7689D907E0299200,$B3976890F224D7B6,$696F2C9E8D24EFEC,$33BADCEEBC011870,$EB8199A6DBCC4BDA,$7CAE9294328DBA02,$6E5E402B6F631C06
  Data.q $A512369E2B4B94BB,$9DB24260D55173AC,$420BE83B2EEC8905,$AACC4790103808C5,$B7C3DE6EEE4E1BD1,$A1AF8BBB35312DA1,$23FD138A0AA90A20,$0FC0F3C8A0CD8C85,$B3A565AE3CF4DC7A
  Data.q $257E397B75CFC141,$736FA98B6081F658,$27A9A6425C42CCE1,$9D56C774D300AF30,$FF4C723E56EAA968,$1D27F7D17E3C0E00,$68FC61A6311DDA6A,$00A854D74CBF6D47,$4A1A435E1AAEE83E
  Data.q $D266ADC475E3EDC0,$EDA46ED7FD3E174D,$7AA9E446CC0BDFE7,$4FC2CEAEED3E4357,$558E78CA8468D4B9,$5238F348EC414E2B,$B7BB6BE7A521B8BC,$4AD74CE6F4A1577C,$ED5F7F0C11FD66CB
  Data.q $BD4BC5A38EF4D593,$724DE2A7D703EDBD,$FE53203D81895C29,$FC13874A1F7295C9,$F71300FFB2C9ED18,$D0C6D5C93C50ECAF,$DD11F369686C217F,$4EDBC3B64DEAE9F1,$6F0BE2157DA69B9A
  Data.q $D420480BA9B286FA,$6F240349331C0471,$2C2ECDB20F0B862B,$F7E5500E7162F1E5,$A67A2F5BD0FEB460,$C90E43CBD66D660C,$262A09212504B421,$DA312C8318720089,$8DF965345130E744
  Data.q $152E0F57147F7FDE,$5AB8E3D2DD4C24F6,$A8E37E552EACFDC2,$D525A5666D5B9727,$1EA99C907CA06564,$E9C10096F77B85C1,$920FB7D54EDA6EC5,$3B1A1B70B001C3E9,$B95B63B7ED5E1305
  Data.q $EB1445593D060131,$493F4AC5A3563C85,$B4138C2164552EC3,$D73B3379EA5F4FAC,$DD99001A367CD246,$E4B02D28C4F4669F,$B2C54855D172D626,$EBE9F4DD44A281CF,$294B2B74ABDF8E76
  Data.q $008E92A7F0F69969,$E625BC3E2AA0BC94,$FC4534A617690E71,$226047AD71400B82,$8BDEDCB8DD6CE59D,$EA8E884A6F95FBB7,$709C84FA01BFD126,$71D54BA9BFDB24B0,$E83DDA07B5C5B9B5
  Data.q $DE0E8D749791D10F,$714ADB901D884B99,$B7882B28CD3967AA,$C534AF6AA5B56CB4,$9138000BF1E5B065,$24F5A1FD76CB6DB5,$6145DDB643BA952B,$0E9C1100FF320F71,$481F816321B31C4A
  Data.q $C60A0E0D734E4CC7,$02310F0B98AE18FE,$A7F8EF203D0EF187,$D2E28D767317DAF3,$DA96DA88904F6051,$70E80CB58072B194,$ED119F3457697D0A,$AE1C257C5B8EC3A8,$8C7596A6359C17DA
  Data.q $78B27FDCEE477886,$B5E5CCCF9610771F,$EC3624853B747AA3,$24EB5202A70B6109,$9E0F985B312AFBD0,$F5DF3DBA4EEFA14E,$5E59E400FF593F6D,$200E9BDBF74BD8C7,$82C8931416139929
  Data.q $5ECD6BFB341C63CB,$A665C498F29B4F0A,$F9F6B84193FB9887,$B60D8B768D759D65,$789E385282E2526A,$6EC4026A18BB6565,$40F2C88696AB7BB3,$6C1B80EF56D19053,$C82314C936B45286
  Data.q $5A87FA2350ECB463,$96DCD9E228B9B3E6,$0953C3633946B7BB,$1F8842C700800365,$7F5C391ACC463859,$9A78E299904EF512,$F4CDCE8FDC21020E,$CA9E78DBE957B32D,$FFE279788F2DA31D
  Data.q $E645563BF0682300,$7047FA69D3FCAE94,$AB4E832D6D4DEF4C,$BB1880474DC8683C,$6CA3DA5EED248959,$DA861DE714DAED74,$846379A484AE2C9C,$6166F99B452AAD82,$16AB84D32D990BE9
  Data.q $BAC60C9E8D7D6EF6,$2E252E0114400848,$20C7D83B849D1F0E,$2179351DEBF53E3D,$0A587BB0C0017BB8,$D1AB3E3BE999DD6C,$6331AA4B195CA5D6,$93D530B678029C93,$734B3BE60916C09A
  Data.q $7464A37814209E67,$3529D086A94B1DAA,$54E212245A8B91E0,$784C47B344B367A7,$E20B0C80222184AD,$09815508AC4260CC,$40B6B13B41D27C09,$B3F070FAD33D2671,$34DC7A0F75727D99
  Data.q $00FF6FFCA8B5AD50,$FE3B53FC6BECF922,$B43BAD8EB5D85FBD,$00FF887E390F2BF5,$8FDD77DCA193FB58,$2A98382458A7D7B6,$4224BFBF38C91FA1,$995F6393165970EA,$32F4512E98B31DC2
  Data.q $8B0CD453B99A7053,$E0F9FE15C7CCE69C,$3137E179DAA7265C,$D6684B2FB85B3B3F,$E73D6EFD98A5E50F,$B3081E7A6A67D015,$0A0A285108A9BAC4,$38D0C486364B87E1,$9530976439EA312F
  Data.q $BD83FB13C5BC56D2,$AC5B00FF36B56B3B,$5D10B211C5BE3DB5,$1155214F4D1AFA94,$D08CE36E09067C52,$F1EE76FAE5BEE0ED,$F580E3DA6014ED85,$7467DAB80B773E94,$625EDFEE0BDC647B
  Data.q $71390C5CB04BA25F,$BC07D6E9B3B40F1C,$3788E340E0A135D1,$D15411371C960DB7,$071E0033EC9932A6,$521A9AA09D72C7CC,$1943DBF0B9E0719B,$585C9510B52E7689,$0AB70F1A45E5512A
  Data.q $B7E2839DE0F747D7,$CC476B2E65808DCC,$AEA4AB3D10B4D3EA,$6CF936D299F06CDA,$87D1874AA0ADA804,$9999BCE0142C08C8,$14F3180F64EEF8C6,$77D9962CD1AE5E47,$A9A5366396A58E19
  Data.q $6320CB3E061C344A,$3653F7D1CAAE2B49,$EEC97D2F57920A36,$56D4A52EDCBB5B43,$DDAE85225BD6BAF7,$1697A58A69A11A20,$00880FA014170A9F,$B876E2C65AFA32E1,$A3B84B0E5BE94BAF
  Data.q $A9307727400BD36F,$EC625722F6F2B477,$B27170574DDBC52F,$0E1EBE92CBB7CD85,$C1D9774C9B7F5921,$33937A5571E766C9,$F538D987088E1A17,$8C9D1B8FED025493,$0E31A6BF16E7461E
  Data.q $00FFE3E931C1F8EF,$76E85E9AE2A67FAE,$D2B1762BDBC1BDC8,$6CD48D684BBDA5EC,$07E5345501E4C181,$F93737988F877D25,$9B15D318ED613C77,$3B6BDDAE6D622D69,$D083EE4ECA635EBE
  Data.q $57BF3AD1F0D2FA77,$EDC2695367B126ED,$3AB377A17F69F3BE,$0F70D9F70A81034A,$F16B8EF81C3EDDA3,$BD56D8942676624E,$306F2C097FC7957F,$A9B84FF7A76F0E76,$EDA67D6FD9FDBA5F
  Data.q $1A8B9FC61981AC6E,$7A1A75CA1DE71EE3,$AF4F1139B0900AB1,$8B79895EB289E198,$B10FD3B25A7A0FB8,$624AF31C901A3210,$E8613744EA03A3DF,$E8BF9A989B937CCD,$373F25D7FEB41323
  Data.q $21F7F49E7815CBAB,$C242C3407E60458A,$AB00FF77F98FDC97,$FD712E76F838E057,$FD3F18DDFB72AD43,$C500FFC7C5BEB845,$F7587FD087F9086F,$3F6600FF016953AF,$F07FB0BB4CEE4DFC
  Data.q $FC47FEC59BEA1FEC,$D400FFA57991D50E,$D1871C5913DC91FD,$69344319AF99A58B,$B6E3E3B08FA5CD03,$D7E5C23A1E8DC82E,$829E1B7427A6F8B8,$073C52E230651241,$1F73116EFE3465A2
  Data.q $69F4AAD77B829EE1,$00F86FA3F66BE3AD,$A8E9BA24D87D26F7,$6AF427B42154054D,$B58335238761F629,$C87E9ACBC769BE63,$56C92C5D8CA909EE,$B797105885C02A04,$DB69B0ED4CE3BD7A
  Data.q $D4A945DDF1C38E3D,$B60C4BC765A100FF,$B310B8C5559F6ED4,$E1F31A071280BAC0,$34ADC53597BBCB8A,$134BB06490EFF4A6,$34688DC6C5A59966,$496E544A4393B4D9,$A55EEF50CFB77E7F
  Data.q $F6330A3359A3DAD2,$F83AEE2DB675EB98,$B671595B94746642,$A571D472C5F4F4FD,$A3E6A57B27170D6A,$066F594E5BEA48AA,$266E64C38B2E205E,$1F063BA6E62EE695,$AE26EFDF762C182E
  Data.q $44C24FD173952AD0,$31AF2E63069DFA92,$224EF05B87E40929,$E486910AB8DAE740,$72E7409F6F419AC1,$13E23E304775D4B5,$AFBD736DBB17ED37,$FB5010E8DCB98DEA,$6D5C02CA7DAB1271
  Data.q $AEDB160A52E1B6A5,$AF7185204092423A,$E16306F7362C4E21,$723319678F85A0D6,$6E7423183600FFF6,$294EE124EB432B1B,$7183F6DCCD76EF75,$BA618F0B4B960535,$944601B9995E7ACD
  Data.q $360538122C2B8AD3,$FC15A5F3A198074D,$BE5A959E8DD8896F,$0375AC86BDB7BB93,$B363785AE2041DF1,$DAEDBA131A48B5A3,$6DFBBAD5EE3FFBDB,$E49159172124108F,$49615B2A3C69E33C
  Data.q $3C5FDA394EE9230B,$2D0D6AA380989737,$1C271F13DE4CE96E,$2DA1287B45A8F647,$D7EBF0427753D4C2,$650E096A5FDB85AB,$A590320D333FFD62,$4A1B522A6BFB961C,$27C9472DC52933C5
  Data.q $BCE36DF41B76DF1C,$62BE4FD716057AFA,$3706A3C14003CD0D,$74CBAE30C5AD8FD3,$BA8B2635A3C1C655,$B7DDD775AA2E7EE6,$94AC21AD7AA69D13,$26FC70AA6A3909E2,$54F8C5B1F2D9CADE
  Data.q $D47DD976E752EB2C,$D948AA1BDE3CB64C,$D979397BBB2D10D4,$C7EE28D7D2745FED,$49A9ABE96E21B9B4,$BC525A4A94C2B8E9,$8DBD5F78DE5E8E16,$97065B717AA43EF1,$0EA8630DB5BFB6BC
  Data.q $4EC5DDEA093F3C2D,$36FCECE786DE35FB,$90B456D598DB4F2C,$90237D46209757DC,$7D4A94BF42C1520B,$8082BD99679178BE,$4F173434A94D15F6,$389AA6FDA48E24F1,$AF6FCA42D4F3CEFE
  Data.q $9465627ABA995B79,$622A31D722FAAD5C,$E4C9BA71D1740B4C,$40A123F4745C690B,$9B53B952A5B870F1,$F4C0BD0A32BBE612,$9F2CEB74CB5E7A0F,$A8EFC8779A0B6BCB,$6A677F9CEEDCA87E
  Data.q $C7E75FA46FBF3614,$5A9F167A8B75C48E,$4FFBA4214E1528ED,$BC4F1C5FB1FA908F,$9BAEFDDD8D939B96,$F48903461C1C32B0,$B08AB7C3024EEADB,$36997EE49CAD9E6C,$61B992FDB4FBF2A7
  Data.q $16DC68A91521F2A2,$99ACE7DF0733A713,$CB687B49AACEA5E6,$B1EEF73475609B89,$5A61F66BE2807E02,$4BF8E9BB059CD5ED,$D355033FEC3CB772,$C5A0A09B98716F27,$0AAD8423B771D890
  Data.q $AF201F621E460D1C,$6F79BAF4C18CE505,$0A99B423EF1828DE,$CD450AFE76712391,$6CCA4481827157B0,$D04F8A1F0AF0297E,$E682AAB2CD5C7278,$6C6E4CAF7BF9B385,$A7FB78278011BB13
  Data.q $854A593B632577DC,$25D24C6F7C6A3A6D,$A44E4B02470EA985,$525391CC888AA690,$A0A585049B16960F,$DBC9666D36DF16E0,$A37D45859D439A3B,$9736B1CF23787A65,$71CE6EA3654FC9F1
  Data.q $6518E1072A633E48,$1A49CE43ACD0A0D3,$E3F3D43EC91B185F,$F8075BF157DAB01C,$5D524A0514161A06,$9CEEDB2675C0FCCF,$50E93C6A3AD1A99D,$4695848BD76ECA92,$5B424A4801C99561
  Data.q $9CC2955250085059,$1A1A3FDEDC51F8B8,$3C6C375D72D48201,$CADBE6708FCCF830,$0EEE4929D5B10107,$77D6A206EE577BBC,$E25A28E795F85AC7,$4BAA086853D15607,$FB2099E140E84288
  Data.q $C631682B1D2BBF30,$252CA80B0BB6D8B5,$553434906778902F,$774337A9C414B4DC,$8AFB8D6A5F5BBA25,$71A99513DAA4ABF5,$E7DB479E4F5471DF,$9084C5852E97568E,$E6D06450AB0B3E3B
  Data.q $F0A6EEB1B1E53651,$B9C3ECAF131CFBEA,$D0D5CE54E8F9CE5B,$39871C5228EAB659,$7148595B5C74150C,$2681434125A8E4AC,$93FBF2199EA7A286,$FCEA84F5A635412D,$B679796B8F259695
  Data.q $0EFBBE1347E887B7,$B1238BD17E90F153,$DD1B73ADC3D13025,$E565D7A5FBDB4494,$B0F60AF18AA88316,$795ACC4738FA2910,$915CB4A997F6291C,$F01EC283BABCF0F8,$502CBB792A603F98
  Data.q $5C527BA4820532EA,$10B91707C1FA4951,$5D23AD7995D51E22,$A7B7C91DE56D8A98,$B85F2C8B17A38FEE,$7B1242601502AB10,$12A6CD6F479FEDA0,$3DB5CCCAE594D0EF,$4229ADDBD4D29A6B
  Data.q $35A80014E649018A,$90D50562A0D28006,$9DA9435E5368109B,$0FADB53D30478E96,$A894C290EC1CB814,$6A4BC9A62591C2AD,$714AF7E195D6D571,$3F3EC5C549FB3456,$9DA28523D09AE9CD
  Data.q $333888EC9965E5BD,$D23F38EFE715511B,$F3112A7131E46FC7,$5350DFB600FFF86A,$4DEF6F33CBF6CBBE,$5389E3204C41B7CA,$8D32CBCBCB1C24EE,$2FD33E712A4DA549,$610D6A29B511DF8E
  Data.q $60C01B28590E9C77,$FAB9338DD8D1CD8B,$1B3E65E6B6AF5B68,$C70307E20A8853A0,$1CC539CEE6B6E3C8,$E64FE5DD519B0C14,$ECA3DE96DC70D885,$CB330253D774AB51,$575AEE3A64485488
  Data.q $D664FCB443C555F9,$F9D876BD799168A5,$0F7A6EA5D3276D4C,$11DB2D6DDDDB45B4,$3DE27DC2E2802419,$E55B27CEFA5135AA,$EB9CAB944A6BC250,$782B77216F31C7FC,$6C377BB6FD913B0C
  Data.q $81643D45E7B4ECD1,$17E7924401594C53,$AEB46293B7AA9D1A,$21B3B67685DED9E9,$C81157404B259AC2,$9CE36CAE11071EF1,$2AEF8EBAE45EC151,$4695E286C32E347F,$ECF29C68E15AECB8
  Data.q $0A99F4A8544C4ACF,$F6954AD4D923210E,$57CBA55F3F5D86E2,$912A1A0F3480F3B0,$EECFAEB668D5F4C3,$5FA35C169D2AB13E,$9F94A03F0851B579,$829DFA08C8621FB7,$2004531DDBE67FE1
  Data.q $DB3B7B1C813EEF38,$8E49A8E4885CC33F,$E7404A48C8C814C3,$06325A5B5F4C01C0,$CDBAA0D61965A1D1,$D5911B3D7127F1A5,$A59F8E86BB56D072,$75C75574963E659C,$76DC3E929214E634
  Data.q $95877AA78595104F,$4A6B37B3E1C6BADF,$A2F56D2F31F60E4D,$E4D12C5D65DCB75F,$126C155B375CDBA9,$061E94BF0FB88572,$9C43E91CCA6D1483,$B16248CC97520B70,$B213533887341074
  Data.q $2DF6036BD97213BC,$021B5228E8330E33,$C8A2A00018868787,$5C2DF58E8B7B7924,$A42D895D716ED16D,$082A545229C9D3BA,$8D1A96C7F8AA0838,$D59CFED8017767A9,$E7DB959125B56777
  Data.q $E4B18290E2FA6A3A,$14B7AF48FA4941A0,$D3A26935253339D7,$950C636CAE323F32,$BFED9ED54ED8F4BC,$AAF459C6FCED2562,$4D92A4AAD0E48865,$9D75E29A24F32449,$D4A4A612CA9B6D9B
  Data.q $70C061B2F8536773,$20CF86B204A4714C,$BBBA04834B4C1C9A,$56A366EE46C7EC9B,$346821F5B11B62BD,$5211B2BE29CEA8FC,$D2D0D494A478E280,$7896755331A515BE,$C9F5C842ABD2D0A4
  Data.q $0145CBC3487C6BB0,$CEB1ECC721C4BEC6,$996968C7B5559BA2,$430C281A974F386E,$9B37C714F7669F6E,$EBBDB2A389E827F7,$44AD0AA010C88E36,$32D8B1F5DF9D118F,$11DF6CDE0995B818
  Data.q $C9E6DB8F11D437F4,$853862476CED365C,$269ECA69C3BA9F09,$DAD6E2A4269987A7,$7BD639488D3690D5,$DAE0514CE24B9B71,$4AE2D004AF52DA68,$3D68A55D710741A5,$775B5965AB37BBD4
  Data.q $8D53A899366C4750,$496D59082A4948AD,$561C4755A04990CE,$A35CA7D498AC65DC,$4D033486D1655D5B,$B4D7D983CD59EE84,$5BA25A9601530819,$260600784A004542,$AC25762B6F620BC3
  Data.q $AB29CD98309732CF,$AA1DCB03A080318A,$815508AC42E07EBD,$5FA6D4539ECECD0B,$CE79E02BC342E01A,$0A812BADF17A8E6E,$D5A7D1BBA70A3FE9,$F4D55F43BFD90B81,$F614CE2B04A6ECAB
  Data.q $00FFEAF091B04260,$4C85C054F9AB74C4,$04A6CD2F1DF63B7C,$A7342A0486A7802C,$4311FED3B010581E,$1658084C9D5F7AEB,$3D43E79E3A7400FF,$64D113D51602277F,$85C0B40C5F26971E
  Data.q $F5EFFEB9570B817B,$2BADF05A7DCBEB93,$E953F4D207370B81,$57082C4FBBA7D229,$D4877C7AE4AD10B8,$5FA415029BE3C965,$2DC79BA7973E6686,$F4C85B21F0642130,$0436C797CBA84FF9
  Data.q $66E8DD9B057E522C,$87D3858F5D21B0FA,$2FBD962B04569F46,$089C2B046E7E72EC,$FCB4DCFAA9746E5E,$65D97F7A0D5F08AC,$02AB10F85E08DCFC
  Data.b $15,$60,$42,$FF,$D9
  titre_e:
EndDataSection

[Ar-S]

Merci c'est cool
J'ai encore pas mal de trucs à corriger ajouter mais ça le fait bien.

[Kwai chang caine]

Je testerais ton code dès que possible...

Excuse moi ZORRO, mais un truc de dingue en ce moment....
Pas moyen d'être devant un PC depuis tout ce temps, ou au pire 10 mn

Alors j'ai testé ton code, et comparé à PhotoFiltre, l'icone parait un peu plus terne

Pour cette BMP


Ta version

Version PhotoFiltre

Autrement ça a l'air pas mal non plus, comparativement

Mais comme tu le vois, on est loin de la qualité des icones pros, ou l'on voit tous les détails, enfin c'est ce qu'il me semble

[Kwai chang caine]

Je viens d'essayer ton "PIXELISATOR"....mais j'ai pas l'impression qu'il gere la transparence....si ??

[Ar-S]

Je trouve que la mienne est plus propre..

Plus foncée que celle de zorro mais plus net que la photofiltré...
Le secret pour les réductions de si petite taille, c'est de la convertir en 8bit voir même en 4bit. ça a l'avantage de virer l'effet baveux de la réduction.
Mon prog avance bien, me reste la phase gestion de la transparence lorsque l'utilisateur souhaite remplacer la transparence par une couleur de fond.. (la transparence tout court ça marche déjà)

La différence se voit en comparant 32bits et 8 bits :

[Kwai chang caine]

Moi je pensais betement, que plus on reduit les bits, plus la qualité est mauvaise

[Ar-S]

Dans certains cas peut être, mais pour des images si petites, l'important est d'accentuer les détails, ce que les algos font lorsque que le nombre de couleurs diminue. Le joli tube en dégradé de gris en 15478 nuances sera transformé en une tige en 16, 8, 4 couleurs qui sera plus visible qu'un amas de n pixels sur la petite image. Le plus judicieux est de toute façon de faire des tests avant de produire une version finale.
Dans le cas de ton VLAU, on pourrait aussi accentuer le contraste et baisser la luminosité, ce qui produirait une image encore plus net.
Je doute que les icones pros soient seulement de grandes images simplement réduites à l'arrache.

[Zorro]

Ta version


Version PhotoFiltre

Autrement ça a l'air pas mal non plus, comparativement

Mais comme tu le vois, on est loin de la qualité des icones pros, ou l'on voit tous les détails, enfin c'est ce qu'il me semble

je prefere quand meme la premiere icone
car du point de vue "anti aliasing" , le deuxiemme a des roues a points , pas tres rondes ...

comme l'a dit Ar-s , tout proviens de la preparation de ton image avant le traitement

si tu force les contraste, avant ou apres la reduction tu n'obtiendra plus les memes resultat
on peut aussi augmenter la force des couleurs, puisqu'en reduisant l'oeil perçoit moins les details
il faut donc compenser .
autre chose, on peut aussi convertir la photo en mode "Dessin" pour faire croire que c'est dessiné
a la main (Barbouille) , puis pixeliser, jouer sur les contraste, la couleur, et a la fin seulement convertir en icone

bref, en l'etat la procedure de reduction,convertion en icone, fonctionne plutot pas mal
a moindre frais je trouve le resultat plutot correcte

Ps: il me semble que le prg de Ar-s utilise "mon" code
mais il ajoute des traitements ... ce qui améliore forcement