anchor.diff:  let makeLines degrees length (line: DrawLine) =
   
       let rec makeLines rads length (lines: DrawLine list) cont = function
  -        | 11 -> cont lines
  +        | 14 -> cont lines
           | n ->
               let ldeg = rads + lrad
               let rdeg = rads + rrad
  
positive.code: let drawVbo (drawLines: DrawLine []) vbo =
      Native.App.drawVbo (drawLines.Length * sizeof<DrawLine>, drawLines, vbo)
  
  let init () = Native.App.init ()
  
  let exit app = Native.App.exit app
  
  // http://wiki.libsdl.org/SDL_EventType
  let shouldQuit () = Native.App.shouldQuit ()
  
  
  let torad = 0.0174532925f
  
  
negative.code: 
      loadShaders ()
  
      let random = Random (Environment.TickCount)
  
      GameLoop.start [||] 
          (fun _ _ ->
              GC.Collect (2)
              makeLines 90.f (0.4f) drawLine
              |> Array.ofList) 
          (fun _ drawLines ->
              GC.Collect (2)
              Thread.Sleep (50)
              clear ()
              drawVbo drawLines vbo
              draw app
  