DEL remove useless code
[powerfractal.git] / Src / powerfractal.ada
1 ------------------------------------------------------------------------------------------------
2 -- Nom         : Power Fractal                                                                --
3 -- Auteurs     : Gregory Burri & Adrien Crivelli                                              --
4 -- Date        : 12.07.2001                                                                   --
5 -- Version     : 1.0                                                                          --
6 --                                                                                            --
7 -- Outils de compilation  : ObjectAda V7.2                                                    --
8 -- Outils supplementaires : Spider, bibliotheque de dessin rudimetaire                        --
9 --                                                                                            --
10 -- Platformes  : Windows 4 et nt                                                              --
11 --                                                                                            --
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.                                              --
18 --                                                                                            --
19 --               Pour plus de renseignement veuillez consulter la doc, ou le site officiel :  --
20 --                      http://pifou.servehttp.com/powerfractal                               --
21 --                                                                                            --
22 ------------------------------------------------------------------------------------------------
23
24 with Spider; --Bibliotheque de dessin spider
25 with Spider.Draw;
26
27 with Ada.Text_IO; use Ada.Text_IO;  --Entree-sortie de texte
28
29 with Power_Types; use Power_Types;
30 with Power_Console;
31 with Power_List;
32
33
34 -------------------------------------------------------------------------------------------------
35 --Procedure principale                                                                         --
36 -------------------------------------------------------------------------------------------------
37 procedure Power_Fractal_Main is
38
39    --La liste de fractals initialisee avec des exemple
40    Liste : T_Liste_Fractals := Power_List.Liste_Defaut;
41
42 ----------------------------------------------------------------------------------------------
43 --MAIN                                                                                      --
44 ----------------------------------------------------------------------------------------------
45 begin -- Power_Fractal_Main
46
47    Put_Line("                   -=-=-=-=-=-Power Fractal 1.0-=-=-=-=-=- ");
48    Put_Line("                                                     -=by pifou and kiki=-");
49    New_Line;
50    Put_Line("Press 'return' and choose a fractal");
51    New_Line(3);
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");
55    Skip_Line;
56
57    Spider.Init_Window("Power Fractal"); --Ouverture de la fenetre spider
58
59    --Reinitialise le contenu de la fenetre graphique
60    Spider.Draw.Set_Color_Background(Spider.Draw.Black); Spider.Clear_Window;
61
62    Power_Console.Console(Liste, Prompt);
63
64    Power_List.Vider_Liste(Liste);
65
66    New_Line(4);
67    Put_Line("                    Thanks for use this program    :-)");
68    New_Line(5);
69    Put("                            Press 'return' to quit");
70    Skip_Line;
71    
72 end Power_Fractal_Main;
73
74