cube_whole   xtlang


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/external/opengl.xtm

Implementation

(bind-func cube_whole
  (let ((dlist -1))
    (lambda ()
      (if (> dlist -1)
    (begin (glCallList dlist) 1)
    (begin (set! dlist (glGenLists 1))
     (glNewList dlist (+ GL_COMPILE 1))
     (glBegin GL_QUADS)
     ;; Front face
     (glNormal3d 0.0 0.0 1.0)
     (glVertex3d 0.0 0.0  1.0)
     (glVertex3d 1.0 0.0  1.0)
     (glVertex3d 1.0  1.0  1.0)
     (glVertex3d 0.0  1.0  1.0)
     ;; Back face
     (glNormal3d 0.0 0.0 -1.0)
     (glVertex3d 0.0 0.0 0.0)
     (glVertex3d 0.0  1.0 0.0)
     (glVertex3d 1.0  1.0 0.0)
     (glVertex3d 1.0 0.0 0.0)
     ;; Top face
     (glNormal3d 0.0 1.0 0.0)
     (glVertex3d 0.0  1.0 0.0)
     (glVertex3d 0.0  1.0  1.0)
     (glVertex3d 1.0  1.0  1.0)
     (glVertex3d 1.0  1.0 0.0)
     ;; Bottom face
     (glNormal3d 0.0 -1.0 0.0)
     (glVertex3d 0.0 0.0 0.0)
     (glVertex3d 1.0 0.0 0.0)
     (glVertex3d 1.0 0.0  1.0)
     (glVertex3d 0.0 0.0  1.0)
     ;; Right face
     (glNormal3d 1.0 0.0 0.0)
     (glVertex3d 1.0 0.0 0.0)
     (glVertex3d 1.0  1.0 0.0)
     (glVertex3d 1.0  1.0  1.0)
     (glVertex3d 1.0 0.0  1.0)
     ;; Left face
     (glNormal3d -1.0 0.0 0.0)
     (glVertex3d 0.0 0.0 0.0)
     (glVertex3d 0.0 0.0  1.0)
     (glVertex3d 0.0  1.0  1.0)
     (glVertex3d 0.0  1.0 0.0)
     (glEnd)
     (glEndList)
     1)))))


Back to Index

Similar Entries

  • bind_cube    xtlang
  • circle_whole    xtlang
  • clean-cube    xtlang
  • fluid-cube-add-density    xtlang
  • fluid-cube-add-density    xtlang
  • fluid-cube-add-velocity    xtlang
  • fluid-cube-add-velocity    xtlang
  • fluid-cube-create    xtlang
  • fluid-cube-create    xtlang
  • fluid-cube-get-column    xtlang
  • fluid-cube-get-first-column    xtlang
  • fluid-cube-get-first-row    xtlang
  • fluid-cube-get-last-column    xtlang
  • fluid-cube-get-last-row    xtlang
  • fluid-cube-get-row    xtlang
  • fluid-cube-set-column    xtlang
  • fluid-cube-set-first-column    xtlang
  • fluid-cube-set-first-row    xtlang
  • fluid-cube-set-last-column    xtlang
  • fluid-cube-set-last-row    xtlang
  • fluid-cube-set-row    xtlang
  • fluid-step-cube    xtlang
  • fluid-step-cube    xtlang
  • fluid_cube_add_density    xtlang
  • fluid_cube_add_velocity    xtlang
  • fluid_cube_create    xtlang
  • fluid_step_cube    xtlang
  • get-fluid-cube    xtlang
  • get-fluid-cube-1    xtlang
  • get-fluid-cube-2    xtlang
  • get_fluid_cube    xtlang
  • glCube    xtlang
  • load_cube_data    xtlang
  • unbind_cube    xtlang
  • unbind_cube    xtlang
  • update_cube    xtlang