1 ------------------------------------------------------------------------------------------------
2 -- Nom : Power Fractal --
3 -- Auteurs : Gregory Burri & Adrien Crivelli --
4 -- Date : 12.07.2001 --
7 -- Outils de compilation : ObjectAda V7.2 --
8 -- Outils supplementaires : Spider, bibliotheque de dessin rudimetaire --
10 -- Platformes : Windows 4 et nt --
12 -- Description : Programme permettant le dessin de fractals de l'ensemble de Mandelbrot --
13 -- et de l'ensemble de Julia, il met a diposition plusieurs outils --
14 -- permattant de zoomer, de centrer de definir certains parametres propres aux --
15 -- fractals et de sauvegarder au format pof un fractal ou encore de la rendre --
16 -- dans un fichier bmp. De plus il permet de definir un degrade de couleur --
17 -- qui sera applique a la fractal. --
19 -- Pour plus de renseignement veuillez consulter la doc, ou le site officiel : --
20 -- http://pifou.servehttp.com/powerfractal --
22 ------------------------------------------------------------------------------------------------
24 with Spider; --Bibliotheque de dessin spider
27 with Ada.Text_IO; use Ada.Text_IO; --Entree-sortie de texte
29 with Power_Types; use Power_Types;
34 -------------------------------------------------------------------------------------------------
35 --Procedure principale --
36 -------------------------------------------------------------------------------------------------
37 procedure Power_Fractal_Main is
39 --La liste de fractals initialisee avec des exemple
40 Liste : T_Liste_Fractals := Power_List.Liste_Defaut;
42 ----------------------------------------------------------------------------------------------
44 ----------------------------------------------------------------------------------------------
45 begin -- Power_Fractal_Main
47 Put_Line(" -=-=-=-=-=-Power Fractal 1.0-=-=-=-=-=- ");
48 Put_Line(" -=by pifou and kiki=-");
50 Put_Line("Press 'return' and choose a fractal");
52 Put_Line(" When you are on command line :");
53 Put_Line(" HELP => to view the list of all commands");
54 Put_Line(" HELP <command> => to view a short description about the command");
57 Spider.Init_Window("Power Fractal"); --Ouverture de la fenetre spider
59 --Reinitialise le contenu de la fenetre graphique
60 Spider.Draw.Set_Color_Background(Spider.Draw.Black); Spider.Clear_Window;
62 Power_Console.Console(Liste, Prompt);
64 Power_List.Vider_Liste(Liste);
67 Put_Line(" Thanks for use this program :-)");
69 Put(" Press 'return' to quit");
72 end Power_Fractal_Main;