Dessiner le drapeau Suisse avec Mathematica

Applications des mathématiques 2008-2009

Utilisation des primitives graphiques

Construction du drapeau suisse à l’aide de la primitive graphique Raster.

Article mis en ligne le 7 décembre 2008

par Loïc Reymond

Show[Graphics[
  RasterArray[{{Hue[0], Hue[0], Hue[0], Hue[0], Hue[0], Hue[0], 
     Hue[0],
     Hue[0]}, {Hue[0], Hue[0], Hue[0], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], Hue[0], Hue[0], Hue[0]}, {Hue[0], Hue[0], 
     Hue[0], RGBColor[1, 1, 1], RGBColor[1, 1, 1], Hue[0], Hue[0], 
     Hue[0]}, {Hue[0], RGBColor[1, 1, 1], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], RGBColor[1, 1, 1], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], Hue[0]}, {Hue[0], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], RGBColor[1, 1, 1], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], RGBColor[1, 1, 1], Hue[0]}, {Hue[0], Hue[0], 
     Hue[0], RGBColor[1, 1, 1], RGBColor[1, 1, 1], Hue[0], Hue[0], 
     Hue[0]}, {Hue[0], Hue[0], Hue[0], RGBColor[1, 1, 1], 
     RGBColor[1, 1, 1], Hue[0], Hue[0], Hue[0]}, {Hue[0], Hue[0], 
     Hue[0], Hue[0], Hue[0], Hue[0], Hue[0], Hue[0]}}]], 
 AspectRatio -> Automatic]

et voilà, vous pouvez admirer mon joli drapeau suisse !

Mais maintenant tout le monde peut copier mon code, ce qui enlève la valeur aux autres devoirs !

Dans la même rubrique