anchor.diff:    (gl:color 0.0 1.0 0.0) (gl:vertex 0.0 (- size) 0.0) (gl:vertex 0.0 size 0.0)
     (gl:color 0.0 0.0 1.0) (gl:vertex 0.0 0.0 (- size)) (gl:vertex 0.0 0.0 size)
     (gl:end))
  +
  +(defun set-fullscreen ()
  +  (cond ((null *fullscreen*)
  +	 (glut:full-screen)
  +	 (setf *fullscreen* t))))
   
   (defun init-glscene ()
     (cond ((not (null *anti-alias*)) ;; Antialias
  
positive.code:   (gl:rotate (x *ang*) 0.0 1.0 0.0)
    (gl:rotate (y *ang*) 1.0 0.0 0.0)
    
    (if *display-list-id* (gl:call-list *display-list-id*))
    
    (glut:swap-buffers))
  
  
negative.code:       (setf radian (/ (* (* angle i) pi) 180))
        (vector-push-extend (make-instance 'point :x (* radius (cos radian)) :y (* radius (sin radian))) coords))
      
      (setf *display-list-id* (gl:gen-lists 1))
      
      (cond ((> *display-list-id* 0)
  	   (gl:new-list *display-list-id* :compile)
  	   (gl:begin :lines)
  	   
  	   (loop for i from 0 to (- points 1) do
  	     (loop for j from i to (- points 1) do
  	       (gl:vertex (x (elt coords i)) (y (elt coords i)))
  	       (gl:vertex (x (elt coords j)) (y (elt coords j)))))
  	   
  