real k,m

      v = sqrt(vx*vx + vy*vy)
      fd = -1*k*v

      fdx = fd*vx/v
      fdy = fd*vy/v

      ax = fdx/m 
      ay = fdy/m - 9.8