← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/gluMat.ml

  • Committer: Bazaar Package Importer
  • Author(s): Sven Luther
  • Date: 2004-05-26 09:39:17 UTC
  • Revision ID: james.westby@ubuntu.com-20040526093917-uakgrsrv5keom5kn
Tags: upstream-1.00
Import upstream version 1.00

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gluMat.ml
 
1
(* $Id: gluMat.ml,v 1.2 2000/04/12 07:40:25 garrigue Exp $ *)
 
2
 
 
3
open Gl
 
4
 
 
5
external look_at :
 
6
    eye:(float * float * float) ->
 
7
    center:(float * float * float) ->
 
8
    up:(float * float * float) -> unit
 
9
    = "ml_gluLookAt"
 
10
 
 
11
external ortho2d :
 
12
    left:float -> right:float -> bottom:float -> top:float -> unit
 
13
    = "ml_gluOrtho2D"
 
14
let ortho2d ~x:(left,right) ~y:(bottom,top) =
 
15
  ortho2d ~left ~right ~bottom ~top
 
16
 
 
17
external perspective :
 
18
    fovy:float -> aspect:float -> znear:float -> zfar:float -> unit
 
19
    = "ml_gluPerspective"
 
20
let perspective ~fovy ~aspect ~z:(znear,zfar) =
 
21
  perspective ~fovy ~aspect ~znear ~zfar
 
22
 
 
23
external pick_matrix :
 
24
    x:float -> y:float -> width:float -> height:float -> unit
 
25
    = "ml_gluPickMatrix"
 
26
 
 
27
external project : point3 -> point3 = "ml_gluProject"
 
28
external unproject : point3 -> point3 = "ml_gluUnProject"