1 ! Copyright (C) 2008 Jean-François Bigot.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: help.markup help.syntax kernel ;
11 { $description "return the position of the camera" } ;
16 { "point" "position" }
18 { $description "return the point the camera looks at" } ;
23 { "dirvec" "upside direction" }
25 { $description "In order to precise the roling position of camera give an upward vector" } ;
29 { "camera" "direction" }
31 { $description "Word to use in replacement of gl-look-at when using a camera" } ;
33 ARTICLE: "4DNav.camera" "Camera"
34 { $vocab-link "4DNav.camera" }
36 "A camera is defined by:"
38 { "a position (" { $link camera-eye } ")" }
39 { "a focus direction (" { $link camera-focus } ")" }
40 { "an attitude information (" { $link camera-up } ")" }
42 "Use " { $link do-look-at } " in opengl statement in placement of gl-look-at"
44 "A camera is a " { $vocab-link "4DNav.turtle" } " object. Its a special vocab to handle mouvements of a 3D object:"
46 { "To define a camera"
51 ": init-my-camera ( -- )"
52 " <turtle> >my-camera"
76 "to use it in an opengl statement"
79 "my-camera> do-look-at"