Dessin 2D: largeur de trait (résolu !)

rem ============================================================================
picture 10 : full_space 10 : 2d_target_is 10
2d_pen_width 5  : message "Largeur du trait : " + str$(Pen_Width())
2d_pen_width 20 : message "Largeur du trait : " + str$(Pen_Width())
2d_pen_width 1  : message "Largeur du trait : " + str$(Pen_Width())
end
rem ============================================================================
FNC Pen_Width()
    dim_local i,c,w
    2d_pen_color 0,0,0 : 2d_line 100,100,200,100
    for i = 100-10 to 100+10
        c = color_pixel_blue(10,110,i)
        if c <> 255 then w = w + 1
    next i  
    2d_pen_color 255,255,255 : 2d_line  100,100,200,100
    result w

END_FNC
rem ============================================================================

DIM wt%
PICTURE 1: FULL_SPACE 1: color 1,128,255,255
2D_TARGET_IS 1: 2D_PEN_WIDTH 13
Eptrait()
MESSAGE STR$(wt%)
END

SUB Eptrait()
  ' Epaisseur de trait courante dans la cible 2d, rendue dans wt%
  DIM_LOCAL im%,p%,y%
  p% = NUMBER_2D_TARGET: IF VARIABLE("wt%") = 0 THEN DIM wt%
  im%=950: IMAGE im%: 2D_IMAGE_COPY im%,0,0,15,25
  2D_PEN_COLOR 1,1,1: 2D_LINE 0,12,5,12
  wt% = 0: y% = 0
  WHILE COLOR_PIXEL_RED(p%,0,y%)<>1: y%=y%+1: END_WHILE
  WHILE COLOR_PIXEL_RED(p%,0,y%)=1: wt% = wt%+1: y%=y%+1: END_WHILE
  2D_IMAGE_PASTE im%,0,0: DELETE im%
END_SUB

DIM wt%,rt%,gt%,bt%
PICTURE 1: FULL_SPACE 1: color 1,180,255,255
2D_TARGET_IS 1: 2D_PEN_WIDTH 20: 2D_PEN_COLOR 0,0,255
Eptrait()
MESSAGE STR$(wt%)
END
' ============================================================
SUB Eptrait()
  ' Epaisseur de trait courante dans la cible 2d, rendue dans wt%
  ' (on pourrait au besoin récupérer également la couleur de trait rt%,gt%,bt%)
  DIM_LOCAL im%,p%,y%,wp%,hp%,rt%,gt%,bt%
  p% = NUMBER_2D_TARGET: IF VARIABLE("wt%") = 0 THEN DIM wt%
  wp% = 15: hp% = 25
  im%=950: IMAGE im%: 2D_IMAGE_COPY im%,0,0,wp%+10,hp%+10
  2D_LINE 0,0,wp%,0: rt% = COLOR_PIXEL_RED(p%,0,0): gt%=COLOR_PIXEL_GREEN(p%,0,0)
  bt%=COLOR_PIXEL_BLUE(p%,0,0): ' couleur de trait actuelle
  2D_PEN_COLOR 1,1,1: 2D_LINE 0,12,5,12
  wt% = 0: y% = 0
  WHILE COLOR_PIXEL_RED(p%,0,y%)<>1: y%=y%+1: END_WHILE
  WHILE COLOR_PIXEL_RED(p%,0,y%)=1: wt% = wt%+1: y%=y%+1: END_WHILE
  2D_IMAGE_PASTE im%,0,0: DELETE im%
  2D_PEN_COLOR rt%,gt%,bt%
END_SUB
' ============================================================

DIM wt%,rt%,gt%,bt%
PICTURE 1: FULL_SPACE 1: color 1,180,255,255
2D_TARGET_IS 1: 2D_PEN_WIDTH 12: 2D_PEN_COLOR 0,0,255
Eptrait()
MESSAGE STR$(wt%)
END
' ============================================================
SUB Eptrait()
  ' Epaisseur de trait courante dans la cible 2d, rendue dans wt%
  ' (on pourrait au besoin récupérer également la couleur de trait rt%,gt%,bt%)
  DIM_LOCAL im%,p%,y%,wp%,hp%,rt%,gt%,bt%
  p% = NUMBER_2D_TARGET: IF VARIABLE("wt%") = 0 THEN DIM wt%
  wp% = 15: hp% = 25
  im%=950: IMAGE im%: 2D_IMAGE_COPY im%,0,0,wp%+10,hp%+10
  2D_LINE 0,0,wp%,0: rt% = COLOR_PIXEL_RED(p%,0,0): gt%=COLOR_PIXEL_GREEN(p%,0,0)
  bt%=COLOR_PIXEL_BLUE(p%,0,0): ' couleur de trait actuelle
  2D_PEN_COLOR 1,1,1: 2D_LINE 0,12,5,12
  wt% = 0: y% = 0
  WHILE COLOR_PIXEL_RED(p%,3,y%)<>1: y%=y%+1: END_WHILE
  WHILE COLOR_PIXEL_RED(p%,3,y%)=1: wt% = wt%+1: y%=y%+1: END_WHILE
  2D_IMAGE_PASTE im%,0,0: DELETE im%
  2D_PEN_COLOR rt%,gt%,bt%
END_SUB
' ============================================================

rem ============================================================================
rem                     Pen_Width()
rem Fonction pour récuperer la largeur du tracé définie par la commande 2D_PEN_WIDTH
rem                   JL35 / PAPYDALL
rem ============================================================================
rem Appel : Pen_Width()
' Exemple d'utilisation
PICTURE 10 : FULL_SPACE 10 : color 10,180,255,255 : 2D_TARGET_IS 10 : 2D_PEN_WIDTH 5
2d_pen_width Pen_Width() + 15 : 2d_circle 300,200,150
font_size 10,16
print_target_is 10 : print_locate 200,180 : print "Epaisseur du trait : " + str$(Pen_Width())

END
rem ============================================================================
' Retourne la largeur du tracé
FNC Pen_Width()
    DIM_LOCAL im%,p%,y%,wt%
    p% = NUMBER_2D_TARGET
    im% = 9999 : IMAGE im% : 2D_IMAGE_COPY im%,0,0,25,35
    2D_PEN_COLOR 1,1,1 : 2D_LINE 0,12,5,12
    wt% = 0: y% = 0
    WHILE COLOR_PIXEL_RED(p%,3,y%) <> 1 : y%  = y%  + 1 : END_WHILE
    WHILE COLOR_PIXEL_RED(p%,3,y%) =  1 : wt% = wt% + 1 : y% = y% + 1 : END_WHILE
    2D_IMAGE_PASTE im%,0,0 : DELETE im%
    RESULT wt%
END_FNC
rem ============================================================================

dim j,colorpen

form 55 : 2d_target_is 55 : left 55,500 : top 55,40 : 2d_pen_width 10 :'

picture 123 : 2d_target_is 123 :' full_space 123

for j=1 to 20
  2d_pen_width j
  2D_PEN_COLOR int(rnd(254)+1),int(rnd(254)+1),int(rnd(254)+1)
  2d_line 10,10,10,50 :' trace un trait de couleur aléatoire
  colorpen = Eptrait(123) :' retrouve l'épaisseur du trait
  2d_line 50,10,50,50 :' la couleur du stylo a été conservée
  message "Eptrait = "+str$(colorpen)  :' affichage
next j
to_foreground  0 : message "Epaisseur du trait dans le form  0 : "+str$(Eptrait(0))    :' en anvant plan car l'objet à tester est un form !!!
to_foreground 55 : message "Epaisseur du trait dans le form 55 : "+str$(Eptrait(55))  :' en anvant plan car l'objet à tester est un form !!!

END
fnc Eptrait(current_2d)
 ' NB : Si 'current_2d' est un form, celui-ci doit OBLIGATOIREMENT être en avant-plan, sinon le resultat sera égal à 0
 dim_local free_image1,free_image2,r,v,b,i,wt%,c,save_current_2d
 save_current_2d=number_2d_target
 free_image1=998 : image free_image1
 free_image2=999 : image free_image2
 2d_target_is current_2d
 2d_image_copy free_image1,0,0,21,21          :' sauvegarde le fond de l'image
 2d_image_copy free_image2,screen_x,screen_y,screen_x+21,screen_y+21  :' capture une zone vide, toute blanche
    '
    2d_point 0,0                              :' sauvegarde la couleur du stylo
    r=color_pixel_red(current_2d,0,0)
    v=color_pixel_green(current_2d,0,0)
    b=color_pixel_blue(current_2d,0,0)
    '
    2d_image_paste free_image2,0,0            :' efface la zone de travail
    2D_PEN_COLOR 1,1,1 : 2D_line 10,10,10,11  :' trace un trait noir d'épaisseur X
    '
    for i = 0 to 19                            :' retrouve l'épaisseur X du trait
        c = color_pixel_blue(current_2d,i,10)
        if c = 1
          wt% = wt% + 1
        end_if
    next i
    '
 2d_image_paste free_image1,0,0                :' restaure le fond de l'image
 delete free_image1
 delete free_image2
 2D_PEN_COLOR r,v,b                            :' restaure la couleur du stylo
 2d_target_is save_current_2d
 result wt%
end_fnc