anchor.diff: -
   (ql:quickload "lispbuilder-sdl")
   (ql:quickload "lispbuilder-sdl-gfx")
   
  
positive.code: (defvar *sun-M* 1.99e30)
  (defvar *earth-M* 5.97e24)
  
  (defun newpos (oldpos)
    )
  
  (defun proto ()
    (sdl:with-init ()
      (sdl:window 640 480 :title-caption "OrbSim Prototype v1.04e-23")
      (setf (sdl:frame-rate) 60)
      
      (sdl:with-events ()
  
negative.code:          (sdl:push-quit-event)))
        (:idle ()  (sdl:clear-display sdl:*black*)
  
         (sdl-gfx:draw-filled-circle
           (pos2pos *sun-pos*)
           10 
           :color sdl:*yellow*)
  
  