Bad Apple 命令行动画版

Bad Apple 是岛国东方幻想乡制作的一个动画，全动画采用类似皮影戏的方式，只有黑白，但是做到了3D画面，而且全部手绘！效果非常好，没有任何跳帧丢帧现象。

因为它的黑白特性，大群人开始尝试将它移植到各种平台上，我见过的就有计算器、树莓派，还有人把它用javascript放了出来。我也写了一个Pascal程序用来放Bad Apple，不过是全命令行的。

编译好的程序我懒得放了，而且我用的是Linux，Windows用户下载了也没用，所以我把源代码放出来，你们自己用FPC编译吧。

uses crt;
var
    fin:text;
    i:longint;
    s:string;
begin
    // 链接源文件并准备读取
    assign(fin,'badapple.txt');
    reset(fin);

    // 读入第一幅画面并输出版权
    for i:=1 to 24 do begin
        readln(fin,s);
        writeln(s);
    end;
    write('Bad Apple ASCII Art by Lan Tian - https://lantian.pub');
    delay(50);

    // 输出之后画面，不覆盖版权
    while(not(eof(fin)))do begin
        gotoxy(1,1);
        for i:=1 to 24 do begin
            readln(fin,s);
            writeln(s);
        end;
        //write('Bad Apple ASCII Art by Lan Tian - https://lantian.pub');
        delay(50);
    end;

    // 清屏
    //gotoxy(1,1);
    //for i:=1 to 25 do writeln;
    clrscr;

    // 保持良好编程习惯
    close(fin);
end.

当然只执行主程序是没用的，还需要原始图形文件，就是我调用的那个txt，下载地址：/usr/uploads/2013/03/badapple.7z。下载下来和主程序放在一起。