Ligne en pointillés

**Archimède** · 22/10/2012, 19h43

ci-joint, une tentative de ligne en pointillés :

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 Project6;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
  var
      matrix1:Matrix;
 
begin
  matrix1:=matrix.create();
  matrix1.createGradientBox(10,10,math.pi/2,0,0);
  with _root do
  begin
   lineStyle(1);
   lineGradientStyle('linear',[$000000,$ffffff], [100,100],[20,100], matrix1,'repeat','linearRGB',0.9);
   moveTo(50,10);
   lineTo(300,10);
   lineto(300,260);
   lineto(50,260);
   lineto(50,10);
  end;

les lignes verticales sont en pointillés ...normal !.... en revanche, je suis obligé de mettre rotation à 0 pour avoir les lignes horizontales en pointillés aussi et je perds les lignes verticales... et ne parlons pas des obliques

dashdot n'est pas présent en as2...

comment faire pour contourner le problème ?

merci

**Archimède** · 22/10/2012, 22h30

vite fait, dans l'instant, un truc adapté comme ça, c'est bon...

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
program Project7;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8,math;
 
procedure traitpointille(startx, starty, endx, endy, len, gap:number;mc:movieclip);
var seglength, deltax, deltay,delta, cx, cy,radians:number;
    n,segs:integer;
begin
// calculate the legnth of a segment
 seglength := len + gap;
// calculate the length of the dashed line
 deltax := endx - startx;
 deltay := endy - starty;
 delta :=sqrt((deltax * deltax) + (deltay * deltay));
// calculate the number of segments needed
 segs :=floor(abs(delta / seglength));
// get the angle of the line in radians
 radians := atan2(deltay,deltax);
// start the line here
 cx := startx;
 cy := starty;
// add these to cx, cy to get next seg start
 deltax :=cos(radians)*seglength;
 deltay :=sin(radians)*seglength;
// loop through each seg
 for  n :=0 to segs  do
 begin
  with mc do
  begin
   linestyle(1,$000000);
   moveTo(cx,cy);
   lineTo(cx+Math.cos(radians)*len,cy+Math.sin(radians)*len);
  end;
  cx :=cx+ deltax;
  cy :=cy+ deltay;
 end;
 mc.moveTo(cx,cy);
 delta :=sqrt((endx-cx)*(endx-cx)+(endy-cy)*(endy-cy));
 if(delta>len) then
 // segment ends in the gap, so draw a full dash
 mc.lineTo(cx+cos(radians)*len,cy+sin(radians)*len)
 else if(delta>0) then
 // segment is shorter than dash so only draw what is needed
 mc.lineTo(cx+Math.cos(radians)*delta,cy+Math.sin(radians)*delta);
// move the pen to the end position
 mc.moveTo(endx,endy);
end;
 
begin
 traitpointille(10,10,300,400,5,5,_root);
end.

**Archimède** · 22/10/2012, 22h42

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
45
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
procedure traitpointille(startx, starty, endx, endy, len, gap:number;mc:movieclip);
var seglength, deltax, deltay,delta, cx, cy,radians:number;
    n,segs:integer;
begin
 seglength := len + gap;
 deltax := endx - startx;
 deltay := endy - starty;
 delta :=sqrt((deltax * deltax) + (deltay * deltay));
 segs :=floor(abs(delta / seglength));
 radians := atan2(deltay,deltax);
 cx := startx;
 cy := starty;
 deltax :=cos(radians)*seglength;
 deltay :=sin(radians)*seglength;
 for  n :=0 to segs  do
 begin
  with mc do
  begin
   moveTo(cx,cy);
   lineTo(cx+cos(radians)*len,cy+sin(radians)*len);
  end;
  cx :=cx+ deltax;
  cy :=cy+ deltay;
 end;
 mc.moveTo(cx,cy);
 delta :=sqrt((endx-cx)*(endx-cx)+(endy-cy)*(endy-cy));
 if delta>len then
 mc.lineTo(cx+cos(radians)*len,cy+sin(radians)*len)
 else if delta>0 then mc.lineTo(cx+cos(radians)*delta,cy+sin(radians)*delta);
 mc.moveTo(endx,endy);
end;
 
begin
 _root.linestyle(2,clblack);
 traitpointille(10,200,300,100,7,5,_root);
end.

**Paul TOTH** · 22/10/2012, 22h57

en effet il n'y a pas d'effet standard pour cela

une autre solution aussi, tu gardes ta première méthode avec le lineGradientStyle mais tu dessines chaque ligne dans un nouveau MovieClip auquel tu appliques une rotation.

exemple, la fonction dot() qui fonctionne comme une tortue "logo" ... mais c'est surtout pour éviter les calculs, on pourrait très bien calculer d'après x1,y1,x2,y2 la position est l'angle de rotation de la ligne.

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
45
46
47
48
 
program Project1;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
var
  matrix1: Matrix;
  ox, oy : Number;
  om     : MovieClip;
 
procedure dot(a, l: Number);
var
  m: MovieClip;
begin
  m := MovieClip.Create(om, '', _root.getNextHighestDepth());
  with m do
  begin
   lineStyle(1);
   _x := ox;
   _y := oy;
   lineGradientStyle('linear',[$000000,$ffffff], [100,100],[20,100], matrix1,'repeat','linearRGB',0.9);
   lineTo(l,0);
   _rotation := a;
  end;
  ox := l;
  oy := 0;
  om := m;
end;
 
begin
  matrix1:=matrix.create();
  matrix1.createGradientBox(10,10,0,0,0);
  om := _root;
  ox := 100;
  oy := 100;
  dot(-30, 100);
  dot(+60, 100);
  dot(+60, 150);
  dot(+90, 175);
  dot(+90, 150);
  dot(+130, 240);
end.

**Archimède** · 22/10/2012, 23h00

Bravo

, super bien vu !

merci, nickel

**Archimède** · 23/10/2012, 00h13

oui, en effet, on pouvait le faire comme ceci :

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
 
program Project6;
 
{$FRAME_WIDTH 550}
{$FRAME_HEIGHT 400}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
procedure dot(x1,y1,x2,y2:number;m:movieclip);
var theta:number;
    matrix1:Matrix;
begin
   theta:=atan2(y2-y1,x2-x1);
   matrix1:=matrix.create();
   matrix1.createGradientBox(10,10,theta,0,0);
 
   with m do
   begin
    lineGradientStyle('linear',[$000000,$ffffff], [100,100],[20,100], matrix1,'repeat','linearRGB',0.9);
    moveTo(x1,y1);
    lineTo(x2,y2);
   end;
end;
 
begin
  with _root do
  begin
   lineStyle(1,clblack);
   dot(50,50,350,50,_root);
   dot(350,50,350,350,_root);
   dot(50,350,350,350,_root);
   dot(50,350,50,50,_root);
   dot(50,50,350,350,_root);
   dot(50,350,350,50,_root);
  end;
 
end.

merci

**Paul TOTH** · 23/10/2012, 07h34

ah oui encore mieux, je n'avais pas songé à jouer sur la matrice

Ligne en pointillés [Flash Pascal]

Flash Pascal

Vue hybride

Discussions similaires

Partager

Partager