サインカーブで赤富士

アニメ『LUPIN the Third -峰不二子という女-』(2012)
ルパンと不二子が初めて会った話から始まります。「峰不二子」の名前の由来は、富士山のポスターだとか。

コマンドラインで富士山を描きましょう。サインカーブで描きます。

サインカーブ。

clear;perl -e 'foreach(1..90){printf("\x1b[%d;%dHI",((sin 9*$_/100)+1)*16+1,++$x);}'

山の絵になるように調整。

色をつけて赤富士にしてみます。

clear;perl -e '
sub l{ printf("\x1b[%d;%dH",$_[0],$_[1]); }
sub c{ printf("\x1b[%dm%s",$_[0],$_[1]); }
foreach(20..100){
        $y = ((sin 8*$_/100)+1)*9+10;
        ++$x;
        for($i=1;$i<$y;$i++){
                l $i,$x; c 44," ";c 49;
        }
        for($i=$y;$i<28;$i++){
                if($i<14){
                l $i,$x; c 47,"|";c 49;
                }else{
                l $i,$x; c 41," ";c 49;
                }
        }
}'