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