I'm starting to provide Chinese / English versions of some articles, switch with the Language menu above. 我开始提供部分文章的中文、英文翻译,请使用顶部语言菜单切换。

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。下载下来和主程序放在一起。

本站使用运行在 Vercel 上的 Waline 评论系统,中国大陆访问可能不稳定。