Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 4 sur 4

Discussion: Sapin de Noël

  1. #1
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 236
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 236
    Points : 3 059
    Points
    3 059

    Par défaut Sapin de Noël

    Bonsoir !

    Voici un modeste essai de sapin de Noël.

    Pour faire les boules, j'ai copié le code des bombes du Démineur de Paul Toth.

    Code :
    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
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    {$FRAME_WIDTH 210}
    {$FRAME_HEIGHT 400}
    {$BACKGROUND $303030}
     
    program Sapin;
     
    uses
      Flash8, Couleurs, Etoile;
     
    { --- Extrait modifié de FlashMine.fpr --------------------------------------- }
     
    type
      TBoule = class(MovieClip)
        constructor Create(Name: string; x, y, c, d: Integer);
        procedure Circle(radius: Integer);
        procedure IsBomb(color: Integer);
      end;
     
      TMatrix = class
        matrixType: string;
        x,y,w,h   : Double;
        r         : Double;
        constructor Create;
      end;
     
    var
      Boules  : array[0..9] of TBoule;
      Matrix : TMatrix;
     
    constructor TBoule.Create(Name: string; x, y, c, d: Integer);
    begin
      inherited Create(nil, Name, d);
      _x := x;
      _y := y;
      IsBomb(c);
    end;
     
    procedure TBoule.Circle(Radius: Integer);
    var
      a    : Double;
      c1,s1: Double;
      c2,s2: Double;
      r2   : Double;
    begin
      a := 3.14/4;
      c1 := cos(a);
      s1 := sin(a);
      a := 3.14/8;
      c2 := cos(a);
      s2 := sin(a);
      r2 := 11 * Radius/10;
      moveTo(0,Radius);
      curveTo( r2*s2, r2*c2, Radius*s1, Radius*c1);
      curveTo( r2*c2, r2*s2, Radius,0);
      curveTo( r2*c2,-r2*s2, Radius*s1,-Radius*c1);
      curveTo( r2*s2,-r2*c2, 0,-Radius);
      curveTo(-r2*s2,-r2*c2,-Radius*c1,-Radius*s1);
      curveTo(-r2*c2,-r2*s2, -Radius,0);
      curveTo(-r2*c2, r2*s2,-Radius*c1, Radius*s1);
      curveTo(-r2*s2, r2*c2, 0,Radius);
    end;
     
    procedure TBoule.IsBomb(color: Integer);
    begin
      lineStyle(0, color);
      beginGradientFill('radial', [$ffffff, color], [100,100], [0,255], Matrix);
      circle(8);
      endFill;
    end;
     
    constructor TMatrix.Create;
    begin
      matrixType := 'box';
      x := -4.5;
      y := -4.5;
      w := 6;
      h := 6;
      r := 0;
    end;
     
    { --- Fin de l'extrait ------------------------------------------------------- }
     
    var
      Etoile: TEtoile;
      i: Integer;
     
    begin
      with _root do
      begin
        lineStyle(0, Bistre);
        moveTo(100-10, 355);
        beginFill(DarkBrown);
        lineTo(100+10, 355);
        lineTo(100+10, 395);
        lineTo(100-10, 395);
        lineTo(100-10, 355);
        endFill();
        lineStyle(0, DarkGreen);
    	for i := 0 to 4 do
    	begin
          moveTo(100, 275-60*i);
          beginFill(Green);
          lineTo(100+80, 355-60*i);
          lineTo(100-80, 355-60*i);
          lineTo(100, 275-60*i);
          endFill();
        end;
      end;
     
      Matrix := TMatrix.Create;
     
      Boules[0] := TBoule.Create('cell_0', 020+10, 355+10, DarkRed, 0);
      Boules[1] := TBoule.Create('cell_0', 180-10, 355+10, DarkRed, 1);
      Boules[2] := TBoule.Create('cell_0', 020+10, 295+10, DarkRed, 2);
      Boules[3] := TBoule.Create('cell_0', 180-10, 295+10, DarkRed, 3);
      Boules[4] := TBoule.Create('cell_0', 020+10, 235+10, DarkRed, 4);
      Boules[5] := TBoule.Create('cell_0', 180-10, 235+10, DarkRed, 5);
      Boules[6] := TBoule.Create('cell_0', 020+10, 175+10, DarkRed, 6);
      Boules[7] := TBoule.Create('cell_0', 180-10, 175+10, DarkRed, 7);
      Boules[8] := TBoule.Create('cell_0', 020+10, 115+10, DarkRed, 8);
      Boules[9] := TBoule.Create('cell_0', 180-10, 115+10, DarkRed, 9);
     
      Etoile := TEtoile.Create(nil, '', 10);
      Etoile._x := 100;
      Etoile._y := 20;
      Etoile.tracerUneEtoile(4, 14, 8, Tangerine, Yellow);
    end.

    Code :
    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
    unit Etoile;
     
    interface
     
    uses
      Flash8;
     
    { --- Extrait d'Etoile.fpr --------------------------------------------------- }
     
    type
      TEtoile = class(MovieClip)
        procedure tracerUneEtoile(r1, r2, n, c1, c2: Integer);
      end;
     
    implementation
     
    procedure TEtoile.tracerUneEtoile(r1, r2, n, c1, c2: Integer);
    var
      da : Double;
       i : Integer;
       a : Double;
       r : Integer;
     x,y : Double;
    begin
      da := Math.PI / n;
      lineStyle(0, c1);
      moveTo(r2, 0);
      beginFill(c2);
      for i := 1 to 2 * n do
      begin
        a := da * i;
        if (i mod 2) = 0 then
          r := r2
        else
          r := r1;
        x := r * cos(a);
        y := r * sin(a);
        lineTo(x, y);
      end;
      endFill();
    end;
     
    { --- Fin de l'extrait ------------------------------------------------------- }
     
    end.
    Images attachées Images attachées
    Fichiers attachés Fichiers attachés
    L'Art est long et le Temps est court.

  2. #2
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 236
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 236
    Points : 3 059
    Points
    3 059

    Par défaut

    Une version améliorée, avec un début d'animation.
    Fichiers attachés Fichiers attachés
    L'Art est long et le Temps est court.

  3. #3
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 236
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 236
    Points : 3 059
    Points
    3 059

    Par défaut

    J'ai amélioré le dessin de l'arbre, remplaçant les droites par des courbes.

    J'ai ajouté aussi une variation dans l'allumage des boules.
    Fichiers attachés Fichiers attachés
    L'Art est long et le Temps est court.

  4. #4
    Rédacteur/Modérateur
    Avatar de Roland Chastain
    Homme Profil pro Roland Chastain
    Inscrit en
    décembre 2011
    Messages
    1 236
    Détails du profil
    Informations personnelles :
    Nom : Homme Roland Chastain
    Âge : 41
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 236
    Points : 3 059
    Points
    3 059

    Par défaut

    Voici le dernier état de mon arbre de Noël.

    Code :
    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
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
    122
    123
    124
    125
    126
    127
    128
    129
    130
    131
    132
    133
    134
    135
    136
    137
    138
    139
    140
    141
    142
    143
    144
    145
    146
    147
    148
    149
    150
    151
    152
    153
    154
    155
    156
    157
    158
    159
    160
    161
    162
    163
    164
    165
    166
    167
    168
    169
    170
    171
    172
    173
    174
    175
    176
    177
    178
    179
    180
    181
    182
    183
    184
    185
    186
    187
    188
    189
    190
    191
    192
    193
    194
    195
    196
    197
    198
    199
    200
    201
    202
    203
    204
    205
    206
    207
    208
    209
    210
    211
    212
    213
    214
    215
    216
    217
    218
    219
    220
    221
    222
    223
    224
    225
    226
    227
     
    { ---------------------------------------------------------------------------- }
    { --- Arbre de Noël 2012 ----------------------------------------------------- }
    { ---------------------------------------------------------------------------- }
    { --- FlashPascal 2 v12.07.07 ------------------------------------------------ }
    { ---------------------------------------------------------------------------- }
     
    {$FRAME_WIDTH 210}
    {$FRAME_HEIGHT 400}
    {$FRAME_RATE 3}
    {$BACKGROUND $404040}
     
    program Sapin;
     
    uses
      Flash8, Couleurs, Etoile;
     
    { --- tBoule (extrait modifié de FlashMine.fpr) ------------------------------ }
     
    type
      tBoule = class(MovieClip)
        constructor Create(Name: string; x, y, c, d: Integer);
        procedure Circle(radius: Integer);
        procedure IsBomb(color: Integer);
      end;
     
      tMatrix = class
        matrixType: string;
        x,y,w,h   : Double;
        r         : Double;
        constructor Create;
      end;
     
    constructor tBoule.Create(Name: string; x, y, c, d: Integer);
    begin
      inherited Create(nil, Name, d);
      _x := x;
      _y := y;
      IsBomb(c);
    end;
     
    procedure tBoule.Circle(Radius: Integer);
    var
      a    : Double;
      c1,s1: Double;
      c2,s2: Double;
      r2   : Double;
    begin
      a := 3.14/4;
      c1 := cos(a);
      s1 := sin(a);
      a := 3.14/8;
      c2 := cos(a);
      s2 := sin(a);
      r2 := 11 * Radius/10;
      moveTo(0,Radius);
      curveTo( r2*s2, r2*c2, Radius*s1, Radius*c1);
      curveTo( r2*c2, r2*s2, Radius,0);
      curveTo( r2*c2,-r2*s2, Radius*s1,-Radius*c1);
      curveTo( r2*s2,-r2*c2, 0,-Radius);
      curveTo(-r2*s2,-r2*c2,-Radius*c1,-Radius*s1);
      curveTo(-r2*c2,-r2*s2, -Radius,0);
      curveTo(-r2*c2, r2*s2,-Radius*c1, Radius*s1);
      curveTo(-r2*s2, r2*c2, 0,Radius);
    end;
     
    var
      Matrix: tMatrix;
     
    procedure tBoule.IsBomb(color: Integer);
    begin
      lineStyle(0, color);
      beginGradientFill('radial', [$ffffff, color], [100,100], [0,255], Matrix);
      circle(8);
      endFill;
    end;
     
    constructor tMatrix.Create;
    begin
      matrixType := 'box';
      x := -4.5;
      y := -4.5;
      w := 6;
      h := 6;
      r := 0;
    end;
     
    { --- tHorloge --------------------------------------------------------------- }
     
    type
      tHorloge = class(MovieClip)
        time: integer;
        constructor Create;
        procedure onEnterFrame; override;
      end;
     
    var
      a: array[0..9] of boolean;
     
    procedure P1; var i: integer;
    begin for i := 0 to 9 do if i  mod 2 = 0 then a[i] := TRUE else a[i] := FALSE;
    end;
    procedure P2; var i: integer;
    begin for i := 0 to 9 do a[i] := not a[i];
    end;
    procedure P3(i: integer); var j: integer;
    begin for j := 0 to 9 do if j = i then a[j] := TRUE else a[j] := FALSE;
    end;
    procedure P4; var i: integer;
    begin for i := 0 to 9 do if i < 5 then a[i] := TRUE else a[i] := FALSE;
    end;
    procedure P5; var i: integer;
    begin for i := 0 to 9 do if Random < 0.5 then a[i] := TRUE else a[i] := FALSE;
    end;
     
    constructor tHorloge.Create;
    begin
      inherited Create(_root, 'horloge', 12);
      time := 0;
    end;
     
    var
      Boules  : array[0..9] of tBoule;
     
    procedure RedessineBoules;
    var
      i: integer;
    begin
      for i := 0 to 9 do if a[i] then
        Boules[i].IsBomb(Orchid)
      else
        Boules[i].IsBomb(PersianBlue);
    end;
     
    procedure tHorloge.onEnterFrame;
    begin
      if time = 40 then time := 0;
      case time div 10 of
        0: begin
             if time = 0 then P1;
             P2;
           end;
        1: begin
             P3(time mod 10);
           end;
        2: begin
             if time = 20 then P4 else P2;
           end;
        3: begin
             P5;
           end;
      end;
      RedessineBoules;
      Inc(time);
    end;
     
    { --- tArbre ----------------------------------------------------------------- }
     
    type
      tArbre = class(MovieClip)
        constructor Create(d: integer);
      end;
     
    constructor tArbre.Create(d: integer);
    var
      i: integer;
    begin
      inherited Create(_root, 'arbre', d);
      lineStyle(2, DarkBrown);
      moveTo(100-10, 355);
      beginFill(SaddleBrown);
      lineTo(100+10, 355);
     {lineTo(100+10, 395);}
      curveTo(100+5, 375, 100+10, 395);
      lineTo(100-10, 395);
     {lineTo(100-10, 355);}
      curveTo(100-5, 375, 100-10, 355);
      endFill();
      lineStyle(2, DarkGreen);
    	for i := 0 to 4 do
    	begin
        moveTo(100, 275-60*i);
        beginFill(ForestGreen);
       {lineTo(100+80, 355-60*i);
        lineTo(100-80, 355-60*i);
        lineTo(100, 275-60*i);}
        curveTo(100+80-50, 355-60*i-30, 100+80, 355-60*i);
        curveTo(100, 355-60*i+20, 100-80, 355-60*i);
        curveTo(100-80+50, 355-60*i-30, 100, 275-60*i);
        endFill();
      end;
    end;
     
    { --- Programme principal ---------------------------------------------------- }
     
    var
      Etoile: tEtoile;
      Horloge: tHorloge;
      Arbre: tArbre;
     
    begin
      Arbre := tArbre.Create(10);
     
      Matrix := tMatrix.Create;
     
      Boules[4] := tBoule.Create('b4', 020+10, 355+10, Violet, 0);
      Boules[5] := tBoule.Create('b5', 180-10, 355+10, Violet, 1);
      Boules[3] := tBoule.Create('b3', 020+10, 295+10, Violet, 2);
      Boules[6] := tBoule.Create('b6', 180-10, 295+10, Violet, 3);
      Boules[2] := tBoule.Create('b2', 020+10, 235+10, Violet, 4);
      Boules[7] := tBoule.Create('b7', 180-10, 235+10, Violet, 5);
      Boules[1] := tBoule.Create('b1', 020+10, 175+10, Violet, 6);
      Boules[8] := tBoule.Create('b8', 180-10, 175+10, Violet, 7);
      Boules[0] := tBoule.Create('b0', 020+10, 115+10, Violet, 8);
      Boules[9] := tBoule.Create('b9', 180-10, 115+10, Violet, 9);
     
      Etoile := tEtoile.Create(nil, '', 11);
      Etoile._x := 100;
      Etoile._y := 20;
      Etoile.tracerUneEtoile(4, 14, 8, Tangerine, Yellow);
     
      Horloge := tHorloge.Create;
     
      stage.displayState := 'FullScreen';
    end.
     
    { --- Fin du programme ------------------------------------------------------- }
    Fichiers attachés Fichiers attachés
    L'Art est long et le Temps est court.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •