Exemple simple d'effet flouté

**Archimède** · 14/03/2013, 22h37

Je ne me souviens plus si ça a déjà été proposé mais je donne un exemple simple à comprendre d'effet flouté sur un carré jaune.

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
 
program Peffetfloute;
 
{$FRAME_WIDTH 350}
{$FRAME_HEIGHT 350}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  myfilter:BlurFilter;
  myfilterArray:TArray;
  carre:Movieclip;
begin
  myfilterArray:=TArray.Create();
  myfilter:=BlurFilter.Create(30,30,3);//blurX:Number Quantité de flou à appliquer horizontalement de 0 à 255
                                       //blurY:Number Quantité de flou à appliquer verticalement.  de 0 à 255
                                       //quality:Number  La valeur par défaut est 1 de qualité inférieure. Une valeur de 2 est une qualité moyenne
                                       // une valeur de 3 est la qualité supérieure flou gaussien.
  myfilterArray.Push(myfilter);
  carre:=movieclip.Create(_Root,'myrect',0);
  with carre do
  begin
   filters := myfilterArray;
   beginfill(clyellow);
   lineTo(300, 0);
   lineTo(300, 300);
   lineTo(0, 300);
   _x := 25;
   _y := 25;
  end;
end.