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 1 - (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 :     val unpackv2 : 'a vec2 -> ('a * 'a)
26 :     val unpackv3 : 'a vec3 -> ('a * 'a * 'a)
27 :     val unpackv4 : 'a vec4 -> ('a * 'a * 'a * 'a)
28 :    
29 :     val unpackt2 : 'a tex2 -> ('a * 'a)
30 :     val unpackt3 : 'a tex3 -> ('a * 'a * 'a)
31 :     val unpackt4 : 'a tex4 -> ('a * 'a * 'a * 'a)
32 :    
33 :     val unpackc3 : 'a rgb -> ('a * 'a * 'a)
34 :     val unpackc4 : 'a rgba -> ('a * 'a * 'a * 'a)
35 :    
36 :     end

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