Home My Page Projects Code Snippets Project Openings 3D graphics for Standard ML
Summary Activity SCM

SCM Repository

[sml3d] Annotation of /src/common/sml3d-type-util-sig.sml
ViewVC logotype

Annotation of /src/common/sml3d-type-util-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 16 - (view) (download)
Original Path: src/opengl/gl-type-util-sig.sml

1 : jhr 1 (* gl-type-util-sig.sml
2 :     *
3 :     * COPYRIGHT (c) 2006 John Reppy (http://www.cs.uchicago.edu/~jhr)
4 :     * All rights reserved.
5 :     *)
6 :    
7 :     signature GL_TYPE_UTIL =
8 :     sig
9 :    
10 :     include GL_TYPES
11 :    
12 :     (* pack tuples as records *)
13 :     val packv2 : ('a * 'a) -> 'a vec2
14 :     val packv3 : ('a * 'a * 'a) -> 'a vec3
15 :     val packv4 : ('a * 'a * 'a * 'a) -> 'a vec4
16 :    
17 :     val packt2 : ('a * 'a) -> 'a tex2
18 :     val packt3 : ('a * 'a * 'a) -> 'a tex3
19 :     val packt4 : ('a * 'a * 'a * 'a) -> 'a tex4
20 :    
21 :     val packc3 : ('a * 'a * 'a) -> 'a rgb
22 :     val packc4 : ('a * 'a * 'a * 'a) -> 'a rgba
23 :    
24 :     (* unpack records as tuples *)
25 : jhr 16 val unpackv2 : 'a vec2 -> ('a * 'a)
26 :     val unpackv3 : 'a vec3 -> ('a * 'a * 'a)
27 :     val unpackv4 : 'a vec4 -> ('a * 'a * 'a * 'a)
28 : jhr 1
29 : jhr 16 val unpackt2 : 'a tex2 -> ('a * 'a)
30 :     val unpackt3 : 'a tex3 -> ('a * 'a * 'a)
31 :     val unpackt4 : 'a tex4 -> ('a * 'a * 'a * 'a)
32 : jhr 1
33 : jhr 16 val unpackc3 : 'a rgb -> ('a * 'a * 'a)
34 :     val unpackc4 : 'a rgba -> ('a * 'a * 'a * 'a)
35 : jhr 1
36 : jhr 16 (* iterators *)
37 :     fun mapv2 : ('a -> 'b) -> 'a vec2 -> 'b vec2
38 :     fun mapv3 : ('a -> 'b) -> 'a vec3 -> 'b vec3
39 :     fun mapv4 : ('a -> 'b) -> 'a vec4 -> 'b vec4
40 :    
41 :     fun mapt2 : ('a -> 'b) -> 'a tex2 -> 'b tex2
42 :     fun mapt3 : ('a -> 'b) -> 'a tex3 -> 'b tex3
43 :     fun mapt4 : ('a -> 'b) -> 'a tex4 -> 'b tex4
44 :    
45 :     fun mapc3 : ('a -> 'b) -> 'a rgb -> 'b rgb
46 :     fun mapc4 : ('a -> 'b) -> 'a rgba -> 'b rgba
47 :    
48 :     fun appv2 : ('a -> unit) -> 'a vec2 -> unit
49 :     fun appv3 : ('a -> unit) -> 'a vec3 -> unit
50 :     fun appv4 : ('a -> unit) -> 'a vec4 -> unit
51 :    
52 :     fun appt2 : ('a -> unit) -> 'a tex2 -> unit
53 :     fun appt3 : ('a -> unit) -> 'a tex3 -> unit
54 :     fun appt4 : ('a -> unit) -> 'a tex4 -> unit
55 :    
56 :     fun appc3 : ('a -> unit) -> 'a rgb -> unit
57 :     fun appc4 : ('a -> unit) -> 'a rgba -> unit
58 :    
59 : jhr 1 end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0