Discussion :

[Paul TOTH]

Après avoir vu cette petite vidéo amusante

je me suis amusé à programmer cela en Flash

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
59
60
61
62
63
64
 
program Micmaths;
 
// (c)2015 Paul TOTH, Execute SARL
 
// d'après la vidéo MicMaths  https://www.youtube.com/watch?v=-X49VQgi86E
 
{$FRAME_WIDTH 480}
{$FRAME_HEIGHT 480}
{$FRAME_RATE 12}
{$BACKGROUND $FFFFFF}
 
uses
  Flash8;
 
const
//  NOMBRE = 2;
//  MODULO = 160;
 
//  NOMBRE = 79;
//  MODULO = 160;
 
//  NOMBRE = 107;
//  MODULO = 160;
 
//  NOMBRE = 119;
 // MODULO = 160;
 
//  NOMBRE = 120;
//  MODULO = 122;
 
//  NOMBRE = 120;
//  MODULO = 231;
 
  NOMBRE = 120;
  MODULO = 340;
 
var
  BASE   : Number;
  ANGLE  : Number;
  i      : Integer;
  a, s, c: Number;
  x1, y1 : Number;
  x2, y2 : Number;
begin
  BASE   := -Math.PI/2;
  ANGLE  :=  2*Math.PI;
 
  _root.LineStyle(0, clBlack);
  for i := 1 to MODULO do
  begin
 
    a := BASE + ANGLE/MODULO * i;
    x1 := 240 + 240 * cos(a);
    y1 := 240 + 240 * sin(a);
 
    a := BASE + ANGLE/MODULO * (i * NOMBRE);
    x2 := 240 + 240 * cos(a);
    y2 := 240 + 240 * sin(a);
 
    _root.MoveTo(x1, y1);
    _root.LineTo(x2, y2);
  end;
end.