Encadrement

' Cadre ovale autour d'une partie d'image
LABEL Chf,Chf1,Svf,Decoupe,Deplace
DIM kgf$,bh%,bv%,f$,fm$,fr$,p%,w%,h%,wd%,hd%,mg%,i%,cr%,cb%,c%,r,t,tp,a,b,x%,y%,n%
DIM dp%,min0%,im%,sv%,bt%
fm$ = "Z:\Im.bmp": ' Fichier de manoeuvre temporaire, à ajuster
kgf$ = "C:\PANORAMIC\KGF\KGF.dll": ' à ajuster
BORDER_SMALL 0: FONT_SIZE 0,9: FONT_BOLD 0
bh% = WIDTH(0)-WIDTH_CLIENT(0): bv% = HEIGHT(0)-HEIGHT_CLIENT(0): ' bordures
min0% = 520
WIDTH 0,min0%: HEIGHT 0,640: color 0,0,255,255
ALPHA 1: TOP 1,3: CAPTION 1,"Image :"
EDIT 2: LEFT 2,40: WIDTH 2,240: TEXT 2," (clic)": ON_CLICK 2,Chf
' OPEN_DIALOG 3: FILTER 3,"Image JPG,BMP|*.jpg;*.bmp"
OPEN_DIALOG_PIC 3: FILTER 3,"Image JPG,BMP|*.jpg;*.bmp"
ALPHA 4: TOP 4,-1: LEFT 4,LEFT(2)+WIDTH(2)+5: COLOR 4,255,255,0
  FONT_SIZE 4,9: CAPTION 4," Nb de"+CHR$(10)+"cercles: "
SPIN 5: TOP 5,1: LEFT 5,LEFT(4)+50: WIDTH 5,45: POSITION 5,80
CONTAINER_OPTION 6: LEFT 6,LEFT(5)+50: WIDTH 6,60: HEIGHT 6,25: COLOR 6,255,255,0
  OPTION 7: PARENT 7,6: TOP 7,-2: LEFT 7,5: CAPTION 7,"Noir": MARK_ON 7
  OPTION 8: PARENT 8,6: TOP 8,TOP(7)+12: LEFT 8,LEFT(7): CAPTION 8,"Blanc"
bt% = 10
BUTTON bt%: LEFT bt%,WIDTH_CLIENT(0)-55: WIDTH bt%,50: CAPTION bt%,"Tracer"
  ON_CLICK bt%,Decoupe

p% = 50: PICTURE p%: TOP p%,30
im% = p%+1: IMAGE im%
sv% = 15
PANEL sv%: HIDE sv%: WIDTH sv%,WIDTH(0)-bh%: HEIGHT sv%,30: COLOR sv%,164,255,255
ALPHA sv%+1: PARENT sv%+1,sv%: TOP sv%+1,0: CAPTION sv%+1,"Enregistrer sous (bmp):"
EDIT sv%+2: PARENT sv%+2,sv%: TOP sv%+2,2: LEFT sv%+2,140: WIDTH sv%+2,280
  TEXT sv%+2," (clic)": ON_CLICK sv%+2,Svf
SAVE_DIALOG sv%+3: FILTER sv%+3,"Fichier BMP|*.bmp"

' Boutons de déplacement de l'image source
PANEL 20: WIDTH 20,150: HEIGHT 20,20: TOP 20,TOP(p%)+HEIGHT(p%)-20: ' H
  LEFT 20, LEFT(p%)+WIDTH(p%)/2-75: FONT_NAME 20,"Wingdings": FONT_SIZE 20,12
  HIDE 20
BUTTON 21: PARENT 21,20: CAPTION 21,CHR$(231)
BUTTON 22: PARENT 22,20: LEFT 22,WIDTH(21): CAPTION 22,CHR$(232)
  ON_CLICK 21,Deplace: ON_CLICK 22,Deplace
PANEL 30: HIDE 30: WIDTH 30,20: HEIGHT 30,150: TOP 30,TOP(p%)+HEIGHT(p%)/2-75: ' V
  LEFT 30,WIDTH(0)-bh%/2-20: FONT_NAME 30,"Wingdings": FONT_SIZE 30,12: HIDE 30
BUTTON 31: PARENT 31,30: WIDTH 31,20: HEIGHT 31,75: CAPTION 31,CHR$(233)
BUTTON 32: PARENT 32,30: TOP 32,75: WIDTH 32,20: HEIGHT 32,75: CAPTION 32,CHR$(234)
  ON_CLICK 31,Deplace: ON_CLICK 32,Deplace
END
' ==============================================================================
Chf:
  ' Choix du fichier image source
  f$ = FILE_NAME$(3): TEXT 2,f$
  FILE_LOAD p%,f$: FILE_SAVE p%,fm$
  FILEBIN_OPEN_READ 1,fm$: ' dimensions de l'image
      FILEBIN_POSITION 1,18: w% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
      FILEBIN_POSITION 1,22: h% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
  FILEBIN_CLOSE 1: FILE_DELETE fm$
Chf1:
  WIDTH 0,w%+bh%: HEIGHT 0,h%+90: IF WIDTH(0)<min0% THEN WIDTH 0,min0%
  IF WIDTH(0) > SCREEN_X THEN WIDTH 0,SCREEN_X
  iF HEIGHT(0) > (SCREEN_Y-30) THEN HEIGHT 0,SCREEN_Y-30
  WIDTH p%,w%: HEIGHT p%,h%
  TOP sv%,TOP(p%)+HEIGHT(p%)
  IF w%>(WIDTH(0)-bh%)
      TOP 20,HEIGHT(0)-55: LEFT 20,WIDTH(0)/2-80: SHOW 20
  END_IF
  IF h%>(HEIGHT(0)-60)
      TOP 30,HEIGHT(0)/2-80: LEFT 30,WIDTH(0)-bh%-20: SHOW 30
  END_IF
  FILE_LOAD p%,f$
  CAPTION bt%,"Tracer": ON_CLICK bt%,Decoupe
RETURN
' ==============================================================================
Svf:
  ' Sauvegarde du résultat (avec étourage noir pour SCENE2D)
  fr$ = FILE_NAME$(sv%+3): TEXT sv%+2,fr$: FILE_SAVE p%,fr$
RETURN
' ==============================================================================
Decoupe:
  ' Découpe elliptique dans l'image source
  Selzone(p%,1): ' tracé = ellipse
  PEllipse(wi%,hi%)
  2D_TARGET_IS p%
  DEGREES
  a = wi%/2: b = hi%/2: ' 1/2 axes de l'ellipse
  n% = POSITION(5): ' nb de cercles périphériques (à moduler ...)
  tp = 360/n%: r = c%/(2*n%): ' rayon des cercles
  2D_FILL_ON: 2D_FILL_COLOR 255,255,255: ' couleur de remplissage des cercles
  FOR t = 90 TO 449 STEP tp
      x% = xc%+a*COS(t): y% = yc%+b*SIN(t)
      2D_CIRCLE x%,y%,r
  NEXT t
  mg% = 10: ' marge périphérique
  wd% = wi%+2*r+2*mg%: hd% = hi%+2*r+2*mg%
  2D_IMAGE_COPY im%,xc%-wd%/2,yc%-hd%/2,xc%+wd%/2,yc%+hd%/2
  WIDTH 0,wd%+bh%: HEIGHT 0,hd%+95: IF WIDTH(0)<min0% THEN WIDTH 0,min0%
  TOP p%,30: LEFT p%,0
  WIDTH p%,wd%: HEIGHT p%,hd%: TOP sv%,TOP(p%)+HEIGHT(p%)
  2D_IMAGE_PASTE im%,0,0
  IF CHECKED(7) = 1
      cr% = 0: ' remplissage noir (transparence pour SCENE2D)
  ELSE
      cr%=65536*255+256*255+255: ' remplissage blanc
  END_IF 
  cb% = 0: ' couleurs contour
  CLIPBOARD_COPY p%
  DLL_ON kgf$
      i% = DLL_CALL0("LoadPicture"): ' image presse-papier -> image interne
      i% = DLL_CALL4("FloodfillPictureToBorderColor",2,2,cr%,cb%)
      i% = DLL_CALL0("SavePicture"): ' image interne -> presse-papier
  DLL_OFF
  CLIPBOARD_PASTE p%
  CAPTION sv%+1,"Enregistrer sous (bmp) :"+CHR$(10)+" ( "+STR$(wd%)+" x "+STR$(hd%)+" pixels)"
  SHOW sv%
  CAPTION bt%,"Refaire": ON_CLICK bt%,Chf1
RETURN
' ==============================================================================
Deplace:
  ' Déplacement de l'image source (cas des images grande taille)
  i% = NUMBER_CLICK
  dp% = 20
  SELECT i%
    CASE 21: LEFT p%,LEFT(p%)+dp%
    CASE 22: LEFT p%,LEFT(p%)-dp%
    CASE 31: TOP p%,TOP(p%)+dp%
    CASE 32: TOP p%,TOP(p%)-dp%
  END_SELECT
RETURN
' ==============================================================================
SUB Selzone(p%,typ%)
  ' Sélectionner à la souris une zone rectangulaire: typ%=0 ou elliptique: typ%=1
  ' dans le picture p%.
  DIM_LOCAL x1,y1,x2,y2,i%
  IF VARIABLE("wi%") = 0 THEN DIM wi%
  IF VARIABLE("hi%") = 0 THEN DIM hi%
  IF VARIABLE("xc%") = 0 THEN DIM xc%
  IF VARIABLE("yc%") = 0 THEN DIM yc%
  i% = MOUSE_LEFT_DOWN(p%): i% = MOUSE_LEFT_UP(p%): ' Réinit
  WHILE MOUSE_LEFT_DOWN(p%) = 0: PAUSE 100: END_WHILE: ' attente clic gauche
  x1 = MOUSE_X_LEFT_DOWN(p%): y1 = MOUSE_Y_LEFT_DOWN(p%)
  CLIPBOARD_COPY p%: ' sauvegarde du fond
  2D_TARGET_IS p%: 2D_PEN_COLOR 255,0,255: 2D_PEN_WIDTH 1: 2D_FILL_OFF
  WHILE MOUSE_LEFT_UP(p%) = 0: ' attente relâchement
      x2 = MOUSE_X_POSITION(p%): y2 = MOUSE_Y_POSITION(p%)
      CLIPBOARD_PASTE p%
      IF typ% = 0
          2D_RECTANGLE x1,y1,x2,y2
      ELSE
          2D_ELLIPSE x1,y1,x2,y2
      END_IF
      PAUSE 100
  END_WHILE
  CLIPBOARD_PASTE p%
  xc% = x1+(x2-x1)/2: yc% = y1+(y2-y1)/2: ' centre de l'ellipse ou du rectangle
  IF typ% = 1 THEN 2D_PEN_COLOR 0,0,0: 2D_ELLIPSE x1,y1,x2,y2
  wi% = ABS(x2-x1): hi% = ABS(y2-y1): ' dimensions de la sélection 
END_SUB 
' ==============================================================================
SUB PEllipse(w%,h%)
  ' Périmètre de l'ellipse de dimensions w% x h% -> c% (pixels)
  IF VARIABLE("c%") = 0 THEN DIM c%
  DIM_LOCAL a,b
  a = w%/2: b = h%/2: ' 1/2 axes
  c% = 2*PI*SQR((a*a+b*b)/2)
END_SUB 
' ==============================================================================

' demo_picture_avec_scroll_bars.bas

label change_vertical, change_horizontal, charger_image
dim img$

width 0,600 : height 0,600
panel 1 : top 1,10 : left 1,10 : width 1,400 : height 1,300
picture 2 : parent 2,1 : width 2,3000 : height 2,2000
scroll_bar 3 : vertical 3 : top 3,10 : left 3,left(1)+width(1)+2 : height 3,height(1)
  min 3,0 : max 3,height(2)-height(1) : on_change 3,change_vertical
scroll_bar 4 : horizontal 4 : top 4,top(1)+height(1)+2 : left 4,10 : width 4,width(1)
  min 4,0 : max 4,width(2)-width(1) : on_change 4,change_horizontal
button 5 : top 5,top(4)+height(4)+20 : left 5,10 : caption 5,"Fichier" : on_click 5,charger_image
open_dialog 6 : filter 6,"Images|*.bmp;*.jpg"

end

change_vertical:
  top 2,0-position(3)
  return
  
change_horizontal:
  left 2,0-position(4)
  return

charger_image:
  img$ = file_name$(6)
  if img$="_" then return
  if file_exists(img$)=0
    message "Fichier non trouvé"
    return
  end_if
  off_change 3
  position 3,0
  on_change 3,change_vertical
  off_change 4
  position 4,0
  on_change 4,change_horizontal
  left 2,0
  top 2,0
  file_load 2,img$
  return
  

 inactive 3 : on_change 3,change_vertical

 inactive 4 : on_change 4,change_horizontal

if hauteur_reelle%<height(1)
  inactive 3
else
  active 3 : max 3,height(2)-height(1)
end_if
if largeur_reelle%<width(1)
  inactive 4
else
  active 4 : max 4,width(2)-width(1)
end_if

maximize 0
'
label load_image_dans_container_my_image,bouge2
dim null,container_my_image,my_image,lastX,lastY,pastX,pastY,imx,imy,taille_imx,taille_imy

' génère une image
container_my_image=1000
my_image=2000
gosub load_image_dans_container_my_image

' déplace l'image dans le container_my_image
on_mouse_move container_my_image,bouge2


END
load_image_dans_container_my_image:
' ****************** fabrique une image pour la démonstration : debut **********
create_hide
  picture 123 : width 123,1000 : height 123,1000  :' fabrique un picture temporaire pour générer une image de container_my_image*container_my_image
create_show
color 123,0,0,0
dim i,x1,y1,x2,y2,r,g,b
2d_target_is 123
for i=1 to 100
  x1=int(rnd(500))
  y1=int(rnd(500))
  x2=int(rnd(500)+500)
  y2=int(rnd(500)+500)
  r=int(rnd(255))
  g=int(rnd(255))
  b=int(rnd(255))
  2d_pen_color r,g,b
  2d_fill_color r,g,b
  2d_rectangle x1,y1,x2,y2
next i
clipboard_copy 123
2d_target_is 0 : delete 123  :' plus besoin du picture temporaire
' ****************** fabrique une image pour la démonstration : fin ************

image my_image
clipboard_paste my_image :' image de démonstration
' on peut charger une image à partir du disque dur
' file_load my_image,"Mon_image.bmp"

' dimension de my_image
taille_imx=1000
taille_imy=1000

' le container; en fait c'est un picture
picture container_my_image : width container_my_image,550 : height container_my_image,550 : top container_my_image,50 : left container_my_image,150 :' un container_my_image de taille 550*550
2d_target_is container_my_image : 2d_image_paste my_image,0,0                                                                                      :' colle l'image dans le picture

return

bouge2:
off_mouse_move container_my_image
  '
  null=scancode :' rafraichir le scancode
  if scancode=1
      2d_clear
      pastX=mouse_x_position(container_my_image)
      pastY=mouse_y_position(container_my_image)
      imx=imx+(pastx-lastx)
      imy=imy+(pasty-lasty)
      if imx<width(container_my_image)-taille_imx then imx=width(container_my_image)-taille_imx    :' <--- taille_imx
      if imx>0 then imx=0
      if imy<height(container_my_image)-taille_imy then imy=height(container_my_image)-taille_imy  :' <--- taille_imy
      if imy>0 then imy=0
      2d_image_paste my_image,imx,imy
      lastx=pastx
      lasty=pasty
  else
      lastX=mouse_x_position(container_my_image)
      lastY=mouse_y_position(container_my_image)
  end_if
  '
on_mouse_move container_my_image,bouge2 :' pb(bug?) avec bouton gauche: si le bouton est enfoncé dans le container_my_image, l'évènement est
                                        :' détecté même si la souris est en dehors du container_my_image!!! Pas génant mais bon à connaitre
return

DIM t%,x%,y%,x1,x2,y1,y2,pas,distance,r,a,b
DEGREES
x%=300 : ' coordonnée x% du centre de l'ellipse
y%=200 : ' coordonnée y% du centre de l'ellipse
a=180  : ' largeur de l'ellipse
b=80   : ' hauteur de l'ellipse
r=5    : ' diamètre des billes
pas=11 : ' distance entre 2 billes

FOR t% = 90 TO 450
    x1 = x%+a*COS(t%)
    y1 = y%+b*SIN(t%)

    distance = SQR((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
      
    IF distance > pas
        2D_CIRCLE x1,y1,r
        x2=x1
        y2=y1
    END_IF
NEXT t%
END

Chf:
  ' Choix du fichier image source
  f$ = FILE_NAME$(3): TEXT 2,f$
  FILE_LOAD p%,f$: FILE_SAVE p%,fm$
  FILEBIN_OPEN_READ 1,fm$: ' dimensions de l'image
      FILEBIN_POSITION 1,18: w% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
      FILEBIN_POSITION 1,22: h% = FILEBIN_READ(1)+256*FILEBIN_READ(1)
  FILEBIN_CLOSE 1: FILE_DELETE fm$
Chf1:
  WIDTH 0,w%+bh%: HEIGHT 0,h%+80: IF WIDTH(0)<min0% THEN WIDTH 0,min0%
  IF WIDTH(0) > SCREEN_X THEN WIDTH 0,SCREEN_X
  iF HEIGHT(0) > (SCREEN_Y-30) THEN HEIGHT 0,SCREEN_Y-30
  WIDTH p%,w%: HEIGHT p%,h%
  TOP 10,TOP(p%)+HEIGHT(p%)
  IF w%>(WIDTH(0)-bh%)
      TOP 20,HEIGHT(0)-55: LEFT 20,WIDTH(0)/2-80: SHOW 20
  END_IF
  IF h%>(HEIGHT(0)-60)
      TOP 30,HEIGHT(0)/2-80: LEFT 30,WIDTH(0)-bh%-20: SHOW 30
  END_IF
  FILE_LOAD p%,f$
  exec% = 0: CAPTION 6,"Tracer": ON_CLICK 6,Decoupe
  ' GOSUB Decoupe
RETURN

2D_CIRCLE x%,y%,r

2d_point x%,y%

label down, move
dim x%, y%, x1%, y1%, file$
picture 1 : height 1,height_client(0)-40 : width 1,width_client(0): top 1,40
open_dialog_pic 50 : filter 50,"Image JPG,BMP|*.jpg;*.bmp"
file$=file_name$(50)
if file$<>"_"
 file_load 1,file$
else
 ' image par défaut
 file_load 1,"C:\Program Files\Panoramic Editor V 0.9.25\Rainbow.bmp"
end_if
image 2
option 11 : top 11,10 : left 11,10 : caption 11,"Dessin libre"
option 12 : top 12,10 : left 12,100 : caption 12,"Rectangle"
option 13 : top 13,10 : left 13,190 : caption 13,"Rectangle plein"
mark_on 12
2d_target_is 1
2d_pen_color 255,255,0
on_mouse_down 1,down

END
down:
off_mouse_down 1
  x% = mouse_x_left_down(1)
  y% = mouse_y_left_down(1)
  caption 0,"down "+str$(x%)+","+str$(y%)     :' affichage position souris
  2d_poly_from x%,y%
  if checked(11)=0 :' si ce n'est pas du dessin libre, sauvegarde le background
     2d_image_copy 2,0,0,width(1),height(1)
  end_if
  on_mouse_move 1,move
return

move:
off_mouse_move 1
 if mouse_left_up(1)=0 :' bouton gauche de la souris pas relaché
    x1% = mouse_x_position(1)
    y1% = mouse_y_position(1)
    caption 0,"move "+str$(x1%)+","+str$(y1%) :' affichage position souris
    if checked(11)=1   :' dessin libre
      2d_poly_to x1%,y1%
    end_if
    if checked(12)=1   :' rectangle vide
      2d_image_paste 2,0,0
      2d_poly_from x%,y%
      2d_poly_to x%,y1%
      2d_poly_to x1%,y1%
      2d_poly_to x1%,y%
      2d_poly_to x%,y%
    end_if
    if checked(13)=1   :' rectangle plein
      2d_image_paste 2,0,0
      2d_rectangle x%,y%,x1%,y1%
    end_if
    on_mouse_move 1,move
 else
    on_mouse_down 1,down
 end_if
return