Y a comme qui dirait un probleme

Dim  Layer01%
Dim  Nom_Fichier$
Dim  I%

  hide 0
 
Layer01%          = 2002

 form              Layer01%
      height            Layer01%,500
      width            Layer01%,100
      top              Layer01%,0
      left              Layer01%,0
'    border_hide      Layer01%

 command_target_is Layer01%

 picture                3000
      height            3000,100
      width            3000,100
      top              3000,0
      left              3000,10
     
 ' charger une image
 
 2d_target_is 3000

2d_clear
2d_pen_color 255,0,0
 2d_fill_color 255,0,0
2d_circle 50,50,18
' 2d_flood 1,1,0,0,0
 
 image 3001
  Rem copie d'un rectangle de 100 par 100
      2D_IMAGE_COPY 3001,0,0,100,100
     
  Rem Changement des dimensions du Picture 3000
 
      height            3000,400
      width            3000,100
  Rem recopie du rectangle de 100 par 100 décalé en Y de 150
      2D_IMAGE_PASTE 3001,0,150
     
  Rem maintenant le fill color est aussi agrandi Est-ce Normal ?
  Rem au départ le rectangle du picture etait de 100 par 100
  Rem Pourquoi le 2d_fill_color  suit  les dimensions du picture .
 end

Dim  Layer01%
Dim  Nom_Fichier$
Dim  I%

  hide 0

Layer01%          = 2002

 form              Layer01%
      height            Layer01%,500
      width            Layer01%,100
      top              Layer01%,0
      left              Layer01%,0
'    border_hide      Layer01%

 command_target_is Layer01%

 picture                3000
      height            3000,100
      width            3000,100
      top              3000,0
      left              3000,10

 ' charger une image

 2d_target_is 3000

2d_clear
2d_pen_color 255,0,0
2d_fill_color 255,255,0
2d_circle 50,50,18
' 2d_flood 1,1,0,0,0
message "cercle rouge fond jaune dans carré blanc 100x100"
 image 3001
  Rem copie d'un rectangle de 100 par 100
      2D_IMAGE_COPY 3001,0,0,100,100

  Rem Changement des dimensions du Picture 3000

      height            3000,400
      width            3000,100
message "picture 3001 redimensionné, supplément rempli par fill_color"

  Rem recopie du rectangle de 100 par 100 décalé en Y de 150
      2D_IMAGE_PASTE 3001,0,150
message "le carré 100x100 sauvegardé est recopie 150 pixels plus bas"+chr$(13)+"==> fill_color est utilisé pour remplir l'extension !"

  Rem maintenant le fill color est aussi agrandi Est-ce Normal ?
  Rem au départ le rectangle du picture etait de 100 par 100
  Rem Pourquoi le 2d_fill_color  suit  les dimensions du picture .
 end

height 0,500
width  0,100

picture 3
height 3,100
width 3,100
top 3,0
left 3,10

rem rempli avec couleur bleue
color 3,0,0,200

2d_target_is 3
rem 2d_clear
2d_pen_color 255,0,0
2d_fill_color 255,0,0
2d_circle 50,50,18

message "cercle rouge dans carré bleu 100x100"

image 4
rem copie d'un rectangle de 100 par 100
2D_IMAGE_COPY 4,0,0,100,100

rem Changement des dimensions du Picture 3
height 3,400
width 3,100
message "picture 3 redimensionné, supplément rempli en ROUGE"

rem recopie du rectangle de 100 par 100 décalé en Y de 150
2D_IMAGE_PASTE 4,0,150
message "le carré 100x100 sauvegardé est recopié 150 pixels plus bas"

end