1 ------------------------------------------------------------------------------
3 -- Nom du fichier : Test.ads --
5 -- Auteur(s) : Livio Righetti --
7 -- Date de creation : 26-MARS-97 --
9 -- But : Mettre a disposition des fonctions graphiques --
12 -- Date de modif. : 18-SEPT-97 (G.corbaz) --
13 -- Raison : Utilisation du paquetage Adagraph --
15 -- Date de modif. : 7-AVRIL-99 (P.Girardet) --
16 -- Raison : Pour creer une librairie --
18 -- Date de modif. : 28 avril 2000 (SALAMIN Michel) --
19 -- Raison : Suppression de AdaGraph et utilisation d'une DLL --
20 -- faisant des appels directs aux API de Windows. --
22 -- Modules appeles : --
23 -- Mat. particulier : Graphmin.dll --
27 ------------------------------------------------------------------------------
38 car : Character := ' ';
40 color : Spider.Draw.tColor;
45 Clic : Boolean := false;
48 Spider.Init_Window("Programme de test");
50 Spider.move_To(700,700);
51 Spider.move_To( 50, 50); Spider.Draw.display_Text("0");
52 Spider.move_To(100,100); Spider.Draw.display_Text("1");
53 Spider.move_To(150, 50); Spider.Draw.display_Text("2");
54 Spider.move_To(200,100); Spider.Draw.display_Text("3");
55 Spider.move_To(250, 50); Spider.Draw.display_Text("4");
56 Spider.move_To(300,100); Spider.Draw.display_Text("5");
57 Spider.move_To(350, 50); Spider.Draw.display_Text("6");
58 Spider.move_To(400,100); Spider.Draw.display_Text("7");
59 Spider.move_To(450, 50); Spider.Draw.display_Text("8");
60 Spider.move_To(500,100); Spider.Draw.display_Text("9");
69 Spider.Draw.set_Color_Pen(color);
70 Spider.line_To(50+I,250,
79 Spider.Draw.set_Color_Pen(color);
80 Spider.line_To(50+I,300,
89 Spider.Draw.set_Color_Pen(color);
90 Spider.line_To(50+I,350,
98 Spider.Draw.set_Color_Pen(color);
100 Spider.move_To(260,300); Spider.Draw.circle(10,Spider.Draw.noFill);
101 Spider.move_To(260,350); Spider.Draw.circle(10,Spider.Draw.fill);
106 Spider.Draw.set_Color_Pen(color);
110 Spider.User.key_Pressed(car_Temp,Clic);
115 Spider.User.left_Clic(x,y,Clic);
118 Spider.line_To(ax,ay,x,y);
119 Spider.Draw.Display_Text((1=>Car));
121 Put("Ajout du point (");
122 Put(Integer'image(X));
124 Put(Integer'image(Y));
130 Spider.User.Sleep(50);