Zoom simple

Sujet: Zoom simple Lun 8 Nov 2021 - 17:13

Zoom d'une partie de la zone 2d_Target contenant une image quelconque
(simple, c'est Panoramic qui fait le boulot avec Stretch_On)
Il faut donner la position et les dimensions de la zone à zoomer, ainsi que le facteur de grossissement.
Clic dans la fenêtre pour quitter.

Code:: DIM x,y,w,h,f
PICTURE 1: FULL_SPACE 1: 2D_TARGET_IS 1: 2D_FILL_OFF
2D_LINE 100,0,100,100
2D_PEN_COLOR 255,0,0: 2D_RECTANGLE 20,20,100,60
x = 0: y = 0: w = 130: h = 80
f = 8: ' grossissement (peut être fractionnaire)
Zoom(x,y,w,h,f)
Terminate

SUB Zoom(x,y,w,h,f)
' Zoom d'un facteur f de la zone x,y,w,h du 2D_Target
DIM_LOCAL fm,p,i,j,ff,fa$
fa$ = "C:\ZZ.bmp"
IF LABEL("Quitz") = 0 THEN LABEL Quitz
fm=400: FORM fm: BORDER_SMALL fm: TOP fm,TOP(0)+y+h+30: LEFT fm,LEFT(0)+x+w+10
ON_CLOSE fm,Quitz: CAPTION fm," - ZOOM X "+STR$(f)+" -"
i = WIDTH(fm)-WIDTH_CLIENT(fm): j = HEIGHT(fm)-HEIGHT_CLIENT(fm)
WIDTH fm,i+w*f: HEIGHT fm,j+h*f
p = fm+1: PICTURE p: PARENT p,fm: FULL_SPACE p: STRETCH_ON p: ON_CLICK p,Quitz
IMAGE p+1
2D_IMAGE_COPY p+1,x,y,x+w,y+h: FILE_SAVE p+1,fa$
FILE_LOAD p,fa$: FILE_DELETE fa$
WHILE ff = 0: PAUSE 100: END_WHILE: DELETE fm: DELETE p+1: EXIT_SUB
Quitz:
ff = 1: RETURN
END_SUB