replaced http://codegolf.stackexchange.com/ with https://codegolf.stackexchange.com/
Perl, 35 bytes
34 bytes code + 1 for -n.
Requires the input lines be padded with spaces. 13 (!) bytes saved thanks to @Dada Dada.
print/T/?reverse<>:map~~reverse,<>
Usage
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 35 bytes
34 bytes code + 1 for -n.
Requires the input lines be padded with spaces. 13 (!) bytes saved thanks to @Dada.
print/T/?reverse<>:map~~reverse,<>
Usage
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 35 bytes
34 bytes code + 1 for -n.
Requires the input lines be padded with spaces. 13 (!) bytes saved thanks to @Dada.
print/T/?reverse<>:map~~reverse,<>
Usage
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 4835 bytes
34 bytes code + 1 for -n.
Requires the input lines be padded with spaces. 13 (!) bytes saved thanks to @Dada .
($_,@F)=<>;printprint/T/?reverse@Freverse<>:map{~~reverse$_}@Fmap~~reverse,<>
Usage
perl -ene '($_,@F)=<>;print'print/T/?reverse@Freverse<>:map{~~reverse$_}@F'map~~reverse,<>' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -ene '($_,@F)=<>;print'print/T/?reverse@Freverse<>:map{~~reverse$_}@F'map~~reverse,<>' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 48 bytes
Requires the input lines be padded with spaces.
($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F
Usage
perl -e '($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -e '($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 35 bytes
34 bytes code + 1 for -n.
Requires the input lines be padded with spaces. 13 (!) bytes saved thanks to @Dada .
print/T/?reverse<>:map~~reverse,<>
Usage
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -ne 'print/T/?reverse<>:map~~reverse,<>' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /
Perl, 48 bytes
Requires the input lines be padded with spaces.
($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F
Usage
perl -e '($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F' <<< 'False
o /
--|/
|
/ \ '
/ o
/|--
|
\ /
perl -e '($_,@F)=<>;print/T/?reverse@F:map{~~reverse$_}@F' <<< 'True
o /
--|/
|
/ \ '
/ \
|
--|/
o /