Augmented reality

Posted by Pall Thayer | Wed Jan 20th 2010 9:59 a.m.

#!/usr/bin/perl
$reality = "real text\n";
$augmented_reality = "\e[31;40m augmented ".$reality."\e[0m";
print $reality;
print $augmented_reality;

http://pallit.lhi.is/microcodes/index.php?code_id=49
  • Eric Dymond | Sat Jan 23rd 2010 3:41 p.m.
    require Tk;
    use English;
    use LWP::Simple;
    my $Version="1.0";
    my $main=MainWindow->new();
    $main->minsize(qw(550 450));
    $main->maxsize(qw(525 450));
    $main->title("Art can go here");
    $main->configure(-background=>'lemonchiffon');
    $main->geometry('+10+140');
    my $body =$main->Frame(-background=>'red',)->pack(-side=>'top',-fill=>'y');
    my $inFrm =$body->Frame(-background=>'orange',)->pack(-side=>'top',-fill=>'x');
    my $message = $inFrm->Label(-background=>'red')->pack(-side=>'top');
    $code = get('http://pallit.lhi.is/microcodes/contr.php?code_id=49');
    $message->configure(-text=>$code);
    MainLoop();
  • Eric Dymond | Sat Jan 23rd 2010 3:43 p.m.
    #!/usr/bin/perl -w

    use Tk;
    require Tk;
    use English;
    use LWP::Simple;
    my $Version="1.0";
    my $main=MainWindow->new();
    $main->minsize(qw(550 450));
    $main->maxsize(qw(525 450));
    $main->title("Art can go here");
    $main->configure(-background=>'lemonchiffon');
    $main->geometry('+10+140');
    my $body =$main->Frame(-background=>'red',)->pack(-side=>'top',-fill=>'y');
    my $inFrm =$body->Frame(-background=>'orange',)->pack(-side=>'top',-fill=>'x');
    my $message = $inFrm->Label(-background=>'red')->pack(-side=>'top');
    $code = get('http://pallit.lhi.is/microcodes/contr.php?code_id=12');
    $message->configure(-text=>$code);
    MainLoop();

  • Pall Thayer | Mon Jan 25th 2010 7:41 a.m.
    Augmented reality for OS X

    #!/usr/bin/perl
    $text = "This is really just printed text";
    `say $text`;
  • Pall Thayer | Mon Jan 25th 2010 7:46 a.m.
    The linux version of the OS X version of Augmented reality:

    #!/usr/bin/perl
    `espeak 'this is really just printed text'`;
  • Pall Thayer | Mon Jan 25th 2010 8 a.m.
    the last, in Icelandic:

    #!/usr/bin/perl
    `espeak -v is -s 100 'Þetta er í raun bara prentaður texti.'`
  • Eric Dymond | Tue Jan 26th 2010 12:40 a.m.
    use Tk;
    use LWP::Simple;
    #a trimmed version but still not micro
    my $main=MainWindow->new();
    $main->maxsize(qw(525 450));
    $main->title("Art can go here");
    $main->geometry('+10+140');
    my $body =$main->Frame(-background=>'red',)->pack(-side=>'top',-fill=>'y');
    my $message = $body->Label(-background=>'red')->pack(-side=>'top');
    $code = get('http://pallit.lhi.is/microcodes/contr.php?code_id=12');
    $message->configure(-text=>$code);
    MainLoop();
Your Reply