Je me suis essayé à un motif papier millimétré... le résultat obtenu dans la preview est satisfaisant mais le fichier flash généré est complétement différent...
Le changement d'échelle pose soucis...

ci-joint :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
program motifppmilli;
 
uses
  Flash8;
 
{$FRAME_WIDTH 1000}
{$FRAME_HEIGHT 500}
{$BACKGROUND $ffffff}
 
var
  i:integer;
  bmp: BitmapData;
  m:matrix;
  image:movieclip;
begin
   image:=movieclip.create(nil,'ppmillimetre',1);
   image.linestyle(3,$4091CE);
   image.moveto(0,0);
   image.lineto(100,0);
   image.moveto(0,0);
   image.lineto(0,100);
   image.linestyle(1,$4091CE);
   For i:=1 to 9 do
   begin
    image.moveto(0,10*i);
    image.lineto(100,10*i);
    image.moveto(10*i,0);
    image.lineto(10*i,100);
   end;
   //fin motif
   bmp:=Bitmapdata.create(100,100);
   bmp.draw(image);
   image._visible:=false; 
   m:=matrix.create();
   m.CreateBox(0.5,0.5,0,0,0);    //scalex 50% et scaley 50% echelle 1/2 du motif
  _root.beginBitmapFill(bmp,m);
  _root.moveto(0,0);
  _root.lineto(1000, 0);
  _root.lineto(1000,500);
  _root.lineto(0,500);
  _root.lineto(0,0);
  _root.EndFill();  
end.
? décidément, ça n'arrive qu'à moi...