------------------------------------------------------------------------------------------------ -- Nom : Power Fractal -- -- Auteurs : Gregory Burri & Adrien Crivelli -- -- Date : 12.07.2001 -- -- Version : 1.0 -- -- -- -- Outils de compilation : ObjectAda V7.2 -- -- Outils supplementaires : Spider, bibliotheque de dessin rudimetaire -- -- -- -- Platformes : Windows 4 et nt -- -- -- -- Description : Programme permettant le dessin de fractals de l'ensemble de Mandelbrot -- -- et de l'ensemble de Julia, il met a diposition plusieurs outils -- -- permattant de zoomer, de centrer de definir certains parametres propres aux -- -- fractals et de sauvegarder au format pof un fractal ou encore de la rendre -- -- dans un fichier bmp. De plus il permet de definir un degrade de couleur -- -- qui sera applique a la fractal. -- -- -- -- Pour plus de renseignement veuillez consulter la doc, ou le site officiel : -- -- http://pifou.servehttp.com/powerfractal -- -- -- ------------------------------------------------------------------------------------------------ with Spider; --Bibliotheque de dessin spider with Spider.Draw; with Ada.Text_IO; use Ada.Text_IO; --Entree-sortie de texte with Power_Types; use Power_Types; with Power_Console; with Power_List; ------------------------------------------------------------------------------------------------- --Procedure principale -- ------------------------------------------------------------------------------------------------- procedure Power_Fractal_Main is --La liste de fractals initialisee avec des exemple Liste : T_Liste_Fractals := Power_List.Liste_Defaut; ---------------------------------------------------------------------------------------------- --MAIN -- ---------------------------------------------------------------------------------------------- begin -- Power_Fractal_Main Put_Line(" -=-=-=-=-=-Power Fractal 1.0-=-=-=-=-=- "); Put_Line(" -=by pifou and kiki=-"); New_Line; Put_Line("Press 'return' and choose a fractal"); New_Line(3); Put_Line(" When you are on command line :"); Put_Line(" HELP => to view the list of all commands"); Put_Line(" HELP => to view a short description about the command"); Skip_Line; Spider.Init_Window("Power Fractal"); --Ouverture de la fenetre spider --Reinitialise le contenu de la fenetre graphique Spider.Draw.Set_Color_Background(Spider.Draw.Black); Spider.Clear_Window; Power_Console.Console(Liste, Prompt); Power_List.Vider_Liste(Liste); New_Line(4); Put_Line(" Thanks for use this program :-)"); New_Line(5); Put(" Press 'return' to quit"); Skip_Line; end Power_Fractal_Main;