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

SCM Repository

[sml3d] Annotation of /trunk/sml3d/src/glfw/glfw-sig.sml
ViewVC logotype

Annotation of /trunk/sml3d/src/glfw/glfw-sig.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1253 - (view) (download)

1 : jhr 1252 (* glfw-sig.sml
2 :     *
3 :     * COPYRIGHT (c) 2012 The SML3d Project (http://sml3d.cs.uchicago.edu)
4 :     * All rights reserved.
5 :     *)
6 :    
7 :     signature GLFW =
8 :     sig
9 :    
10 :     (* FIXME: should these should be data constructors? *)
11 : jhr 1253 datatype window_prop
12 :     | REFRESH_RATE of word
13 :     | ACCUM_RED_BITS of word
14 :     | ACCUM_GREEN_BITS of word
15 :     | ACCUM_BLUE_BITS of word
16 :     | ACCUM_ALPHA_BITS of word
17 :     | AUX_BUFFERS : window_hint
18 :     | STEREO
19 :     | WINDOW_NO_RESIZE
20 :     | FSAA_SAMPLES of int
21 :     | OPENGL_VERSION_MAJOR of int
22 :     | OPENGL_VERSION_MINOR of int
23 :     | OPENGL_FORWARD_COMPAT
24 :     | OPENGL_DEBUG_CONTEXT
25 :     | OPENGL_PROFILE : window_hint
26 : jhr 1252
27 :     val openWindow : {
28 : jhr 1253 size : ?,
29 :     redBits, greenBits, blueBits,
30 :     alphaBits,
31 :     depthBits,
32 :     stencilBits,
33 :     fullScreen,
34 : jhr 1252 hints : window_hint list
35 :     } -> ??
36 :    
37 :     eqtype input_state
38 :     val MOUSE_CURSOR : input_state
39 :     val STICKY_KEYS : input_state
40 :     val STICKY_MOUSE_BUTTONS : input_state
41 :     val SYSTEM_KEYS : input_state
42 :     val KEY_REPEAT : input_state
43 :     val AUTO_POLL_EVENTS : input_state
44 :    
45 : jhr 1253 val setWindowTitle : string -> unit
46 :     val setWindowSize : size2i -> unit
47 :     val setWindowPos : vec2i -> unit
48 :     val getWindowSize : unit -> size2i
49 :    
50 :     (* callbacks *)
51 :     val setWindowSizeCallback : (size -> unit) option -> unit
52 :    
53 :     val swapBuffers : unit -> unit
54 :    
55 :     val enableInputState : input_state -> unit
56 :     val disableInputState : input_state -> unit
57 :    
58 : jhr 1252 end

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