Data Image Creator D.I.C

' Créateur de fichier *.bas incorporables par un un include dans un source
' contenant une image sous forme de data
' ------------------------------------------------------------------------------
dim D$,file$,H%,L%,R%,G%,B%,Point$,res%,nom$
dim x%,y%
D$=dir_current$
' ------------------------------------------------------------------------------
label Load_image,Save,Quitter
' ------------------------------------------------------------------------------
height 0,64:width 0,211:left 0,(screen_x-211)/2
caption 0,"D.I.C"

button 1:width 1,120:cursor_point 1
caption 1,"Charger une image":on_click 1,Load_image
button 5:left 5,120:caption 5,"Quitter":on_click 5,Quitter
cursor_point 5
Image 2

dlist 10
end
' ------------------------------------------------------------------------------
Load_image:
inactive 1

' chargement d'une image
open_dialog 3
file$=file_name$(3)
delete 3

if file$<>"_"
  file_load 2,file$
  ' récupération de la hauteur et de la largeur de l'image chargé
  clipboard_copy 2
  dll_on D$+"\KGF.dll"
  res% = dll_call0("GetClipboardPictureHeight")
  H%=res%
  res% = dll_call0("GetClipboardPictureWidth")
  L%=res%
  dll_off

  ' création du form invible de travail
  if object_exists(100)=0
  form 100:hide 100:command_target_is 100
  picture 101:width 101,L% :height 101,H%

  ' placement de l'image chargé dans le picture 3
  file_load 101,file$

  ' Ecriture des données dans le dlist
  nom$=file_extract_name$(file$)
  item_add 10,"Data"+chr$(32)+left$(nom$,len(nom$)-4)
  item_add 10,"Data"+chr$(32)+str$(H%)
  item_add 10,"Data"+chr$(32)+str$(L%)
  for x%=0 to L% -1
      for y%= 0 to H% -1
        R% =color_pixel_red(101,x%,y%)
        G% =color_pixel_green(101,x%,y%)
        B% =color_pixel_blue(101,x%,y%)
        point$="data"+chr$(32)+str$(x%)+","+str$(y%)+","+str$(R%)+","+str$(G%)+","+str$(B%)
        item_add 10,point$
      next y%
  next x%
  ' Enregistrement du fichier
  gosub Save
  end_if
end_if
command_target_is 0
if object_exists(100)=1 then delete 100
active 1
return
' ------------------------------------------------------------------------------
Save:
if message_input("Nom du fichier","Nom du fichier sans extension",left$(Nom$,len(nom$)-4))=1
  file_save 10,D$+"\"+message_text$+".bas"
  clear 10
  file$="":H%=0:L%=0:R%=0:G%=0:B%=0:point$="":x%=0:y%=0
else
  if message_warning_yes_no("Etes vous sûr de vouloir annuler ?"+chr$(13)+"(Toutes les données seront effacées)")=1
      clear 10
      file$="":H%=0:L%=0:R%=0:G%=0:B%=0:point$="":x%=0:y%=0
  else
      goto Save
  end_if
end_if
return
' ------------------------------------------------------------------------------
Quitter:
terminate

' Créateur de fichier *.bas incorporables par un un include dans un source
' contenant une image sous forme de data
' ------------------------------------------------------------------------------
dim D$,file$,H%,L%,R%,G%,B%,Point$,res%,nom$,t%
dim x%,y%,Nb_H%
D$=dir_current$
DO$=D$+"\ DIC_Output"
if dir_exists(DO$)=0 then dir_make DO$
' ------------------------------------------------------------------------------
label Load_image,Save,Quitter
' ------------------------------------------------------------------------------
height 0,64:width 0,211:left 0,(screen_x-211)/2
caption 0,"D.I.C"

button 1:width 1,120:cursor_point 1
caption 1,"Charger une image":on_click 1,Load_image
button 5:left 5,120:caption 5,"Quitter":on_click 5,Quitter
cursor_point 5
Image 2

dlist 10

end
' ------------------------------------------------------------------------------
Load_image:
inactive 1

' chargement d'une image
open_dialog 3
file$=file_name$(3)
delete 3

if file$<>"_"
  file_load 2,file$
  ' récupération de la hauteur et de la largeur de l'image chargé
  clipboard_copy 2
  dll_on D$+"\KGF.dll"
  res% = dll_call0("GetClipboardPictureHeight")
  H%=res%
  res% = dll_call0("GetClipboardPictureWidth")
  L%=res%
  dll_off

  ' création du form invible de travail
  if object_exists(100)=0
  form 100:hide 100:command_target_is 100
  picture 101:width 101,L% :height 101,H%

  ' placement de l'image chargé dans le picture 3
  file_load 101,file$

  ' Ecriture des données dans le dlist
  nom$=file_extract_name$(file$)
  Nb_H%=0
  for x%=0 to L% -1
      for y%= 0 to H% -1
        R% =color_pixel_red(101,x%,y%)
        G% =color_pixel_green(101,x%,y%)
        B% =color_pixel_blue(101,x%,y%)
        point$="data"+chr$(32)+str$(x%)+","+str$(y%)+","+str$(R%)+","+str$(G%)+","+str$(B%)
        Nb_H%=Nb_H%+1
        item_add 10,point$
      next y%
  next x%
  item_insert 10,1,"Data"+chr$(32)+left$(nom$,len(nom$)-4)+","+str$(H%)+","+str$(L%)+","+str$(Nb_H%)
  ' Enregistrement du fichier
  gosub Save
  end_if
end_if
command_target_is 0
if object_exists(100)=1 then delete 100
active 1
return
' ------------------------------------------------------------------------------
Save:
if message_input("Nom du fichier","Nom du fichier sans extension",left$(Nom$,len(nom$)-4))=1
  file_save 10,DO$+"\"+message_text$+".bas"
  clear 10
  cls
  file$="":H%=0:L%=0:R%=0:G%=0:B%=0:point$="":x%=0:y%=0
else
  if message_warning_yes_no("Etes vous sûr de vouloir annuler ?"+chr$(13)+"(Toutes les données seront effacées)")=1
      clear 10
      file$="":H%=0:L%=0:R%=0:G%=0:B%=0:point$="":x%=0:y%=0
  else
      goto Save
  end_if
end_if
return
' ------------------------------------------------------------------------------
Quitter:
terminate

' Data Image Creator V2 (Version tout panoramic )
' génère un fichier "Include_Image.bas" contenant les images sélectionnés
' sous forme de data et la fonction de recréation de ces images.
' La fonction déclare et libère la plupart de ses propres variables,
' seules les variables x% et y% sont à déclarer dans le source principale et seul la variable
' DI$ (adresse du dossier "auto-créé" où sont recréées les images ) est conservé.
' La fonction à appeler, et à déclarer dans les label,dans l'Init du source pour
' re-créer les images est:Create_File_Image

dim x%,list%,Menu%
dim er$,a$,f$,i%,wi%,hi%
dim v%(20), ii%, offs%, posit%, ad, sz
dim D$,file$,H%,L%,R%,G%,B%,res%,nom$,t%,DO$,y%
' ------------------------------------------------------------------------------
label Init
label Menu,Ajouter,Coder,Get_Size,Quitter
label Effacer
' ------------------------------------------------------------------------------
width 0,320:height 0,250
caption 0,"Data Image Créator Vs0.2":font_name 0,"arial"

main_menu 1
for x%=2 to 4 :sub_menu x% :parent x%,1:on_click x%,Menu:next x%
caption 2,"Ajouter":caption 3,"Coder":caption 4,"Quitter"

list 5:width 5,304:height 5,170:on_double_click 5,Effacer

alpha 6:top 6,172:left 6,20:caption 6,"Double cliquer sur un item pour l'effacer"
font_color 6,140,30,40

gosub Init
end
' ------------------------------------------------------------------------------
Init:
  D$=Dir_current$
  if dir_exists(D$+"\Output")=0 then dir_make D$+"\Output"
  DO$=D$+"\Output"
return
' ------------------------------------------------------------------------------
Menu:
  for x%=2 to 4
      if clicked(x%)=1 then Menu%=x%
  next x%
  select Menu%
  case 2
      gosub Ajouter
  case 3
      gosub Coder
      inactive 2:inactive 4
  case 4
      gosub Quitter
  end_select
return
' ------------------------------------------------------------------------------
Ajouter:
  open_dialog 7
  filter 7,"*.jpg;*.bmp|*.jpg;*.bmp"
  file$=file_name$(7)
  item_add 5,file$
  delete 7
return
' ------------------------------------------------------------------------------
Effacer:
  if count(5)>0 then item_delete 5,item_index(5)
return
' ------------------------------------------------------------------------------
Coder:
  ' ouverture du fichier en création
  file_open_write 8,DO$+"\include_image.bas"
      ' ecriture de la fonction de re-création des fichiers *.bmp
      file_writeln 8,"Create_File_Image:"
      file_writeln 8,"dim DI$,Titre$,haut%,large%,Nbre_lign%,R%,G%,B%,col%,lign%,db%"
      file_writeln 8,"if dir_exists(Dir_current$+"+chr$(34)+"\Picture"+chr$(34)+")=0 then dir_make dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"DI$=Dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"for db%=1 to "+str$(count(5))
      file_writeln 8,"  read Titre$ : read haut% : read large% :read Nbre_lign%"
      file_writeln 8,"  if object_exists(800)=0"
      file_writeln 8,"      form 800:hide 800"
      file_writeln 8,"      command_target_is 800"
      file_writeln 8,"      picture 801"
      file_writeln 8,"  end_if"
      file_writeln 8,"  width 801,large% :height 801,haut% :2d_target_is 801"
      file_writeln 8,"  for x%=1 to Nbre_Lign%"
      file_writeln 8,"      read col% :read lign% :read R% :read G% :read B%"
      file_writeln 8,"      2d_pen_color R%,G%,B%"
      file_writeln 8,"      2d_point col%,lign%"
      file_writeln 8,"  next x%"
      file_writeln 8,"file_save 801,DI$+"+chr$(34)+"\"+chr$(34)+"+titre$"
      file_writeln 8,"cls"
      file_writeln 8,"next db%"
      file_writeln 8,"command_target_is 0"
      file_writeln 8,"Delete 800"
      file_writeln 8,"free Titre$ :free haut% :free large% :free Nbre_lign% "
      file_writeln 8,"free R% :free G% :free B% :free col% :free lign% : free db%"
      file_writeln 8,"return"
      ' ajout des fichiers data à assembler
      for list%=1 to count(5)
        ' création du form invible de travail
        if object_exists(100)=0
            form 100:hide 100:command_target_is 100
            picture 101:width 101,L% :height 101,H%
        end_if
        ' placement de l'image chargé dans le picture 101
        file_load 101,item_read$(5,list%)
        gosub Get_Size
        ' Ecriture des données
        nom$=file_extract_name$(item_read$(5,list%))
        file_writeln 8,"Data"+chr$(32)+nom$+","+str$(H%)+","+str$(L%)+","+str$(L%*H%)
        for x%=0 to L% -1
            for y%= 0 to H% -1
              R% =color_pixel_red(101,x%,y%)
              G% =color_pixel_green(101,x%,y%)
              B% =color_pixel_blue(101,x%,y%)
              file_writeln 8,"data"+chr$(32)+str$(x%)+","+str$(y%)+","+str$(R%)+","+str$(G%)+","+str$(B%)
            next y%
        next x%
      next list%
  file_close 8
  clear 5
  command_target_is 0
  active 2:active 4
  if object_exists(100)=1 then delete 100
return
' ------------------------------------------------------------------------------
Get_Size:
  f$=item_read$(5,list%)
  er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
  IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN

  FILEBIN_OPEN_READ 1, f$: sz = FILEBIN_SIZE(1)
  IF a$ = ".JPG"
      FOR ii% = 1 TO 2: FILEBIN_READ 1, v%(ii%): NEXT ii%
      IF v%(1) <> 255 OR v%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
      ad = 0: offs% = 0
      REPEAT
        REPEAT
            posit% = ad + 2 + offs%
            IF posit% >= sz THEN er$ = "FFCx non trouvé.": GOTO reter
            FILEBIN_POSITION 1, posit%
            FOR i% = 1 TO 4: FILEBIN_READ 1, v%(i%): NEXT i%
            IF v%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
            offs% = 256*v%(3) + v%(4)
            ad = FILEBIN_POS(1) - 4
        UNTIL (v%(2) >= 192 AND v%(2) <= 195): ' # FFC0 à FFC3
        FOR ii% = 1 TO 5: FILEBIN_READ 1, v%(ii%): NEXT ii%
      UNTIL v%(1) = 8
      hi% = 256*v%(2) + v%(3): wi% = 256*v%(4) + v%(5)
  ELSE
      FILEBIN_POSITION 1, 18
      FOR ii% = 1 TO 8: FILEBIN_READ 1, v%(ii%): NEXT ii%
      wi% = v%(1) + 256*v%(2) + 256*256*v%(3) + 256*256*256*v%(4)
      hi% = v%(5) + 256*v%(6) + 256*256*v%(7) + 256*256*256*v%(8)
      L%=wi%
      H%=hi%
  END_IF
  FILEBIN_CLOSE 1
return

Quitter:
terminate

' Data Image Creator V2 (Version tout panoramic )
' génère un fichier "Include_Image.bas" contenant les images sélectionnés
' sous forme de data et la fonction de recréation de ces images.
' La fonction déclare et libère la plupart de ses propres variables,
' seul la variable x% est à déclaré dans le source principale et seul la variable
' DI$ (adresse du dossier "auto-créé" où sont recréées les images ) est conservé.
' La fonction à appeler, et à déclarer dans les label,dans l'Init du source pour
' re-créer les images est:Create_File_Image

dim x%,list%,Menu%
dim er$,a$,f$,i%,wi%,hi%
dim v%(20), ii%, offs%, posit%, ad, sz
dim D$,file$,H%,L%,R%,G%,B%,res%,nom$,t%,DO$,y%
' ------------------------------------------------------------------------------
label Init
label Menu,Ajouter,Coder,Get_Size,Quitter
label Effacer
' ------------------------------------------------------------------------------
width 0,320:height 0,250
caption 0,"Data Image Créator Vs0.2":font_name 0,"arial"

main_menu 1
for x%=2 to 4 :sub_menu x% :parent x%,1:on_click x%,Menu:next x%
caption 2,"Ajouter":caption 3,"Coder":caption 4,"Quitter"

list 5:width 5,304:height 5,170:on_double_click 5,Effacer

alpha 6:top 6,172:left 6,20:caption 6,"Double cliquer sur un item pour l'effacer"
font_color 6,140,30,40

gosub Init
end
' ------------------------------------------------------------------------------
Init:
  D$=Dir_current$
  if dir_exists(D$+"\Output")=0 then dir_make D$+"\Output"
  DO$=D$+"\Output"
return
' ------------------------------------------------------------------------------
Menu:
  for x%=2 to 4
      if clicked(x%)=1 then Menu%=x%
  next x%
  select Menu%
  case 2
      gosub Ajouter
  case 3
      gosub Coder
      inactive 2:inactive 4
  case 4
      gosub Quitter
  end_select
return
' ------------------------------------------------------------------------------
Ajouter:
  open_dialog 7
  filter 7,"*.jpg;*.bmp|*.jpg;*.bmp"
  file$=file_name$(7)
  item_add 5,file$
  delete 7
return
' ------------------------------------------------------------------------------
Effacer:
  if count(5)>0 then item_delete 5,item_index(5)
return
' ------------------------------------------------------------------------------
Coder:
  ' ouverture du fichier en création
  file_open_write 8,DO$+"\include_image.bas"
      ' ecriture de la fonction de re-création des fichiers *.bmp
      file_writeln 8,"Create_File_Image:"
      file_writeln 8,"dim DI$,Titre$,haut%,large%,Nbre_lign%,R%,G%,B%,col%,lign%,db%"
      ' ------------------------------------------------------------------------
      ' Debug NARDO : faut pas oublier x%... ;)
      ' ------------------------------------------------------------------------
      file_writeln 8,"dim x%,y%"

      file_writeln 8,"if dir_exists(Dir_current$+"+chr$(34)+"\Picture"+chr$(34)+")=0 then dir_make dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"DI$=Dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"for db%=1 to "+str$(count(5))
      file_writeln 8,"  read Titre$ : read large% : read haut%"
      file_writeln 8,"  if object_exists(800)=0"
      file_writeln 8,"      form 800:hide 800"
      file_writeln 8,"      command_target_is 800"
      file_writeln 8,"      picture 801"
      file_writeln 8,"  end_if"
      file_writeln 8,"  width 801,large% :height 801,haut% :2d_target_is 801"
      file_writeln 8,"  for y%=0 to haut%-1"
      file_writeln 8,"    for x%=0 to large%-1"
      file_writeln 8,"      read R% :read G% :read B%"
      file_writeln 8,"      2d_pen_color R%,G%,B%"
      file_writeln 8,"      2d_point x%,y%"
      file_writeln 8,"    next x%"
      file_writeln 8,"  next y%"
      file_writeln 8,"  file_save 801,DI$+"+chr$(34)+"\"+chr$(34)+"+titre$"
      file_writeln 8,"  cls"
      file_writeln 8,"next db%"
      file_writeln 8,"command_target_is 0"
      file_writeln 8,"Delete 800"
      file_writeln 8,"free x% :free y%"
      file_writeln 8,"free Titre$ :free haut% :free large% :free Nbre_lign% "
      file_writeln 8,"free R% :free G% :free B% :free col% :free lign% : free db%"
      file_writeln 8,"return"
      ' ajout des fichiers data à assembler
      for list%=1 to count(5)
        ' création du form invible de travail
        if object_exists(100)=0
            form 100:hide 100:command_target_is 100
            picture 101:width 101,L% :height 101,H%
        end_if
        ' placement de l'image chargé dans le picture 101
        file_load 101,item_read$(5,list%)
        gosub Get_Size
        ' Ecriture des données
        nom$=file_extract_name$(item_read$(5,list%))
       
        ' ----------------------------------------------------------------------
        ' DEBUG Nardo :
        ' un chr$(34) pour ne pas avoir des mauvaises surprises sur le nom
        ' Par convention on donne toujours la largeur suivi de la hauteur
        ' le dernier data ne sert à rien puisqu'il peut être calculé avec L% et H%
        ' ----------------------------------------------------------------------
        ' l'image sera au final sauvegardée en bmp donc il faut penser à changer
        ' son extension. Si on laisse jpg on va se retrouver au final avec un bmp
        ' qui portera le nom "output\picture\image.jpg"
        nom$=LEFT$(nom$,len(nom$)-3)+"bmp"
        ' les valeurs L% et H% serviront pour le décodage (voir boucles imbriquées)
        file_writeln 8,"Data "+chr$(34)+nom$+chr$(34)+","+str$(L%)+","+str$(H%)

        ' ----------------------------------------------------------------------
        ' DEBUG Nardo :
        ' pas besoin de sauvegarder x et y: il suffira lors du décodage d'appliquer
        ' les même boucles imbriquées dans le même ordre...
        ' (voir le code généré dans les writeln au dessus)
        ' ----------------------------------------------------------------------
        ' Donc on commence par faire la 1ere ligne puis les suivantes :
        DIM Ligne$
        for y%=0 to H%-1
          ' puis on s'occupe de chaque pixel de la ligne en cours
          ' pas besoin de faire une ligne de DATA par pixels :
          ' cela risque de faire au final un gros fichier (un CRLF/Pixel) illisible
          Ligne$="DATA "
          for x%=0 to L%-1
              R% =color_pixel_red(101,x%,y%)
              G% =color_pixel_green(101,x%,y%)
              B% =color_pixel_blue(101,x%,y%)
              Ligne$=Ligne$+str$(R%)+","+str$(G%)+","+str$(B%)+","
              ' si notre ligne fait 64 caractères, on l'écrit puis on recommence
              ' une nouvelle ligne de data...
              If len(ligne$)>64
                ' le left$ est necessaire pour ne pas sauvegarder la dernière virgule
                file_writeln 8,LEFT$(Ligne$,LEN(Ligne$)-1)
                Ligne$="DATA "
              End_if
          next x%
          ' la derniere ligne de data ne fait pas forcement 64 caractères, il ne faut
          ' pas l'oublier... ;)
          if len(ligne$)>5 THEN file_writeln 8,LEFT$(Ligne$,LEN(Ligne$)-1)
        next y%
       
      next list%
  file_close 8
  clear 5
  command_target_is 0
  active 2:active 4
  if object_exists(100)=1 then delete 100
return
' ------------------------------------------------------------------------------
Get_Size:
  f$=item_read$(5,list%)
  er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
  IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN

  FILEBIN_OPEN_READ 1, f$: sz = FILEBIN_SIZE(1)
  IF a$ = ".JPG"
      FOR ii% = 1 TO 2: FILEBIN_READ 1, v%(ii%): NEXT ii%
      IF v%(1) <> 255 OR v%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
      ad = 0: offs% = 0
      REPEAT
        REPEAT
            posit% = ad + 2 + offs%
            IF posit% >= sz THEN er$ = "FFCx non trouvé.": GOTO reter
            FILEBIN_POSITION 1, posit%
            FOR i% = 1 TO 4: FILEBIN_READ 1, v%(i%): NEXT i%
            IF v%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
            offs% = 256*v%(3) + v%(4)
            ad = FILEBIN_POS(1) - 4
        UNTIL (v%(2) >= 192 AND v%(2) <= 195): ' # FFC0 à FFC3
        FOR ii% = 1 TO 5: FILEBIN_READ 1, v%(ii%): NEXT ii%
      UNTIL v%(1) = 8
      hi% = 256*v%(2) + v%(3): wi% = 256*v%(4) + v%(5)

      ' ----------------------------------------------------------------------
      ' DEBUG Nardo : il manquait l'init de L% et H%
      ' ----------------------------------------------------------------------
      L%=wi%:H%=hi%
  ELSE
      FILEBIN_POSITION 1, 18
      FOR ii% = 1 TO 8: FILEBIN_READ 1, v%(ii%): NEXT ii%
      wi% = v%(1) + 256*v%(2) + 256*256*v%(3) + 256*256*256*v%(4)
      hi% = v%(5) + 256*v%(6) + 256*256*v%(7) + 256*256*256*v%(8)
      L%=wi%
      H%=hi%
  END_IF
  FILEBIN_CLOSE 1
return

Quitter:
terminate

DATA R1,V1,B1 , ..... , Rn,Vn,Bn,

' Data Image Creator V2 (Version tout panoramic )
' génère un fichier "Include_Image.bas" contenant les images sélectionnés
' sous forme de data et la fonction de recréation de ces images.
' La fonction déclare et libère la plupart de ses propres variables,
' seules les variable x% et y% sont à déclarer dans le source principale et seul la variable
' DI$ (adresse du dossier "auto-créé" où sont recréées les images ) est conservé.
' La fonction à appeler, et à déclarer dans les label,dans l'Init du source pour
' re-créer les images est:Create_File_Image

dim x%,list%,Menu%
dim er$,a$,f$,i%,wi%,hi%
dim v%(20), ii%, offs%, posit%, ad, sz
dim D$,file$,H%,L%,R%,G%,B%,res%,nom$,t%,DO$,y%
' ------------------------------------------------------------------------------
label Init
label Menu,Ajouter,Coder,Get_Size,Quitter
label Effacer
' ------------------------------------------------------------------------------
width 0,320:height 0,250
caption 0,"Data Image Créator Vs0.2":font_name 0,"arial"

main_menu 1
for x%=2 to 4 :sub_menu x% :parent x%,1:on_click x%,Menu:next x%
caption 2,"Ajouter":caption 3,"Coder":caption 4,"Quitter"

list 5:width 5,304:height 5,170:on_double_click 5,Effacer

alpha 6:top 6,172:left 6,20:caption 6,"Double cliquer sur un item pour l'effacer"
font_color 6,140,30,40

gosub Init
end
' ------------------------------------------------------------------------------
Init:
  D$=Dir_current$
  if dir_exists(D$+"\Output")=0 then dir_make D$+"\Output"
  DO$=D$+"\Output"
return
' ------------------------------------------------------------------------------
Menu:
  for x%=2 to 4
      if clicked(x%)=1 then Menu%=x%
  next x%
  select Menu%
  case 2
      gosub Ajouter
  case 3
      inactive 2:inactive 4
      gosub Coder
  case 4
      gosub Quitter
  end_select
return
' ------------------------------------------------------------------------------
Ajouter:
  open_dialog 7
  filter 7,"*.jpg;*.bmp|*.jpg;*.bmp"
  file$=file_name$(7)
  item_add 5,file$
  delete 7
return
' ------------------------------------------------------------------------------
Effacer:
  if count(5)>0 then item_delete 5,item_index(5)
return
' ------------------------------------------------------------------------------
Coder:
  ' ouverture du fichier en création
  file_open_write 8,DO$+"\include_image.bas"
      ' ecriture de la fonction de re-création des fichiers *.bmp
      file_writeln 8,"Create_File_Image:"
      file_writeln 8,"dim DI$,Titre$,haut%,large%,Nbre_lign%,R%,G%,B%,col%,lign%,db%"
      file_writeln 8,"if dir_exists(Dir_current$+"+chr$(34)+"\Picture"+chr$(34)+")=0 then dir_make dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"DI$=Dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"for db%=1 to "+str$(count(5))
      file_writeln 8,"  read Titre$ : read haut% : read large% :read Nbre_lign%"
      file_writeln 8,"  if object_exists(800)=0"
      file_writeln 8,"      form 800:hide 800"
      file_writeln 8,"      command_target_is 800"
      file_writeln 8,"      picture 801"
      file_writeln 8,"  end_if"
      file_writeln 8,"  width 801,large% :height 801,haut% :2d_target_is 801"
      file_writeln 8,"  for x%=1 to Nbre_Lign%"
      file_writeln 8,"      read col% :read lign% :read R% :read G% :read B%"
      file_writeln 8,"      2d_pen_color R%,G%,B%"
      file_writeln 8,"      2d_point col%,lign%"
      file_writeln 8,"  next x%"
      file_writeln 8,"file_save 801,DI$+"+chr$(34)+"\"+chr$(34)+"+titre$"
      file_writeln 8,"cls"
      file_writeln 8,"next db%"
      file_writeln 8,"command_target_is 0"
      file_writeln 8,"Delete 800"
      file_writeln 8,"free Titre$ :free haut% :free large% :free Nbre_lign% "
      file_writeln 8,"free R% :free G% :free B% :free col% :free lign% : free db%"
      file_writeln 8,"return"
      ' ajout des fichiers data à assembler
      while count(5)>0
        ' création du form invible de travail
        if object_exists(100)=0
            form 100:hide 100:command_target_is 100
            picture 101:width 101,L% :height 101,H%
        end_if
        ' placement de l'image chargé dans le picture 101
        file_load 101,item_read$(5,1)
        gosub Get_Size
        ' Ecriture des données
        nom$=file_extract_name$(item_read$(5,1))
        nom$=LEFT$(nom$,len(nom$)-3)+"bmp"
        file_writeln 8,"Data "+chr$(34)+nom$+chr$(34)+","+str$(H%)+","+str$(L%)+","+str$(L%*H%)
        for x%=0 to L% -1
            for y%= 0 to H% -1
              R% =color_pixel_red(101,x%,y%)
              G% =color_pixel_green(101,x%,y%)
              B% =color_pixel_blue(101,x%,y%)
              file_writeln 8,"data "+str$(x%)+","+str$(y%)+","+str$(R%)+","+str$(G%)+","+str$(B%)
            next y%
        next x%
      item_delete 5,1
      end_while
  file_close 8
  clear 5
  active 2:active 4
  command_target_is 0
  if object_exists(100)=1 then delete 100
return
' ------------------------------------------------------------------------------
Get_Size:
  f$=item_read$(5,1)
  er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
  IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN

  FILEBIN_OPEN_READ 1, f$: sz = FILEBIN_SIZE(1)
  IF a$ = ".JPG"
      FOR ii% = 1 TO 2: FILEBIN_READ 1, v%(ii%): NEXT ii%
      IF v%(1) <> 255 OR v%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
      ad = 0: offs% = 0
      REPEAT
        REPEAT
            posit% = ad + 2 + offs%
            IF posit% >= sz THEN er$ = "FFCx non trouvé.": GOTO reter
            FILEBIN_POSITION 1, posit%
            FOR i% = 1 TO 4: FILEBIN_READ 1, v%(i%): NEXT i%
            IF v%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
            offs% = 256*v%(3) + v%(4)
            ad = FILEBIN_POS(1) - 4
        UNTIL (v%(2) >= 192 AND v%(2) <= 195): ' # FFC0 à FFC3
        FOR ii% = 1 TO 5: FILEBIN_READ 1, v%(ii%): NEXT ii%
      UNTIL v%(1) = 8
      hi% = 256*v%(2) + v%(3): wi% = 256*v%(4) + v%(5)
      L%=wi%:H%=hi%
  ELSE
      FILEBIN_POSITION 1, 18
      FOR ii% = 1 TO 8: FILEBIN_READ 1, v%(ii%): NEXT ii%
      wi% = v%(1) + 256*v%(2) + 256*256*v%(3) + 256*256*256*v%(4)
      hi% = v%(5) + 256*v%(6) + 256*256*v%(7) + 256*256*256*v%(8)
      L%=wi%
      H%=hi%
  END_IF
  FILEBIN_CLOSE 1
return

Quitter:
terminate

 file_writeln 8,"Data"+chr$(32)+nom$+","+str$(H%)+","+str$(L%)+","+str$(L%*H%)

 file_writeln 8,"Data "+nom$+","+str$(H%)+","+str$(L%)+","+str$(L%*H%)

DATA Mon image.jpg,640,400,256000

 file_writeln 8,"Data "+chr$(34)+nom$+chr$(34)+","+str$(H%)+","+str$(L%)+","+str$(L%*H%)

DATA "Mon image.jpg",640,400,256000

DIM Largeur,Hauteur,R%,G%,B%,Nom$
DIM col%,lign% : ' je reprend les même nom de variable pour que tu comprennes
READ Nom$
READ Largeur: READ Hauteur
FOR lign%=0 TO Hauteur
  FOR col%=0 TO Largeur
    READ R%:READ G%:READ B%
    2D_PEN_COLOR R%,G%;B%
    2D_POINT col%,lign%
  NEXT col%
NEXT lign%

DATA "MonImage.bmp",640,400
DATA 255,255,255,145,154,251,...
...

' Data Image Creator V2 (Version tout panoramic )
' génère un fichier "Include_Image.bas" contenant les images sélectionnés
' sous forme de data et la fonction de recréation de ces images.
' La fonction déclare et libère la plupart de ses propres variables,
' seules les variable x% et y% sont à déclarer dans le source principale et seul la variable
' DI$ (adresse du dossier "auto-créé" où sont recréées les images ) est conservé.
' La fonction à appeler, et à déclarer dans les label,dans l'Init du source pour
' re-créer les images est:Create_File_Image

dim x%,list%,Menu%
dim er$,a$,f$,i%,wi%,hi%
dim v%(20), ii%, offs%, posit%, ad, sz
dim D$,file$,H%,L%,R%,G%,B%,res%,nom$,t%,DO$,y%
' ------------------------------------------------------------------------------
label Init
label Menu,Ajouter,Coder,Get_Size,Quitter
label Effacer
' ------------------------------------------------------------------------------
width 0,320:height 0,250
caption 0,"Data Image Créator Vs0.2":font_name 0,"arial"

main_menu 1
for x%=2 to 4 :sub_menu x% :parent x%,1:on_click x%,Menu:next x%
caption 2,"Ajouter":caption 3,"Coder":caption 4,"Quitter"

list 5:width 5,304:height 5,170:on_double_click 5,Effacer

alpha 6:top 6,172:left 6,20:caption 6,"Double cliquer sur un item pour l'effacer"
font_color 6,140,30,40

gosub Init
end
' ------------------------------------------------------------------------------
Init:
  D$=Dir_current$
  if dir_exists(D$+"\Output")=0 then dir_make D$+"\Output"
  DO$=D$+"\Output"
return
' ------------------------------------------------------------------------------
Menu:
  for x%=2 to 4
      if clicked(x%)=1 then Menu%=x%
  next x%
  select Menu%
  case 2
      gosub Ajouter
  case 3
      inactive 2:inactive 4
      gosub Coder
  case 4
      gosub Quitter
  end_select
return
' ------------------------------------------------------------------------------
Ajouter:
  open_dialog 7
  filter 7,"*.jpg;*.bmp|*.jpg;*.bmp"
  file$=file_name$(7)
  item_add 5,file$
  delete 7
return
' ------------------------------------------------------------------------------
Effacer:
  if count(5)>0 then item_delete 5,item_index(5)
return
' ------------------------------------------------------------------------------
Coder:
  ' ouverture du fichier en création
  file_open_write 8,DO$+"\include_image.bas"
      ' ecriture de la fonction de re-création des fichiers *.bmp
      file_writeln 8,"Create_File_Image:"
      file_writeln 8,"dim DI$,Titre$,haut%,large%,R%,G%,B%,col%,lign%,db%"
      file_writeln 8,"if dir_exists(Dir_current$+"+chr$(34)+"\Picture"+chr$(34)+")=0 then dir_make dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"DI$=Dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"for db%=1 to "+str$(count(5))
      file_writeln 8,"  read Titre$ : read haut% : read large% "
      file_writeln 8,"  if object_exists(800)=0"
      file_writeln 8,"      form 800:hide 800"
      file_writeln 8,"      command_target_is 800"
      file_writeln 8,"      picture 801"
      file_writeln 8,"  end_if"
      file_writeln 8,"  width 801,large% :height 801,haut% :2d_target_is 801"
      file_writeln 8,"  for x%=0 to large%-1"
      file_writeln 8,"      for y%=0 to haut%-1"
      file_writeln 8,"        read R% :read G% :read B%"
      file_writeln 8,"        2d_pen_color R%,G%,B%"
      file_writeln 8,"        2d_point x%,y%"
      file_writeln 8,"      next y%"
      file_writeln 8,"  next x%"
      file_writeln 8,"file_save 801,DI$+"+chr$(34)+"\"+chr$(34)+"+titre$"
      file_writeln 8,"cls"
      file_writeln 8,"next db%"
      file_writeln 8,"command_target_is 0"
      file_writeln 8,"Delete 800"
      file_writeln 8,"free Titre$ :free haut% :free large% "
      file_writeln 8,"free R% :free G% :free B% :free col% :free lign% : free db%"
      file_writeln 8,"return"
      ' ajout des fichiers data à assembler
      while count(5)>0
        ' création du form invible de travail
        if object_exists(100)=0
            form 100:hide 100:command_target_is 100
            picture 101:width 101,L% :height 101,H%
        end_if
        ' placement de l'image chargé dans le picture 101
        file_load 101,item_read$(5,1)
        gosub Get_Size
        ' Ecriture des données
        nom$=file_extract_name$(item_read$(5,1))
        nom$=LEFT$(nom$,len(nom$)-3)+"bmp"
        file_writeln 8,"Data "+chr$(34)+nom$+chr$(34)+","+str$(H%)+","+str$(L%)
        for x%=0 to L% -1
            for y%= 0 to H% -1
              R% =color_pixel_red(101,x%,y%)
              G% =color_pixel_green(101,x%,y%)
              B% =color_pixel_blue(101,x%,y%)
              file_writeln 8,"data "+str$(R%)+","+str$(G%)+","+str$(B%)
            next y%
        next x%
      item_delete 5,1
      end_while
  file_close 8
  clear 5
  active 2:active 4
  command_target_is 0
  if object_exists(100)=1 then delete 100
return
' ------------------------------------------------------------------------------
Get_Size:
  f$=item_read$(5,1)
  er$ = "": a$ = UPPER$(FILE_EXTRACT_EXTENSION$(f$))
  IF a$ <>".JPG" AND a$ <> ".BMP" THEN er$ = "Format incorrect": RETURN

  FILEBIN_OPEN_READ 1, f$: sz = FILEBIN_SIZE(1)
  IF a$ = ".JPG"
      FOR ii% = 1 TO 2: FILEBIN_READ 1, v%(ii%): NEXT ii%
      IF v%(1) <> 255 OR v%(2) <> 216 THEN er$ = "en-tête non FFD8.": GOTO reter
      ad = 0: offs% = 0
      REPEAT
        REPEAT
            posit% = ad + 2 + offs%
            IF posit% >= sz THEN er$ = "FFCx non trouvé.": GOTO reter
            FILEBIN_POSITION 1, posit%
            FOR i% = 1 TO 4: FILEBIN_READ 1, v%(i%): NEXT i%
            IF v%(1) <> 255 THEN er$ = "Chaînage incorrect": GOTO reter
            offs% = 256*v%(3) + v%(4)
            ad = FILEBIN_POS(1) - 4
        UNTIL (v%(2) >= 192 AND v%(2) <= 195): ' # FFC0 à FFC3
        FOR ii% = 1 TO 5: FILEBIN_READ 1, v%(ii%): NEXT ii%
      UNTIL v%(1) = 8
      hi% = 256*v%(2) + v%(3): wi% = 256*v%(4) + v%(5)
      L%=wi%:H%=hi%
  ELSE
      FILEBIN_POSITION 1, 18
      FOR ii% = 1 TO 8: FILEBIN_READ 1, v%(ii%): NEXT ii%
      wi% = v%(1) + 256*v%(2) + 256*256*v%(3) + 256*256*256*v%(4)
      hi% = v%(5) + 256*v%(6) + 256*256*v%(7) + 256*256*256*v%(8)
      L%=wi%
      H%=hi%
  END_IF
  FILEBIN_CLOSE 1
return

Quitter:
terminate

' Data Image Creator V2 (Version tout panoramic )
' génère un fichier "Include_Image.bas" contenant les images sélectionnés
' sous forme de data et la fonction de recréation de ces images.
' La fonction déclare et libère la plupart de ses propres variables,
' seules les variable x% et y% sont à déclarer dans le source principale et seul la variable
' DI$ (adresse du dossier "auto-créé" où sont recréées les images ) est conservé.
' La fonction à appeler, et à déclarer dans les label,dans l'Init du source pour
' re-créer les images est:Create_File_Image

dim x%,list%,Menu%
dim er$,a$,f$,i%,wi%,hi%
dim v%(20), ii%, offs%, posit%, ad, sz
dim D$,file$,H%,L%,R%,G%,B%,res%,nom$,t%,DO$,y%
' ------------------------------------------------------------------------------
label Init
label Menu,Ajouter,Coder,Get_Size,Quitter
label Effacer
' ------------------------------------------------------------------------------
width 0,320:height 0,250
caption 0,"Data Image Créator Vs0.2":font_name 0,"arial"

main_menu 1
for x%=2 to 4 :sub_menu x% :parent x%,1:on_click x%,Menu:next x%
caption 2,"Ajouter":caption 3,"Coder":caption 4,"Quitter"

list 5:width 5,304:height 5,170:on_double_click 5,Effacer

alpha 6:top 6,172:left 6,20:caption 6,"Double cliquer sur un item pour l'effacer"
font_color 6,140,30,40

gosub Init
end
' ------------------------------------------------------------------------------
Init:
  D$=Dir_current$
  if dir_exists(D$+"\Output")=0 then dir_make D$+"\Output"
  DO$=D$+"\Output"
return
' ------------------------------------------------------------------------------
Menu:
  for x%=2 to 4
      if clicked(x%)=1 then Menu%=x%
  next x%
  select Menu%
  case 2
      gosub Ajouter
  case 3
      inactive 2:inactive 4
      gosub Coder
  case 4
      gosub Quitter
  end_select
return
' ------------------------------------------------------------------------------
Ajouter:
  open_dialog 7
  filter 7,"*.jpg;*.bmp|*.jpg;*.bmp"
  file$=file_name$(7)
  item_add 5,file$
  delete 7
return
' ------------------------------------------------------------------------------
Effacer:
  if count(5)>0 then item_delete 5,item_index(5)
return
' ------------------------------------------------------------------------------
Coder:
  ' ouverture du fichier en création
  file_open_write 8,DO$+"\include_image.bas"
      ' ecriture de la fonction de re-création des fichiers *.bmp
      file_writeln 8,"Create_File_Image:"
      file_writeln 8,"dim DI$,Titre$,haut%,large%,R%,G%,B%,col%,lign%,db%"
      file_writeln 8,"if dir_exists(Dir_current$+"+chr$(34)+"\Picture"+chr$(34)+")=0 then dir_make dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"DI$=Dir_current$+"+chr$(34)+"\Picture"+chr$(34)
      file_writeln 8,"for db%=1 to "+str$(count(5))
      file_writeln 8,"  read Titre$ : read haut% : read large% "
      file_writeln 8,"  if object_exists(800)=0"
      file_writeln 8,"      form 800:hide 800"
      file_writeln 8,"      command_target_is 800"
      file_writeln 8,"      picture 801"
      file_writeln 8,"  end_if"
      file_writeln 8,"  width 801,large% :height 801,haut% :2d_target_is 801"
      file_writeln 8,"  for x%=0 to large%-1"
      file_writeln 8,"      for y%=0 to haut%-1"
      file_writeln 8,"        read R% :read G% :read B%"
      file_writeln 8,"        2d_pen_color R%,G%,B%"
      file_writeln 8,"        2d_point x%,y%"
      file_writeln 8,"      next y%"
      file_writeln 8,"  next x%"
      file_writeln 8,"file_save 801,DI$+"+chr$(34)+"\"+chr$(34)+"+titre$"
      file_writeln 8,"cls"
      file_writeln 8,"next db%"
      file_writeln 8,"command_target_is 0"
      file_writeln 8,"Delete 800"
      file_writeln 8,"free Titre$ :free haut% :free large% "
      file_writeln 8,"free R% :free G% :free B% :free col% :free lign% : free db%"
      file_writeln 8,"return"
      ' ajout des fichiers data à assembler
      while count(5)>0
        ' création du form invible de travail
        if object_exists(100)=0
            form 100:hide 100:command_target_is 100
            picture 101:width 101,L% :height 101,H%
        end_if
        ' placement de l'image chargé dans le picture 101
        file_load 101,item_read$(5,1)
        gosub Get_Size
        ' Ecriture des données
        nom$=file_extract_name$(item_read$(5,1))
        nom$=LEFT$(nom$,len(nom$)-3)+"bmp"
        file_writeln 8,"Data "+chr$(34)+nom$+chr$(34)+","+str$(H%)+","+str$(L%)
        for x%=0 to L% -1
            for y%= 0 to H% -1
              R% =color_pixel_red(101,x%,y%)
              G% =color_pixel_green(101,x%,y%)
              B% =color_pixel_blue(101,x%,y%)
              file_writeln 8,"data "+str$(R%)+","+str$(G%)+","+str$(B%)
            next y%
        next x%
      item_delete 5,1
      end_while
  file_close 8
  clear 5
  active 2:active 4
  command_target_is 0
  if object_exists(100)=1 then delete 100
return
' ------------------------------------------------------------------------------
Get_Size:
  f$=item_read$(5,1)
  dll_on D$+"\KGF.dll"
  res%=dll_call3("AnalyzeImageFile",adr(f$),adr(L%),adr(H%))
  if res%=1
      message "Extension de fichier invalide !"
  else
      message "Largeur: "+str$(L%)+"  Hauteur: "+str$(H%)
  end_if
  dll_off
return

Quitter:
terminate