anchor.diff:      (gl:bind-buffer :array-buffer 0)))
   
   (defun add-line-segment (x1 y1 x2 y2)
  +  
     (setf *line-segments*
   	(append (list x1 y1 0.0 x2 y2 0.0)
   		*line-segments*)))
  
positive.code: 	  (vector-push-extend name (keys-in-order seq-hash-table))))
      (setf (gethash name rectangles-container) rectangle)))
  
  
  ;;Rectangle---------------------------------------------------------------------
  
  
negative.code: 	   :make-rectangle-c
  	   :add-rectangle-as
  	   :remove-rectangle
  	   :clear-parallelograms
  	   :get-rectangle
  	   :move
  	   :scale
  