Gitiles
Code Review Sign In
gerrit.omnirom.org / android_external_libncurses / b2cef93693cf7cfd01098c9b69603c90f0f4b803 / . / Ada95 / samples / rain.adb
blob: d673018eb0363ad80a1f2977665e5bcf2394e985 [file] [log] [blame]
Amit Daniel Kachhape6a01f52011-07-20 11:45:59 +0530[diff] [blame]1------------------------------------------------------------------------------
2-- --
3-- GNAT ncurses Binding Samples --
4-- --
5-- Rain --
6-- --
7-- B O D Y --
8-- --
9------------------------------------------------------------------------------
10-- Copyright (c) 1998-2007,2008 Free Software Foundation, Inc. --
11-- --
12-- Permission is hereby granted, free of charge, to any person obtaining a --
13-- copy of this software and associated documentation files (the --
14-- "Software"), to deal in the Software without restriction, including --
15-- without limitation the rights to use, copy, modify, merge, publish, --
16-- distribute, distribute with modifications, sublicense, and/or sell --
17-- copies of the Software, and to permit persons to whom the Software is --
18-- furnished to do so, subject to the following conditions: --
19-- --
20-- The above copyright notice and this permission notice shall be included --
21-- in all copies or substantial portions of the Software. --
22-- --
23-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
24-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
25-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
26-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
27-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
28-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
29-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
30-- --
31-- Except as contained in this notice, the name(s) of the above copyright --
32-- holders shall not be used in advertising or otherwise to promote the --
33-- sale, use or other dealings in this Software without prior written --
34-- authorization. --
35------------------------------------------------------------------------------
36-- Author: Laurent Pautet <pautet@gnat.com>
37-- Modified by: Juergen Pfeifer, 1997
38-- Version Control
39-- $Revision: 1.8 $
40-- $Date: 2008/08/30 21:38:07 $
41-- Binding Version 01.00
42------------------------------------------------------------------------------
43-- --
44with ncurses2.util; use ncurses2.util;
45with Ada.Numerics.Float_Random; use Ada.Numerics.Float_Random;
46with Status; use Status;
47with Terminal_Interface.Curses; use Terminal_Interface.Curses;
48
49procedure Rain is
50
51 Visibility : Cursor_Visibility;
52
53 subtype X_Position is Line_Position;
54 subtype Y_Position is Column_Position;
55
56 Xpos : array (1 .. 5) of X_Position;
57 Ypos : array (1 .. 5) of Y_Position;
58
59 done : Boolean;
60
61 c : Key_Code;
62
63 N : Integer;
64
65 G : Generator;
66
67 Max_X, X : X_Position;
68 Max_Y, Y : Y_Position;
69
70 procedure Next (J : in out Integer);
71 procedure Cursor (X : X_Position; Y : Y_Position);
72
73 procedure Next (J : in out Integer) is
74 begin
75 if J = 5 then
76 J := 1;
77 else
78 J := J + 1;
79 end if;
80 end Next;
81
82 procedure Cursor (X : X_Position; Y : Y_Position) is
83 begin
84 Move_Cursor (Line => X, Column => Y);
85 end Cursor;
86 pragma Inline (Cursor);
87
88begin
89
90 Init_Screen;
91 Set_NL_Mode;
92 Set_Echo_Mode (False);
93
94 Visibility := Invisible;
95 Set_Cursor_Visibility (Visibility);
96 Set_Timeout_Mode (Standard_Window, Non_Blocking, 0);
97
98 Max_X := Lines - 5;
99 Max_Y := Columns - 5;
100
101 for I in Xpos'Range loop
102 Xpos (I) := X_Position (Float (Max_X) * Random (G)) + 2;
103 Ypos (I) := Y_Position (Float (Max_Y) * Random (G)) + 2;
104 end loop;
105
106 N := 1;
107 done := False;
108 while not done and Process.Continue loop
109
110 X := X_Position (Float (Max_X) * Random (G)) + 2;
111 Y := Y_Position (Float (Max_Y) * Random (G)) + 2;
112
113 Cursor (X, Y);
114 Add (Ch => '.');
115
116 Cursor (Xpos (N), Ypos (N));
117 Add (Ch => 'o');
118
119 --
120 Next (N);
121 Cursor (Xpos (N), Ypos (N));
122 Add (Ch => 'O');
123
124 --
125 Next (N);
126 Cursor (Xpos (N) - 1, Ypos (N));
127 Add (Ch => '-');
128 Cursor (Xpos (N), Ypos (N) - 1);
129 Add (Str => "|.|");
130 Cursor (Xpos (N) + 1, Ypos (N));
131 Add (Ch => '-');
132
133 --
134 Next (N);
135 Cursor (Xpos (N) - 2, Ypos (N));
136 Add (Ch => '-');
137 Cursor (Xpos (N) - 1, Ypos (N) - 1);
138 Add (Str => "/\\");
139 Cursor (Xpos (N), Ypos (N) - 2);
140 Add (Str => "| O |");
141 Cursor (Xpos (N) + 1, Ypos (N) - 1);
142 Add (Str => "\\/");
143 Cursor (Xpos (N) + 2, Ypos (N));
144 Add (Ch => '-');
145
146 --
147 Next (N);
148 Cursor (Xpos (N) - 2, Ypos (N));
149 Add (Ch => ' ');
150 Cursor (Xpos (N) - 1, Ypos (N) - 1);
151 Add (Str => " ");
152 Cursor (Xpos (N), Ypos (N) - 2);
153 Add (Str => " ");
154 Cursor (Xpos (N) + 1, Ypos (N) - 1);
155 Add (Str => " ");
156 Cursor (Xpos (N) + 2, Ypos (N));
157 Add (Ch => ' ');
158
159 Xpos (N) := X;
160 Ypos (N) := Y;
161
162 c := Getchar;
163 case c is
164 when Character'Pos ('q') => done := True;
165 when Character'Pos ('Q') => done := True;
166 when Character'Pos ('s') => Set_NoDelay_Mode (Standard_Window, False);
167 when Character'Pos (' ') => Set_NoDelay_Mode (Standard_Window, True);
168 when others => null;
169 end case;
170
171 Nap_Milli_Seconds (50);
172 end loop;
173
174 Visibility := Normal;
175 Set_Cursor_Visibility (Visibility);
176 End_Windows;
177 Curses_Free_All;
178
179end Rain;