44
55CREATE FUNCTION strans_zxz(strans)
66 RETURNS strans
7- AS 'MODULE_PATHNAME' , 'spheretrans_zxz'
7+ AS 'MODULE_PATHNAME', 'spheretrans_zxz'
88 LANGUAGE 'c'
9- WITH (isstrict,iscachable);
9+ WITH (isstrict, iscachable);
1010
1111COMMENT ON FUNCTION strans_zxz(strans) IS
12- 'returns Euler transformation as ZXZ transformation';
12+ 'returns Euler transformation as ZXZ transformation';
1313
14- CREATE FUNCTION strans( FLOAT8, FLOAT8, FLOAT8 )
14+ CREATE FUNCTION strans(FLOAT8, FLOAT8, FLOAT8)
1515 RETURNS strans
16- AS 'MODULE_PATHNAME' , 'spheretrans_from_float8'
16+ AS 'MODULE_PATHNAME', 'spheretrans_from_float8'
1717 LANGUAGE 'c'
18- WITH (isstrict,iscachable);
18+ WITH (isstrict, iscachable);
1919
20- COMMENT ON FUNCTION strans( FLOAT8, FLOAT8, FLOAT8 ) IS
21- 'returns an transformation object using Euler angles (ZXZ)';
20+ COMMENT ON FUNCTION strans(FLOAT8, FLOAT8, FLOAT8) IS
21+ 'returns an transformation object using Euler angles (ZXZ)';
2222
23- CREATE FUNCTION strans( FLOAT8, FLOAT8, FLOAT8, CSTRING )
23+ CREATE FUNCTION strans(FLOAT8, FLOAT8, FLOAT8, CSTRING)
2424 RETURNS strans
25- AS 'MODULE_PATHNAME' , 'spheretrans_from_float8_and_type'
25+ AS 'MODULE_PATHNAME', 'spheretrans_from_float8_and_type'
2626 LANGUAGE 'c'
27- WITH (isstrict,iscachable);
27+ WITH (isstrict, iscachable);
2828
29- COMMENT ON FUNCTION strans( FLOAT8, FLOAT8, FLOAT8, CSTRING ) IS
30- 'returns an transformation object using Euler angles and axis';
29+ COMMENT ON FUNCTION strans(FLOAT8, FLOAT8, FLOAT8, CSTRING) IS
30+ 'returns an transformation object using Euler angles and axis';
3131
32- CREATE FUNCTION phi( strans )
32+ CREATE FUNCTION phi(strans)
3333 RETURNS FLOAT8
34- AS 'MODULE_PATHNAME' , 'spheretrans_phi'
34+ AS 'MODULE_PATHNAME', 'spheretrans_phi'
3535 LANGUAGE 'c'
36- WITH (isstrict,iscachable);
36+ WITH (isstrict, iscachable);
3737
38- COMMENT ON FUNCTION phi( strans ) IS
39- 'returns the first angle of Euler angles of a transformation object';
38+ COMMENT ON FUNCTION phi(strans) IS
39+ 'returns the first angle of Euler angles of a transformation object';
4040
41- CREATE FUNCTION theta( strans )
41+ CREATE FUNCTION theta(strans)
4242 RETURNS FLOAT8
43- AS 'MODULE_PATHNAME' , 'spheretrans_theta'
43+ AS 'MODULE_PATHNAME', 'spheretrans_theta'
4444 LANGUAGE 'c'
45- WITH (isstrict,iscachable);
45+ WITH (isstrict, iscachable);
4646
47- COMMENT ON FUNCTION theta( strans ) IS
48- 'returns the second angle of Euler angles of a transformation object';
47+ COMMENT ON FUNCTION theta(strans) IS
48+ 'returns the second angle of Euler angles of a transformation object';
4949
50- CREATE FUNCTION psi( strans )
50+ CREATE FUNCTION psi(strans)
5151 RETURNS FLOAT8
52- AS 'MODULE_PATHNAME' , 'spheretrans_psi'
52+ AS 'MODULE_PATHNAME', 'spheretrans_psi'
5353 LANGUAGE 'c'
54- WITH (isstrict,iscachable);
54+ WITH (isstrict, iscachable);
5555
56- COMMENT ON FUNCTION psi( strans ) IS
57- 'returns the third angle of Euler angles of a transformation object';
56+ COMMENT ON FUNCTION psi(strans) IS
57+ 'returns the third angle of Euler angles of a transformation object';
5858
59- CREATE FUNCTION axes( strans )
59+ CREATE FUNCTION axes(strans)
6060 RETURNS CHARACTER(3)
61- AS 'MODULE_PATHNAME' , 'spheretrans_type'
61+ AS 'MODULE_PATHNAME', 'spheretrans_type'
6262 LANGUAGE 'c'
63- WITH (isstrict,iscachable);
63+ WITH (isstrict, iscachable);
6464
65- COMMENT ON FUNCTION axes ( strans ) IS
66- 'returns the axis of Euler angles of a transformation object';
65+ COMMENT ON FUNCTION axes (strans) IS
66+ 'returns the axis of Euler angles of a transformation object';
6767
6868
6969-- spherical transformation operators
7070
71- CREATE FUNCTION strans_equal(strans,strans)
71+ CREATE FUNCTION strans_equal(strans, strans)
7272 RETURNS BOOL
73- AS 'MODULE_PATHNAME' , 'spheretrans_equal'
73+ AS 'MODULE_PATHNAME', 'spheretrans_equal'
7474 LANGUAGE 'c'
75- WITH (isstrict,iscachable);
75+ WITH (isstrict, iscachable);
7676
77- COMMENT ON FUNCTION strans_equal(strans,strans) IS
78- 'returns true, if Euler transformations are equal';
77+ COMMENT ON FUNCTION strans_equal(strans, strans) IS
78+ 'returns true, if Euler transformations are equal';
7979
8080
8181CREATE OPERATOR = (
@@ -85,21 +85,21 @@ CREATE OPERATOR = (
8585 NEGATOR = <>,
8686 PROCEDURE = strans_equal,
8787 RESTRICT = contsel,
88- JOIN = contjoinsel
88+ JOIN = contjoinsel
8989);
9090
91- COMMENT ON OPERATOR = ( strans, strans ) IS
92- 'true, if Euler transformations are equal';
91+ COMMENT ON OPERATOR = (strans, strans) IS
92+ 'true, if Euler transformations are equal';
9393
9494
95- CREATE FUNCTION strans_not_equal(strans,strans)
95+ CREATE FUNCTION strans_not_equal(strans, strans)
9696 RETURNS BOOL
97- AS 'MODULE_PATHNAME' , 'spheretrans_not_equal'
97+ AS 'MODULE_PATHNAME', 'spheretrans_not_equal'
9898 LANGUAGE 'c'
99- WITH (isstrict,iscachable);
99+ WITH (isstrict, iscachable);
100100
101- COMMENT ON FUNCTION strans_not_equal(strans,strans) IS
102- 'returns true, if Euler transformations are not equal';
101+ COMMENT ON FUNCTION strans_not_equal(strans, strans) IS
102+ 'returns true, if Euler transformations are not equal';
103103
104104CREATE OPERATOR <> (
105105 LEFTARG = strans,
@@ -108,115 +108,115 @@ CREATE OPERATOR <> (
108108 NEGATOR = = ,
109109 PROCEDURE = strans_not_equal,
110110 RESTRICT = contsel,
111- JOIN = contjoinsel
111+ JOIN = contjoinsel
112112);
113113
114- COMMENT ON OPERATOR <> ( strans, strans ) IS
115- 'true, if spherical Euler transformations are not equal';
114+ COMMENT ON OPERATOR <> (strans, strans) IS
115+ 'true, if spherical Euler transformations are not equal';
116116
117117
118118CREATE FUNCTION strans(strans)
119119 RETURNS strans
120- AS 'MODULE_PATHNAME' , 'spheretrans'
120+ AS 'MODULE_PATHNAME', 'spheretrans'
121121 LANGUAGE 'c'
122- WITH (isstrict,iscachable);
122+ WITH (isstrict, iscachable);
123123
124124COMMENT ON FUNCTION strans(strans) IS
125- 'returns Euler transformation';
125+ 'returns Euler transformation';
126126
127127CREATE OPERATOR + (
128128 RIGHTARG = strans,
129129 PROCEDURE = strans
130130);
131131
132- COMMENT ON OPERATOR + ( NONE , strans ) IS
132+ COMMENT ON OPERATOR + (NONE, strans) IS
133133 'returns Euler transformation';
134134
135135CREATE FUNCTION strans_invert(strans)
136136 RETURNS strans
137- AS 'MODULE_PATHNAME' , 'spheretrans_invert'
137+ AS 'MODULE_PATHNAME', 'spheretrans_invert'
138138 LANGUAGE 'c'
139- WITH (isstrict,iscachable);
139+ WITH (isstrict, iscachable);
140140
141141COMMENT ON FUNCTION strans_invert(strans) IS
142- 'returns inverse Euler transformation';
142+ 'returns inverse Euler transformation';
143143
144144CREATE OPERATOR - (
145145 RIGHTARG = strans,
146146 PROCEDURE = strans_invert
147147);
148148
149- COMMENT ON OPERATOR - ( NONE , strans ) IS
149+ COMMENT ON OPERATOR - (NONE, strans) IS
150150 'inverts Euler transformation';
151151
152- CREATE FUNCTION strans_point( spoint, strans )
152+ CREATE FUNCTION strans_point(spoint, strans)
153153 RETURNS spoint
154- AS 'MODULE_PATHNAME' , 'spheretrans_point'
154+ AS 'MODULE_PATHNAME', 'spheretrans_point'
155155 LANGUAGE 'c'
156- WITH (isstrict,iscachable);
156+ WITH (isstrict, iscachable);
157157
158- COMMENT ON FUNCTION strans_point ( spoint, strans ) IS
159- 'returns a transformated spherical point';
158+ COMMENT ON FUNCTION strans_point (spoint, strans) IS
159+ 'returns a transformated spherical point';
160160
161161CREATE OPERATOR + (
162162 LEFTARG = spoint,
163163 RIGHTARG = strans,
164164 PROCEDURE = strans_point
165165);
166166
167- COMMENT ON OPERATOR + ( spoint, strans ) IS
168- 'transforms a spherical point ';
167+ COMMENT ON OPERATOR + (spoint, strans) IS
168+ 'transforms a spherical point';
169169
170- CREATE FUNCTION strans_point_inverse( spoint, strans )
170+ CREATE FUNCTION strans_point_inverse(spoint, strans)
171171 RETURNS spoint
172- AS 'MODULE_PATHNAME' , 'spheretrans_point_inverse'
172+ AS 'MODULE_PATHNAME', 'spheretrans_point_inverse'
173173 LANGUAGE 'c'
174- WITH (isstrict,iscachable);
174+ WITH (isstrict, iscachable);
175175
176- COMMENT ON FUNCTION strans_point_inverse ( spoint, strans ) IS
177- 'returns a inverse transformated spherical point';
176+ COMMENT ON FUNCTION strans_point_inverse (spoint, strans) IS
177+ 'returns a inverse transformated spherical point';
178178
179179CREATE OPERATOR - (
180180 LEFTARG = spoint,
181181 RIGHTARG = strans,
182182 PROCEDURE = strans_point_inverse
183183);
184184
185- COMMENT ON OPERATOR - ( spoint, strans ) IS
186- 'transforms inverse a spherical point ';
185+ COMMENT ON OPERATOR - (spoint, strans) IS
186+ 'transforms inverse a spherical point';
187187
188- CREATE FUNCTION strans_trans( strans, strans )
188+ CREATE FUNCTION strans_trans(strans, strans)
189189 RETURNS strans
190- AS 'MODULE_PATHNAME' , 'spheretrans_trans'
190+ AS 'MODULE_PATHNAME', 'spheretrans_trans'
191191 LANGUAGE 'c'
192- WITH (isstrict,iscachable);
192+ WITH (isstrict, iscachable);
193193
194- COMMENT ON FUNCTION strans_trans ( strans, strans ) IS
195- 'returns a transformated Euler transformation';
194+ COMMENT ON FUNCTION strans_trans (strans, strans) IS
195+ 'returns a transformated Euler transformation';
196196
197197CREATE OPERATOR + (
198198 LEFTARG = strans,
199199 RIGHTARG = strans,
200200 PROCEDURE = strans_trans
201201);
202202
203- COMMENT ON OPERATOR + ( strans, strans ) IS
204- 'transforms a Euler transformation ';
203+ COMMENT ON OPERATOR + (strans, strans) IS
204+ 'transforms a Euler transformation';
205205
206- CREATE FUNCTION strans_trans_inv( strans, strans )
206+ CREATE FUNCTION strans_trans_inv(strans, strans)
207207 RETURNS strans
208- AS 'MODULE_PATHNAME' , 'spheretrans_trans_inv'
208+ AS 'MODULE_PATHNAME', 'spheretrans_trans_inv'
209209 LANGUAGE 'c'
210- WITH (isstrict,iscachable);
210+ WITH (isstrict, iscachable);
211211
212- COMMENT ON FUNCTION strans_trans_inv ( strans, strans ) IS
213- 'returns a inverse transformated Euler transformation';
212+ COMMENT ON FUNCTION strans_trans_inv (strans, strans) IS
213+ 'returns a inverse transformated Euler transformation';
214214
215215CREATE OPERATOR - (
216216 LEFTARG = strans,
217217 RIGHTARG = strans,
218218 PROCEDURE = strans_trans_inv
219219);
220220
221- COMMENT ON OPERATOR - ( strans, strans ) IS
222- 'transforms inverse a Euler transformation ';
221+ COMMENT ON OPERATOR - (strans, strans) IS
222+ 'transforms inverse a Euler transformation';