Discussion :

[Roland Chastain]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Archimède]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

?

[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.

[Archimède]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

{$BACKGROUND 0}

[Roland Chastain]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Archimède]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Roland Chastain]

Impeccable ! Merci Anthony pour la solution.

[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+

[Archimède]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Paul TOTH]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Roland Chastain]

Merci Paul pour le complément d'explication.

Anthony, la classe !