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
|
program Dessin;
{$FRAME_WIDTH 320}
{$FRAME_HEIGHT 320}
{$BACKGROUND $aaaaaa}
// Feuille de 320 sur 320, de couleur grise
uses
Flash8Ext;
var
mondessin: MovieClip;
begin
mondessin:=MovieClip.Create(nil,'mondessin',0);
mondessin.beginFill($aa0000);// Couleur de remplissage (rouge)
mondessin.lineStyle(1,$ffffff);// Couleur du trait (blanc)
mondessin.moveTo(0,0);// Je pose mon crayon (coordonnées relatives à _x,_y)
mondessin.lineTo(240,0);// et je trace les lignes de mon carré
mondessin.lineTo(240,240);
mondessin.lineTo(0,240);
mondessin.lineTo(0,0);
mondessin._x:=40;// Pour finir je marque la place de mon "MovieClip"
mondessin._y:=40;// dans la feuille
end. |
