Pall Thayer
Since the beginning
Works in Greenwich, Connecticut United States of America

PORTFOLIO (10)
BIO
Pall Thayer is an artist.

http://pallthayer.dyndns.org
Discussions (769) Opportunities (2) Events (4) Jobs (0)
DISCUSSION

The semi-automatic doodle machine


http://pallit.lhi.is/microcodes/index.php?code_id=50

#!/usr/bin/perl
print "Use a pencil and a 210mm x 210mm sheet of paper. Start with your hand at the upper-left corner.\n";
@position = ('up', 'down');
@direction = (['up', '-'], ['to the left', '-'], ['down', '+'], ['to the right', '+']);
@amount = (0, 0);
while(1){
$d = int(rand(scalar @direction));
$new_amount = int(rand(100));
unless(eval("$amount[$d%2] $direction[$d][1] $new_amount") < 0 || eval("$amount[$d%2] $direction[$d][1] $new_amount") > 210){
print "With pencil ".$position[int(rand(scalar @position))].", move ".$new_amount."mm ".$direction[$d][0].".[Enter]\n";
$amount[$d%2] = eval("$amount[$d%2] $direction[$d][1] $new_amount");
$input = <>;
}
}

DISCUSSION

Augmented reality


the last, in Icelandic:

#!/usr/bin/perl
`espeak -v is -s 100 'Þetta er í raun bara prentaður texti.'`

DISCUSSION

Augmented reality


The linux version of the OS X version of Augmented reality:

#!/usr/bin/perl
`espeak 'this is really just printed text'`;

DISCUSSION

Augmented reality


Augmented reality for OS X

#!/usr/bin/perl
$text = "This is really just printed text";
`say $text`;

DISCUSSION

Augmented reality


#!/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