anchor.diff:    gl_FragColor = vec4(1.0,1.0,1.0,1.0);
   }
   ")
  -(defvar frag-src-len (strlen frag-src))
   
   (defvar vert-src "
   #version 130
  
positive.code: 
  ;;; -- Load Vertex Buffer Object -- ;;;
  (defvar vbo (cast 0 u32))
  (defvar vbo-data (cast (alloc (i64* 8 4)) (ptr f32))) ; 4 floats
  (setf (deref (ptr+ vbo-data 2)) (cast 0.25 f32))
  (setf (deref (ptr+ vbo-data 4)) (cast 0.25 f32))
  (setf (deref (ptr+ vbo-data 5)) (cast 0.25 f32))
  
negative.code:   gl_Position = vec4(vertex_position + offset,0.0,1.0);
  }
  ")
  (defvar frag-src-len (cast (strlen frag-src) u32))
  (defvar vert-src-len (cast (strlen vert-src) u32))
  (gl:shader-source frag 1 (addrof frag-src) (addrof frag-src-len))
  (gl:compile-shader frag)
  (defvar glstatus (cast 0 u32))
  