横スクロール

scroll.vim

let s:screen = [
\"                                                                                                                                                                                                                     ",
\"                                                                                      #                                    #       #                   #                #                 #                 #        ",
\"                                                                               #       #              #            #     #  #       #                   #                ###               #          #      #       ",
\"                                                                                #      #         #     #            #     #         #                   #                           #      #####       #      #      ",
\"                                                                                # #    ###        #    #            #   #           #                   #  ##                        #######           #      #      ",
\"                                                                                #  #####          #    ####     #   ###  #       #  ##  ###             ###             ####               #           #      ####   ",
\"                                                                               #       #       #  # ####         ####  #  #       ######   #            #            ###    #            ###          #   #####      ",
\"                                                                               #       #        ####   #           #   #   #        ##      #           #                   #           #  ##         #       #      ",
\"                                                                               #       #          #    #           #   #  ##        #       #           #                   #           #   #         #       #      ",
\"                                                                               #       #          #    #           #   #           ##       #           #                   #            ####         #       #      ",
\"                                                                               # #  ####          #   ##          #    #           ##       #       ######                  #               #         #       #      ",
\"                                                                                #  #   ##         #    #          #   #           # #      #       #    # ##               #               #           ##     #      ",
\"                                                                                #  #   # #         #             #  # #          #  #     #        #    #   #              #               #           #     #       ",
\"                                                                                #   ###             #####        #   #             ##   ##          ####                  #               #            #     #       ",
\"                                                                                                                                    #                                    #               #                  #        ",
\"                                                                                                                                                                                                                     "
\]

function! s:init()
  edit `='==YOKOSUKU=='`
  setlocal buftype=nowrite
  setlocal noswapfile
  setlocal bufhidden=wipe
  setlocal buftype=nofile
  setlocal nonumber
  setlocal nolist
  setlocal nowrap
  setlocal nocursorline
  setlocal nocursorcolumn

  call setline(1, s:screen)
  redraw
  let loop = 230
  while loop > 0
    let loop -= 1
    if nr2char(getchar(0)) == 'q'
      break
    endif
    exe "normal gg0\<c-v>G0x"
    sleep 50ms
    redraw
  endwhile
  bdelete
endfunction

call s:init()