~ubuntu-branches/ubuntu/hardy/lablgl/hardy

« back to all changes in this revision

Viewing changes to src/glClear.ml

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

src/glClear.ml

 

1

(* $Id: glClear.ml,v 1.5 2000/04/12 07:40:23 garrigue Exp $ *)

 

2

 

 

3

open Gl

 

4

 

 

5

external accum : float -> float -> float -> float -> unit

 

6

    = "ml_glClearAccum"

 

7

let accum ?(alpha=1.) (r,g,b : rgb) =

 

8

  accum r g b alpha

 

9

 

 

10

type buffer = [`color|`depth|`accum|`stencil]

 

11

external clear : buffer list -> unit = "ml_glClear"

 

12

 

 

13

external color :

 

14

    red:float -> green:float -> blue:float -> alpha:float -> unit

 

15

    = "ml_glClearColor"

 

16

let color ?(alpha=1.) (red, green, blue : rgb) =

 

17

  color ~red ~green ~blue ~alpha

 

18

external depth : clampf -> unit = "ml_glClearDepth"

 

19

external index : float -> unit = "ml_glClearIndex"

 

20

external stencil : int -> unit = "ml_glClearStencil"

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1