Haskell OpenGL et VB6

Il parait que le langage Haskell est un "langage de syntaxe légère",
permettant grâce à ses "fonctions supérieures d'écrire rapidement des
programmes faisant des chose assez compliquées". Bon.
Voici un petit programme en Visual Basic 6, dessinant une petite fractale
bien connue :...

Code:

---

1 2 3 4 5 6 7

Private Sub Form_Load() For i = 0 To 3000 For j = 0 To 3000 If (i And j - i) = False Then PSet (i, j) Next j Next i End Sub

---

Et voici le résultat :
Pièce jointe 141775
Et en Haskell, ça donne quoi ?
Pas de solution, personne ?

Le ton de la question est clairement trollesque... Si telle n'est pas ton intention je te conseille de travailler ta méthode de communication, elle laisse à désirer. Voici néanmoins un programme qui dessine cette même image sous Haskell :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

module Main (main) where   import Codec.Picture (generateImage, PixelRGBA8(..)) import Graphics.Gloss.Juicy import Graphics.Gloss import Data.Bits ((.&.))   main = display (InWindow "Fractale" (1000, 1000) (10, 10)) white (fromImageRGBA8 $ generateImage gen 3000 3000) where gen i j = if i .&. j-i == 0 then PixelRGBA8 0 0 0 255 else PixelRGBA8 255 255 255 255

---

En dehors du code d'importation des librairies nécessaires (installées avec "cabal install gloss-juicy" au préalable), le code lui-même n'est pas bien long, et le résultat est assez esthétique (gloss utilise OpenGl via Glut pour ouvrir une fenêtre dans laquelle tu peux naviguer et zoomer).

Pour ce qui est de la fractale elle-même, on peut obtenir un résultat bien plus intéressant avec des images vectorielles (parce qu'on peut zoomer/dézoomer sans soucis), voici un exemple très simple de la génération du triangle de Sierpiński avec la bibliothèque diagrams (hautement recommandée) à une profondeur réglable.
--
Jedaï

Merci pour la réponse
Domage qu'il faille toujours installer les extensions de langage et nouvelles bibliothèques !
Salutations,
Vasilpapa

Citation:

---

Envoyé par vasilpapa

Domage qu'il faille toujours installer les extensions de langage et nouvelles bibliothèques !

---

1. Je n'utilise pas d'"extension de langage" dans mon programme, Brent utilise "NoMonomorphismRestriction" qui est plus un choix esthétique qu'autre chose (il aurait pu s'en passer en mettant des types)
2. Les "extensions de langage" ne nécessitent pas d'installation, elles se choisissent juste au début d'un module avec un pragma.
3. Pour un langage généraliste comme Haskell, se plaindre d'avoir à installer des bibliothèques pour faire certaines tâches est assez étrange... Tu devrais plutôt te réjouir qu'il y ait des bibliothèques dans ce domaine.

Évidemment il y a des langages qui contiennent plus de choses dans leur bibliothèque standard qu'Haskell, mais il y a toujours des limitations, et souvent cela signifie que les programmeurs de ce langage se plient en quatre pour éviter de sortir de la bibliothèque standard alors qu'il existe des solutions nettement plus simples et lisibles s'ils s'autorisent à utiliser des bibliothèques tierces. D'autant qu'ici, l'installation de Gloss et JuicyPixel est particulièrement simple et ne nécessite qu'une seule ligne de commande.

Si tu voulais plutôt parler de cabal-install et des soucis de dépendances et conflits de versions en Haskell, il s'agit là d'un autre sujet, en lente amélioration mais qui peut être légitimement irritant au jour d'aujourd'hui.

--
Jedaï