-module(fourohfour). -export([for/0,for/1]). oh(Fo,Oh,_)when
Fo<Oh->Oh;oh(Fo,_,Oh) when Fo>Oh->Oh;oh(Fo,_,_)->Fo. for(Oh)
->Fo=30,Of=11,Fou=fun lists:nth/2,Ohf=fun lists:concat/1,Ou=
fun lists:seq/2, Our=fun round/1, Foo=fun math:cos/1,OhF=fun
math:sin/1,OhFor=fun io:format/2,ForO=fun timer:sleep/1,Fu=[
" ",
" 444444444 000000000 444444444 ",
" 4::::::::4 00:::::::::00 4::::::::4 ",
" 4:::::::::4 00:::::::::::::00 4:::::::::4 ",
" 4::::44::::4 0:::::::000:::::::0 4::::44::::4 ",
" 4::::4 4::::4 0::::::0 0::::::0 4::::4 4::::4 ",
" 4::::4 4::::4 0:::::0 0:::::0 4::::4 4::::4 ",
" 4::::4 4::::4 0:::::0 0:::::0 4::::4 4::::4 ",
" 4::::444444::::4440:::::0 000 0:::::04::::444444::::444 ",
" 4::::::::::::::::40:::::0 000 0:::::04::::::::::::::::4 ",
" 4444444444:::::4440:::::0 0:::::04444444444:::::444 ",
" 4::::4 0:::::0 0:::::0 4::::4 ",
" 4::::4 0::::::0 0::::::0 4::::4 ",
" 4::::4 0:::::::000:::::::0 4::::4 ",
" 44::::::44 00:::::::::::::00 44::::::44 ",
" 4::::::::4 00:::::::::00 4::::::::4 ",
" 4444444444 000000000 4444444444 ",
" "]
,Foh=Ohf([" "++[Fou(oh(Our(Frr*Foo(Oh)-Off*OhF(Oh)
)+ Fo,1,57), Fou(oh(Our(Frr*OhF(Oh) +Off*Foo(Oh)) +Of,1,18),
Fu)) || Frr<-Ou(-Fo,Fo)]++"\n" || Off<-Ou(-Of,Of) ]), OhFor(
"~s" , [Foh] ), ForO( 50 ), for(Oh + 0.1). for()->for(0.0).