swannodette

(defn tests []
     [{:name 'suiteA
       :total 3
       :tests [{:name 'testA}
               {:name 'testB}
               {:name 'testC}]}
      {:name 'suiteB
       :total 3
       :tests [{:name 'testD}
               {:name 'testE}

swannodette

{
  "SERVER": "http://localhost/~davidnolen/moma-shiftspace-phase2/",
  "SERVER_SECURE": "http://localhost/~davidnolen/moma-shiftspace-phase2/",
  "SPACEDIR": "http://localhost/~davidnolen/moma-shiftspace-phase2/spaces/",
  "IMAGESDIR": "http://localhost/~davidnolen/moma-shiftspace-phase2/momasocialbar/images/",
  "GLOBAL_CSS": "styles/SSGlobalStyles.css",
  "LOG_LEVEL": "SSLogError",
  "VARS": {
    "ShiftSpaceSandBoxMode": true
  }

swannodette

(defn display [[delta time] state]
  (clear)
  (load-identity)
  (translate -1.5 0.0 -6.0)
  (draw-triangles
   (doall (map #(apply vertex %) *tri*)))
  (translate 3.0 0.0 0.0)
  (draw-quads
   (doall (map #(apply vertex %) *sqr*)))
  (app/repaint!))

swannodette

glLoadIdentity()

swannodette

glBegin(GL_QUADS);
glVertex3f(1.0f, 1.0f, 1.0f);
glVertex3f(-1.0f, 1.0f, 1.0f);
glVertex3f(-1.0f, -1.0f, 1.0f);
glVertex3f(1.0f, -1.0f, 1.0f);
glEnd();

swannodette

(draw-quads
  (vertex 1 1 1)
  (vertex -1 1 1)
  (vertex -1 -1 1)
  (vertex 1 -1 1))

swannodette

glEnable(GL_DEPTH_TEST);
glDepthTest(GL_LEQUAL);
glHint(GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST);
glShadeModel(GL_SMOOTH);

swannodette

(enable :depth-test)
(depth-test :lequal)
(hint :perspective-correction-hint :nicest)
(shade-model :smooth)

swannodette

(use '[penumbra.opengl.core :only [gl-import]])
(gl-import glClearDepth clear-depth)

swannodette

(defn reshape [[x y width height] state]
  ...)