Affichage d'une image

Version imprimable

Bonjour !

Je voudrais afficher une image et pour cela je suis parti de l'exemple voeux2012 inclus dans FlashPascal 2. Dans cet exemple les dimensions de l'image sont identiques à celles de l'animation. Lorsque j'ai voulu placer l'image à l'intérieur d'un cadre plus grand, j'ai constaté que l'image ne s'affichait plus correctement. Voici mon code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 program BitmapData1; uses Flash8; {$FRAME_WIDTH 320} {$FRAME_HEIGHT 320} {$JPEG img 'dfd.jpg'} var b: BitmapData; begin b:=BitmapData.create(300,300); b:= loadBitmap('img'); _root.beginBitmapFill(b); _root.moveto(10,10); _root.lineto(310,10); _root.lineto(310,310); _root.lineto(10,310); _root.lineto(10,10); _root.EndFill(); end.
L'image fait 300 sur 300, et j'ai simplement essayé d'ajouter une marge de 10 tout autour. Le résultat c'est que les bords gauche et supérieur de l'image passent à droite et en bas.

Y a-t-il une erreur dans mon code ?

Salut, curieux... pourtant, si je fais ça, pas de soucis lol

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 540}
{$FRAME_HEIGHT 386}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
begin
   b:=BitmapData.create(520,366);
   b:= loadBitmap('img');
   with _root do
   begin
    beginBitmapFill(b);
    moveto(10,10);
    lineto(530, 10);
    lineto(530,376);
    lineto(10, 376);
    lineto(10,10);
   end;
end.

09/03/2013, 21h05
Roland Chastain

Merci Anthony pour ta réponse. Je viens d'essayer le code que tu as posté : si tu y fais attention, il y a bien le défaut que j'ai signalé, sauf que ça ne se voit pas parce que le bord est blanc. :)
09/03/2013, 21h14
Archimède

Citation:

Envoyé par Roland Chastain

sauf que ça ne se voit pas parce que le bord est blanc. :)

Ben si justement Roland... As-tu ajouté :

Code:

{$BACKGROUND 0}

:)

Je ne me suis pas expliqué assez clairement, mais vois ce qui se passe avec une marge de 100 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 566}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
begin
   b:=BitmapData.create(520, 366);
   b:= loadBitmap('img');
   with _root do
   begin
    beginBitmapFill(b);
    moveto(100, 100);
    lineto(620, 100);
    lineto(620, 466);
    lineto(100, 466);
    lineto(100, 100);
   end;
end.

Je vois maintenant...je réfléchis...
Sinon, pourquoi ne pas procéder comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 566}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
  mc:movieclip;
begin
   b:=BitmapData.create(520, 366);
   b:= loadBitmap('img');
   mc:=movieclip.create(_root,'mypicture',0);
   with mc do
   begin
    attachbitmap(b,0);
    _x:=100;
    _y:=100;
   end;
end.

09/03/2013, 22h19
Roland Chastain

Impeccable ! Merci Anthony pour la solution. :ccool:
09/03/2013, 22h32
Archimède

Oui, mais ça ne me satisfait pas pour autant sans avoir réglé le problème du beginBitmapfill. Il faut peut-être regarder du côté du paramètre matrix...

Je vais me coucher :)

Je commence à fatiguer. Désolé.

A+

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
 
program voeux2012;
 
uses
  Flash8;
 
{$FRAME_WIDTH 720}
{$FRAME_HEIGHT 566}
{$JPEG img 'voeux2012.jpg'}
{$BACKGROUND 0}
 
var
  b: BitmapData;
  amatrix:matrix;
begin
   //b:=BitmapData.create(520, 366);   inutile, le load se charge de le faire je pense...
   b:= loadBitmap('img');
   amatrix:=matrix.Create(1,0,0,1,100,100); //il suffit de faire une translation de 100-100 pixels vers la droite et vers le bas en gardant l'échelle 1
   with _root do
   begin
    beginBitmapFill(b,amatrix);
    moveto(100, 100);
    lineto(620, 100);
    lineto(620, 466);
    lineto(100, 466);
    lineto(100, 100);
   end;
end.

version beginBitmapFill.

a+

anthony

Citation:
Envoyé par Archimède
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program voeux2012; uses Flash8; {$FRAME_WIDTH 720} {$FRAME_HEIGHT 566} {$JPEG img 'voeux2012.jpg'} {$BACKGROUND 0} var b: BitmapData; amatrix:matrix; begin //b:=BitmapData.create(520, 366); inutile, le load se charge de le faire je pense... b:= loadBitmap('img'); amatrix:=matrix.Create(1,0,0,1,100,100); //il suffit de faire une translation de 100-100 pixels vers la droite et vers le bas en gardant l'échelle 1 with _root do begin beginBitmapFill(b,amatrix); moveto(100, 100); lineto(620, 100); lineto(620, 466); lineto(100, 466); lineto(100, 100); end; end.
version beginBitmapFill.

a+

anthony
j'arrive après la bataille, mais c'est exactement ça :)

le beginBitmapFill commence par défaut en 0,0, et l'image est en damier.
Pour dessiner à partir de la position 100 il faut appliquer une matrice de translation équivalente sous peine d'avoir un décalage dans l'image :)

l'autre approche est évidemment de placer le tout dans un MovieClip dont l'origine est décalée, l'image bouge alors avec lui.

10/03/2013, 15h23
Roland Chastain

Merci Paul pour le complément d'explication.

Anthony, la classe ! :ccool: