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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

src/opengl/gl-type-util-sig.sml revision 16, Mon Feb 18 17:38:18 2008 UTC src/common/sml3d-type-util-sig.sml revision 19, Mon Feb 18 17:47:01 2008 UTC
# Line 1  Line 1 
1  (* gl-type-util-sig.sml  (* sml3d-type-util-sig.sml
2   *   *
3   * COPYRIGHT (c) 2006 John Reppy (http://www.cs.uchicago.edu/~jhr)   * COPYRIGHT (c) 2008 John Reppy (http://www.cs.uchicago.edu/~jhr)
4   * All rights reserved.   * All rights reserved.
5   *)   *)
6    
7  signature GL_TYPE_UTIL =  signature SML3D_TYPE_UTIL =
8    sig    sig
9    
10      include GL_TYPES    (* vector types (as per SML3d_TYPES) *)
11        type 'a vec2 = {x : 'a, y : 'a}
12        type 'a vec3 = {x : 'a, y : 'a, z : 'a}
13        type 'a vec4 = {x : 'a, y : 'a, z : 'a, w : 'a}
14        type 'a tex2 = {s : 'a, t : 'a}
15        type 'a tex3 = {s : 'a, t : 'a, r : 'a}
16        type 'a tex4 = {s : 'a, t : 'a, r : 'a, q : 'a}
17        type 'a rgb  = {r : 'a, g : 'a, b : 'a}
18        type 'a rgba = {r : 'a, g : 'a, b : 'a, a : 'a}
19    
20    (* pack tuples as records *)    (* pack tuples as records *)
21      val packv2 : ('a * 'a)              -> 'a vec2      val packv2 : ('a * 'a)              -> 'a vec2

Legend:
Removed from v.16  
changed lines
  Added in v.19

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