anchor.diff:    ;; shader stuff
     (initialize-program)
   
  +  ;; vao
  +  (initialize-vao)
     
     ;; enable v-sync 0, disable with 0 TODO: test with moving triangle at high velocity
     ;; if tearing disappears, or if it is an os issue
  
positive.code: 
  ;;..............................................................................
  
  
  (defvar *position-buffer-object*)
  
  (defmethod initialize-instance :after ((w test-window) &key &allow-other-keys)
    ;; GL setup can go here; your GL context is automatically active,
  
negative.code: 		      :initial-contents '(-0.5 -0.5 0.0 1.0
  					  0.0 0.5 0.0 1.0
  					  0.5 -0.5 0.0 1.0)))
  
  (defvar *cube-data*
    (cffi:foreign-alloc
     :float
     :initial-contents
     '(0.5 0.5 0.5
       0.5 -0.5 0.5
       -0.5 -0.5 0.5
       -0.5 0.5 0.5
       0.5 0.5 0.5
       -0.5 0.5 0.5
       -0.5 0.5 -0.5
       0.5 0.5 -0.5
       0.5 0.5 0.5
       0.5 0.5 -0.5
       0.5 -0.5 -0.5
       0.5 -0.5 0.5
       0.5 0.5 -0.5
       -0.5 0.5 -0.5
       -0.5 -0.5 -0.5
       0.5 -0.5 -0.5
       0.5 -0.5 0.5
       0.5 -0.5 -0.5
       -0.5 -0.5 -0.5
       -0.5 -0.5 0.5
       -0.5 0.5 0.5
       -0.5 -0.5 0.5
       -0.5 -0.5 -0.5
       -0.5 0.5 -0.5)))
  
  (defvar *cube-indices*
    (cffi:foreign-alloc
     :unsigned-short
     :initial-contents
     '(0 1 2
       2 3 0
       4 5 6
       6 7 4
       8 9 10
       10 11 8
       12 13 14
       14 15 12
       16 17 18
       18 19 16
       20 21 22
       22 23 20)))
  
  
  ;;Shader------------------------------------------------------------------------
  