I had some fun ...
I think I'll have to shrink the code a bit if I want to use
it as a signature ...

it's a pity, that the recursive version doesn't work ...
The best is, you render it with black textcolor on a bright background... ;)

// --------------------------------------------------------------------

#declare Str=concat(
"i !.!O\":\".) #.O \":!8!o\" \"8%:!.% !o!O!8%:!.\" !o!:!.' \".&:!O$ !.':",
"!O!o! !.!:!8!o# \":\"8\" \"8#:! !'\":# \"8#:\"'!8\":\" !8\":# !o\":! \":",
"!8# #:!8\" \":!o!'\" !'\":\"8! \":\"8\" !.\":\"8\" \"8#:\" !8!:# \"8\":$",
" !8\":! !8!o\":\" !8\":! \":!8#.\":!o!O\" \":!8$ \":\"8! \":\"8\" \":\"8",
"# \"8#:\" !O!:# \"8\":$ !8\":\" !8\":\" !8!:!'! $:\"o\":!o# \":!8$ \":\"",
"8! \":!o!8! !.\":\"8# \"8':# \"8\":$ !8\":\" !8\":! !o\":\".\":!8$ \":!8",
"\" ):\"8! !'\":!o!8\":\"8$ \"8%:!'$ \"8\":$ !8\":! \".#:\"o#:\"o#:\".! ",
"\":!8! \":!8# !'\":\"8# !'#:\"8% \"8#:' \"8\":$ !8!:!.\":\"o):!.!:!.\"o!",
":!.!:!8! \":!8$ \":\"8$ \":\"8& \"8#:' \"8\":\" !.!:!o!:!o,:\".! \".!:!.",
"!:\"o!:!.!'!8$ \":\"8$ \":\"8& \"8#:' !O!8\":\".!:\"o-:!.!:#.!:!.$:\"o!.",
"% !'!:!8!O$ \":!8!O& \"8\":!'( !'!O#:\"o0:!.!:!.%:\"o\":, \":!0!%7 A:4 !",
"o!.!o!.!o!.!o!.!o!.!o!.!o!.!o!.!o!.\"8<o$8!.!o!.!o!.!o!.!o!.!o!.!o!.!o!.",
"!o!.!o!.\".\"o\".!.!:!.!:!.\"o#8\"'\".\"o\".\"o\".\"o\".\"o!|\".\"o\".\"",
"o\".\"o\".\"o! \"'\"o\".\"o\".\"o\".\"o\".!o\"=08!'#.#o#.#o#.!|#o#.#o#.#",
"o!'$8$o%8%o\"80.!o!O!8!:\"o\".\"o$.$o!|$.$o\".\"o\".\":A8!O\"'$ !:\".$o'",
".!|'o$.+o!.- *'!O!:).!:#.)o!|).#o!'*8!:,.% !.\"o-8!/\"'%.%o!|%,%o!'!8!'!",
"o- !'!O'8! !.\"o08!/$ !'(.!|(o!'%8!o0 !'!O58!/!'( #'#.!|$O\"')8!O!.1 3'2",
"o3'1o. !.!/383 !'!\\/8, !.!/\"8#J!8!w#8!w*85 !'!\\-8* !.!/&8!J!8!w!8!w!8",
"!w*87 !'!\\+8) !/&8!J!8!J!8!w!8!w!8!w*89 !\\*8' !.!/'8#J\"8#w+8: !'!\\(8",
"& !/<8< !'!\\&8");


#macro recursive(S,l)
    #declare _l=l;
    #declare _=asc(S)-32;
    #while(_>0)
      #declare _=_-1;
      #debug substr(S,2,1)
      #declare _l=_l-1;
      #if (_l=0)
        #debug "\n"
        #declare _l=71;
      #end
    #end
    recursive(substr(S,3,strlen(S)-2),_l)
#end

#macro iterative()
    #declare P=0;
    #declare Len=strlen(Str);
    #declare Out="\n";
    #declare cpl=0;
    #while (P<Len-1)
        #declare P=P+2;
        #declare _l=substr(Str,P-1,1);
        #declare _c=substr(Str,P,1);
        #declare _i=asc(_l)-32;
        #while (_i>0)
            #declare _i=_i-1;
            #declare cpl=cpl+1;
            #debug _c
            #if (cpl=71)
                #declare cpl=0;
                #debug "\n"
            #end
        #end
    #end
#end

 // recursive(Str,71)
iterative()


light_source {
    <10, 30, -10> color rgb <1, 1, 1>
    }

camera {
    location <0,0,-4>
    }

plane {
  y, -1
  pigment { checker color rgb 1, color rgb 0 }
  finish {ambient 0}
}

sphere {
    0.0, 1
    pigment {color rgb 0.5}
    finish{
        specular 0.6
        reflection 0.6
        diffuse 0.4
        ambient 0
    }
}
  // ----------------------------------------------------------

--
Jan Walzer <jan### [at] lzernet>

Post a reply to this message